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