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

anchordocking: enlarge with disable autosizing

Browse Source 
git-svn-id: trunk@25987 -
This commit is contained in:
mattias 2010-06-08 20:31:36 +00:00
parent bb74a7a5e4
commit 7de7739b74
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
examples/anchordocking/anchordocking.pas
View File

@ -2266,6 +2266,7 @@ begin
end; end;
end; end;
end; end;
Parent:=nil;
DockMaster.NeedFree(Self); DockMaster.NeedFree(Self);
finally finally
ParentSite.EndUpdateLayout; ParentSite.EndUpdateLayout;
@ -2338,8 +2339,10 @@ begin
Result:=false; Result:=false;
if not (Parent is TAnchorDockHostSite) then exit; if not (Parent is TAnchorDockHostSite) then exit;
ParentSite:=TAnchorDockHostSite(Parent); ParentSite:=TAnchorDockHostSite(Parent);
if not OnlyCheckIfPossible then if not OnlyCheckIfPossible then begin
ParentSite.BeginUpdateLayout; ParentSite.BeginUpdateLayout;
ParentSite.DisableAutoSizing;
end;
try try
Splitter:=TAnchorDockSplitter(AnchorSide[Side].Control); Splitter:=TAnchorDockSplitter(AnchorSide[Side].Control);
if not (Splitter is TAnchorDockSplitter) then exit; if not (Splitter is TAnchorDockSplitter) then exit;
@ -2387,8 +2390,10 @@ begin
end; end;
finally finally
if not OnlyCheckIfPossible then if not OnlyCheckIfPossible then begin
ParentSite.EnableAutoSizing;
ParentSite.EndUpdateLayout; ParentSite.EndUpdateLayout;
end;
end; end;
Result:=true; Result:=true;
end; end;