anchor.diff:    LGlyp, LCaption: string;
     s: string;
   begin
  -  ControlCanvas.Font.Size := 10;
  -
  -  if Control is TIWBSCheckBox then
  +  if Control is TIWBSRadioButton then
  +    begin
  +      LGlyp := 'record';
  +      LCaption := TIWBSCheckBox(Control).Caption;
  +    end
  +  else if Control is TIWBSCheckBox then
       begin
         LGlyp := 'ok';
  -      LCaption := TIWBSCheckBox(Control).Caption;
  -    end
  -  else if Control is TIWBSRadioButton then
  -    begin
  -      LGlyp := 'record';
         LCaption := TIWBSCheckBox(Control).Caption;
       end
     else
  
positive.code:   RegisterPropertyEditor(TypeInfo(string), TIWBSButton,'BSGlyphicon', TGlyphiconEditor);
  
    RegisterComponents('IW BootsTrap', [TIWBSLabel]);
  
    RegisterComponents('IW BootsTrap', [TIWBSText]);
  
    RegisterComponents('IW BootsTrap', [TIWBSGlyphicon]);
  
negative.code:   IWRegisterPaintHandler('TIWBSMemo',TIWBSPaintHandlerCustomInput);
    IWRegisterPaintHandler('TIWBSSelect',TIWBSPaintHandlerCustomInput);
    IWRegisterPaintHandler('TIWBSCheckBox',TIWBSPaintHandlerCustomCheck);
    IWRegisterPaintHandler('TIWBSRadioButton',TIWBSPaintHandlerCustomCheck);
    IWRegisterPaintHandler('TIWBSRadioGroup',TIWBSPaintHandlerRadioGroup);
  
    IWRegisterPaintHandler('TIWBSButton',TIWBSPaintHandlerButton);
  