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

MG: fixed destroying combobox

Browse Source 
git-svn-id: trunk@1064 -
This commit is contained in:
lazarus 2002-02-09 01:47:46 +00:00
parent 20b24f86a9
commit 27ad52055d
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lcl/include/control.inc
View File

@ -1609,14 +1609,14 @@ end;
------------------------------------------------------------------------------}
destructor TControl.Destroy;
begin
//writeln('[TControl.Destroy] A ',Name,':',ClassName);
//writeln('[TControl.Destroy] A ',Name,':',ClassName);
Application.ControlDestroyed(Self);
SetParent(nil);
FConstraints.Free;
FFont.Free;
//writeln('[TControl.Destroy] B ',Name,':',ClassName);
//writeln('[TControl.Destroy] B ',Name,':',ClassName);
inherited Destroy;
//writeln('[TControl.Destroy] END ',Name,':',ClassName);
//writeln('[TControl.Destroy] END ',Name,':',ClassName);
end;
{------------------------------------------------------------------------------
@ -1782,6 +1782,9 @@ end;
{ =============================================================================
$Log$
Revision 1.71 2002/08/31 11:37:09 lazarus
MG: fixed destroying combobox
Revision 1.70 2002/08/30 12:32:20 lazarus
MG: MoveWindowOrgEx, Splitted FWinControls/FControls, TControl drawing, Better DesignerDrawing, ...