From 1848688549c006dc5e1aaa71b6b8eae60c53b58f Mon Sep 17 00:00:00 2001
From: Graeme Geldenhuys <graeme@mastermaths.co.za>
Date: Thu, 4 Mar 2010 13:21:40 +0200
Subject: UI Designer: Add Color Listbox widget to component palette.

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

(limited to 'uidesigner/vfdwidgets.pas')

diff --git a/uidesigner/vfdwidgets.pas b/uidesigner/vfdwidgets.pas
index ba035a81..1cac5750 100644
--- a/uidesigner/vfdwidgets.pas
+++ b/uidesigner/vfdwidgets.pas
@@ -444,6 +444,23 @@ begin
   wc.WidgetIconName := 'vfd.listbox';
   RegisterVFDWidget(wc);
 
+  // Color ListBox
+  wc          := TVFDWidgetClass.Create(TfpgColorListBox);
+  wc.NameBase := 'ColorListBox';
+  wc.AddProperty('AutoHeight', TPropertyBoolean, '');
+  wc.AddProperty('ColorPalette', TPropertyEnum, '');
+  wc.Addproperty('DragToReorder', TPropertyBoolean, '');
+  wc.AddProperty('FontDesc', TPropertyFontDesc, 'The font used for displaying the text');
+  wc.AddProperty('Hint', TPropertyString, 'Tooltip hint');
+  wc.AddProperty('HotTrack', TPropertyBoolean, '');
+  wc.AddProperty('ParentShowHint', TPropertyBoolean, '');
+  wc.AddProperty('PopupFrame', TPropertyBoolean, '');
+  wc.AddProperty('ShowColorNames', TPropertyBoolean, '');
+  wc.AddProperty('ShowHint', TPropertyBoolean, '');
+  wc.AddProperty('TabOrder', TPropertyInteger, 'The tab order');
+  wc.WidgetIconName := 'vfd.colorlistbox';
+  RegisterVFDWidget(wc);
+
   // StringGrid
   wc := TVFDWidgetClass.Create(TfpgStringGrid);
   wc.NameBase := 'Grid';
-- 
cgit v1.2.3-70-g09d2