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

lcl: fix DockOrientation of child control

Browse Source 
git-svn-id: trunk@17864 -
This commit is contained in:
paul 2008-12-19 10:08:07 +00:00
parent 1b2398da45
commit 4620b0c84b
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lcl/ldocktree.pas
View File

@ -1297,19 +1297,19 @@ begin
if OldParentZone <> nil then
OldParentZone.ReplaceChild(DropZone, NewParentZone);
NewParentZone.AddAsFirstChild(DropZone);
// child control already had orientation but now we moved it to another parent
// which can take another orientation => change child control orientation
NewParentZone.Orientation := NewOrientation;
if DropZone.ChildControl <> nil then
DropZone.ChildControl.DockOrientation := NewOrientation;
end;
if DropZone.Parent = nil then
RaiseGDBException('TLazDockTree.InsertControl Inconsistency DropZone.Parent=nil');
// adjust Orientation in tree
if DropZone.Parent.Orientation = doNoOrient then
begin
// child control already had orientation but now we moved it to parent
// which can take another orientation => change child control orientation
DropZone.Parent.Orientation := NewOrientation;
if (DropZone.Parent.ChildCount = 1) and (DropZone.Parent.FirstChild.ChildControl <> nil) then
DropZone.Parent.FirstChild.ChildControl.DockOrientation := NewOrientation;
end;
if DropZone.Parent.Orientation <> NewOrientation then
RaiseGDBException('TLazDockTree.InsertControl Inconsistency DropZone.Orientation<>NewOrientation');