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

IDE: apply window settings again after form was destroyed

Browse Source 
git-svn-id: trunk@26114 -
This commit is contained in:
mattias 2010-06-14 15:15:56 +00:00
parent 73e5c20887
commit 3fa7522110
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
ide/ideoptiondefs.pas
View File

@ -447,8 +447,10 @@ procedure TSimpleWindowLayout.Notification(AComponent: TComponent;
begin
inherited Notification(AComponent, Operation);
if Operation=opRemove then begin
if fForm=AComponent then
if fForm=AComponent then begin
fForm:=nil;
Applied:=false;
end;
end;
end;
@ -513,6 +515,7 @@ begin
fFormID := Form.Name;
FFormCaption := Form.Caption;
FreeNotification(Form);
Applied:=false;
end;
end;
@ -746,7 +749,7 @@ begin
ALayout.Form:=AForm;
if ALayout.Applied then exit;
ALayout.Applied:=true;
debugln(['TSimpleWindowLayoutList.ApplyAndShow restore']);
debugln(['TSimpleWindowLayoutList.ApplyAndShow restore ',ALayout.FormID]);
WindowType:=NonModalIDEFormIDToEnum(ALayout.FormID);
SubIndex := -1;