anchor.diff:      destructor Destroy; override;
     published
       property Html: TStringList read FHtml write SetHtml;
  -    property TagType: string read FTagType write SetTagType;
  +    property TagType: string read FTagType write SetTagType stored IsTagTypeStored;
     end;
   
     TIWBSFile = class(TIWBSCustomControl)
  
positive.code: 
    if Parent is TIWBSInputGroup then
      AHTMLTag := IWBSCreateInputGroupAddOn(AHTMLTag, HTMLName, 'addon');
  end;
  
  procedure TIWBSLabel.CheckData(AContext: TIWCompContext);
  
negative.code:   AHTMLTag.AddStringParam('style',ActiveStyle);
    AHTMLTag.Contents.AddText(FHtml.Text);
  end;
  function TIWBSCustomComponent.IsTagTypeStored: Boolean;
  begin
    Result := FTagType <> 'div';
  end;
  
  {$endregion}
  
  {$region 'TIWBSFile' }
  