From 823367c10aa6202fcc68f338bacd6e46c73d4b13 Mon Sep 17 00:00:00 2001
From: Graeme Geldenhuys <graeme@mastermaths.co.za>
Date: Fri, 16 Apr 2010 13:07:27 +0200
Subject: UI Designer: Registered the new TfpgFontEdit in component palette.

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

(limited to 'uidesigner/vfdwidgets.pas')

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