anchor.diff:    PL1, PL2, PR1, PR2: TPoint;
     RectText: TRect;
     NIndentL, NIndentR, NIndentTop, NLineHeight, NLineWidth: integer;
  -  ElemType: TATTabElemType;
     TempCaption: TATTabString;
     Extent: TSize;
     bNeedMoreSpace: boolean;
  
positive.code: 
        DoPaintTabTo(C, RRect,
          Format(FOptShowNumberPrefix, [i+1]) + Data.TabCaption,
          FColorTabActive,
          FColorBorderActive,
          IfThen(FOptShowBorderActiveLow, FColorBorderActive, clNone),
          Data.TabColor,
  
negative.code: 
  procedure TATTabs.DoPaintTo(C: TCanvas);
  var
    RRect, RBottom, RectX: TRect;
    NColorBg, NColorXBg, NColorXBorder, NColorXMark, NColorFont: TColor;
    NLineX1, NLineY1, NLineX2, NLineY2: integer;
    ElemType: TATTabElemType;
    Data: TATTabData;
    NFontStyle: TFontStyles;
    bShowX, bMouseOver, bMouseOverX: boolean;
    i: integer;
  begin
    ElemType:= aeBackground;
  