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

correct r13639 #880afb7010

Browse Source 
git-svn-id: trunk@13640 -
This commit is contained in:
paul 2008-01-05 18:46:42 +00:00
parent 880afb7010
commit 79018c49c5
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/include/wincontrol.inc
View File

@ -5470,8 +5470,6 @@ begin
end else
ListRemove(FControls, AControl);
AControl.FParent := nil;
if AControl.FHostDockSite = Self then
AControl.FHostDockSite := nil;
end;
end;
@ -5827,6 +5825,8 @@ begin
Control := Controls[n - 1];
//DebugLn('[TWinControl.Destroy] C ',Name,':',ClassName,' ',Control.Name,':',Control.ClassName);
Remove(Control);
if Control.FHostDockSite = Self then
Control.FHostDockSite := nil;
// don't free the control just set parent to nil
// controls are freed by the owner
//Control.Free;