anchor.diff:      if bShowX then
         DoPaintX(C, RectX,
           bMouseOverX,
  -        NColorBg,
  +        GetTabBgColor_Active(i),
           NColorXBg,
           NColorXBorder,
           NColorXMark
  
positive.code:       RectBitmap.Right:= FBitmapRound.Width;
        RectBitmap.Bottom:= RectBitmap.Right;
  
        FBitmapRound.Canvas.Brush.Color:= IfThen(FOptShowFlat, FColorBg, ATabBg);
        FBitmapRound.Canvas.FillRect(RectBitmap);
  
        FBitmapRound.Canvas.Brush.Color:= ATabCloseBg;
  
negative.code:   FOptVarWidth:= AValue;
    if not AValue then
      FScrollPos:= 0;
    Invalidate;
  end;
  
  
  