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

LCL: Make sure NewDockSite is assigned in TContol.Dock.

Browse Source 
git-svn-id: trunk@56142 -
This commit is contained in:
juha 2017-10-21 16:30:23 +00:00
parent 4d597500d4
commit bdb1578f08
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

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