paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-26 16:07:17 +01:00
Code Issues Packages Projects Releases Wiki Activity

IDE: fixed mem leak

Browse Source 
git-svn-id: trunk@30818 -
This commit is contained in:
mattias 2011-05-19 20:16:01 +00:00
parent 5a93b962cf
commit db3b5ed9d7
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
ideintf/packageintf.pas
View File

@ -218,6 +218,7 @@ type
const AMethod: TMethod); const AMethod: TMethod);
procedure DoCallNotifyHandler(HandlerType: TPkgIntfHandlerType; Sender: TObject); procedure DoCallNotifyHandler(HandlerType: TPkgIntfHandlerType; Sender: TObject);
public public
destructor Destroy; override;
function DoOpenPackageWithName(const APackageName: string; function DoOpenPackageWithName(const APackageName: string;
Flags: TPkgOpenFlags; Flags: TPkgOpenFlags;
ShowAbort: boolean): TModalResult; virtual; abstract; ShowAbort: boolean): TModalResult; virtual; abstract;
@ -676,6 +677,15 @@ begin
FHandlers[HandlerType].CallNotifyEvents(Sender); FHandlers[HandlerType].CallNotifyEvents(Sender);
end; end;
destructor TPackageEditingInterface.Destroy;
var
h: TPkgIntfHandlerType;
begin
for h:=Low(FHandlers) to high(FHandlers) do
FreeAndNil(FHandlers[h]);
inherited Destroy;
end;
procedure TPackageEditingInterface.RemoveAllHandlersOfObject(AnObject: TObject); procedure TPackageEditingInterface.RemoveAllHandlersOfObject(AnObject: TObject);
var var
HandlerType: TPkgIntfHandlerType; HandlerType: TPkgIntfHandlerType;