anchor.diff:            NColorXBorder,
             NColorXMark,
             NColorFont,
  -          IsShowX(i),
  +          bShowX,
             Data.TabModified,
             false,
             Data.TabImageIndex,
  
positive.code:   if IsIndexOk(i) then
    begin
      RRect:= GetTabRect(i);
      GetTabCloseColor(i, RRect, NColorXBg, NColorXBorder, NColorXMark);
  
      if IsPaintNeeded(aeTabActive, i, C, RRect) then
      begin
        Data:= TATTabData(FTabList.Items[i]);
  
        if FOptActiveFontStyleUsed then
          NFontStyle:= FOptActiveFontStyle
  
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;
  