anchor.diff:            NColorXMark,
             IsShowX(i),
             Data.TabModified,
  -          Data.TabImageIndex
  +          Data.TabImageIndex,
  +          Data.TabFontStyle
             );
           DoPaintAfter(ElemType, i, C, RRect);
         end;
  
positive.code:   //imagelist
    if Assigned(FImages) then
      if (AImageIndex>=0) and (AImageIndex<FImages.Count) then
      begin
        FImages.Draw(C,
          RectText.Left-2,
          (RectText.Top + RectText.Bottom - FImages.Height) div 2,
          AImageIndex);
        Inc(RectText.Left, FImages.Width);
      end;
  
    //left triangle
    PL1:= Point(ARect.Left+NAngle*AInvert, ARect.Top);
  
negative.code:     procedure DoPaintArrowRight(C: TCanvas);
      procedure DoPaintButtonClose(C: TCanvas);
      procedure DoPaintButtonPlus(C: TCanvas);
      procedure DoPaintButtonsBG(C: TCanvas);
      procedure DoPaintColoredBand(C: TCanvas; PL1, PL2, PR1, PR2: TPoint; AColor: TColor);
      procedure DoPaintTo(C: TCanvas);
      procedure DoPaintBgTo(C: TCanvas; const ARect: TRect);
      procedure DoPaintTabTo(C: TCanvas; ARect: TRect; const ACaption: TATTabString;
        ATabBg, ATabBorder, ATabBorderLow, ATabHilite, ATabCloseBg,
        ATabCloseBorder, ATabCloseXMark: TColor; ACloseBtn, AModified: boolean;
        AImageIndex: integer; AFontStyle: TFontStyles);
      procedure DoPaintArrowTo(C: TCanvas; ATyp: TATTabTriangle; ARect: TRect;
        AColorArr, AColorBg: TColor);
      procedure DoPaintUserButtons(C: TCanvas);
  