paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-16 04:59:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: indentation examples: multi line parameter list

Browse Source 
git-svn-id: trunk@26527 -
This commit is contained in:
mattias 2010-07-08 12:33:07 +00:00
parent 16b539c6de
commit af31f6d34d
3 changed files with 17 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/codetools/examples/scanexamples/indentation.pas
View File

@ -31,7 +31,8 @@ implementation
{ TMyClass } { TMyClass }
procedure TMyClass.DoSomething1(a, b, c: integer); procedure TMyClass.DoSomething1(a, b, c: integer;
LongParameter1: TSomeLongParameter);
var var
i: integer; i: integer;
begin begin

25
ide/lazarus_indentation.lrs
View File

@ -5,16 +5,17 @@ LazarusResources.Add('indentation','PAS',[
+'r;'#10' end;'#10' PMyRecord = ^TMyRecord;'#10#10' { TMyClass }'#10#10' ' +'r;'#10' end;'#10' PMyRecord = ^TMyRecord;'#10#10' { TMyClass }'#10#10' '
+'TMyClass = class(TObject)'#10' public'#10' procedure DoSomething1(a, b,' +'TMyClass = class(TObject)'#10' public'#10' procedure DoSomething1(a, b,'
+' c: integer);'#10' procedure Code;'#10' end;'#10#10'implementation'#10 +' c: integer);'#10' procedure Code;'#10' end;'#10#10'implementation'#10
+#10'{ TMyClass }'#10#10'procedure TMyClass.DoSomething1(a, b, c: integer);' +#10'{ TMyClass }'#10#10'procedure TMyClass.DoSomething1(a, b, c: integer;'#10
+#10'var'#10' i: integer;'#10'begin'#10' if i=0 then'#10' begin'#10' re' +' LongParameter1: TSomeLongParameter);'#10'var'#10' i: integer;'#10'begin'
+'peat'#10' if a=2 then'#10' ;'#10' until b=3;'#10' try'#10 +#10' if i=0 then'#10' begin'#10' repeat'#10' if a=2 then'#10' '
+' Code;'#10' finally'#10' Code;'#10' end;'#10' try'#10' ' +' ;'#10' until b=3;'#10' try'#10' Code;'#10' finally'#10' '
+' Code;'#10' except'#10' on e: exception do'#10' ;'#10' ' +' Code;'#10' end;'#10' try'#10' Code;'#10' except'#10' '
+' end;'#10' end'#10' else'#10' begin'#10' case c of'#10' 1:'#10' ' +'on e: exception do'#10' ;'#10' end;'#10' end'#10' else'#10' be'
+' Code;'#10' 2:'#10' begin'#10' code;'#10' end;'#10' ' +'gin'#10' case c of'#10' 1:'#10' Code;'#10' 2:'#10' begin'
+' else'#10' code;'#10' end;'#10' end;'#10'end;'#10#10'procedure TM' +#10' code;'#10' end;'#10' else'#10' code;'#10' end;'
+'yClass.Code;'#10#10' procedure SubProc;'#10' begin'#10#10' end;'#10#10'v' +#10' end;'#10'end;'#10#10'procedure TMyClass.Code;'#10#10' procedure SubPr'
+'ar'#10' i: Integer;'#10'begin'#10' writeln(''TMyClass.Code '');'#10' rep' +'oc;'#10' begin'#10#10' end;'#10#10'var'#10' i: Integer;'#10'begin'#10' '
+'eat'#10#10' until ;'#10' for i:=1 to 3 do'#10' Code;'#10' for i:=1 to' +'writeln(''TMyClass.Code '');'#10' repeat'#10#10' until ;'#10' for i:=1 t'
+' 3 do'#10' begin'#10' Code;'#10' end;'#10'end;'#10#10'end.'#10#10 +'o 3 do'#10' Code;'#10' for i:=1 to 3 do'#10' begin'#10' Code;'#10' '
+' end;'#10'end;'#10#10'end.'#10#10
]); ]);

3
ide/sourceeditor.pp
View File

@ -2277,7 +2277,8 @@ end;
{ The constructor for @link(TSourceEditor). { The constructor for @link(TSourceEditor).
AOwner is the @link(TSourceNotebook) AOwner is the @link(TSourceNotebook)
and the AParent is usually a page of a @link(TNotebook) } and the AParent is usually a page of a @link(TNotebook) }
constructor TSourceEditor.Create(AOwner: TComponent; AParent: TWinControl; ASharedEditor: TSourceEditor = nil); constructor TSourceEditor.Create(AOwner: TComponent; AParent: TWinControl;
ASharedEditor: TSourceEditor = nil);
var var
i: Integer; i: Integer;
Begin Begin