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

simplewebservergui: fixed compile

Browse Source
This commit is contained in:
mattias 2022-04-11 10:11:56 +02:00
parent cc2965e11f
commit 554949f751
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/simplewebservergui/simplewebsrvcontroller.pas
View File

@ -1868,7 +1868,7 @@ begin
end; end;
{$IFDEF Darwin} {$IFDEF Darwin}
function TTMSWebcoreIDEOptions.GetBrowserEdge(URL: string; Params: TStrings function TSimpleWebServerController.GetBrowserSafari(URL: string; Params: TStrings
): string; ): string;
begin begin
Result := FindBrowserPath(['/Applications/Safari.app/Contents/MacOS/Safari','safari'],URL,Params); Result := FindBrowserPath(['/Applications/Safari.app/Contents/MacOS/Safari','safari'],URL,Params);
@ -1876,7 +1876,7 @@ end;
{$ENDIF} {$ENDIF}
{$IFDEF MSWindows} {$IFDEF MSWindows}
function TTMSWebcoreIDEOptions.GetBrowserEdge(URL: string; Params: TStrings function TSimpleWebServerController.GetBrowserEdge(URL: string; Params: TStrings
): string; ): string;
begin begin
Result := FindBrowserPath(['edge'],URL,Params); Result := FindBrowserPath(['edge'],URL,Params);