From b9bd131f2fa0f46f3c86a4acb7d2e354a0eebe18 Mon Sep 17 00:00:00 2001
From: Graeme Geldenhuys <graeme@mastermaths.co.za>
Date: Thu, 15 Apr 2010 17:15:33 +0200
Subject: UI Designer: Adds TfpgFilenameEdit to the component palette.

---
 uidesigner/vfdwidgets.pas | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)

(limited to 'uidesigner/vfdwidgets.pas')

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';
-- 
cgit v1.2.3-70-g09d2