paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-11 15:56:08 +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;
function TIDEWindowCreator.CreateSimpleLayout: TSimpleWindowLayout;
var
simple: TSimpleWindowLayout;
begin
if not Assigned(IDEWindowCreators.SimpleLayoutStorage.ItemByFormID(FormName))
then begin
simple := IDEWindowCreators.SimpleLayoutStorage.CreateWindowLayout(FormName);
InitSimpleLayout(simple);
Result:=IDEWindowCreators.SimpleLayoutStorage.ItemByFormID(FormName);
if not Assigned(Result) then
begin
Result := IDEWindowCreators.SimpleLayoutStorage.CreateWindowLayout(FormName);
InitSimpleLayout(Result);
end;
end;