anchor.diff:    //left/right edges
     if FOptShowAngled then
     begin
  -    UpdateCanvasAntialiasMode(C);
       DoPaintTabShape_L(C, ARect, ATabActive, AColorBg, AColorBorder);
       DoPaintTabShape_R(C, ARect, ATabActive, AColorBg, AColorBorder);
     end;
  
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:   PR1:= Point(ARect.Right-1, ARect.Top);
    PR2:= Point(ARect.Right-1, ARect.Bottom-1);
  
    UpdateCanvasAntialiasMode(C);
  
    //center shape
    DoPaintTabShape_C(C, ATabActive,
      ARect,
  