summaryrefslogtreecommitdiff
path: root/uidesigner
diff options
context:
space:
mode:
authorGraeme Geldenhuys <graeme@mastermaths.co.za>2010-03-04 13:21:40 +0200
committerGraeme Geldenhuys <graeme@mastermaths.co.za>2010-03-04 13:21:40 +0200
commit1848688549c006dc5e1aaa71b6b8eae60c53b58f (patch)
tree8ffe44468b899200a757dcb851cf94ba74c23d9d /uidesigner
parent41b8a4ebf5154ff6e93208f6ce98e728000566f4 (diff)
downloadfpGUI-1848688549c006dc5e1aaa71b6b8eae60c53b58f.tar.xz
UI Designer: Add Color Listbox widget to component palette.
Diffstat (limited to 'uidesigner')
-rw-r--r--uidesigner/vfdwidgets.pas17
1 files changed, 17 insertions, 0 deletions
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';