anchor.diff:    PR1:= Point(ARect.Right-1, ARect.Top);
     PR2:= Point(ARect.Right-1, ARect.Bottom-1);
   
  +  UpdateCanvasAntialiasMode(C);
  +
     //center shape
     DoPaintTabShape_C(C, ATabActive,
       ARect,
  
positive.code:     function GetMaxScrollPos: integer;
      property ScrollPos: integer read FScrollPos write SetScrollPos;
      procedure SetTheme(const Data: TATTabTheme);
      property IsThemed: boolean read FThemed;
  
    protected
      procedure Paint; override;
  
negative.code:   //left/right edges
    if FOptShowAngled then
    begin
      DoPaintTabShape_L(C, ARect, ATabActive, AColorBg, AColorBorder);
      DoPaintTabShape_R(C, ARect, ATabActive, AColorBg, AColorBorder);
    end;
  