paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-25 13:29:21 +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} {$ELSE}
Control.ManualDock(nil, nil, alNone); //do float Control.ManualDock(nil, nil, alNone); //do float
{ TODO -cLCL : OnEndDock not called by ManualDock? } { 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} {$ENDIF}
end; end;
end; end;