mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-04-16 16:09:30 +02:00
IDE: code templates: using more syncro edit
git-svn-id: trunk@25347 -
This commit is contained in:
mattias
parent
977d818d97
commit
8c824f1c66
@ -1,67 +1,71 @@
|
||||
LazarusResources.Add('lazarus_dci_file','DCI',[
|
||||
'[arrayd | array declaration (var)]'#13#10'$(AttributesStart)'#13#10'EnableMa'
|
||||
+'kros=true'#13#10'$(AttributesEnd)'#13#10'array[$param(0)..$param(1)] of $pa'
|
||||
+'ram(Type);|'#13#10'[arrayc | array declaration (const)]'#13#10'$(Attributes'
|
||||
+'Start)'#13#10'EnableMakros=true'#13#10'$(AttributesEnd)'#13#10'array[$param'
|
||||
+'(0)..$param(1)] of $param(Type) = (|);'#13#10'[cases | case statement]'#13
|
||||
+#10'$(AttributesStart)'#13#10'EnableMakros=true'#13#10'$(AttributesEnd)'#13
|
||||
+#10'case $param(var) of'#13#10' : |;'#13#10' : ;'#13#10'end;'#13#10'[casee'
|
||||
+' | case statement (with else)]'#13#10'$(AttributesStart)'#13#10'EnableMakro'
|
||||
+'s=true'#13#10'$(AttributesEnd)'#13#10'case $param(var) of'#13#10' : |;'#13
|
||||
+#10' : ;'#13#10'else ;'#13#10'end;'#13#10'[classf | class declaration (all '
|
||||
+'parts)]'#13#10'$(AttributesStart)'#13#10'EnableMakros=true'#13#10'$(Attribu'
|
||||
+'tesEnd)'#13#10'T$param(Class) = class(T$param(Base))'#13#10'private'#13#10
|
||||
+' |'#13#10'public'#13#10' constructor Create;'#13#10' destructor Destroy;'
|
||||
+' override;'#13#10'end;'#13#10'[classd | class declaration (no parts)]'#13#10
|
||||
+'$(AttributesStart)'#13#10'EnableMakros=true'#13#10'$(AttributesEnd)'#13#10
|
||||
+'T$param(Class) = class(T$param(Base))'#13#10' |'#13#10'end;'#13#10'[classc'
|
||||
+' | class declaration (with Create/Destroy overrides)]'#13#10'$(AttributesSt'
|
||||
+'art)'#13#10'EnableMakros=true'#13#10'$(AttributesEnd)'#13#10'T$param(Class)'
|
||||
+' = class(T$param(Base))'#13#10'private'#13#10' |'#13#10'protected'#13#10#13
|
||||
+#10'public'#13#10' constructor Create; override;'#13#10' destructor Destro'
|
||||
+'y; override;'#13#10'published '#13#10#13#10'end;'#13#10'[fors | for (no beg'
|
||||
+'in/end)]'#13#10'$(AttributesStart)'#13#10'EnableMakros=true'#13#10'$(Attrib'
|
||||
+'utesEnd)'#13#10'for $param(i) := $param(0) to $param(Count - 1) do |;'#13#10
|
||||
+'[forb | for statement]'#13#10'$(AttributesStart)'#13#10'EnableMakros=true'
|
||||
+#13#10'$(AttributesEnd)'#13#10'for $param(i) := $param(0) to $param(Count-1)'
|
||||
+' do'#13#10'begin'#13#10' |'#13#10'end;'#13#10'[function | function declara'
|
||||
+'tion]'#13#10'$(AttributesStart)'#13#10'EnableMakros=true'#13#10'$(Attribute'
|
||||
+'sEnd)'#13#10'function $param(Name)($param( )): $param(Type);'#13#10'begin'
|
||||
+#13#10' |'#13#10'end;'#13#10'[ifs | if (no begin/end)]'#13#10'$(AttributesS'
|
||||
+'tart)'#13#10'EnableMakros=true'#13#10'$(AttributesEnd)'#13#10'if $param(Con'
|
||||
+'dition) then |'#13#10'[ifb | if statement]'#13#10'$(AttributesStart)'#13#10
|
||||
+'EnableMakros=true'#13#10'$(AttributesEnd)'#13#10'if $param(Condition) then '
|
||||
+'begin'#13#10' |'#13#10'end;'#13#10'[ife | if then (no begin/end) else (no '
|
||||
+'begin/end)]'#13#10'$(AttributesStart)'#13#10'EnableMakros=true'#13#10'$(Att'
|
||||
+'ributesEnd)'#13#10'if $param(Condition) then'#13#10' |'#13#10'else'#13#10
|
||||
+'[ifeb | if then else]'#13#10'$(AttributesStart)'#13#10'EnableMakros=true'#13
|
||||
+#10'$(AttributesEnd)'#13#10'if $param(Condition) then begin'#13#10' |'#13#10
|
||||
+'end'#13#10'else begin'#13#10#13#10'end;'#13#10'[procedure | procedure decla'
|
||||
+'ration]'#13#10'$(AttributesStart)'#13#10'EnableMakros=true'#13#10'$(Attribu'
|
||||
+'tesEnd)'#13#10'procedure $param(Name)($param( ));'#13#10'begin'#13#10' |'
|
||||
+#13#10'end;'#13#10'[ofall | case of all enums]'#13#10'$(AttributesStart)'#13
|
||||
+#10'EnableMakros=true'#13#10'$(AttributesEnd)'#13#10'of'#13#10'|$OfAll()end;'
|
||||
+#13#10'[trye | try except]'#13#10'try'#13#10' | '#13#10'except'#13#10#13#10
|
||||
+'end;'#13#10'[tryf | try finally]'#13#10'try'#13#10' | '#13#10'finally'#13
|
||||
+#10#13#10'end;'#13#10'[trycf | try finally (with Create/Free)]'#13#10'$(Attr'
|
||||
+'ibutesStart)'#13#10'EnableMakros=true'#13#10'$(AttributesEnd)'#13#10'$param'
|
||||
+'(variable) := $param(typename).Create;'#13#10'try'#13#10' |'#13#10'finally'
|
||||
+#13#10' $param(variable,sync=1).Free;'#13#10'end;'#13#10'[whileb | while st'
|
||||
+'atement]'#13#10'$(AttributesStart)'#13#10'EnableMakros=true'#13#10'$(Attrib'
|
||||
+'utesEnd)'#13#10'while $param(Condition) do begin'#13#10' |'#13#10'end;'#13
|
||||
+#10'[whiles | while (no begin)]'#13#10'$(AttributesStart)'#13#10'EnableMakro'
|
||||
+'s=true'#13#10'$(AttributesEnd)'#13#10'while $param(Condition) do |'#13#10'['
|
||||
+'withb | with statement]'#13#10'$(AttributesStart)'#13#10'EnableMakros=true'
|
||||
+#13#10'$(AttributesEnd)'#13#10'with $param(Condition) do begin'#13#10' |'#13
|
||||
+#10'end;'#13#10'[b | begin end]'#13#10'begin'#13#10' |'#13#10'end;'#13#10'['
|
||||
+'withs | with (no begin)]'#13#10'with | do'#13#10'[hexc | HexStr(Cardinal(),'
|
||||
+'8)]'#13#10'HexStr(Cardinal(|),8)'#13#10'[be | begin end else begin end]'#13
|
||||
+#10'begin'#13#10' |'#13#10'end else begin'#13#10#13#10'end;'#13#10'[withc |'
|
||||
+' with for components]'#13#10'$(AttributesStart)'#13#10'EnableMakros=true'#13
|
||||
+#10'$(AttributesEnd)'#13#10'with $param(Component) do begin'#13#10' Name:='
|
||||
+'''$param(Name)'';'#13#10' Parent:=$param(Parent);'#13#10' Left:=$param(0)'
|
||||
+';'#13#10' Top:=$param(0);'#13#10' Width:=$param(1);'#13#10' Height:=$par'
|
||||
+'am(1);'#13#10' Caption:=''$param(Caption)'';'#13#10'end;'#13#10'[d | debug'
|
||||
+'ln]'#13#10'$(AttributesStart)'#13#10'EnableMakros=true'#13#10'$(AttributesE'
|
||||
,'nd)'#13#10'debugln([''$ProcedureName() ''|]);'#13#10
|
||||
'[arrayd | array declaration (var)]'#10'$(AttributesStart)'#10'EnableMakros=t'
|
||||
+'rue'#10'RemoveChar=true'#10'$(AttributesEnd)'#10'$Param(VariableName): arra'
|
||||
+'y[0..$Param(HighNumber)] of $Param(String);'#10'|'#10'[arrayc | array decla'
|
||||
+'ration (const)]'#10'$(AttributesStart)'#10'EnableMakros=true'#10'$(Attribut'
|
||||
+'esEnd)'#10'array[$param(0)..$param(1)] of $param(Type) = (|);'#10'[cases | '
|
||||
+'case statement]'#10'$(AttributesStart)'#10'EnableMakros=true'#10'$(Attribut'
|
||||
+'esEnd)'#10'case $param(var) of'#10' : |;'#10' : ;'#10'end;'#10'[be | begi'
|
||||
+'n end else begin end]'#10'begin'#10' |'#10'end else'#10'begin'#10#10'end;'
|
||||
+#10'[casee | case statement (with else)]'#10'$(AttributesStart)'#10'EnableMa'
|
||||
+'kros=true'#10'$(AttributesEnd)'#10'case $param(var) of'#10' : |;'#10' : ;'
|
||||
+#10'else ;'#10'end;'#10'[classf | class declaration (all parts)]'#10'$(Attri'
|
||||
+'butesStart)'#10'EnableMakros=true'#10'RemoveChar=true'#10'$(AttributesEnd)'
|
||||
+#10'$Param(ClassName) = class($Param(InheritedClass))'#10'private'#10#10'pub'
|
||||
+'lic'#10' |'#10' constructor Create;'#10' destructor Destroy; override;'
|
||||
+#10'end;'#10'[classd | class declaration (no parts)]'#10'$(AttributesStart)'
|
||||
+#10'EnableMakros=true'#10'RemoveChar=true'#10'$(AttributesEnd)'#10'$Param(Cl'
|
||||
+'assName) = class($Param(InheritedClass))'#10'|'#10'end;'#10'[classc | class'
|
||||
+' declaration (with Create/Destroy overrides)]'#10'$(AttributesStart)'#10'En'
|
||||
+'ableMakros=true'#10'RemoveChar=true'#10'$(AttributesEnd)'#10'$Param(ClassNa'
|
||||
+'me) = class($Param(InheritedClass))'#10'private'#10#10'protected'#10#10'pub'
|
||||
+'lic'#10' |'#10' constructor Create; override;'#10' destructor Destroy; o'
|
||||
+'verride;'#10'published'#10'end;'#10'[d | debugln]'#10'$(AttributesStart)'#10
|
||||
+'EnableMakros=true'#10'$(AttributesEnd)'#10'debugln([''$ProcedureName() ''|]'
|
||||
+');'#10'[fors | for (no begin/end)]'#10'$(AttributesStart)'#10'EnableMakros='
|
||||
+'true'#10'RemoveChar=true'#10'$(AttributesEnd)'#10'for $Param(CounterVar) :='
|
||||
+' $Param(0) to $Param(Count) - 1 do'#10' |'#10'[forb | for statement]'#10'$'
|
||||
+'(AttributesStart)'#10'EnableMakros=true'#10'RemoveChar=true'#10'$(Attribute'
|
||||
+'sEnd)'#10'for $Param(CounterVar) := $Param(0) to $Param(Count) - 1 do'#10'b'
|
||||
+'egin'#10' |'#10'end;'#10'[function | function declaration]'#10'$(Attribute'
|
||||
+'sStart)'#10'EnableMakros=true'#10'$(AttributesEnd)'#10'function $param(Name'
|
||||
+')($param( )): $param(Type);'#10'begin'#10' |'#10'end;'#10'[hexc | HexStr(C'
|
||||
+'ardinal(),8)]'#10'HexStr(PtrUInt(|),8)'#10'[ifs | if (no begin/end)]'#10'if'
|
||||
+' $Param(Conditional) then'#10' |'#10'[ifb | if statement]'#10'$(Attributes'
|
||||
+'Start)'#10'EnableMakros=true'#10'RemoveChar=true'#10'$(AttributesEnd)'#10'i'
|
||||
+'f $Param(Conditional) then'#10'begin'#10' |'#10'end;'#10'[ife | if then (n'
|
||||
+'o begin/end) else (no begin/end)]'#10'$(AttributesStart)'#10'EnableMakros=t'
|
||||
+'rue'#10'RemoveChar=true'#10'$(AttributesEnd)'#10'if $Param(Conditional) the'
|
||||
+'n'#10' |'#10'else'#10'[ifeb | if then else]'#10'$(AttributesStart)'#10'Ena'
|
||||
+'bleMakros=true'#10'RemoveChar=true'#10'$(AttributesEnd)'#10'if $Param(Condi'
|
||||
+'tional) then'#10'begin'#10' |'#10'end'#10'else begin'#10#10'end;'#10'[proc'
|
||||
+'edure | procedure declaration]'#10'procedure $Param(ProcName)|($Param());'
|
||||
+#10'begin'#10' |'#10'end;'#10'[ofall | case of all enums]'#10'$(AttributesS'
|
||||
+'tart)'#10'EnableMakros=true'#10'$(AttributesEnd)'#10'of'#10'|$OfAll()end;'
|
||||
+#10'[trye | try except]'#10'try'#10' | '#10'except'#10#10'end;'#10'[tryf | '
|
||||
+'try finally]'#10'$(AttributesStart)'#10'EnableMakros=true'#10'RemoveChar=tr'
|
||||
+'ue'#10'$(AttributesEnd)'#10'try'#10' |'#10'finally'#10' $Param(FreeStatem'
|
||||
+'ent,default)'#10'end;'#10'[trycf | try finally (with Create/Free)]'#10'$(At'
|
||||
+'tributesStart)'#10'EnableMakros=true'#10'RemoveChar=true'#10'$(AttributesEn'
|
||||
+'d)'#10'$Param(VarName) := $Param(TMyClassName).Create;'#10'try'#10' |'#10
|
||||
+'finally'#10' $Param(VarName,Sync=1).Free;'#10'end;'#10'[whileb | while sta'
|
||||
+'tement]'#10'$(AttributesStart)'#10'EnableMakros=true'#10'RemoveChar=true'#10
|
||||
+'$(AttributesEnd)'#10'while $Param(LoopCondition) do'#10'begin'#10' |'#10'e'
|
||||
+'nd;'#10'[whiles | while (no begin)]'#10'while $Param(LoopCondition) do'#10
|
||||
+' |'#10'[withb | with statement]'#10'$(AttributesStart)'#10'EnableMakros=tr'
|
||||
+'ue'#10'RemoveChar=true'#10'$(AttributesEnd)'#10'with $Param(Object) do'#10
|
||||
+'begin'#10' |'#10'end;'#10'[b | begin end]'#10'begin'#10' |'#10'end;'#10'['
|
||||
+'withs | with (no begin)]'#10'$(AttributesStart)'#10'EnableMakros=true'#10'R'
|
||||
+'emoveChar=true'#10'$(AttributesEnd)'#10'with $Param(Object) do'#10' |'#10
|
||||
+'[withc | with for components]'#10'$(AttributesStart)'#10'EnableMakros=true'
|
||||
+#10'RemoveChar=true'#10'$(AttributesEnd)'#10'with $Param(Object) do'#10'begi'
|
||||
+'n'#10' Name:=''$Param(NameText)'';'#10' Parent:=Self;'#10' Left:=$Param('
|
||||
+'0);'#10' Top:=$Param(0);'#10' Width:=$Param(0);'#10' Height:=$Param(0);'
|
||||
+#10' Caption:=''$Param(CaptionText)'';'#10'end;'#10'|'#10'[fpc | Conditiona'
|
||||
+'l FPC Mode]'#10'$(AttributesStart)'#10'RemoveChar=true'#10'$(AttributesEnd)'
|
||||
,#10'{$IFDEF FPC}'#10' {$mode objfpc}{$H+}'#10'{$ENDIF}'#10'|'#10'[todo | To'
|
||||
+'Do item creator]'#10'$(AttributesStart)'#10'EnableMakros=true'#10'RemoveCha'
|
||||
+'r=true'#10'$(AttributesEnd)'#10'{ TODO -o$Param(Author) : $Param(Note) } |'
|
||||
+#10'[w | writeln]'#10'$(AttributesStart)'#10'EnableMakros=true'#10'$(Attribu'
|
||||
+'tesEnd)'#10'writeln(''$ProcedureName() ''|);'#10
|
||||
]);
|
||||
|
||||
@ -1,8 +1,10 @@
|
||||
[arrayd | array declaration (var)]
|
||||
$(AttributesStart)
|
||||
EnableMakros=true
|
||||
RemoveChar=true
|
||||
$(AttributesEnd)
|
||||
array[$param(0)..$param(1)] of $param(Type);|
|
||||
$Param(VariableName): array[0..$Param(HighNumber)] of $Param(String);
|
||||
|
|
||||
[arrayc | array declaration (const)]
|
||||
$(AttributesStart)
|
||||
EnableMakros=true
|
||||
@ -15,6 +17,13 @@ $(AttributesEnd)
|
||||
case $param(var) of
|
||||
: |;
|
||||
: ;
|
||||
end;
|
||||
[be | begin end else begin end]
|
||||
begin
|
||||
|
|
||||
end else
|
||||
begin
|
||||
|
||||
end;
|
||||
[casee | case statement (with else)]
|
||||
$(AttributesStart)
|
||||
@ -28,46 +37,58 @@ end;
|
||||
[classf | class declaration (all parts)]
|
||||
$(AttributesStart)
|
||||
EnableMakros=true
|
||||
RemoveChar=true
|
||||
$(AttributesEnd)
|
||||
T$param(Class) = class(T$param(Base))
|
||||
$Param(ClassName) = class($Param(InheritedClass))
|
||||
private
|
||||
|
|
||||
|
||||
public
|
||||
|
|
||||
constructor Create;
|
||||
destructor Destroy; override;
|
||||
end;
|
||||
[classd | class declaration (no parts)]
|
||||
$(AttributesStart)
|
||||
EnableMakros=true
|
||||
RemoveChar=true
|
||||
$(AttributesEnd)
|
||||
T$param(Class) = class(T$param(Base))
|
||||
|
|
||||
$Param(ClassName) = class($Param(InheritedClass))
|
||||
|
|
||||
end;
|
||||
[classc | class declaration (with Create/Destroy overrides)]
|
||||
$(AttributesStart)
|
||||
EnableMakros=true
|
||||
RemoveChar=true
|
||||
$(AttributesEnd)
|
||||
T$param(Class) = class(T$param(Base))
|
||||
$Param(ClassName) = class($Param(InheritedClass))
|
||||
private
|
||||
|
|
||||
|
||||
protected
|
||||
|
||||
public
|
||||
|
|
||||
constructor Create; override;
|
||||
destructor Destroy; override;
|
||||
published
|
||||
|
||||
published
|
||||
end;
|
||||
[d | debugln]
|
||||
$(AttributesStart)
|
||||
EnableMakros=true
|
||||
$(AttributesEnd)
|
||||
debugln(['$ProcedureName() '|]);
|
||||
[fors | for (no begin/end)]
|
||||
$(AttributesStart)
|
||||
EnableMakros=true
|
||||
RemoveChar=true
|
||||
$(AttributesEnd)
|
||||
for $param(i) := $param(0) to $param(Count - 1) do |;
|
||||
for $Param(CounterVar) := $Param(0) to $Param(Count) - 1 do
|
||||
|
|
||||
[forb | for statement]
|
||||
$(AttributesStart)
|
||||
EnableMakros=true
|
||||
RemoveChar=true
|
||||
$(AttributesEnd)
|
||||
for $param(i) := $param(0) to $param(Count-1) do
|
||||
for $Param(CounterVar) := $Param(0) to $Param(Count) - 1 do
|
||||
begin
|
||||
|
|
||||
end;
|
||||
@ -79,42 +100,42 @@ function $param(Name)($param( )): $param(Type);
|
||||
begin
|
||||
|
|
||||
end;
|
||||
[hexc | HexStr(Cardinal(),8)]
|
||||
HexStr(PtrUInt(|),8)
|
||||
[ifs | if (no begin/end)]
|
||||
$(AttributesStart)
|
||||
EnableMakros=true
|
||||
$(AttributesEnd)
|
||||
if $param(Condition) then |
|
||||
if $Param(Conditional) then
|
||||
|
|
||||
[ifb | if statement]
|
||||
$(AttributesStart)
|
||||
EnableMakros=true
|
||||
RemoveChar=true
|
||||
$(AttributesEnd)
|
||||
if $param(Condition) then
|
||||
if $Param(Conditional) then
|
||||
begin
|
||||
|
|
||||
end;
|
||||
[ife | if then (no begin/end) else (no begin/end)]
|
||||
$(AttributesStart)
|
||||
EnableMakros=true
|
||||
RemoveChar=true
|
||||
$(AttributesEnd)
|
||||
if $param(Condition) then
|
||||
if $Param(Conditional) then
|
||||
|
|
||||
else
|
||||
[ifeb | if then else]
|
||||
$(AttributesStart)
|
||||
EnableMakros=true
|
||||
RemoveChar=true
|
||||
$(AttributesEnd)
|
||||
if $param(Condition) then
|
||||
if $Param(Conditional) then
|
||||
begin
|
||||
|
|
||||
end else
|
||||
begin
|
||||
end
|
||||
else begin
|
||||
|
||||
end;
|
||||
[procedure | procedure declaration]
|
||||
$(AttributesStart)
|
||||
EnableMakros=true
|
||||
$(AttributesEnd)
|
||||
procedure $param(Name)($param( ));
|
||||
procedure $Param(ProcName)|($Param());
|
||||
begin
|
||||
|
|
||||
end;
|
||||
@ -131,39 +152,44 @@ except
|
||||
|
||||
end;
|
||||
[tryf | try finally]
|
||||
$(AttributesStart)
|
||||
EnableMakros=true
|
||||
RemoveChar=true
|
||||
$(AttributesEnd)
|
||||
try
|
||||
|
|
||||
|
|
||||
finally
|
||||
|
||||
$Param(FreeStatement,default)
|
||||
end;
|
||||
[trycf | try finally (with Create/Free)]
|
||||
$(AttributesStart)
|
||||
EnableMakros=true
|
||||
RemoveChar=true
|
||||
$(AttributesEnd)
|
||||
$param(variable) := $param(typename).Create;
|
||||
$Param(VarName) := $Param(TMyClassName).Create;
|
||||
try
|
||||
|
|
||||
finally
|
||||
$param(variable,sync=1).Free;
|
||||
$Param(VarName,Sync=1).Free;
|
||||
end;
|
||||
[whileb | while statement]
|
||||
$(AttributesStart)
|
||||
EnableMakros=true
|
||||
RemoveChar=true
|
||||
$(AttributesEnd)
|
||||
while $param(Condition) do
|
||||
while $Param(LoopCondition) do
|
||||
begin
|
||||
|
|
||||
end;
|
||||
[whiles | while (no begin)]
|
||||
$(AttributesStart)
|
||||
EnableMakros=true
|
||||
$(AttributesEnd)
|
||||
while $param(Condition) do |
|
||||
while $Param(LoopCondition) do
|
||||
|
|
||||
[withb | with statement]
|
||||
$(AttributesStart)
|
||||
EnableMakros=true
|
||||
RemoveChar=true
|
||||
$(AttributesEnd)
|
||||
with $param(Condition) do
|
||||
with $Param(Object) do
|
||||
begin
|
||||
|
|
||||
end;
|
||||
@ -172,32 +198,44 @@ begin
|
||||
|
|
||||
end;
|
||||
[withs | with (no begin)]
|
||||
with | do
|
||||
[hexc | HexStr(Cardinal(),8)]
|
||||
HexStr(Cardinal(|),8)
|
||||
[be | begin end else begin end]
|
||||
begin
|
||||
$(AttributesStart)
|
||||
EnableMakros=true
|
||||
RemoveChar=true
|
||||
$(AttributesEnd)
|
||||
with $Param(Object) do
|
||||
|
|
||||
end else
|
||||
begin
|
||||
|
||||
end;
|
||||
[withc | with for components]
|
||||
$(AttributesStart)
|
||||
EnableMakros=true
|
||||
RemoveChar=true
|
||||
$(AttributesEnd)
|
||||
with $param(Component) do
|
||||
with $Param(Object) do
|
||||
begin
|
||||
Name:='$param(Name)';
|
||||
Parent:=$param(Parent);
|
||||
Left:=$param(0);
|
||||
Top:=$param(0);
|
||||
Width:=$param(1);
|
||||
Height:=$param(1);
|
||||
Caption:='$param(Caption)';
|
||||
Name:='$Param(NameText)';
|
||||
Parent:=Self;
|
||||
Left:=$Param(0);
|
||||
Top:=$Param(0);
|
||||
Width:=$Param(0);
|
||||
Height:=$Param(0);
|
||||
Caption:='$Param(CaptionText)';
|
||||
end;
|
||||
[d | debugln]
|
||||
|
|
||||
[fpc | Conditional FPC Mode]
|
||||
$(AttributesStart)
|
||||
RemoveChar=true
|
||||
$(AttributesEnd)
|
||||
{$IFDEF FPC}
|
||||
{$mode objfpc}{$H+}
|
||||
{$ENDIF}
|
||||
|
|
||||
[todo | ToDo item creator]
|
||||
$(AttributesStart)
|
||||
EnableMakros=true
|
||||
RemoveChar=true
|
||||
$(AttributesEnd)
|
||||
{ TODO -o$Param(Author) : $Param(Note) } |
|
||||
[w | writeln]
|
||||
$(AttributesStart)
|
||||
EnableMakros=true
|
||||
$(AttributesEnd)
|
||||
debugln(['$ProcedureName() '|]);
|
||||
writeln('$ProcedureName() '|);
|
||||
|
||||
Loading…
Reference in New Issue
Block a user