From ad18775da3754e7243bdf30ff158a7d366363dc7 Mon Sep 17 00:00:00 2001
From: Graeme Geldenhuys <graemeg@gmail.com>
Date: Wed, 3 Apr 2013 14:21:51 +0100
Subject: docview: Help button in Notes dialog is now functional.

---
 docview/src/frm_note.pas | 17 ++++++++++++++++-
 1 file changed, 16 insertions(+), 1 deletion(-)

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);
-- 
cgit v1.2.3-70-g09d2