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 | |
| parent | 763b3fbe8b6d7c32afaaffa972ad78fbabeed7f4 (diff) | |
| download | fpGUI-e907aa4eb5ff0144c1a150252d131b0f46039b43.tar.xz | |
docview: Activated the "Help using DocView" menu option.
Diffstat (limited to 'docview/src')
| -rw-r--r-- | docview/src/docview.lpi | 10 | ||||
| -rw-r--r-- | docview/src/frm_main.pas | 10 |
2 files changed, 18 insertions, 2 deletions
diff --git a/docview/src/docview.lpi b/docview/src/docview.lpi index f64b028f..8e7fecc4 100644 --- a/docview/src/docview.lpi +++ b/docview/src/docview.lpi @@ -202,7 +202,17 @@ <OptimizationLevel Value="0"/> </Optimizations> </CodeGeneration> + <Linking> + <Options> + <Win32> + <GraphicApplication Value="True"/> + </Win32> + </Options> + </Linking> <Other> + <CompilerMessages> + <UseMsgFile Value="True"/> + </CompilerMessages> <CustomOptions Value="-O-"/> <CompilerPath Value="$(CompPath)"/> </Other> 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); |