From c69c88b845b77228f8b1e0d323089b47b61ca9b4 Mon Sep 17 00:00:00 2001
From: Graeme Geldenhuys <graemeg@gmail.com>
Date: Mon, 23 Nov 2009 22:54:09 +0200
Subject: Add a Hint property to TfpgMenuItem.

* I'm unsure of how exactly I want to use it and how it can tie
  into a StatusBar component. I'll try and come up with some
  demo in the future.
---
 src/gui/fpg_menu.pas | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'src')

diff --git a/src/gui/fpg_menu.pas b/src/gui/fpg_menu.pas
index 8031f4f1..fb77f55b 100644
--- a/src/gui/fpg_menu.pas
+++ b/src/gui/fpg_menu.pas
@@ -58,6 +58,7 @@ type
   private
     FCommand: ICommand;
     FEnabled: boolean;
+    FHint: TfpgString;
     FHotKeyDef: TfpgHotKeyDef;
     FOnClick: TNotifyEvent;
     FSeparator: boolean;
@@ -81,6 +82,7 @@ type
     procedure   SetCommand(ACommand: ICommand);
     property    Checked: boolean read FChecked write SetChecked;
     property    Text: TfpgString read FText write SetText;
+    property    Hint: TfpgString read FHint write FHint;
     property    HotKeyDef: TfpgHotKeyDef read FHotKeyDef write SetHotKeyDef;
     property    Separator: boolean read FSeparator write SetSeparator;
     property    Visible: boolean read FVisible write SetVisible;
-- 
cgit v1.2.3-70-g09d2