paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 19:29:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

* enhanced how observers are notified by subjects on destroying

Browse Source 
git-svn-id: trunk@13853 -
This commit is contained in:
ivost 2009-10-13 12:22:36 +00:00
parent 74c09e2268
commit 65bca0a26d
1 changed files with 8 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -250,6 +250,8 @@ begin
FComponentState := FComponentState - [csFreeNotification];
end;
end;
{ disabled this code: do we really have to notify the child components also? Each observer
should register itself to it's subject! }
{If assigned(FComponents) then
For Runner:=0 To FComponents.Count-1 do
TComponent(FComponents.Items[Runner]).Notification(AComponent,Operation);}
@ -413,22 +415,16 @@ Destructor TComponent.Destroy;
Var
I : Integer;
C : TComponent;
L : TList;
begin
Destroying;
If Assigned(FFreeNotifies) then
begin
I := FFreeNotifies.Count-1;
While I >= 0 do
begin
C:=TComponent(FFreeNotifies.Items[I]);
FFreeNotifies.Delete(I);
C.RemoveNotification(self);
C.Notification(self,opRemove);
I:=FFreeNotifies.Count-1;
end;
FreeAndNil(FFreeNotifies);
L := FFreeNotifies;
FFreenotifies:=Nil;
for I := L.Count - 1 downto 0 do
TComponent(FFreeNotifies.Items[I]).Notification(self,opRemove);
L.Free;
end;
DestroyComponents;
If FOwner<>Nil Then FOwner.RemoveComponent(Self);