diff options
author | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2010-08-24 12:50:09 +0200 |
---|---|---|
committer | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2010-08-24 12:50:09 +0200 |
commit | e907aa4eb5ff0144c1a150252d131b0f46039b43 (patch) | |
tree | 76c781097bc4078860897c3dc6a45e8b6beacfb6 /docview/src/frm_main.pas | |
parent | 763b3fbe8b6d7c32afaaffa972ad78fbabeed7f4 (diff) | |
download | fpGUI-e907aa4eb5ff0144c1a150252d131b0f46039b43.tar.xz |
docview: Activated the "Help using DocView" menu option.
Diffstat (limited to 'docview/src/frm_main.pas')
-rw-r--r-- | docview/src/frm_main.pas | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/docview/src/frm_main.pas b/docview/src/frm_main.pas index bb1094b4..8b4698d1 100644 --- a/docview/src/frm_main.pas +++ b/docview/src/frm_main.pas @@ -109,6 +109,7 @@ type procedure miHelpProdInfoClicked(Sender: TObject); procedure miHelpAboutFPGui(Sender: TObject); procedure miHelpCmdLineParams(Sender: TObject); + procedure miHelpUsingDocView(Sender: TObject); procedure miDebugHeader(Sender: TObject); procedure miDebugHex(Sender: TObject); procedure miFileSaveTopicAsIPF(Sender: TObject); @@ -420,6 +421,12 @@ begin ShowCmdLineParamHelp; end; +procedure TMainForm.miHelpUsingDocView(Sender: TObject); +begin + CloseFile(False); + OpenFile(OWN_HELP_MARKER, '', True); +end; + procedure TMainForm.miDebugHeader(Sender: TObject); var f: THelpFile; @@ -2284,8 +2291,7 @@ begin begin Name := 'miHelp'; SetPosition(292, 168, 132, 20); - AddMenuItem('Contents...', '', nil); - AddMenuItem('Help using help', '', nil); + AddMenuItem('Help using DocView', 'F1', @miHelpUsingDocView); AddMenuItem('Command line parameters', '', @miHelpCmdLineParams); AddMenuItem('-', '', nil); AddMenuItem('Show help file header info', '', @miDebugHeader); |