summaryrefslogtreecommitdiff
path: root/uidesigner/vfdwidgets.pas
diff options
context:
space:
mode:
Diffstat (limited to 'uidesigner/vfdwidgets.pas')
-rw-r--r--uidesigner/vfdwidgets.pas16
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';