paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-13 14:29:33 +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 implementation
uses uses
SysUtils, FileUtils, Forms, Windows; {$ifndef fpc}Windows, {$endif}SysUtils, FileUtils, Forms;
function GetHelpFilePath: string; function GetHelpFilePath: string;
var var
@ -80,6 +80,7 @@ var
begin begin
HelpFilePath := IncludeTrailingPathDelimiter(ExtractFilePath(Application.ExeName)) + HelpFilePath := IncludeTrailingPathDelimiter(ExtractFilePath(Application.ExeName)) +
HELP_FILE_NAME; HELP_FILE_NAME;
{$ifndef fpc}
if not FileExists(HelpFilePath) then if not FileExists(HelpFilePath) then
begin begin
HelpFilePath := IncludeTrailingPathDelimiter( HelpFilePath := IncludeTrailingPathDelimiter(
@ -122,6 +123,7 @@ begin
end; end;
end; end;
end; end;
{$endif}
Result := HelpFilePath; Result := HelpFilePath;
end; end;