paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-16 02:10:44 +01:00
Code Issues Packages Projects Releases Wiki Activity

+ Fix in TComponent destroy FreeNotifications.

Browse Source
This commit is contained in:
michael 2004-09-22 18:48:31 +00:00
parent 8a1a277673
commit 8b3a3858eb
1 changed files with 17 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
rtl/objpas/classes/compon.inc
View File

@ -374,16 +374,24 @@ end;
Destructor TComponent.Destroy;
Var Runner : Longint;
Var
I : Integer;
begin
Destroying;
If Assigned(FFreeNotifies) then
begin
For Runner:=0 To FFreeNotifies.Count-1 do
TComponent(FFreeNotifies.Items[Runner]).Notification (self,opRemove);
FFreeNotifies.Free;
FFreeNotifies:=Nil;
I:=FFreeNotifies.Count-1;
While (I>=0) do
begin
TComponent(FFreeNotifies.Items[I]).Notification (self,opRemove);
If (FFreeNotifies=Nil) then
I:=0
else if (I>FFreeNotifies.Count) then
I:=FFreeNotifies.Count;
dec(i);
end;
FreeAndNil(FFreeNotifies);
end;
DestroyComponents;
If FOwner<>Nil Then FOwner.RemoveComponent(Self);
@ -540,7 +548,10 @@ end;
{
$Log$
Revision 1.3 2004-08-07 16:44:35 florian
Revision 1.4 2004-09-22 18:48:31 michael
+ Fix in TComponent destroy FreeNotifications.
Revision 1.3 2004/08/07 16:44:35 florian
* tcomponent.destroying is now called in tcomponent.beforedestruction
Revision 1.2 2004/01/12 17:44:22 peter