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

LCL: comments

Browse Source 
git-svn-id: trunk@25800 -
This commit is contained in:
mattias 2010-05-31 09:44:16 +00:00
parent 1d35c4b3b3
commit 40c5e2cd18
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/include/control.inc
View File

@ -3883,7 +3883,8 @@ begin
// undock from old HostSite
// - this only undocks from the DockManager
// - this control still uses the DockSite as parent control
{ TODO -cdocking : Combine with ManualFloat, for consistent handling }
// Note: This can *not* be combined with ManualFloat, because that would
// create a new HostDockSite
DebugLn('TControl.ManualDock UNDOCKING ',Name);
Result:=HostDockSite.DoUndock(NewDockSite,Self);
end;