paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-01 03:41:41 +02:00
Code Issues Packages Projects Releases Wiki Activity

anchordocking: fixed crash if dock control is not on a form

Browse Source 
git-svn-id: trunk@36886 -
This commit is contained in:
mattias 2012-04-17 20:50:28 +00:00
parent a28add96c2
commit 3c8ab01a27
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/anchordocking/anchordocking.pas
View File

@ -1063,7 +1063,7 @@ begin
i:=ControlCount-1;
while i>=0 do begin
AControl:=Controls[i];
if GetParentForm(AControl).IsVisible
if AControl.IsVisible
and (Tree.Root.FindChildNode(AControl.Name,true)=nil)
and (Application.MainForm<>AControl) then begin
DisableControlAutoSizing(AControl);
@ -2273,6 +2273,7 @@ begin
raise Exception.Create('TAnchorDockMaster.CreateRestoreLayout: not a site '+DbgSName(AControl));
AForm:=GetParentForm(AControl);
Result:=TAnchorDockRestoreLayout.Create(TAnchorDockLayoutTree.Create);
if AForm=nil then exit;
SaveSiteLayoutToTree(AForm,Result.Layout);
AddControlNames(AControl,Result);
end;