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

IDEIntf: fixed TIDEWindowCreator.CreateSimpleLayout:

Browse Source 
git-svn-id: trunk@33337 -
This commit is contained in:
mattias 2011-11-05 14:11:25 +00:00
parent 2642e6a579
commit 605ffc8b2c
1 changed files with 5 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
ideintf/idewindowintf.pas
View File

@ -1774,13 +1774,12 @@ begin
end; end;
function TIDEWindowCreator.CreateSimpleLayout: TSimpleWindowLayout; function TIDEWindowCreator.CreateSimpleLayout: TSimpleWindowLayout;
var
simple: TSimpleWindowLayout;
begin begin
if not Assigned(IDEWindowCreators.SimpleLayoutStorage.ItemByFormID(FormName)) Result:=IDEWindowCreators.SimpleLayoutStorage.ItemByFormID(FormName);
then begin if not Assigned(Result) then
simple := IDEWindowCreators.SimpleLayoutStorage.CreateWindowLayout(FormName); begin
InitSimpleLayout(simple); Result := IDEWindowCreators.SimpleLayoutStorage.CreateWindowLayout(FormName);
InitSimpleLayout(Result);
end; end;
end; end;