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

anchordocking: dock another control outside to a custom docksite

Browse Source 
git-svn-id: trunk@26021 -
This commit is contained in:
mattias 2010-06-10 10:12:02 +00:00
parent 901fecf43a
commit aaa3a1a5a9
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
examples/anchordocking/anchordocking.pas
View File

@ -1632,7 +1632,7 @@ begin
end;
end;
Parent.BoundsRect:=NewParentBounds;
NewBounds:=BoundsRect;
BoundsRect:=NewBounds;
BoundsIncreased:=true;
end;
debugln(['TAnchorDockHostSite.DockAnotherControl AFTER ENLARGE ',Caption]);
@ -3247,7 +3247,13 @@ var
Offset: TPoint;
Inside: Boolean;
begin
Inside:=(DockSite<>nil) and (DropCtl=Site) or (Site.Parent<>nil);
Inside:=(DropCtl=Site);
if (not Inside) and (Site.Parent<>nil) then begin
if (Site.Parent is TAnchorDockHostSite)
or (not (Site.Parent.DockManager is TAnchorDockManager))
or (Site.Parent.Parent<>nil) then
Inside:=true;
end;
case DropAlign of
alLeft:
if Inside then