anchor.diff:      C.Rectangle(R);
     end;
   
  -  //paint cross by 2 polygons, each has 6 points (3 points at line edge)
  -  C.Brush.Color:= NColorXMark;
  -  C.Pen.Color:= NColorXMark;
  -
  -  PXX1:= Point(R.Left+DoScale(FOptSpaceXInner), R.Top+DoScale(FOptSpaceXInner));
  -  PXX2:= Point(R.Right-DoScale(FOptSpaceXInner)-1, R.Bottom-DoScale(FOptSpaceXInner)-1);
  -  PX1:= Point(PXX1.X+1, PXX1.Y);
  -  PX2:= Point(PXX1.X, PXX1.Y+1);
  -  PX3:= Point(PXX2.X-1, PXX2.Y);
  -  PX4:= Point(PXX2.X, PXX2.Y-1);
  -  C.Polygon([PX1, PXX1, PX2, PX3, PXX2, PX4]);
  -
  -  PXX1:= Point(R.Right-DoScale(FOptSpaceXInner)-1, R.Top+DoScale(FOptSpaceXInner));
  -  PXX2:= Point(R.Left+DoScale(FOptSpaceXInner), R.Bottom-DoScale(FOptSpaceXInner)-1);
  -  PX1:= Point(PXX1.X-1, PXX1.Y);
  -  PX2:= Point(PXX1.X, PXX1.Y+1);
  -  PX3:= Point(PXX2.X+1, PXX2.Y);
  -  PX4:= Point(PXX2.X, PXX2.Y-1);
  -  C.Polygon([PX1, PXX1, PX2, PX3, PXX2, PX4]);
  -
  +  RectRound:= R;
  +  Dec(RectRound.Right);
  +  Dec(RectRound.Bottom);
  +  NSize:= DoScale(FOptSpaceXInner);
  +  CanvasPaintXMark(C, RectRound, NColorXMark, NSize, NSize, 1);
     C.Brush.Color:= NColorBg;
   end;
   
  
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:   {$else}
    System.UITypes,
    {$endif}
    ATCanvasPrimitives,
    ATTabs_Picture,
    Menus;
  
  