paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-24 14:29:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

--- Merging r35607 into '.':

Browse Source 
U    rtl/objpas/classes/compon.inc
--- Recording mergeinfo for merge of r35607 into '.':
 U   .

# revisions: 35607

git-svn-id: branches/fixes_3_0@36013 -
This commit is contained in:
marco 2017-04-29 16:03:54 +00:00
parent 7a1786f36b
commit cf04c1362f
1 changed files with 13 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -291,21 +291,22 @@ end;
Procedure TComponent.Notification(AComponent: TComponent;
Operation: TOperation);
Var Runner : Longint;
Var
C : Longint;
begin
If (Operation=opRemove) and Assigned(FFreeNotifies) then
If (Operation=opRemove) then
RemoveFreeNotification(AComponent);
If Not assigned(FComponents) then
exit;
C:=FComponents.Count-1;
While (C>=0) do
begin
FFreeNotifies.Remove(AComponent);
If FFreeNotifies.Count=0 then
begin
FFreeNotifies.Free;
FFreenotifies:=Nil;
end;
end;
If assigned(FComponents) then
For Runner:=0 To FComponents.Count-1 do
TComponent(FComponents.Items[Runner]).Notification(AComponent,Operation);
TComponent(FComponents.Items[C]).Notification(AComponent,Operation);
Dec(C);
if C>=FComponents.Count then
C:=FComponents.Count-1;
end;
end;