anchor.diff:    wc.AddProperty('TabOrder', TPropertyInteger, 'The tab order');
     wc.AddProperty('FontDesc', TPropertyFontDesc, 'The font used for displaying the text');
     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');
  
positive.code:   // ListBox
    wc          := TVFDWidgetClass.Create(TfpgListBox);
    wc.NameBase := 'ListBox';
    wc.AddProperty('FontDesc', TPropertyFontDesc, 'The font used for displaying the text');
    wc.AddProperty('Hint', TPropertyString, 'Tooltip hint');
    wc.AddProperty('HotTrack', TPropertyBoolean, '');
  
negative.code:   wc.AddProperty('TabOrder', TPropertyInteger, 'The tab order');
    wc.AddProperty('FontDesc', TPropertyFontDesc, 'The font used for displaying the text');
    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');
  