mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-07 01:06:02 +02:00
IDE: fixed mem leak
git-svn-id: trunk@30818 -
This commit is contained in:
parent
5a93b962cf
commit
db3b5ed9d7
@ -218,6 +218,7 @@ type
|
||||
const AMethod: TMethod);
|
||||
procedure DoCallNotifyHandler(HandlerType: TPkgIntfHandlerType; Sender: TObject);
|
||||
public
|
||||
destructor Destroy; override;
|
||||
function DoOpenPackageWithName(const APackageName: string;
|
||||
Flags: TPkgOpenFlags;
|
||||
ShowAbort: boolean): TModalResult; virtual; abstract;
|
||||
@ -676,6 +677,15 @@ begin
|
||||
FHandlers[HandlerType].CallNotifyEvents(Sender);
|
||||
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);
|
||||
var
|
||||
HandlerType: TPkgIntfHandlerType;
|
||||
|
Loading…
Reference in New Issue
Block a user