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

AnchorDocking: Prevent a crash when closing the IDE. Patch from Ondrej Pokorny.

Browse Source 
git-svn-id: trunk@49757 -
This commit is contained in:
juha 2015-09-04 18:48:50 +00:00
parent 6c11debd0c
commit dabd4106ff
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/anchordocking/anchordocking.pas
View File

@ -4247,7 +4247,8 @@ end;
procedure TAnchorDockHostSite.DoDock(NewDockSite: TWinControl; var ARect: TRect); procedure TAnchorDockHostSite.DoDock(NewDockSite: TWinControl; var ARect: TRect);
begin begin
inherited DoDock(NewDockSite, ARect); inherited DoDock(NewDockSite, ARect);
DockMaster.SimplifyPendingLayouts; if DockMaster <> nil then
DockMaster.SimplifyPendingLayouts;
end; end;
procedure TAnchorDockHostSite.SetParent(NewParent: TWinControl); procedure TAnchorDockHostSite.SetParent(NewParent: TWinControl);