anchor.diff:    {$else}
     System.UITypes,
     {$endif}
  +  ATCanvasPrimitives,
     ATTabs_Picture,
     Menus;
   
  
positive.code:   ATabIndex: integer; ATabActive, AMouseOverX: boolean);
  var
    Pic: TATTabsPicture;
    PX1, PX2, PX3, PX4, PXX1, PXX2: TPoint;
    RectRound, RectBitmap: TRect;
    NColorBg, NColorXBg, NColorXBorder, NColorXMark: TColor;
  begin
    if FThemed then
    begin
  
negative.code:   CY:= (R.Top+R.Bottom) div 2;
    DrawLine(C, CX-ASize, CY, CX+ASize, CY, AColor);
    DrawLine(C, CX, CY-ASize, CX, CY+ASize, AColor);
  end;
  
  
  