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

LCL: THTMLBrowserHelpViewer.FindDefaultBrowser using out params, bug #15349

Browse Source 
git-svn-id: trunk@23167 -
This commit is contained in:
mattias 2009-12-17 15:11:12 +00:00
parent d93c965185
commit c7786f3099
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/lazhelphtml.pas
View File

@ -98,7 +98,7 @@ type
public public
constructor Create(TheOwner: TComponent); override; constructor Create(TheOwner: TComponent); override;
function ShowNode(Node: THelpNode; var ErrMsg: string): TShowHelpResult; override; function ShowNode(Node: THelpNode; var ErrMsg: string): TShowHelpResult; override;
procedure FindDefaultBrowser(var Browser, Params: string); virtual; procedure FindDefaultBrowser(out Browser, Params: string); virtual;
procedure Assign(Source: TPersistent); override; procedure Assign(Source: TPersistent); override;
procedure Load(Storage: TConfigStorage); override; procedure Load(Storage: TConfigStorage); override;
procedure Save(Storage: TConfigStorage); override; procedure Save(Storage: TConfigStorage); override;
@ -386,7 +386,7 @@ begin
end; end;
end; end;
procedure THTMLBrowserHelpViewer.FindDefaultBrowser(var Browser, Params: string); procedure THTMLBrowserHelpViewer.FindDefaultBrowser(out Browser, Params: string);
begin begin
if FDefaultBrowser='' then if FDefaultBrowser='' then
begin begin