diff options
author | Graeme Geldenhuys <graemeg@gmail.com> | 2013-04-03 14:21:51 +0100 |
---|---|---|
committer | Graeme Geldenhuys <graemeg@gmail.com> | 2013-04-03 14:21:51 +0100 |
commit | ad18775da3754e7243bdf30ff158a7d366363dc7 (patch) | |
tree | 008f1fde35f5db2086d8614d11a10d5c7c13e220 /docview/src | |
parent | 68a0c5357a9efd9c6184dd0b93593f192f377a23 (diff) | |
download | fpGUI-ad18775da3754e7243bdf30ff158a7d366363dc7.tar.xz |
docview: Help button in Notes dialog is now functional.
Diffstat (limited to 'docview/src')
-rw-r--r-- | docview/src/frm_note.pas | 17 |
1 files changed, 16 insertions, 1 deletions
diff --git a/docview/src/frm_note.pas b/docview/src/frm_note.pas index 2e280a89..310cc252 100644 --- a/docview/src/frm_note.pas +++ b/docview/src/frm_note.pas @@ -5,7 +5,13 @@ unit frm_note; interface uses - SysUtils, Classes, fpg_base, fpg_main, fpg_form, fpg_memo, fpg_button; + SysUtils, + Classes, + fpg_base, + fpg_main, + fpg_form, + fpg_memo, + fpg_button; type @@ -23,6 +29,7 @@ type function GetText: TfpgString; procedure SetText(const AValue: TfpgString); procedure SetCanDelete(const AValue: boolean); + procedure btnHelpClicked(Sender: TObject); public procedure AfterCreate; override; property Text: TfpgString read GetText write SetText; @@ -56,6 +63,11 @@ begin btnDelete.Enabled := FCanDelete; end; +procedure TNoteForm.btnHelpClicked(Sender: TObject); +begin + InvokeHelp; +end; + procedure TNoteForm.AfterCreate; begin {%region 'Auto-generated GUI code' -fold} @@ -65,6 +77,8 @@ begin WindowTitle := 'Notes'; Hint := ''; OnShow := @FormShow; + HelpType := htContext; + HelpContext := 7; Memo1 := TfpgMemo.Create(self); with Memo1 do @@ -102,6 +116,7 @@ begin Hint := ''; ImageName := ''; TabOrder := 3; + OnClick := @btnHelpClicked; end; btnCancel := TfpgButton.Create(self); |