anchor.diff:    // 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('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('FontDesc', TPropertyFontDesc, 'The font used for displaying the text');
  -  wc.AddProperty('IgnoreMouseCursor', TPropertyBoolean, 'If True, then mouse pointer doesn''t change');
  -  wc.AddProperty('ParentShowHint', TPropertyBoolean, '');
  -  wc.AddProperty('ShowHint', TPropertyBoolean, '');
  +  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('ParentShowHint', TPropertyBoolean, '');
  +  wc.AddProperty('ShowHint', TPropertyBoolean, '');
  +  wc.AddProperty('TabOrder', TPropertyInteger, 'The tab order');
  +  wc.AddProperty('TextColor', TPropertyColor, '');
     wc.WidgetIconName := 'vfd.memo';
     RegisterVFDWidget(wc);
   
  
positive.code:   // StringGrid
    wc := TVFDWidgetClass.Create(TfpgStringGrid);
    wc.NameBase := 'Grid';
    wc.AddProperty('Columns', TPropertyDBColumns, '');
    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('ShowHint', TPropertyBoolean, '');
    wc.AddProperty('ShowGrid', TPropertyBoolean, '');
    wc.AddProperty('TabOrder', TPropertyInteger, 'The tab order');
    wc.WidgetIconName := 'vfd.stringgrid';
    RegisterVFDWidget(wc);
  
negative.code:   // 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('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';
  