paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-10 01:59:53 +02:00
Code Issues Packages Projects Releases Wiki Activity

htmlhelp: shortcut

Browse Source 
git-svn-id: trunk@37980 -
This commit is contained in:
mattias 2012-07-20 11:33:41 +00:00
parent 691d97a22f
commit 40f74104a7
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
examples/helphtml/unit1.pas
View File

@ -87,12 +87,16 @@ begin
end;
procedure TForm1.FormCreate(Sender: TObject);
const
{$IFDEF Darwin}
HelpShortcut = #$e2#$8c#$98'?';
{$ELSE}
HelpShortcut = 'F1'';
{$ENDIF}
begin
HTMLHelpDatabase1.BaseURL:='file://html';
{$ifdef darwin}
Edit1.Text:='Edit1 - Press '+#$e2#$8c#$98'?'+' for help';
Edit2.Text:='Edit2 - Press '+#$e2#$8c#$98'?'+' for help';
{$endif}
Edit1.Text:='Edit1 - Press '+HelpShortcut+' for help';
Edit2.Text:='Edit2 - Press '+HelpShortcut+' for help';
end;
{$R *.lfm}