paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-23 05:19:31 +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;
OnlyCheckIfPossible: boolean): boolean;
procedure CreateBoundSplitter;
procedure PositionBoundSplitter;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
@ -307,6 +308,8 @@ type
procedure ResetBounds(Force: Boolean); override;
procedure SaveToStream(Stream: TStream); override;
function GetDockEdge(ADockObject: TDragDockObject): boolean; override;
procedure RestoreSite;
property DockSite: TAnchorDockHostSite read FDockSite;
property Site: TWinControl read FSite;
property DockableSites: TAnchors read FDockableSites write FDockableSites;
@ -732,8 +735,10 @@ function TAnchorDockMaster.RestoreLayout(Tree: TAnchorDockLayoutTree;
Site.BoundsRect:=Node.BoundsRect;
Site.Visible:=true;
Site.Parent:=Parent;
if IsCustomSite(Parent) then
if IsCustomSite(Parent) then begin
Site.Align:=Node.Align;
TAnchorDockManager(Parent.DockManager).RestoreSite;
end;
if Site is TAnchorDockHostSite then
TAnchorDockHostSite(Site).Header.HeaderPosition:=Node.HeaderPosition;
if Parent=nil then begin
@ -2679,7 +2684,21 @@ procedure TAnchorDockHostSite.CreateBoundSplitter;
begin
if BoundSplitter<>nil then exit;
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;
function TAnchorDockHostSite.CloseQuery: boolean;
@ -3356,11 +3375,10 @@ begin
Child.Height:=ADockObject.DockRect.Bottom-ADockObject.DockRect.Top;
SplitterWidth:=0;
ChildSite:=nil;
if Child is TAnchorDockHostSite then begin
ChildSite:=TAnchorDockHostSite(Child);
ChildSite.CreateBoundSplitter;
ChildSite.BoundSplitter.Align:=Child.Align;
ChildSite.BoundSplitter.Parent:=Site;
SplitterWidth:=DockMaster.SplitterWidth;
end;
@ -3387,6 +3405,9 @@ begin
end;
Child.BoundsRect:=NewChildBounds;
if ChildSite<>nil then
ChildSite.PositionBoundSplitter;
// only allow to dock one control
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)]);
@ -3576,6 +3597,19 @@ begin
Result:=true;
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;
var
i: Integer;