paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-15 05:19:37 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: formatting

Browse Source 
git-svn-id: trunk@36408 -
This commit is contained in:
juha 2012-03-29 06:09:45 +00:00
parent d76fd3fafb
commit 693b4e295b
1 changed files with 13 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
ideintf/idewindowintf.pas
View File

@ -1388,7 +1388,8 @@ end;
{ TSimpleWindowLayoutList } { TSimpleWindowLayoutList }
procedure TSimpleWindowLayoutList.Clear; procedure TSimpleWindowLayoutList.Clear;
var i: integer; var
i: integer;
begin begin
for i:=0 to Count-1 do Items[i].Free; for i:=0 to Count-1 do Items[i].Free;
fItems.Clear; fItems.Clear;
@ -1452,9 +1453,9 @@ begin
Items[i].LoadFromConfig(Config,Path); Items[i].LoadFromConfig(Config,Path);
end; end;
procedure TSimpleWindowLayoutList.SaveToConfig(Config: TConfigStorage; procedure TSimpleWindowLayoutList.SaveToConfig(Config: TConfigStorage; const Path: string);
const Path: string); var
var i: integer; i: integer;
begin begin
Config.SetDeleteValue(Path+'Desktop/FormIdCount',Count,0); Config.SetDeleteValue(Path+'Desktop/FormIdCount',Count,0);
//debugln(['TSimpleWindowLayoutList.SaveToConfig ',Count]); //debugln(['TSimpleWindowLayoutList.SaveToConfig ',Count]);
@ -1470,7 +1471,8 @@ begin
end; end;
function TSimpleWindowLayoutList.ItemByForm(AForm: TCustomForm): TSimpleWindowLayout; function TSimpleWindowLayoutList.ItemByForm(AForm: TCustomForm): TSimpleWindowLayout;
var i: integer; var
i: integer;
begin begin
i:=Count-1; i:=Count-1;
while (i>=0) do begin while (i>=0) do begin
@ -1481,9 +1483,9 @@ begin
Result:=nil; Result:=nil;
end; end;
function TSimpleWindowLayoutList.ItemByFormID(const FormID: string function TSimpleWindowLayoutList.ItemByFormID(const FormID: string): TSimpleWindowLayout;
): TSimpleWindowLayout; var
var i: integer; i: integer;
begin begin
i:=IndexOf(FormID); i:=IndexOf(FormID);
if i>=0 then if i>=0 then
@ -1492,9 +1494,9 @@ begin
Result:=nil; Result:=nil;
end; end;
function TSimpleWindowLayoutList.ItemByFormCaption(const aFormCaption: string function TSimpleWindowLayoutList.ItemByFormCaption(const aFormCaption: string): TSimpleWindowLayout;
): TSimpleWindowLayout; var
var i: integer; i: integer;
begin begin
i := Count - 1; i := Count - 1;
while i >= 0 do begin while i >= 0 do begin