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

anchordocking: fixed enable autosizing

Browse Source 
git-svn-id: trunk@26046 -
This commit is contained in:
mattias 2010-06-11 19:12:59 +00:00
parent 59e23cd842
commit 8d226400ec
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
examples/anchordocking/anchordocking.pas
View File

@ -742,6 +742,7 @@ function TAnchorDockMaster.RestoreLayout(Tree: TAnchorDockLayoutTree;
if IsCustomSite(Parent) then begin
Site.Align:=Node.Align;
TAnchorDockManager(Parent.DockManager).RestoreSite;
Site.HostDockSite:=Parent;
end;
if Site is TAnchorDockHostSite then
TAnchorDockHostSite(Site).Header.HeaderPosition:=Node.HeaderPosition;
@ -924,11 +925,14 @@ end;
procedure TAnchorDockMaster.EnableAllAutoSizing;
var
i: Integer;
AControl: TControl;
begin
i:=fDisabledAutosizing.Count-1;
while (i>=0) do begin
debugln(['TAnchorDockMaster.EnableAllAutoSizing ',DbgSName(TControl(fDisabledAutosizing[i]))]);
TControl(fDisabledAutosizing[i]).EnableAutoSizing;
AControl:=TControl(fDisabledAutosizing[i]);
fDisabledAutosizing.Delete(i);
AControl.EnableAutoSizing;
i:=Min(i,fDisabledAutosizing.Count)-1;
end;
end;
@ -3505,6 +3509,8 @@ begin
alRight: dec(NewBounds.Right,Control.Width+SplitterWidth);
end;
Site.BoundsRect:=NewBounds;
debugln(['TAnchorDockManager.RemoveControl Site=',DbgSName(Site),' ',dbgs(Site.BoundsRect)]);
// Site can dock a control again
DragManager.RegisterDockSite(Site,true);
end;