LazarusResources.Add('indentation','PAS',[ 'unit Indentation;'#10#10'{$mode objfpc}{$H+}'#10#10'interface'#10#10'uses'#10 +' Classes, SysUtils;'#10#10'type'#10' TEnums = ('#10' enum1,'#10' en' +'um2,'#10' enum3'#10' );'#10#10' TMyRecord = record'#10' i: intege' +'r;'#10' end;'#10' PMyRecord = ^TMyRecord;'#10#10' { TMyClass }'#10#10' ' +'TMyClass = class(TObject)'#10' public'#10' procedure DoSomething1(a, b,' +' c: integer);'#10' procedure Code;'#10' end;'#10#10'implementation'#10 +#10'{ TMyClass }'#10#10'procedure TMyClass.DoSomething1(a, b, c: integer);' +#10'var'#10' i: integer;'#10'begin'#10' if i=0 then'#10' begin'#10' re' +'peat'#10' if a=2 then'#10' ;'#10' until b=3;'#10' try'#10 +' Code;'#10' finally'#10' Code;'#10' end;'#10' try'#10' ' +' Code;'#10' except'#10' on e: exception do'#10' ;'#10' ' +' end;'#10' end'#10' else'#10' begin'#10' case c of'#10' 1: Code;' +#10' 2:'#10' begin'#10' code;'#10' end;'#10' else'#10 +' code;'#10' end;'#10' end;'#10'end;'#10#10'procedure TMyClass.Code' +';'#10'begin'#10' writeln(''TMyClass.Code '');'#10' repeat'#10#10' until ' +';'#10'end;'#10#10'end.'#10#10 ]);