FilenameEdit: exposed the ExtraHint property of the embedded Edit component.

1 files changed, 13 insertions, 0 deletions

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);