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

jcf: fix JCFHelp compilation on linux

Browse Source 
git-svn-id: trunk@17824 -
This commit is contained in:
paul 2008-12-13 02:58:28 +00:00
parent 9b9281a5ed
commit ebd3475a31
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/jcf2/Utils/JCFHelp.pas
View File

@ -72,7 +72,7 @@ const
implementation
uses
SysUtils, FileUtils, Forms, Windows;
{$ifndef fpc}Windows, {$endif}SysUtils, FileUtils, Forms;
function GetHelpFilePath: string;
var
@ -80,6 +80,7 @@ var
begin
HelpFilePath := IncludeTrailingPathDelimiter(ExtractFilePath(Application.ExeName)) +
HELP_FILE_NAME;
{$ifndef fpc}
if not FileExists(HelpFilePath) then
begin
HelpFilePath := IncludeTrailingPathDelimiter(
@ -122,6 +123,7 @@ begin
end;
end;
end;
{$endif}
Result := HelpFilePath;
end;