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

12
components/orpheus/ovcabot0.pas
View File

@ -134,10 +134,10 @@ begin
'', '', SW_SHOWNORMAL) <= 32 '', '', SW_SHOWNORMAL) <= 32
{$ELSE} {$ELSE}
{$IFDEF DARWIN} {$IFDEF DARWIN}
if Shell('Open http://sourceforge.net/projects/tporpheus/') = 127 if fpSystem('Open http://sourceforge.net/projects/tporpheus/') = 127
{$ELSE} {$ELSE}
if (GetBrowserPath = '') or if (GetBrowserPath = '') or
(Shell(GetBrowserPath + ' http://sourceforge.net/projects/tporpheus/') = 127) (fpSystem(GetBrowserPath + ' http://sourceforge.net/projects/tporpheus/') = 127)
{$ENDIF} {$ENDIF}
{$ENDIF} {$ENDIF}
then then
@ -156,10 +156,10 @@ begin
SW_SHOWNORMAL) <= 32 SW_SHOWNORMAL) <= 32
{$ELSE} {$ELSE}
{$IFDEF DARWIN} {$IFDEF DARWIN}
if Shell('Open http://sourceforge.net/forum/forum.php?forum_id=241874') = 127 if fpSystem('Open http://sourceforge.net/forum/forum.php?forum_id=241874') = 127
{$ELSE} {$ELSE}
if (GetBrowserPath = '') or if (GetBrowserPath = '') or
(Shell(GetBrowserPath + ' http://sourceforge.net/forum/forum.php?forum_id=241874') = 127) (fpSystem(GetBrowserPath + ' http://sourceforge.net/forum/forum.php?forum_id=241874') = 127)
{$ENDIF} {$ENDIF}
{$ENDIF} {$ENDIF}
then then
@ -178,10 +178,10 @@ begin
SW_SHOWNORMAL) <= 32 SW_SHOWNORMAL) <= 32
{$ELSE} {$ELSE}
{$IFDEF DARWIN} {$IFDEF DARWIN}
if Shell('Open http://sourceforge.net/forum/forum.php?forum_id=241873') = 127 if fpSystem('Open http://sourceforge.net/forum/forum.php?forum_id=241873') = 127
{$ELSE} {$ELSE}
if (GetBrowserPath = '') or if (GetBrowserPath = '') or
(Shell(GetBrowserPath + ' http://sourceforge.net/forum/forum.php?forum_id=241873') = 127) (fpSystem(GetBrowserPath + ' http://sourceforge.net/forum/forum.php?forum_id=241873') = 127)
{$ENDIF} {$ENDIF}
{$ENDIF} {$ENDIF}
then then

4
components/orpheus/ovcurl.pas
View File

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