paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-05 01:35:58 +02: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;
Parent:=nil;
DockMaster.NeedFree(Self);
finally
ParentSite.EndUpdateLayout;
@ -2338,8 +2339,10 @@ begin
Result:=false;
if not (Parent is TAnchorDockHostSite) then exit;
ParentSite:=TAnchorDockHostSite(Parent);
if not OnlyCheckIfPossible then
if not OnlyCheckIfPossible then begin
ParentSite.BeginUpdateLayout;
ParentSite.DisableAutoSizing;
end;
try
Splitter:=TAnchorDockSplitter(AnchorSide[Side].Control);
if not (Splitter is TAnchorDockSplitter) then exit;
@ -2387,8 +2390,10 @@ begin
end;
finally
if not OnlyCheckIfPossible then
if not OnlyCheckIfPossible then begin
ParentSite.EnableAutoSizing;
ParentSite.EndUpdateLayout;
end;
end;
Result:=true;
end;