anchor.diff:    end;
   
     TIWBSPaintHandlerCustomText = class (TIWPaintHandlerRectangle)
  +  public
  +    procedure Paint; override;
  +  end;
  +
  +  TIWBSPaintHandlerLabel = class (TIWPaintHandlerRectangle)
     public
       procedure Paint; override;
     end;
  
positive.code:     Inc(LRect.Left, 8);
      Dec(LRect.Bottom, 1);
      Dec(LRect.Right, 8);
      ControlCanvas.TextRect(LRect,s,[])
    end;
  end;
  
negative.code:   IWRegisterPaintHandler('TIWBSButton',TIWBSPaintHandlerCustomButton);
    IWRegisterPaintHandler('TIWBSDropDown',TIWBSPaintHandlerCustomButton);
  
    IWRegisterPaintHandler('TIWBSLabel',TIWBSPaintHandlerLabel);
  
    IWRegisterPaintHandler('TIWBSGlyphicon',TIWBSPaintHandlerGlyphicon);
  
  