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

anchordocking: clean up

Browse Source 
git-svn-id: trunk@28798 -
This commit is contained in:
mattias 2010-12-22 09:17:18 +00:00
parent 25edafc5a6
commit 86492baa25
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
examples/anchordocking/design/registeranchordocking.pas
View File

@ -231,6 +231,7 @@ var
aManager: TAnchorDockManager;
begin
debugln(['TIDEAnchorDockMaster.MakeIDEWindowDockSite ',DbgSName(AForm)]);
if ASides=[] then ;
DockMaster.MakeDockSite(AForm,[akBottom],admrpChild);
if AForm.DockManager is TAnchorDockManager then begin
aManager:=TAnchorDockManager(AForm.DockManager);