From 2fec6c6948b18f1f1b87a1294dd43a0d1c1a961d Mon Sep 17 00:00:00 2001 From: Graeme Geldenhuys Date: Thu, 15 Apr 2010 20:54:20 +0200 Subject: UI Designer: registered TfpgDirectoryEdit in component palette. --- uidesigner/vfdwidgets.pas | 16 +++++++++++++++- 1 file changed, 15 insertions(+), 1 deletion(-) (limited to 'uidesigner/vfdwidgets.pas') diff --git a/uidesigner/vfdwidgets.pas b/uidesigner/vfdwidgets.pas index be82bf25..7188aabb 100644 --- a/uidesigner/vfdwidgets.pas +++ b/uidesigner/vfdwidgets.pas @@ -285,6 +285,10 @@ begin sizeof(stdimg_vfd_editfilename), 0, 0); + fpgImages.AddMaskedBMP( + 'vfd.editdirectory', @stdimg_vfd_editdirectory, + sizeof(stdimg_vfd_editdirectory), + 0, 0); end; procedure AddWidgetPosProps(wgc: TVFDWidgetClass); @@ -725,13 +729,23 @@ begin wc := TVFDWidgetClass.Create(TfpgFileNameEdit); wc.NameBase := 'FilenameEdit'; wc.AddProperty('ExtraHint', TPropertyString, ''); - wc.AddProperty('FileName', TPropertyString, 'Initial starting directory of the dialog'); + wc.AddProperty('FileName', TPropertyString, 'Preset filename in edit component'); wc.AddProperty('InitialDir', TPropertyString, 'Initial starting directory of the dialog'); wc.AddProperty('Filter', TPropertyString, 'Filename filters used in the dialog'); wc.AddProperty('TabOrder', TPropertyInteger, 'The tab order'); wc.WidgetIconName := 'vfd.editfilename'; RegisterVFDWidget(wc); + // Directory Edit + wc := TVFDWidgetClass.Create(TfpgDirectoryEdit); + wc.NameBase := 'DirectoryEdit'; + wc.AddProperty('ExtraHint', TPropertyString, ''); + wc.AddProperty('Directory', TPropertyString, 'Preset directory name in edit component'); + wc.AddProperty('RootDirectory', TPropertyString, 'Initial starting directory of the dialog'); + wc.AddProperty('TabOrder', TPropertyInteger, 'The tab order'); + wc.WidgetIconName := 'vfd.editdirectory'; + RegisterVFDWidget(wc); + // Other - do not delete!!! this should be the last... wc := TVFDWidgetClass.Create(TOtherWidget); wc.NameBase := 'Custom'; -- cgit v1.2.3-70-g09d2