paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-10 20:30:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

* readded BeforeDestructor that calls Destroying (delphi compatibility issue)

Browse Source 
* uncommented code in Notification procedure (delphi compatibility issue)

git-svn-id: trunk@13874 -
This commit is contained in:
ivost 2009-10-16 18:12:11 +00:00
parent 3cfcdb2ab9
commit fff6e218af
2 changed files with 12 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
rtl/objpas/classes/classesh.inc
View File

@ -1557,6 +1557,7 @@ type
procedure WriteState(Writer: TWriter); virtual;
constructor Create(AOwner: TComponent); virtual;
destructor Destroy; override;
procedure BeforeDestruction; override;
procedure DestroyComponents;
procedure Destroying;
function ExecuteAction(Action: TBasicAction): Boolean; dynamic;

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

@ -237,7 +237,7 @@ end;
Procedure TComponent.Notification(AComponent: TComponent;
Operation: TOperation);
//Var Runner : Longint;
Var Runner : Longint;
begin
If (Operation=opRemove) and Assigned(FFreeNotifies) then
@ -250,11 +250,9 @@ begin
Exclude(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
If assigned(FComponents) then
For Runner:=0 To FComponents.Count-1 do
TComponent(FComponents.Items[Runner]).Notification(AComponent,Operation);}
TComponent(FComponents.Items[Runner]).Notification(AComponent,Operation);
end;
@ -411,13 +409,20 @@ begin
end;
Procedure TComponent.BeforeDestruction;
begin
Destroying;
inherited BeforeDestruction;
end;
Destructor TComponent.Destroy;
Var
I : Integer;
L : TList;
begin
Destroying;
If Assigned(FFreeNotifies) then
begin
L := FFreeNotifies;