anchor.diff:      Inc(LRect.Left, 8);
       Dec(LRect.Bottom, 1);
       Dec(LRect.Right, 8);
  +    ControlCanvas.TextRect(LRect,s,[])
  +  end;
  +end;
  +
  +procedure TIWBSPaintHandlerLabel.Paint;
  +var
  +  LRect: TRect;
  +  s: string;
  +begin
  +  LRect := Rect(0, 0, Control.Width, Control.Height);
  +
  +  ControlCanvas.Brush.Color := clWhite;
  +  ControlCanvas.Pen.Color := clGray;
  +  ControlCanvas.Font.Name := CNST_DEFAULTFONTNAME;
  +  ControlCanvas.Font.Size := 10;
  +  ControlCanvas.Font.Color := clBlack;
  +
  +  if Control is TIWBSLabel then begin
  +    s := TIWBSLabel(Control).DataField;
  +    if s = '' then
  +      s := TIWBSLabel(Control).Caption;
       ControlCanvas.TextRect(LRect,s,[])
     end;
   end;
  
positive.code:   end;
  
    TIWBSPaintHandlerCustomText = class (TIWPaintHandlerRectangle)
    public
      procedure Paint; override;
    end;
  
negative.code:   IWRegisterPaintHandler('TIWBSButton',TIWBSPaintHandlerCustomButton);
    IWRegisterPaintHandler('TIWBSDropDown',TIWBSPaintHandlerCustomButton);
  
    IWRegisterPaintHandler('TIWBSLabel',TIWBSPaintHandlerLabel);
  
    IWRegisterPaintHandler('TIWBSGlyphicon',TIWBSPaintHandlerGlyphicon);
  
  