From 377561431c9805cdbf75a864c8305c044410726b Mon Sep 17 00:00:00 2001
From: Graeme Geldenhuys <graemeg@gmail.com>
Date: Thu, 15 Apr 2010 19:00:43 +0200
Subject: FilenameEdit: exposed the ExtraHint property of the embedded Edit
 component.

---
 src/gui/fpg_editbtn.pas | 13 +++++++++++++
 1 file changed, 13 insertions(+)

(limited to 'src')

diff --git a/src/gui/fpg_editbtn.pas b/src/gui/fpg_editbtn.pas
index 785c6ecd..ad9940d6 100644
--- a/src/gui/fpg_editbtn.pas
+++ b/src/gui/fpg_editbtn.pas
@@ -40,6 +40,8 @@ type
     FFilter: TfpgString;
     FOnButtonClick: TNotifyEvent;
     FInitialDir: TfpgString;
+    function GetExtraHint: TfpgString;
+    procedure SetExtraHint(const AValue: TfpgString);
     procedure SetFilter(const AValue: TfpgString);
     procedure btnClick(Sender: TObject);
     procedure SetFileName(const AValue: TfpgString);
@@ -50,6 +52,7 @@ type
     constructor Create(AOwner: TComponent); override;
     procedure SetPosition(aleft, atop, awidth, aheight: TfpgCoord); override;
   published
+    property ExtraHint: TfpgString read GetExtraHint write SetExtraHint;
     property FileName: TfpgString read GetFileName write SetFileName;
     property InitialDir: TfpgString read FInitialDir write FInitialDir;
     property Filter: TfpgString read FFilter write SetFilter;
@@ -107,6 +110,16 @@ begin
   FFilter := AValue;
 end;
 
+function TfpgFileNameEdit.GetExtraHint: TfpgString;
+begin
+  Result := FEdit.ExtraHint;
+end;
+
+procedure TfpgFileNameEdit.SetExtraHint(const AValue: TfpgString);
+begin
+  FEdit.ExtraHint := AValue;
+end;
+
 procedure TfpgFileNameEdit.SetPosition(aleft, atop, awidth, aheight: TfpgCoord);
 begin
   inherited SetPosition(aleft, atop, awidth, aheight);
-- 
cgit v1.2.3-70-g09d2