paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-08 09:38:12 +02:00
Code Issues Packages Projects Releases Wiki Activity

jcf: next linux fix

Browse Source 
git-svn-id: trunk@17823 -
This commit is contained in:
paul 2008-12-13 02:11:59 +00:00
parent 8a4c3b1625
commit 9b9281a5ed
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
components/jcf2/Parse/UI/fShowParseTree.pas
View File

@ -39,8 +39,11 @@ interface
uses
{ delphi }
Windows, SysUtils, Classes, Controls, Forms,
ComCtrls, ExtCtrls, StdCtrls, ShellAPI,
{$ifndef fpc}
Windows, ShellAPI,
{$endif}
SysUtils, Classes, Controls, Forms,
ComCtrls, ExtCtrls, StdCtrls,
{ local }
ParseTreeNode;
@ -315,6 +318,7 @@ end;
procedure TfrmShowParseTree.FormKeyUp(Sender: TObject; var Key: word;
Shift: TShiftState);
begin
{$ifndef fpc}
if Key = VK_F1 then
try
Application.HelpContext(HELP_MAIN);
@ -322,6 +326,7 @@ begin
if FileExists(Application.HelpFile) then
ShellExecute(Handle, 'open', PChar(Application.HelpFile), nil, nil, SW_SHOWNORMAL);
end;
{$endif}
end;
initialization