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

anchordocking: restore splitter in custom dock site

Browse Source 
git-svn-id: trunk@26044 -
This commit is contained in:
mattias 2010-06-11 18:38:18 +00:00
parent 410b53214f
commit 7165071220
1 changed files with 38 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

42
examples/anchordocking/anchordocking.pas
View File

@ -248,6 +248,7 @@ type
EnlargeSpitterSide: TAnchorKind; EnlargeSpitterSide: TAnchorKind;
OnlyCheckIfPossible: boolean): boolean; OnlyCheckIfPossible: boolean): boolean;
procedure CreateBoundSplitter; procedure CreateBoundSplitter;
procedure PositionBoundSplitter;
public public
constructor Create(AOwner: TComponent); override; constructor Create(AOwner: TComponent); override;
destructor Destroy; override; destructor Destroy; override;
@ -307,6 +308,8 @@ type
procedure ResetBounds(Force: Boolean); override; procedure ResetBounds(Force: Boolean); override;
procedure SaveToStream(Stream: TStream); override; procedure SaveToStream(Stream: TStream); override;
function GetDockEdge(ADockObject: TDragDockObject): boolean; override; function GetDockEdge(ADockObject: TDragDockObject): boolean; override;
procedure RestoreSite;
property DockSite: TAnchorDockHostSite read FDockSite; property DockSite: TAnchorDockHostSite read FDockSite;
property Site: TWinControl read FSite; property Site: TWinControl read FSite;
property DockableSites: TAnchors read FDockableSites write FDockableSites; property DockableSites: TAnchors read FDockableSites write FDockableSites;
@ -732,8 +735,10 @@ function TAnchorDockMaster.RestoreLayout(Tree: TAnchorDockLayoutTree;
Site.BoundsRect:=Node.BoundsRect; Site.BoundsRect:=Node.BoundsRect;
Site.Visible:=true; Site.Visible:=true;
Site.Parent:=Parent; Site.Parent:=Parent;
if IsCustomSite(Parent) then if IsCustomSite(Parent) then begin
Site.Align:=Node.Align; Site.Align:=Node.Align;
TAnchorDockManager(Parent.DockManager).RestoreSite;
end;
if Site is TAnchorDockHostSite then if Site is TAnchorDockHostSite then
TAnchorDockHostSite(Site).Header.HeaderPosition:=Node.HeaderPosition; TAnchorDockHostSite(Site).Header.HeaderPosition:=Node.HeaderPosition;
if Parent=nil then begin if Parent=nil then begin
@ -2679,7 +2684,21 @@ procedure TAnchorDockHostSite.CreateBoundSplitter;
begin begin
if BoundSplitter<>nil then exit; if BoundSplitter<>nil then exit;
FBoundSplitter:=DockMaster.CreateSplitter; FBoundSplitter:=DockMaster.CreateSplitter;
FBoundSplitter.FreeNotification(Self); BoundSplitter.FreeNotification(Self);
BoundSplitter.Align:=Align;
BoundSplitter.Parent:=Parent;
end;
procedure TAnchorDockHostSite.PositionBoundSplitter;
begin
case Align of
alTop: BoundSplitter.SetBounds(0,Height,Parent.ClientWidth,BoundSplitter.Height);
alBottom: BoundSplitter.SetBounds(0,Parent.ClientHeight-Height-BoundSplitter.Height,
Parent.ClientWidth,BoundSplitter.Height);
alLeft: BoundSplitter.SetBounds(Width,0,BoundSplitter.Width,Parent.ClientHeight);
alRight: BoundSplitter.SetBounds(Parent.ClientWidth-Width-BoundSplitter.Width,0
,BoundSplitter.Width,Parent.ClientHeight);
end;
end; end;
function TAnchorDockHostSite.CloseQuery: boolean; function TAnchorDockHostSite.CloseQuery: boolean;
@ -3356,11 +3375,10 @@ begin
Child.Height:=ADockObject.DockRect.Bottom-ADockObject.DockRect.Top; Child.Height:=ADockObject.DockRect.Bottom-ADockObject.DockRect.Top;
SplitterWidth:=0; SplitterWidth:=0;
ChildSite:=nil;
if Child is TAnchorDockHostSite then begin if Child is TAnchorDockHostSite then begin
ChildSite:=TAnchorDockHostSite(Child); ChildSite:=TAnchorDockHostSite(Child);
ChildSite.CreateBoundSplitter; ChildSite.CreateBoundSplitter;
ChildSite.BoundSplitter.Align:=Child.Align;
ChildSite.BoundSplitter.Parent:=Site;
SplitterWidth:=DockMaster.SplitterWidth; SplitterWidth:=DockMaster.SplitterWidth;
end; end;
@ -3387,6 +3405,9 @@ begin
end; end;
Child.BoundsRect:=NewChildBounds; Child.BoundsRect:=NewChildBounds;
if ChildSite<>nil then
ChildSite.PositionBoundSplitter;
// only allow to dock one control // only allow to dock one control
DragManager.RegisterDockSite(Site,false); DragManager.RegisterDockSite(Site,false);
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)]); 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)]);
@ -3576,6 +3597,19 @@ begin
Result:=true; Result:=true;
end; end;
procedure TAnchorDockManager.RestoreSite;
var
ChildSite: TAnchorDockHostSite;
begin
FSiteClientRect:=Site.ClientRect;
if DockSite=nil then exit;
ChildSite:=GetChildSite;
if ChildSite<>nil then begin
ChildSite.CreateBoundSplitter;
ChildSite.PositionBoundSplitter;
end;
end;
function TAnchorDockManager.GetChildSite: TAnchorDockHostSite; function TAnchorDockManager.GetChildSite: TAnchorDockHostSite;
var var
i: Integer; i: Integer;