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

simplewebservergui: added vivaldi to browser list

Browse Source
This commit is contained in:
mattias 2022-04-11 12:13:53 +02:00
parent cc1df1011b
commit 59a8e8e6c9
2 changed files with 15 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
components/simplewebservergui/simplewebsrvcontroller.pas
View File

@ -252,6 +252,7 @@ type
function GetBrowserChrome(URL: string; Params: TStrings): string; virtual; function GetBrowserChrome(URL: string; Params: TStrings): string; virtual;
function GetBrowserFirefox(URL: string; Params: TStrings): string; virtual; function GetBrowserFirefox(URL: string; Params: TStrings): string; virtual;
function GetBrowserOpera(URL: string; Params: TStrings): string; virtual; function GetBrowserOpera(URL: string; Params: TStrings): string; virtual;
function GetBrowserVivaldi(URL: string; Params: TStrings): string; virtual;
{$IFDEF Darwin} {$IFDEF Darwin}
function GetBrowserSafari(URL: string; Params: TStrings): string; virtual; function GetBrowserSafari(URL: string; Params: TStrings): string; virtual;
{$ENDIF} {$ENDIF}
@ -1761,6 +1762,7 @@ begin
swsbkFirefox: Exe:=GetBrowserFirefox(URL,Params); swsbkFirefox: Exe:=GetBrowserFirefox(URL,Params);
swsbkChrome: Exe:=GetBrowserChrome(URL,Params); swsbkChrome: Exe:=GetBrowserChrome(URL,Params);
swsbkOpera: Exe:=GetBrowserOpera(URL,Params); swsbkOpera: Exe:=GetBrowserOpera(URL,Params);
swsbkVivaldi: Exe:=GetBrowserVivaldi(URL,Params);
{$IFDEF Darwin} {$IFDEF Darwin}
swsbkSafari: Exe:=GetBrowserSafari(URL,Params); swsbkSafari: Exe:=GetBrowserSafari(URL,Params);
{$ENDIF} {$ENDIF}
@ -1864,7 +1866,17 @@ end;
function TSimpleWebServerController.GetBrowserOpera(URL: string; function TSimpleWebServerController.GetBrowserOpera(URL: string;
Params: TStrings): string; Params: TStrings): string;
begin begin
Result := FindBrowserPath(['opera'],URL,Params); Result := FindBrowserPath([
{$IFDEF Darwin}'/Applications/Opera.app/Contents/MacOS/Opera',{$ENDIF}
'opera'],URL,Params);
end;
function TSimpleWebServerController.GetBrowserVivaldi(URL: string;
Params: TStrings): string;
begin
Result := FindBrowserPath([
{$IFDEF Darwin}'/Applications/Vivaldi.app/Contents/MacOS/Vivaldi',{$ENDIF}
'vivaldi'],URL,Params);
end; end;
{$IFDEF Darwin} {$IFDEF Darwin}

2
components/simplewebservergui/simplewebsrvoptions.pas
View File

@ -58,6 +58,7 @@ type
swsbkFirefox, swsbkFirefox,
swsbkChrome, swsbkChrome,
swsbkOpera, swsbkOpera,
swsbkVivaldi,
{$IFDEF Darwin} {$IFDEF Darwin}
swsbkSafari, swsbkSafari,
{$ENDIF} {$ENDIF}
@ -74,6 +75,7 @@ const
'Firefox', 'Firefox',
'Chrome', 'Chrome',
'Opera', 'Opera',
'Vivaldi',
{$IFDEF Darwin} {$IFDEF Darwin}
'Safari', 'Safari',
{$ENDIF} {$ENDIF}