mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-04-27 18:53:48 +02:00
72 lines
5.5 KiB
Plaintext
72 lines
5.5 KiB
Plaintext
LazarusResources.Add('lazarus_dci_file','DCI',[
|
|
'[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
|
|
]);
|