<?
xml version="1.0" encoding="utf-8" ?>
<codetemplate xmlns="http://schemas.borland.com/Delphi/2005/codetemplates"
version="1.0.0">
<template name="propertygs" invoke="manual">
<point name="propertyname">
<text>PropertyName</text>
<hint>Property name</hint>
</point>
<point name="propertytype">
<text>PropertyType</text>
<hint>Property type</hint>
</point>
<description>Property declaration with getter and setter</description>
<author>Andre Stahl</author>
<code language="Delphi" context="memberdecl" delimiter="|">
<![CDATA[ property |propertyname|: |propertytype| read Get|propertyname| write Set|propertyname|;
// ...privat
F|propertyname|: |propertytype|;
// ...protection
function Get|propertyname|: |propertytype|;
procedure Set|propertyname|(Value: |propertytype|);
// ...implementation
function XXX.Get|propertyname|: |propertytype|;
begin
Result:=F|propertyname|;
end;
procedure XXX.Set|propertyname|(Value: |propertytype|);
begin
if |propertyname| <> Value then
begin
F|propertyname| := Value;
end;
end;
|end|]]>
</code>
</template>
</codetemplate>