paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-07 04:18:48 +02:00
Code Issues Packages Projects Releases Wiki Activity

AnchorDocking: Fixed ChangeBounds loop detected. Issue #31238

Browse Source 
git-svn-id: trunk@54525 -
This commit is contained in:
michl 2017-04-05 09:12:12 +00:00
parent e800a738ad
commit 6139a22bcf
1 changed files with 29 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
components/anchordocking/anchordocking.pas
View File

@ -1465,13 +1465,40 @@ function TAnchorDockMaster.CloseUnneededControls(Tree: TAnchorDockLayoutTree
var
i: Integer;
AControl: TControl;
TreeNodeControl: TAnchorDockLayoutTreeNode;
function ParentsIdentical: Boolean;
var
ParentForm: TCustomForm;
ParentAnchorDockLayoutTreeNode: TAnchorDockLayoutTreeNode;
Parent1, Parent2: String;
begin
ParentForm := GetParentForm(AControl, True);
if Assigned(ParentForm) then
Parent1 := ParentForm.Name
else
Parent1 := '';
Parent2 := '';
ParentAnchorDockLayoutTreeNode := TreeNodeControl;
while Assigned(ParentAnchorDockLayoutTreeNode.Parent) do begin
Parent2 := ParentAnchorDockLayoutTreeNode.Name;
ParentAnchorDockLayoutTreeNode := ParentAnchorDockLayoutTreeNode.Parent;
end;
Result := Parent1 = Parent2;
// DebugLn('TAnchorDockMaster.ParentsIdentical [', Parent1, '] [', Parent2, ']');
end;
begin
i:=ControlCount-1;
while i>=0 do begin
AControl:=Controls[i];
TreeNodeControl:=Tree.Root.FindChildNode(AControl.Name,true);
if DockedControlIsVisible(AControl)
and (Tree.Root.FindChildNode(AControl.Name,true)=nil)
and (Application.MainForm<>AControl) then begin
and (Application.MainForm<>AControl)
and ((TreeNodeControl=nil) or not ParentsIdentical)
then begin
DisableControlAutoSizing(AControl);
// AControl is currently on a visible site, but not in the Tree
// => close site