paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-28 09:01:33 +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 uses
{ delphi } { delphi }
Windows, SysUtils, Classes, Controls, Forms, {$ifndef fpc}
ComCtrls, ExtCtrls, StdCtrls, ShellAPI, Windows, ShellAPI,
{$endif}
SysUtils, Classes, Controls, Forms,
ComCtrls, ExtCtrls, StdCtrls,
{ local } { local }
ParseTreeNode; ParseTreeNode;
@ -315,6 +318,7 @@ end;
procedure TfrmShowParseTree.FormKeyUp(Sender: TObject; var Key: word; procedure TfrmShowParseTree.FormKeyUp(Sender: TObject; var Key: word;
Shift: TShiftState); Shift: TShiftState);
begin begin
{$ifndef fpc}
if Key = VK_F1 then if Key = VK_F1 then
try try
Application.HelpContext(HELP_MAIN); Application.HelpContext(HELP_MAIN);
@ -322,6 +326,7 @@ begin
if FileExists(Application.HelpFile) then if FileExists(Application.HelpFile) then
ShellExecute(Handle, 'open', PChar(Application.HelpFile), nil, nil, SW_SHOWNORMAL); ShellExecute(Handle, 'open', PChar(Application.HelpFile), nil, nil, SW_SHOWNORMAL);
end; end;
{$endif}
end; end;
initialization initialization