UI Designer: Adds TfpgFilenameEdit to the component palette.

1 files changed, 16 insertions, 0 deletions

diff --git a/uidesigner/vfdwidgets.pas b/uidesigner/vfdwidgets.pas
index 112462f4..7a564327 100644
--- a/uidesigner/vfdwidgets.pas
+++ b/uidesigner/vfdwidgets.pas
@@ -63,6 +63,7 @@ uses
   fpg_tab,
   fpg_popupcalendar,
   fpg_gauge,
+  fpg_editbtn,
   vfdpropeditgrid,
   vfdmain;
 
@@ -279,6 +280,11 @@ begin
     sizeof(stdimg_vfd_combodatecheckedit),
     0, 0);
 
+  fpgImages.AddMaskedBMP(
+    'vfd.editfilename', @stdimg_vfd_editfilename,
+    sizeof(stdimg_vfd_editfilename),
+    0, 0);
+
 end;
 
 procedure AddWidgetPosProps(wgc: TVFDWidgetClass);
@@ -714,6 +720,16 @@ begin
   //wc.WidgetIconName := 'vfd.editfloat';
   //RegisterVFDWidget(wc);
 
+  // Filename Edit
+  wc          := TVFDWidgetClass.Create(TfpgFileNameEdit);
+  wc.NameBase := 'FilenameEdit';
+  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');
+  wc.AddProperty('TabOrder', TPropertyInteger, 'The tab order');
+  wc.WidgetIconName := 'vfd.editfilename';
+  RegisterVFDWidget(wc);
+
   // Other - do not delete!!! this should be the last...
   wc          := TVFDWidgetClass.Create(TOtherWidget);
   wc.NameBase := 'Custom';