UI Designer: registered TfpgDirectoryEdit in component palette.

1 files changed, 15 insertions, 1 deletions

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