UI Designer: Registered the new TfpgFontEdit in component palette.

1 files changed, 13 insertions, 0 deletions

diff --git a/uidesigner/vfdwidgets.pas b/uidesigner/vfdwidgets.pas
index 7188aabb..f2c9cd57 100644
--- a/uidesigner/vfdwidgets.pas
+++ b/uidesigner/vfdwidgets.pas
@@ -289,6 +289,11 @@ begin
     'vfd.editdirectory', @stdimg_vfd_editdirectory,
     sizeof(stdimg_vfd_editdirectory),
     0, 0);
+
+  fpgImages.AddMaskedBMP(
+    'vfd.editfont', @stdimg_vfd_editfont,
+    sizeof(stdimg_vfd_editfont),
+    0, 0);
 end;
 
 procedure AddWidgetPosProps(wgc: TVFDWidgetClass);
@@ -746,6 +751,14 @@ begin
   wc.WidgetIconName := 'vfd.editdirectory';
   RegisterVFDWidget(wc);
 
+  // Font Edit
+  wc          := TVFDWidgetClass.Create(TfpgFontEdit);
+  wc.NameBase := 'DirectoryEdit';
+  wc.AddProperty('FontDesc', TPropertyString, 'Specify a preset font description');
+  wc.AddProperty('TabOrder', TPropertyInteger, 'The tab order');
+  wc.WidgetIconName := 'vfd.editfont';
+  RegisterVFDWidget(wc);
+
   // Other - do not delete!!! this should be the last...
   wc          := TVFDWidgetClass.Create(TOtherWidget);
   wc.NameBase := 'Custom';