paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-09 21:56:00 +02:00
Code Issues Packages Projects Releases Wiki Activity

lcl: remove workaround to old fpc bug in BeforeDestruction

Browse Source 
git-svn-id: trunk@25837 -
This commit is contained in:
blikblum 2010-06-02 09:39:49 +00:00
parent ef82b1fefd
commit 8450373c5d
1 changed files with 0 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/lclclasses.pp
View File

@ -44,7 +44,6 @@ type
public
constructor Create(TheOwner: TComponent); override;
destructor Destroy; override;
procedure BeforeDestruction; override; // fixes missing call to Destroying in FPC
class function NewInstance: TObject; override;
procedure RemoveAllHandlersOfObject(AnObject: TObject); virtual;
procedure IncLCLRefCount;
@ -112,12 +111,6 @@ begin
inherited Destroy;
end;
procedure TLCLComponent.BeforeDestruction;
begin
inherited BeforeDestruction;
Destroying;
end;
class function TLCLComponent.NewInstance: TObject;
begin
Result := inherited NewInstance;