pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

Minor changes so it compiles with FPC 3.0 on non-Windows platforms.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4454 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
macpgmr
2016-01-22 14:53:52 +00:00
parent 275b48e7ca
commit 3611a8ccbf
2 changed files with 8 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
components/orpheus/ovcurl.pas
View File

@ -178,11 +178,11 @@ begin
begin
if URL > '' then begin
{$IFDEF DARWIN}
if Shell('Open ' + URL) = 127 then
if fpSystem('Open ' + URL) = 127 then
MessageBeep(0);
{$ELSE}
if (GetBrowserPath = '') or
(Shell(GetBrowserPath + ' ' + URL) = 127) then
(fpSystem(GetBrowserPath + ' ' + URL) = 127) then
MessageBeep(0);
{$ENDIF}
end;