paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 12:39:29 +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
constructor Create(TheOwner: TComponent); 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 Load(Storage: TConfigStorage); override;
procedure Save(Storage: TConfigStorage); override;
@ -386,7 +386,7 @@ begin
end;
end;
procedure THTMLBrowserHelpViewer.FindDefaultBrowser(var Browser, Params: string);
procedure THTMLBrowserHelpViewer.FindDefaultBrowser(out Browser, Params: string);
begin
if FDefaultBrowser='' then
begin