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

chmhelp: Fix memory leak in TLHelpConnector (see forum https://forum.lazarus.freepascal.org/index.php/topic,42832.msg299208.html).

Browse Source 
git-svn-id: trunk@59289 -
This commit is contained in:
wp 2018-10-11 13:33:31 +00:00
parent 8a6bcba75f
commit f3da779450
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/chmhelp/packages/help/lazhelpchm.pas
View File

@ -93,6 +93,7 @@ type
procedure SetLHelpPath(AValue: string); procedure SetLHelpPath(AValue: string);
public public
constructor Create(TheOwner: TComponent); override; constructor Create(TheOwner: TComponent); override;
destructor Destroy; override;
function ShowNode(Node: THelpNode; var ErrMsg: string): TShowHelpResult; override; function ShowNode(Node: THelpNode; var ErrMsg: string): TShowHelpResult; override;
procedure Assign(Source: TPersistent); override; procedure Assign(Source: TPersistent); override;
procedure Load(Storage: TConfigStorage); override; procedure Load(Storage: TConfigStorage); override;
@ -130,6 +131,12 @@ begin
AddSupportedMimeType(CHMMimeType); AddSupportedMimeType(CHMMimeType);
end; end;
destructor TLHelpConnector.Destroy;
begin
FConnection.Free;
inherited;
end;
function TLHelpConnector.ShowNode(Node: THelpNode; var ErrMsg: string function TLHelpConnector.ShowNode(Node: THelpNode; var ErrMsg: string
): TShowHelpResult; ): TShowHelpResult;
var var