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

dockmanager example: trim root zone after RemoveZone

Browse Source 
git-svn-id: trunk@24610 -
This commit is contained in:
dodi 2010-04-13 09:47:33 +00:00
parent b55e278c6e
commit 2609b4a679
1 changed files with 9 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
examples/dockmanager/package/easydocksite.pas
View File

@ -1442,11 +1442,17 @@ begin
end;
}
end;
{$IFDEF new}
{$IFDEF RootDock}
while FTopZone.FirstChild <> nil do begin
Zone := FTopZone.FirstChild;
if Zone.NextSibling <> nil then
break;
break; //has multiple kids - done
if Zone.ChildControl <> nil then begin
//single child, loose orientation
FTopZone.Orientation := doNoOrient;
Zone.ChildControl.DockOrientation := doNoOrient;
break; //done
end;
//move zone up
FTopZone.FFirstChild := nil;
zone.Parent := nil;
@ -1455,13 +1461,9 @@ begin
end;
{$ELSE}
{$ENDIF}
//check root empty
if FTopZone.FirstChild = nil then
FTopZone.Orientation := doNoOrient
else if FTopZone.FirstChild.NextSibling = nil then begin
FTopZone.Orientation := doNoOrient;
FTopZone.FirstChild.ChildControl.DockOrientation := doNoOrient;
//bug: not leaf???
end;
//update zone, here simply the whole dock site
FSplitter.Hide;