anchor.diff:      ARect.Left+NOffsetLeft+2,
       ARect.Top+NOffsetTop,
       ETO_CLIPPED+ETO_OPAQUE,
  -    @ARect,
  +    @RectText,
       PChar(ACaption),
       Length(ACaption),
       nil);
  
positive.code:     procedure WMEraseBkgnd(var Message: TMessage); message WM_ERASEBKGND;
      {$endif}
    published
      property ColorBorderTop: TColor read FColorBorderTop write FColorBorderTop;
      property ColorBorderR: TColor read FColorBorderR write FColorBorderR;
      property ColorBorderL: TColor read FColorBorderL write FColorBorderL;
  
negative.code: procedure TATStatus.DoPaintPanelTo(C: TCanvas; ARect: TRect;
    AAlign: TATStatusAlign; const ACaption: string);
  var
    RectText: TRect;
    NOffsetLeft, NOffsetTop: Integer;
  begin
    C.Brush.Color:= Color;
    C.FillRect(ARect);
  
    RectText:= Rect(ARect.Left+FIndentLeft, ARect.Top, ARect.Right-FIndentLeft, ARect.Bottom);
    C.FillRect(RectText);
  
    case AAlign of
      saLeft:
  