anchor.diff:  
         DoPaintTabTo(C, RRect,
           Format(FOptShowNumberPrefix, [i+1]) + Data.TabCaption,
  -        FColorTabActive,
  +        NColorBg,
           FColorBorderActive,
           IfThen(FOptShowBorderActiveLow, FColorBorderActive, clNone),
           Data.TabColor,
  
positive.code:     procedure DoPaintButtonsBG(C: TCanvas);
      procedure DoPaintColoredBand(C: TCanvas; PL1, PL2, PR1, PR2: TPoint; AColor: TColor);
      procedure DoPaintTo(C: TCanvas);
      procedure DoTextOut(C: TCanvas; AX, AY: integer; const AClipRect: TRect; const AText: string);
      procedure DoPaintBgTo(C: TCanvas; const ARect: TRect);
      procedure DoPaintTabTo(C: TCanvas; ARect: TRect; const ACaption: TATTabString;
        AColorBg, AColorBorder, AColorBorderLow, AColorHilite, AColorCloseBg,
    AColorCloseBorder, AColorCloseXMark, AColorFont: TColor; AShowCloseBtn,
    ATabModified, ATabActive: boolean; AImageIndex: integer;
    AFontStyle: TFontStyles);
      procedure DoPaintArrowTo(C: TCanvas; ATyp: TATTabTriangle; ARect: TRect;
        AColorArr: TColor);
      procedure DoPaintUserButtons(C: TCanvas);
  
negative.code:   if not FOptShowEntireColor then
      if AColorHilite<>clNone then
        DoPaintColoredBand(C, PL1, PL2, PR1, PR2, AColorHilite);
  end;
  
  procedure TATTabs.DoPaintX(C: TCanvas;
    const ARectX: TRect; AMouseOverX: boolean;
    AColorBg, AColorCloseBg, AColorCloseBorder, AColorCloseXMark: TColor);
  var
    ElemType: TATTabElemType;
  begin
    if AMouseOverX then
      ElemType:= aeTabIconXOver
    else
      ElemType:= aeTabIconX;
  
    if IsPaintNeeded(ElemType, -1, C, ARectX) then
    begin
      DoPaintXTo(C, ARectX, AColorBg, AColorCloseBg, AColorCloseBorder, AColorCloseXMark);
      DoPaintAfter(ElemType, -1, C, ARectX);
    end;
  end;
  
  