anchor.diff:      end;
   
     if LGlyp <> '' then begin
  -    LIcon := Rect(0, 0, 18,Control.Height);
  +    LIcon := Rect(0, 0, 16,Control.Height);
       ControlCanvas.Font.Name := CNST_GLYPHICONSFONT;
  +    ControlCanvas.Font.Size := 8;
       s := Char(StrToIntDef(slGlyphicons.Values[LGlyp],78));
       DrawTextEx(ControlCanvas.Handle, PChar(s), 1, LIcon, DT_SINGLELINE+DT_VCENTER, nil);
     end;
   
     if LCaption <> '' then begin
  -    LRect := Rect(20, 0, Control.Width, Control.Height);
  +    LRect := Rect(17, 0, Control.Width, Control.Height);
       ControlCanvas.Font.Name := CNST_DEFAULTFONTNAME;
  +    ControlCanvas.Font.Size := 10;
       DrawTextEx(ControlCanvas.Handle, PChar(LCaption), Length(LCaption), LRect, DT_SINGLELINE+DT_VCENTER, nil);
     end;
   end;
  
positive.code:   RegisterPropertyEditor(TypeInfo(string), TIWBSButton,'BSGlyphicon', TGlyphiconEditor);
  
    RegisterComponents('IW BootsTrap', [TIWBSLabel]);
  
    RegisterComponents('IW BootsTrap', [TIWBSText]);
  
    RegisterComponents('IW BootsTrap', [TIWBSGlyphicon]);
  
negative.code:   LGlyp, LCaption: string;
    s: string;
  begin
    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
  