paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 01:49: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

11
lcl/include/wincontrol.inc
View File

@ -1301,12 +1301,17 @@ var
Control: TControl;
begin
//writeln('[TWinControl.Destroy] A ',Name,':',ClassName);
DestroyHandle;
DestroyHandle;
// for n:=0 to ComponentCount-1 do
// writeln(' ',Components[n].ClassName);
n := ControlCount;
while n > 0 do
begin
Control := Controls[n - 1];
//writeln('[TWinControl.Destroy] B ',Name,':',ClassName,' ',Control.Name,':',Control.ClassName);
Remove(Control);
// don't free the control just set parent to nil
// controls are freed by the owner
@ -1316,6 +1321,7 @@ begin
end;
FBrush.Free;
//writeln('[TWinControl.Destroy] D ',Name,':',ClassName);
inherited Destroy;
//writeln('[TWinControl.Destroy] END ',Name,':',ClassName);
end;
@ -1934,6 +1940,9 @@ end;
{ =============================================================================
$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
Constraints implementation (first cut) and sizig - moving system rework to
better match Delphi/Kylix way of doing things (the existing implementation