paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-07 22:58:14 +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 }
procedure TSimpleWindowLayoutList.Clear;
var i: integer;
var
i: integer;
begin
for i:=0 to Count-1 do Items[i].Free;
fItems.Clear;
@ -1452,9 +1453,9 @@ begin
Items[i].LoadFromConfig(Config,Path);
end;
procedure TSimpleWindowLayoutList.SaveToConfig(Config: TConfigStorage;
const Path: string);
var i: integer;
procedure TSimpleWindowLayoutList.SaveToConfig(Config: TConfigStorage; const Path: string);
var
i: integer;
begin
Config.SetDeleteValue(Path+'Desktop/FormIdCount',Count,0);
//debugln(['TSimpleWindowLayoutList.SaveToConfig ',Count]);
@ -1470,7 +1471,8 @@ begin
end;
function TSimpleWindowLayoutList.ItemByForm(AForm: TCustomForm): TSimpleWindowLayout;
var i: integer;
var
i: integer;
begin
i:=Count-1;
while (i>=0) do begin
@ -1481,9 +1483,9 @@ begin
Result:=nil;
end;
function TSimpleWindowLayoutList.ItemByFormID(const FormID: string
): TSimpleWindowLayout;
var i: integer;
function TSimpleWindowLayoutList.ItemByFormID(const FormID: string): TSimpleWindowLayout;
var
i: integer;
begin
i:=IndexOf(FormID);
if i>=0 then
@ -1492,9 +1494,9 @@ begin
Result:=nil;
end;
function TSimpleWindowLayoutList.ItemByFormCaption(const aFormCaption: string
): TSimpleWindowLayout;
var i: integer;
function TSimpleWindowLayoutList.ItemByFormCaption(const aFormCaption: string): TSimpleWindowLayout;
var
i: integer;
begin
i := Count - 1;
while i >= 0 do begin