paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-15 07:02:37 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: TControl.Dock: clean up if docking failed

Browse Source 
git-svn-id: trunk@23032 -
This commit is contained in:
mattias 2009-12-08 15:35:26 +00:00
parent 54e0d61ef7
commit efd8836a89
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/include/control.inc
View File

@ -3872,6 +3872,8 @@ begin
if OldHostDockSite<>nil then OldHostDockSite.DoRemoveDockClient(Self);
end;
finally
if (FHostDockSite<>NewDockSite) and (NewDockSite.FDockClients<>nil) then
NewDockSite.FDockClients.Remove(Self);
Exclude(FControlState, csDocking);
end;
end;