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

MG: fixed TBevel.Create and TListView.Destroy

Browse Source 
git-svn-id: trunk@943 -
This commit is contained in:
lazarus 2002-02-09 01:47:27 +00:00
parent 60b602e30a
commit 367d67b064
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lcl/include/wincontrol.inc
View File

@ -1302,11 +1302,16 @@ var
begin begin
//writeln('[TWinControl.Destroy] A ',Name,':',ClassName); //writeln('[TWinControl.Destroy] A ',Name,':',ClassName);
DestroyHandle; DestroyHandle;
// for n:=0 to ComponentCount-1 do
// writeln(' ',Components[n].ClassName);
n := ControlCount; n := ControlCount;
while n > 0 do while n > 0 do
begin begin
Control := Controls[n - 1]; Control := Controls[n - 1];
//writeln('[TWinControl.Destroy] B ',Name,':',ClassName,' ',Control.Name,':',Control.ClassName);
Remove(Control); Remove(Control);
// don't free the control just set parent to nil // don't free the control just set parent to nil
// controls are freed by the owner // controls are freed by the owner
@ -1316,6 +1321,7 @@ begin
end; end;
FBrush.Free; FBrush.Free;
//writeln('[TWinControl.Destroy] D ',Name,':',ClassName);
inherited Destroy; inherited Destroy;
//writeln('[TWinControl.Destroy] END ',Name,':',ClassName); //writeln('[TWinControl.Destroy] END ',Name,':',ClassName);
end; end;
@ -1934,6 +1940,9 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.51 2002/03/14 23:25:52 lazarus
MG: fixed TBevel.Create and TListView.Destroy
Revision 1.50 2002/03/13 22:48:16 lazarus Revision 1.50 2002/03/13 22:48:16 lazarus
Constraints implementation (first cut) and sizig - moving system rework to Constraints implementation (first cut) and sizig - moving system rework to
better match Delphi/Kylix way of doing things (the existing implementation better match Delphi/Kylix way of doing things (the existing implementation