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

IDE: cleanup

Browse Source 
git-svn-id: trunk@57884 -
This commit is contained in:
ondrej 2018-05-10 14:52:42 +00:00
parent f654d33405
commit d3139bec7c
1 changed files with 0 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
packager/packagedefs.pas
View File

@ -85,8 +85,6 @@ type
TPkgComponent = class(TRegisteredComponent) TPkgComponent = class(TRegisteredComponent)
private private
FPkgFile: TPkgFile; FPkgFile: TPkgFile;
FIcon: TCustomBitmap;
FIconLoaded: boolean;
procedure SetPkgFile(const AValue: TPkgFile); procedure SetPkgFile(const AValue: TPkgFile);
public public
constructor Create(ThePkgFile: TPkgFile; TheComponentClass: TComponentClass; constructor Create(ThePkgFile: TPkgFile; TheComponentClass: TComponentClass;
@ -3930,11 +3928,6 @@ end;
destructor TPkgComponent.Destroy; destructor TPkgComponent.Destroy;
begin begin
PkgFile:=nil; PkgFile:=nil;
if fIconLoaded then begin
FIcon.Free;
FIcon:=nil;
fIconLoaded:=false;
end;
inherited Destroy; inherited Destroy;
end; end;