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

dockmanager example: made Close button hide the docked control

Browse Source 
git-svn-id: trunk@24851 -
This commit is contained in:
dodi 2010-04-23 13:35:18 +00:00
parent 573fd149a2
commit 2947939f60
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
examples/dockmanager/package/easydocksite.pas
View File

@ -949,7 +949,8 @@ begin
{$ELSE}
Control.ManualDock(nil, nil, alNone); //do float
{ TODO -cLCL : OnEndDock not called by ManualDock? }
TWinControlAccess(Control).DoEndDock(nil, Control.Left, Control.Top);
//TWinControlAccess(Control).DoEndDock(nil, Control.Left, Control.Top);
Control.Visible := False;
{$ENDIF}
end;
end;