uidesigner: registered Enabled and all color related properties with Object Inspector

1 files changed, 126 insertions, 37 deletions

diff --git a/uidesigner/vfdwidgets.pas b/uidesigner/vfdwidgets.pas
index b1b9392d..ad45c113 100644
--- a/uidesigner/vfdwidgets.pas
+++ b/uidesigner/vfdwidgets.pas
@@ -324,21 +324,32 @@ begin
   wc          := TVFDWidgetClass.Create(TfpgForm);
   wc.NameBase := 'frm';
   wc.AddProperty('WindowTitle', TPropertyString, '');
-//  wc.AddProperty('WindowPosition', TPropertyEnum, '');
   wc.AddProperty('Hint', TPropertyString, 'Tooltip hint');
   wc.AddProperty('ShowHint', TPropertyBoolean, '');
+  wc.AddProperty('Sizeable', TPropertyBoolean, 'Can the form be resized at runtime');
+  //wc.AddProperty('BackgroundColor', TPropertyColor, '');
+  //wc.AddProperty('TextColor', TPropertyColor, '');
+  //wc.AddProperty('MaxHeight', TPropertyInteger, '');
+  //wc.AddProperty('MaxWidth', TPropertyInteger, '');
+  //wc.AddProperty('MinHeight', TPropertyInteger, '');
+  //wc.AddProperty('MinWidth', TPropertyInteger, '');
+  //wc.AddProperty('FullScreen', TPropertyBoolean, '');
+  //wc.AddProperty('WindowPosition', TPropertyEnum, '');
   FVFDFormWidget := wc;
 
   // Label
   wc          := TVFDWidgetClass.Create(TfpgLabel);
   wc.NameBase := 'Label';
   wc.AddProperty('Alignment', TPropertyEnum, 'Horizontal text alignment');
+  wc.AddProperty('BackgroundColor', TPropertyColor, '');
+  wc.AddProperty('Enabled', TPropertyBoolean, '');
   wc.AddProperty('FontDesc', TPropertyFontDesc, 'The font used for displaying the label text');
   wc.AddProperty('Hint', TPropertyString, 'Tooltip hint');
   wc.AddProperty('Layout', TPropertyEnum, 'Vertical text layout');
   wc.AddProperty('ParentShowHint', TPropertyBoolean, '');
   wc.AddProperty('ShowHint', TPropertyBoolean, '');
   wc.AddProperty('Text', TPropertyString, 'Label text');
+  wc.AddProperty('TextColor', TPropertyColor, '');
   wc.AddProperty('WrapText', TPropertyBoolean, 'If True text will wrap when it doesn''t fit the width');
   wc.WidgetIconName := 'vfd.label';
   RegisterVFDWidget(wc);
@@ -346,30 +357,35 @@ begin
   // Edit
   wc          := TVFDWidgetClass.Create(TfpgEdit);
   wc.NameBase := 'Edit';
-//  wc.AddProperty('Color', TPropertyColor, 'Text color');
   wc.AddProperty('AutoSelect', TPropertyBoolean, 'On receiving focus, auto select text');
   wc.AddProperty('AutoSize', TPropertyBoolean, 'Change Height based on FontDesc being set');
+  wc.AddProperty('BackgroundColor', TPropertyColor, '');
   wc.AddProperty('BorderStyle', TPropertyEnum, '');
+  wc.AddProperty('Enabled', TPropertyBoolean, '');
   wc.AddProperty('ExtraHint', TPropertyString, '');
-  wc.AddProperty('Hint', TPropertyString, 'Tooltip hint');
-  wc.AddProperty('TabOrder', TPropertyInteger, 'The tab order');
-  wc.AddProperty('Text', TPropertyString, 'Initial text');
   wc.AddProperty('FontDesc', TPropertyFontDesc, 'The font used for displaying the text');
+  wc.AddProperty('Hint', TPropertyString, 'Tooltip hint');
   wc.AddProperty('IgnoreMouseCursor', TPropertyBoolean, 'If True, then mouse pointer doesn''t change');
   wc.AddProperty('ParentShowHint', TPropertyBoolean, '');
   wc.AddProperty('ShowHint', TPropertyBoolean, '');
+  wc.AddProperty('TabOrder', TPropertyInteger, 'The tab order');
+  wc.AddProperty('Text', TPropertyString, 'Initial text');
+  wc.AddProperty('TextColor', TPropertyColor, '');
   wc.WidgetIconName := 'vfd.edit';
   RegisterVFDWidget(wc);
 
   // Memo
   wc          := TVFDWidgetClass.Create(TfpgMemo);
   wc.NameBase := 'Memo';
+  wc.AddProperty('BackgroundColor', TPropertyColor, '');
+  wc.AddProperty('Enabled', TPropertyBoolean, '');
+  wc.AddProperty('FontDesc', TPropertyFontDesc, 'The font used for displaying the text');
   wc.AddProperty('Hint', TPropertyString, 'Tooltip hint');
   wc.AddProperty('Lines', TPropertyStringList, '');
-  wc.AddProperty('FontDesc', TPropertyFontDesc, 'The font used for displaying the text');
   wc.AddProperty('ParentShowHint', TPropertyBoolean, '');
   wc.AddProperty('ShowHint', TPropertyBoolean, '');
   wc.AddProperty('TabOrder', TPropertyInteger, 'The tab order');
+  wc.AddProperty('TextColor', TPropertyColor, '');
   wc.WidgetIconName := 'vfd.memo';
   RegisterVFDWidget(wc);
 
@@ -378,8 +394,10 @@ begin
   wc.NameBase := 'Button';
   wc.AddProperty('Text', TPropertyString, 'Initial text');
   wc.AddProperty('AllowAllUp', TPropertyBoolean, '');
+  wc.AddProperty('BackgroundColor', TPropertyColor, '');
   wc.AddProperty('Down', TPropertyBoolean, 'Only valid when in group mode');
   wc.AddProperty('Embedded', TPropertyBoolean, 'No focus rectangle will be drawn. eg: Toolbar buttons');
+  wc.AddProperty('Enabled', TPropertyBoolean, '');
   wc.AddProperty('Flat', TPropertyBoolean, 'Only draw button borders when mouse hovers over button');
   wc.AddProperty('FontDesc', TPropertyFontDesc, 'The font used for displaying the text');
   wc.AddProperty('GroupIndex', TPropertyInteger, '');
@@ -393,26 +411,32 @@ begin
   wc.AddProperty('ShowHint', TPropertyBoolean, '');
   wc.AddProperty('ShowImage', TPropertyBoolean, 'Boolean value');
   wc.AddProperty('TabOrder', TPropertyInteger, 'The tab order');
+  wc.AddProperty('TextColor', TPropertyColor, '');
   wc.WidgetIconName := 'vfd.button';
   RegisterVFDWidget(wc);
 
   // CheckBox
   wc          := TVFDWidgetClass.Create(TfpgCheckBox);
   wc.NameBase := 'CheckBox';
+  wc.AddProperty('BackgroundColor', TPropertyColor, '');
   wc.AddProperty('Checked', TPropertyBoolean, 'Boolean value');
+  wc.AddProperty('Enabled', TPropertyBoolean, '');
   wc.AddProperty('FontDesc', TPropertyFontDesc, 'The font used for displaying the text');
   wc.AddProperty('Hint', TPropertyString, 'Tooltip hint');
   wc.AddProperty('ParentShowHint', TPropertyBoolean, '');
   wc.AddProperty('ShowHint', TPropertyBoolean, '');
   wc.AddProperty('TabOrder', TPropertyInteger, 'The tab order');
   wc.AddProperty('Text', TPropertyString, 'Initial text');
+  wc.AddProperty('TextColor', TPropertyColor, '');
   wc.WidgetIconName := 'vfd.checkbox';
   RegisterVFDWidget(wc);
 
   // RadioButton
   wc          := TVFDWidgetClass.Create(TfpgRadioButton);
   wc.NameBase := 'RadioButton';
+  wc.AddProperty('BackgroundColor', TPropertyColor, '');
   wc.AddProperty('Checked', TPropertyBoolean, 'Boolean value');
+  wc.AddProperty('Enabled', TPropertyBoolean, '');
   wc.AddProperty('FontDesc', TPropertyFontDesc, 'The font used for displaying the text');
   wc.AddProperty('GroupIndex', TPropertyInteger, '');
   wc.AddProperty('Hint', TPropertyString, 'Tooltip hint');
@@ -420,45 +444,59 @@ begin
   wc.AddProperty('ShowHint', TPropertyBoolean, '');
   wc.AddProperty('TabOrder', TPropertyInteger, 'The tab order');
   wc.AddProperty('Text', TPropertyString, 'Initial text');
+  wc.AddProperty('TextColor', TPropertyColor, '');
   wc.WidgetIconName := 'vfd.radiobutton';
   RegisterVFDWidget(wc);
 
   // ComboBox
   wc          := TVFDWidgetClass.Create(TfpgComboBox);
   wc.NameBase := 'ComboBox';
+  wc.AddProperty('BackgroundColor', TPropertyColor, '');
+  wc.AddProperty('Enabled', TPropertyBoolean, '');
   wc.AddProperty('FontDesc', TPropertyFontDesc, 'The font used for displaying the text');
   wc.AddProperty('Hint', TPropertyString, 'Tooltip hint');
   wc.AddProperty('Items', TPropertyStringList, '');
   wc.AddProperty('ParentShowHint', TPropertyBoolean, '');
   wc.AddProperty('ShowHint', TPropertyBoolean, '');
   wc.AddProperty('TabOrder', TPropertyInteger, 'The tab order');
+  wc.AddProperty('TextColor', TPropertyColor, '');
   wc.WidgetIconName := 'vfd.combobox';
   RegisterVFDWidget(wc);
 
   // Calendar ComboBox
   wc          := TVFDWidgetClass.Create(TfpgCalendarCombo);
   wc.NameBase := 'CalendarCombo';
+  wc.AddProperty('BackgroundColor', TPropertyColor, '');
   wc.AddProperty('DateFormat', TPropertyString, 'Standard RTL date formatting applies');
+  wc.AddProperty('DayColor', TPropertyColor, '');
+  wc.AddProperty('Enabled', TPropertyBoolean, '');
   wc.AddProperty('FontDesc', TPropertyFontDesc, 'The font used for displaying the text');
   wc.AddProperty('Hint', TPropertyString, 'Tooltip hint');
+  wc.AddProperty('HolidayColor', TPropertyColor, '');
   wc.AddProperty('ParentShowHint', TPropertyBoolean, '');
+  wc.AddProperty('SelectedColor', TPropertyColor, '');
   wc.AddProperty('ShowHint', TPropertyBoolean, '');
-  wc.AddProperty('WeekStartDay', TPropertyInteger, '0 = Sun, 1 = Mon, etc.');
   wc.AddProperty('TabOrder', TPropertyInteger, 'The tab order');
+  wc.AddProperty('WeekStartDay', TPropertyInteger, '0 = Sun, 1 = Mon, etc.');
   wc.WidgetIconName := 'vfd.combodateedit';
   RegisterVFDWidget(wc);
 
   // Calendar ComboBox Checkbox
   wc          := TVFDWidgetClass.Create(TfpgCalendarCheckCombo);
   wc.NameBase := 'CalendarCombo';
+  wc.AddProperty('BackgroundColor', TPropertyColor, '');
   wc.AddProperty('Checked', TPropertyBoolean, 'Boolean value');
   wc.AddProperty('DateFormat', TPropertyString, 'Standard RTL date formatting applies');
+  wc.AddProperty('DayColor', TPropertyColor, '');
+  wc.AddProperty('Enabled', TPropertyBoolean, '');
   wc.AddProperty('FontDesc', TPropertyFontDesc, 'The font used for displaying the text');
   wc.AddProperty('Hint', TPropertyString, 'Tooltip hint');
+  wc.AddProperty('HolidayColor', TPropertyColor, '');
   wc.AddProperty('ParentShowHint', TPropertyBoolean, '');
+  wc.AddProperty('SelectedColor', TPropertyColor, '');
   wc.AddProperty('ShowHint', TPropertyBoolean, '');
-  wc.AddProperty('WeekStartDay', TPropertyInteger, '0 = Sun, 1 = Mon, etc.');
   wc.AddProperty('TabOrder', TPropertyInteger, 'The tab order');
+  wc.AddProperty('WeekStartDay', TPropertyInteger, '0 = Sun, 1 = Mon, etc.');
   wc.WidgetIconName := 'vfd.combodatecheckedit';
   RegisterVFDWidget(wc);
 
@@ -466,7 +504,9 @@ begin
   wc          := TVFDWidgetClass.Create(TfpgListBox);
   wc.NameBase := 'ListBox';
   wc.AddProperty('AutoHeight', TPropertyBoolean, '');
+  wc.AddProperty('BackgroundColor', TPropertyColor, '');
   wc.Addproperty('DragToReorder', TPropertyBoolean, '');
+  wc.AddProperty('Enabled', TPropertyBoolean, '');
   wc.AddProperty('FontDesc', TPropertyFontDesc, 'The font used for displaying the text');
   wc.AddProperty('Hint', TPropertyString, 'Tooltip hint');
   wc.AddProperty('HotTrack', TPropertyBoolean, '');
@@ -482,8 +522,11 @@ begin
   wc          := TVFDWidgetClass.Create(TfpgColorListBox);
   wc.NameBase := 'ColorListBox';
   wc.AddProperty('AutoHeight', TPropertyBoolean, '');
+  wc.AddProperty('BackgroundColor', TPropertyColor, '');
+  wc.AddProperty('Color', TPropertyColor, 'The currently selected color');
   wc.AddProperty('ColorPalette', TPropertyEnum, '');
   wc.Addproperty('DragToReorder', TPropertyBoolean, '');
+  wc.AddProperty('Enabled', TPropertyBoolean, '');
   wc.AddProperty('FontDesc', TPropertyFontDesc, 'The font used for displaying the text');
   wc.AddProperty('Hint', TPropertyString, 'Tooltip hint');
   wc.AddProperty('HotTrack', TPropertyBoolean, '');
@@ -498,16 +541,19 @@ begin
   // StringGrid
   wc := TVFDWidgetClass.Create(TfpgStringGrid);
   wc.NameBase := 'Grid';
-  wc.AddProperty('Columns', TPropertyDBColumns, '');
+  wc.AddProperty('AlternateBGColor', TPropertyColor, 'The color of every alternative row. Dependent on grid Options property.');
+  wc.AddProperty('BackgroundColor', TPropertyColor, '');
+  wc.AddProperty('Columns', TPropertyDBColumns, 'Defines the various columns for a grid. At least one column must exist.');
+  wc.AddProperty('Enabled', TPropertyBoolean, '');
   wc.AddProperty('FontDesc', TPropertyFontDesc, 'The font used for displaying the text');
   wc.AddProperty('HeaderFontDesc', TPropertyFontDesc, '');
   wc.AddProperty('Hint', TPropertyString, 'Tooltip hint');
   wc.AddProperty('ParentShowHint', TPropertyBoolean, '');
-  wc.AddProperty('RowCount', TPropertyInteger, '');
-  wc.AddProperty('RowSelect', TPropertyBoolean, '');
-  wc.AddProperty('ShowHeader', TPropertyBoolean, '');
+  wc.AddProperty('RowCount', TPropertyInteger, 'Default number of rows in the grid');
+  wc.AddProperty('RowSelect', TPropertyBoolean, 'If enabled, a whole row is selected, not just a cell');
+  wc.AddProperty('ShowGrid', TPropertyBoolean, 'Must the grid lines be shown');
+  wc.AddProperty('ShowHeader', TPropertyBoolean, 'Must the grid header be visible');
   wc.AddProperty('ShowHint', TPropertyBoolean, '');
-  wc.AddProperty('ShowGrid', TPropertyBoolean, '');
   wc.AddProperty('TabOrder', TPropertyInteger, 'The tab order');
   wc.WidgetIconName := 'vfd.stringgrid';
   RegisterVFDWidget(wc);
@@ -515,13 +561,15 @@ begin
   // Bevel
   wc           := TVFDWidgetClass.Create(TfpgBevel);
   wc.NameBase  := 'Bevel';
+  wc.AddProperty('BackgroundColor', TPropertyColor, '');
   wc.AddProperty('BorderStyle', TPropertyEnum, 'Single or Double');
+  wc.AddProperty('Enabled', TPropertyBoolean, '');
   wc.AddProperty('Hint', TPropertyString, 'Tooltip hint');
   wc.AddProperty('ParentBackgroundColor', TPropertyBoolean, '');
   wc.AddProperty('ParentShowHint', TPropertyBoolean, '');
-  wc.AddProperty('Style', TPropertyEnum, 'Raised or Lower look');
   wc.AddProperty('Shape', TPropertyEnum, 'Box, Frame, TopLine, Spacer etc..');
   wc.AddProperty('ShowHint', TPropertyBoolean, '');
+  wc.AddProperty('Style', TPropertyEnum, 'Raised or Lower look');
   wc.WidgetIconName := 'vfd.bevel';
   wc.Container := True;
   RegisterVFDWidget(wc);
@@ -530,17 +578,20 @@ begin
   wc           := TVFDWidgetClass.Create(TfpgPanel);
   wc.NameBase  := 'Panel';
   wc.AddProperty('Alignment', TPropertyEnum, 'Text alignment');
+  wc.AddProperty('BackgroundColor', TPropertyColor, '');
   wc.AddProperty('BorderStyle', TPropertyEnum, 'Single or Double');
+  wc.AddProperty('Enabled', TPropertyBoolean, '');
   wc.AddProperty('FontDesc', TPropertyFontDesc, 'The font used for displaying the text');
   wc.AddProperty('Hint', TPropertyString, 'Tooltip hint');
   wc.AddProperty('Layout', TPropertyEnum, 'Layout of the caption');
   wc.AddProperty('LineSpace', TPropertyInteger, 'Line spacing between wrapped caption');
-  wc.AddProperty('Margin', TPropertyInteger, 'Margin of text');
-  wc.AddProperty('ParentBackgroundColor', TPropertyBoolean, '');
+  wc.AddProperty('Margin', TPropertyInteger, 'Margin width around the borders that the text should not paint in.');
+  wc.AddProperty('ParentBackgroundColor', TPropertyBoolean, 'Should the color of the parent be used instead.');
   wc.AddProperty('ParentShowHint', TPropertyBoolean, '');
   wc.AddProperty('ShowHint', TPropertyBoolean, '');
   wc.AddProperty('Style', TPropertyEnum, 'Raised or Lower look');
   wc.AddProperty('Text', TPropertyString, 'The panel caption');
+  wc.AddProperty('TextColor', TPropertyColor, '');
   wc.AddProperty('WrapText', TPropertyBoolean, 'Should the panel text be wrapped');
   wc.WidgetIconName := 'vfd.panel';
   wc.Container := True;
@@ -550,14 +601,17 @@ begin
   wc           := TVFDWidgetClass.Create(TfpgGroupBox);
   wc.NameBase  := 'GroupBox';
   wc.AddProperty('Alignment', TPropertyEnum, 'Text alignment');
+  wc.AddProperty('BackgroundColor', TPropertyColor, '');
   wc.AddProperty('BorderStyle', TPropertyEnum, 'Single or Double');
+  wc.AddProperty('Enabled', TPropertyBoolean, '');
   wc.AddProperty('FontDesc', TPropertyFontDesc, 'The font used for displaying the text');
   wc.AddProperty('Hint', TPropertyString, 'Tooltip hint');
-  wc.AddProperty('Margin', TPropertyInteger, 'Margin of text');
+  wc.AddProperty('Margin', TPropertyInteger, 'Margin width around the borders that the text should not paint in.');
+  wc.AddProperty('ParentShowHint', TPropertyBoolean, '');
   wc.AddProperty('ShowHint', TPropertyBoolean, '');
   wc.AddProperty('Style', TPropertyEnum, 'Raised or Lower look');
-  wc.AddProperty('ParentShowHint', TPropertyBoolean, '');
   wc.AddProperty('Text', TPropertyString, 'The panel caption');
+  wc.AddProperty('TextColor', TPropertyColor, '');
   wc.WidgetIconName := 'vfd.groupbox';
   wc.Container := True;
   RegisterVFDWidget(wc);
@@ -565,34 +619,41 @@ begin
   // ProgressBar
   wc          := TVFDWidgetClass.Create(TfpgProgressBar);
   wc.NameBase := 'ProgressBar';
+  wc.AddProperty('BackgroundColor', TPropertyColor, '');
+  wc.AddProperty('Enabled', TPropertyBoolean, '');
   wc.AddProperty('Hint', TPropertyString, 'Tooltip hint');
-  wc.AddProperty('Min', TPropertyInteger, '');
   wc.AddProperty('Max', TPropertyInteger, '');
+  wc.AddProperty('Min', TPropertyInteger, '');
   wc.AddProperty('ParentShowHint', TPropertyBoolean, '');
   wc.AddProperty('Position', TPropertyInteger, '');
   wc.AddProperty('ShowCaption', TPropertyBoolean, '');
   wc.AddProperty('ShowHint', TPropertyBoolean, '');
+  wc.AddProperty('TextColor', TPropertyColor, '');
   wc.WidgetIconName := 'vfd.progressbar';
   RegisterVFDWidget(wc);
 
   // TrackBar
   wc          := TVFDWidgetClass.Create(TfpgTrackBar);
   wc.NameBase := 'TrackBar';
+  wc.AddProperty('BackgroundColor', TPropertyColor, '');
+  wc.AddProperty('Enabled', TPropertyBoolean, '');
   wc.AddProperty('Hint', TPropertyString, 'Tooltip hint');
   wc.AddProperty('Max', TPropertyInteger, '');
   wc.AddProperty('Min', TPropertyInteger, '');
   wc.AddProperty('Orientation', TPropertyEnum, '');
   wc.AddProperty('ParentShowHint', TPropertyBoolean, '');
-  wc.AddProperty('ShowHint', TPropertyBoolean, '');
   wc.AddProperty('Position', TPropertyInteger, '');
+  wc.AddProperty('ShowHint', TPropertyBoolean, '');
   wc.AddProperty('ShowPosition', TPropertyBoolean, '');
   wc.AddProperty('TabOrder', TPropertyInteger, 'The tab order');
+  wc.AddProperty('TextColor', TPropertyColor, '');
   wc.WidgetIconName := 'vfd.trackbar';
   RegisterVFDWidget(wc);
 
   // ListView
   wc := TVFDWidgetClass.Create(TfpgListView);
   wc.NameBase := 'ListView';
+  wc.AddProperty('Enabled', TPropertyBoolean, '');
   wc.AddProperty('Hint', TPropertyString, 'Tooltip hint');
   wc.AddProperty('MultiSelect', TPropertyBoolean, '');
   wc.AddProperty('ParentShowHint', TPropertyBoolean, '');
@@ -606,6 +667,7 @@ begin
   wc := TVFDWidgetClass.Create(TfpgTreeView);
   wc.NameBase := 'TreeView';
   wc.AddProperty('DefaultColumnWidth',TPropertyInteger, '');
+  wc.AddProperty('Enabled', TPropertyBoolean, '');
   wc.AddProperty('FontDesc',TPropertyFontDesc, '');
   wc.AddProperty('Hint', TPropertyString, 'Tooltip hint');
   wc.AddProperty('ParentShowHint', TPropertyBoolean, '');
@@ -614,6 +676,7 @@ begin
   wc.AddProperty('ShowHint', TPropertyBoolean, '');
   wc.AddProperty('ShowImages',TPropertyBoolean, 'Boolean value');
   wc.AddProperty('TabOrder', TPropertyInteger, 'The tab order');
+  wc.AddProperty('TreeLineColor', TPropertyColor, '');
   wc.AddProperty('TreeLineStyle', TPropertyEnum, '');
   wc.WidgetIconName := 'vfd.treeview';
   RegisterVFDWidget(wc);
@@ -622,6 +685,8 @@ begin
   wc          := TVFDPageControlWidgetClass.Create(TfpgPageControl);
   wc.NameBase := 'PageControl';
   wc.AddProperty('ActivePageIndex', TPropertyInteger, '');
+  wc.AddProperty('BackgroundColor', TPropertyColor, '');
+  wc.AddProperty('Enabled', TPropertyBoolean, '');
   wc.AddProperty('FixedTabWidth', TPropertyInteger, '');
   wc.AddProperty('Hint', TPropertyString, 'Tooltip hint');
   wc.AddProperty('ParentShowHint', TPropertyBoolean, '');
@@ -630,6 +695,7 @@ begin
   wc.AddProperty('Style', TPropertyEnum, '');
   wc.AddProperty('TabOrder', TPropertyInteger, 'The tab order');
   wc.AddProperty('TabPosition', TPropertyEnum, '');
+  wc.AddProperty('TextColor', TPropertyColor, '');
   wc.WidgetIconName := 'vfd.pagecontrol';
   wc.Container := True;
   wc.BlockMouseMsg := False;
@@ -638,6 +704,8 @@ begin
   // TabSheet
   wc          := TVFDWidgetClass.Create(TfpgTabSheet);
   wc.NameBase := 'TabSheet';
+  wc.AddProperty('BackgroundColor', TPropertyColor, '');
+  wc.AddProperty('Enabled', TPropertyBoolean, '');
   wc.AddProperty('Text', TPropertyString, 'The tab title');
   wc.WidgetIconName := 'vfd.tabsheet';
   wc.Container := True;
@@ -646,12 +714,16 @@ begin
   // Gauge
   wc          := TVFDWidgetClass.Create(TfpgGauge);
   wc.NameBase := 'Gauge';
+  wc.AddProperty('Color', TPropertyColor, '');
+  wc.AddProperty('Enabled', TPropertyBoolean, '');
+  wc.AddProperty('FirstColor', TPropertyColor, '');
   wc.AddProperty('Hint', TPropertyString, 'Tooltip hint');
   wc.AddProperty('Kind', TPropertyEnum, '');
-  wc.AddProperty('MinValue', TPropertyInteger, '');
   wc.AddProperty('MaxValue', TPropertyInteger, '');
+  wc.AddProperty('MinValue', TPropertyInteger, '');
   wc.AddProperty('ParentShowHint', TPropertyBoolean, '');
   wc.AddProperty('Progress', TPropertyInteger, '');
+  wc.AddProperty('SecondColor', TPropertyColor, '');
   wc.AddProperty('ShowHint', TPropertyBoolean, '');
   wc.AddProperty('ShowText', TPropertyBoolean, 'Boolean value');
   wc.WidgetIconName := 'vfd.gauge';
@@ -661,31 +733,37 @@ begin
   // Integer Edit
   wc          := TVFDWidgetClass.Create(TfpgEditInteger);
   wc.NameBase := 'EditInteger';
-  wc.AddProperty('Hint', TPropertyString, 'Tooltip hint');
-  wc.AddProperty('TabOrder', TPropertyInteger, 'The tab order');
+  wc.AddProperty('Enabled', TPropertyBoolean, '');
   wc.AddProperty('FontDesc', TPropertyFontDesc, 'The font used for displaying the text');
+  wc.AddProperty('Hint', TPropertyString, 'Tooltip hint');
+  wc.AddProperty('NegativeColor', TPropertyColor, 'Color used for negative values');
   wc.AddProperty('ParentShowHint', TPropertyBoolean, '');
   wc.AddProperty('ReadOnly', TPropertyBoolean, '');
   wc.AddProperty('ShowHint', TPropertyBoolean, '');
   wc.AddProperty('ShowThousand', TPropertyBoolean, 'Show thousand separator');
-//  wc.AddProperty('CustomThousandSeparator', TPropertyString, 'Thousand separator character');
+  wc.AddProperty('TabOrder', TPropertyInteger, 'The tab order');
+  wc.AddProperty('TextColor', TPropertyColor, '');
   wc.AddProperty('Value', TPropertyInteger, 'Initial value');
+//  wc.AddProperty('CustomThousandSeparator', TPropertyString, 'Thousand separator character');
   wc.WidgetIconName := 'vfd.editinteger';
   RegisterVFDWidget(wc);
 
   // Float Edit
   wc          := TVFDWidgetClass.Create(TfpgEditFloat);
   wc.NameBase := 'EditFloat';
-  wc.AddProperty('Hint', TPropertyString, 'Tooltip hint');
-  wc.AddProperty('TabOrder', TPropertyInteger, 'The tab order');
+  wc.Addproperty('Decimals', TPropertyInteger, '');
+  wc.AddProperty('Enabled', TPropertyBoolean, '');
+  wc.AddProperty('FixedDecimals', TPropertyBoolean, '');
   wc.AddProperty('FontDesc', TPropertyFontDesc, 'The font used for displaying the text');
+  wc.AddProperty('Hint', TPropertyString, 'Tooltip hint');
+  wc.AddProperty('NegativeColor', TPropertyColor, 'Color used for negative values');
   wc.AddProperty('ParentShowHint', TPropertyBoolean, '');
   wc.AddProperty('ReadOnly', TPropertyBoolean, '');
   wc.AddProperty('ShowHint', TPropertyBoolean, '');
-  wc.AddProperty('Value', TPropertyFloat, 'Initial value');
   wc.AddProperty('ShowThousand', TPropertyBoolean, 'Show thousand separator');
-  wc.AddProperty('FixedDecimals', TPropertyBoolean, '');
-  wc.Addproperty('Decimals', TPropertyInteger, '');
+  wc.AddProperty('TabOrder', TPropertyInteger, 'The tab order');
+  wc.AddProperty('TextColor', TPropertyColor, '');
+  wc.AddProperty('Value', TPropertyFloat, 'Initial value');
 //  wc.AddProperty('CustomDecimalSeparator', TPropertyString, 'Decimal separator character');
 //  wc.AddProperty('CustomThousandSeparator', TPropertyString, 'Thousand separator character');
   wc.WidgetIconName := 'vfd.editfloat';
@@ -694,15 +772,18 @@ begin
   // Currency Edit
   wc          := TVFDWidgetClass.Create(TfpgEditCurrency);
   wc.NameBase := 'EditCurrency';
-  wc.AddProperty('Hint', TPropertyString, 'Tooltip hint');
-  wc.AddProperty('TabOrder', TPropertyInteger, 'The tab order');
+  wc.Addproperty('Decimals', TPropertyInteger, '');
+  wc.AddProperty('Enabled', TPropertyBoolean, '');
   wc.AddProperty('FontDesc', TPropertyFontDesc, 'The font used for displaying the text');
+  wc.AddProperty('Hint', TPropertyString, 'Tooltip hint');
+  wc.AddProperty('NegativeColor', TPropertyColor, 'Color used for negative values');
   wc.AddProperty('ParentShowHint', TPropertyBoolean, '');
   wc.AddProperty('ReadOnly', TPropertyBoolean, '');
   wc.AddProperty('ShowHint', TPropertyBoolean, '');
-  wc.AddProperty('Value', TPropertyFloat, 'Initial value');
   wc.AddProperty('ShowThousand', TPropertyBoolean, 'Show thousand separator');
-  wc.Addproperty('Decimals', TPropertyInteger, '');
+  wc.AddProperty('TabOrder', TPropertyInteger, 'The tab order');
+  wc.AddProperty('TextColor', TPropertyColor, '');
+  wc.AddProperty('Value', TPropertyFloat, 'Initial value');
 //  wc.AddProperty('CustomDecimalSeparator', TPropertyString, 'Decimal separator character');
 //  wc.AddProperty('CustomThousandSeparator', TPropertyString, 'Thousand separator character');
   wc.WidgetIconName := 'vfd.editcurrency';
@@ -748,10 +829,11 @@ begin
   // Filename Edit
   wc          := TVFDWidgetClass.Create(TfpgFileNameEdit);
   wc.NameBase := 'FilenameEdit';
+  wc.AddProperty('Enabled', TPropertyBoolean, '');
   wc.AddProperty('ExtraHint', TPropertyString, '');
   wc.AddProperty('FileName', TPropertyString, 'Preset filename in edit component');
-  wc.AddProperty('InitialDir', TPropertyString, 'Initial starting directory of the dialog');
   wc.AddProperty('Filter', TPropertyString, 'Filename filters used in the dialog');
+  wc.AddProperty('InitialDir', TPropertyString, 'Initial starting directory of the dialog');
   wc.AddProperty('TabOrder', TPropertyInteger, 'The tab order');
   wc.WidgetIconName := 'vfd.editfilename';
   RegisterVFDWidget(wc);
@@ -759,8 +841,9 @@ begin
   // Directory Edit
   wc          := TVFDWidgetClass.Create(TfpgDirectoryEdit);
   wc.NameBase := 'DirectoryEdit';
-  wc.AddProperty('ExtraHint', TPropertyString, '');
   wc.AddProperty('Directory', TPropertyString, 'Preset directory name in edit component');
+  wc.AddProperty('Enabled', TPropertyBoolean, '');
+  wc.AddProperty('ExtraHint', TPropertyString, '');
   wc.AddProperty('RootDirectory', TPropertyString, 'Initial starting directory of the dialog');
   wc.AddProperty('TabOrder', TPropertyInteger, 'The tab order');
   wc.WidgetIconName := 'vfd.editdirectory';
@@ -769,6 +852,8 @@ begin
   // Font Edit
   wc          := TVFDWidgetClass.Create(TfpgFontEdit);
   wc.NameBase := 'DirectoryEdit';
+  wc.AddProperty('Enabled', TPropertyBoolean, '');
+  wc.AddProperty('ExtraHint', TPropertyString, '');
   wc.AddProperty('FontDesc', TPropertyString, 'Specify a preset font description');
   wc.AddProperty('TabOrder', TPropertyInteger, 'The tab order');
   wc.WidgetIconName := 'vfd.editfont';
@@ -777,8 +862,10 @@ begin
   // Color wheel
   wc          := TVFDWidgetClass.Create(TfpgColorWheel);
   wc.NameBase := 'ColorWheel';
-  wc.AddProperty('MarginWidth', TPropertyInteger, 'The margin that will not be painted on four sides of widget');
+  wc.AddProperty('BackgroundColor', TPropertyColor, '');
   wc.AddProperty('CursorSize', TPropertyInteger, 'Size of cross-hair in color wheel');
+  wc.AddProperty('Enabled', TPropertyBoolean, '');
+  wc.AddProperty('MarginWidth', TPropertyInteger, 'The margin that will not be painted on four sides of widget');
   wc.AddProperty('WhiteAreaPercent', TPropertyInteger, 'The percentage of the centre of the wheel which is white');
   wc.WidgetIconName := 'vfd.colorwheel';
   RegisterVFDWidget(wc);
@@ -786,8 +873,10 @@ begin
   // Value Bar - works in accordance with color wheel
   wc          := TVFDWidgetClass.Create(TfpgValueBar);
   wc.NameBase := 'ValueBar';
-  wc.AddProperty('MarginWidth', TPropertyInteger, 'The margin that will not be painted on four sides of widget');
+  wc.AddProperty('BackgroundColor', TPropertyColor, '');
   wc.AddProperty('CursorHeight', TPropertyInteger, 'Size of selection cursor');
+  wc.AddProperty('Enabled', TPropertyBoolean, '');
+  wc.AddProperty('MarginWidth', TPropertyInteger, 'The margin that will not be painted on four sides of widget');
   wc.AddProperty('Value', TPropertyFloat, '');
   wc.WidgetIconName := 'vfd.valuebar';
   RegisterVFDWidget(wc);