From 4919001acc932b90cf716d682351571dfe8d1d55 Mon Sep 17 00:00:00 2001 From: Graeme Geldenhuys Date: Thu, 15 Apr 2010 19:01:11 +0200 Subject: UI Designer: exposed the ExtraHint property of TfpgEdit and TfpgFilenameEdit --- uidesigner/vfdwidgets.pas | 2 ++ 1 file changed, 2 insertions(+) (limited to 'uidesigner') diff --git a/uidesigner/vfdwidgets.pas b/uidesigner/vfdwidgets.pas index 7a564327..be82bf25 100644 --- a/uidesigner/vfdwidgets.pas +++ b/uidesigner/vfdwidgets.pas @@ -330,6 +330,7 @@ begin wc.AddProperty('AutoSelect', TPropertyBoolean, 'On receiving focus, auto select text'); wc.AddProperty('AutoSize', TPropertyBoolean, 'Change Height based on FontDesc being set'); wc.AddProperty('BorderStyle', TPropertyEnum, ''); + wc.AddProperty('ExtraHint', TPropertyString, ''); wc.AddProperty('Hint', TPropertyString, 'Tooltip hint'); wc.AddProperty('TabOrder', TPropertyInteger, 'The tab order'); wc.AddProperty('Text', TPropertyString, 'Initial text'); @@ -723,6 +724,7 @@ begin // Filename Edit wc := TVFDWidgetClass.Create(TfpgFileNameEdit); wc.NameBase := 'FilenameEdit'; + wc.AddProperty('ExtraHint', TPropertyString, ''); wc.AddProperty('FileName', TPropertyString, 'Initial starting directory of the dialog'); wc.AddProperty('InitialDir', TPropertyString, 'Initial starting directory of the dialog'); wc.AddProperty('Filter', TPropertyString, 'Filename filters used in the dialog'); -- cgit v1.2.3-70-g09d2