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

anchordocking: dock one control to docksite

Browse Source 
git-svn-id: trunk@26015 -
This commit is contained in:
mattias 2010-06-10 00:37:40 +00:00
parent 73456d1243
commit 431402d6e4
2 changed files with 40 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

45
examples/anchordocking/anchordocking.pas
View File

@ -288,6 +288,7 @@ type
override;
procedure InsertControl(Control: TControl; InsertAt: TAlign;
DropCtl: TControl); override; overload;
procedure InsertControl(ADockObject: TDragDockObject); override; overload;
procedure LoadFromStream(Stream: TStream); override;
procedure PositionDockRect(Client, DropCtl: TControl; DropAlign: TAlign;
var DockRect: TRect); override; overload;
@ -2274,6 +2275,12 @@ end;
procedure TAnchorDockHostSite.DoDock(NewDockSite: TWinControl; var ARect: TRect
);
begin
if (not (NewDockSite is TAnchorDockHostSite))
and (NewDockSite.Parent<>nil)
and (NewDockSite.DockManager is TAnchorDockManager) then begin
// resize parent
end;
inherited DoDock(NewDockSite, ARect);
DockMaster.SimplifyPendingLayouts;
end;
@ -3149,10 +3156,36 @@ end;
procedure TAnchorDockManager.InsertControl(Control: TControl; InsertAt: TAlign;
DropCtl: TControl);
begin
if DockSite<>nil then
debugln(['TAnchorDockManager.InsertControl DockSite="',DockSite.Caption,'" Control=',DbgSName(Control),' InsertAt=',dbgs(InsertAt),' DropCtl=',DbgSName(DropCtl)])
else
debugln(['TAnchorDockManager.InsertControl DockSite=nil Site="',DbgSName(Site),'" Control=',DbgSName(Control),' InsertAt=',dbgs(InsertAt),' DropCtl=',DbgSName(DropCtl)])
if Control=nil then;
if InsertAt=alNone then ;
if DropCtl=nil then ;
end;
procedure TAnchorDockManager.InsertControl(ADockObject: TDragDockObject);
var
NewSiteBounds: TRect;
begin
if DockSite<>nil then begin
// handled by TAnchorDockHostSite
debugln(['TAnchorDockManager.InsertControl DockSite="',DockSite.Caption,'" Control=',DbgSName(ADockObject.Control),' InsertAt=',dbgs(ADockObject.DropAlign)])
end else begin
debugln(['TAnchorDockManager.InsertControl DockSite=nil Site="',DbgSName(Site),'" Control=',DbgSName(ADockObject.Control),' InsertAt=',dbgs(ADockObject.DropAlign),' Site.Bounds=',dbgs(Site.BoundsRect),' Control.Client=',dbgs(ADockObject.Control.ClientRect)]);
// align dragged Control
ADockObject.Control.Align:=ADockObject.DropAlign;
ADockObject.Control.Width:=ADockObject.DockRect.Right-ADockObject.DockRect.Left;
ADockObject.Control.Height:=ADockObject.DockRect.Bottom-ADockObject.DockRect.Top;
// resize Site
NewSiteBounds:=Site.BoundsRect;
case ADockObject.DropAlign of
alLeft: dec(NewSiteBounds.Left,ADockObject.Control.ClientWidth);
alRight: dec(NewSiteBounds.Right,ADockObject.Control.ClientWidth);
alTop: dec(NewSiteBounds.Top,ADockObject.Control.ClientHeight);
alBottom: inc(NewSiteBounds.Bottom,ADockObject.Control.ClientHeight);
end;
Site.BoundsRect:=NewSiteBounds;
debugln(['TAnchorDockManager.InsertControl AFTER Site="',DbgSName(Site),'" Control=',DbgSName(ADockObject.Control),' InsertAt=',dbgs(ADockObject.DropAlign),' Site.Bounds=',dbgs(Site.BoundsRect),' Control.Client=',dbgs(ADockObject.Control.ClientRect)]);
end;
end;
procedure TAnchorDockManager.LoadFromStream(Stream: TStream);
@ -3219,8 +3252,8 @@ end;
procedure TAnchorDockManager.ResetBounds(Force: Boolean);
begin
if DockSite=nil then
debugln(['TAnchorDockManager.ResetBounds Site="',Site.Caption,'" Force=',Force,' ',dbgs(Site.ClientRect)]);
if Force then ;
//debugln(['TAnchorDockManager.ResetBounds Site="',Site.Caption,'" Force=',Force,' ',dbgs(Site.ClientRect)]);
end;
procedure TAnchorDockManager.SaveToStream(Stream: TStream);

1
lcl/include/wincontrol.inc
View File

@ -7604,6 +7604,7 @@ begin
DestRect := DockRect;
DisableAlign;
try
debugln(['TWinControl.DoDockClientMsg ',DbgSName(Self),' Control=',DbgSName(DragDockObject.Control),' DestRect=',dbgs(DestRect)]);
DragDockObject.Control.Dock(Self, DestRect);
if FUseDockManager and (DockManager <> nil) then
DockManager.InsertControl(DragDockObject);