anchor.diff:    C.LineTo(X2, Y2);
   end;
   
  -procedure CanvasPaintTriangleDown(C: TCanvas; AColor: TColor; ACoord: TPoint; ASize: integer);
  -begin
  -  C.Brush.Color:= AColor;
  -  C.Pen.Color:= AColor;
  -  C.Polygon([
  -    Point(ACoord.X - ASize*2, ACoord.Y - ASize),
  -    Point(ACoord.X + ASize*2, ACoord.Y - ASize),
  -    Point(ACoord.X, ACoord.Y + ASize)
  -    ]);
  -end;
  -
  -procedure CanvasPaintTriangleRight(C: TCanvas; AColor: TColor; ACoord: TPoint; ASize: integer);
  -begin
  -  C.Brush.Color:= AColor;
  -  C.Pen.Color:= AColor;
  -  C.Polygon([
  -    Point(ACoord.X - ASize, ACoord.Y - ASize*2),
  -    Point(ACoord.X + ASize, ACoord.Y),
  -    Point(ACoord.X - ASize, ACoord.Y + ASize*2)
  -    ]);
  -end;
  -
  -procedure CanvasPaintTriangleLeft(C: TCanvas; AColor: TColor; ACoord: TPoint; ASize: integer);
  -begin
  -  C.Brush.Color:= AColor;
  -  C.Pen.Color:= AColor;
  -  C.Polygon([
  -    Point(ACoord.X + ASize, ACoord.Y - ASize*2),
  -    Point(ACoord.X - ASize, ACoord.Y),
  -    Point(ACoord.X + ASize, ACoord.Y + ASize*2)
  -    ]);
  -end;
  -
   procedure DrawTriangleType(C: TCanvas; AType: TATTabTriangle; const ARect: TRect; AColor: TColor; ASize: integer);
   begin
     case AType of
  
positive.code:         FColorArrowOver,
          FColorArrow);
  
        DoPaintBgTo(C, R);
        DrawCrossSign(C, R, DoScale(FOptArrowSize), NColor);
        DoPaintAfter(ElemType, -1, C, R);
      end;
  end;
  
negative.code:   ATabIndex: integer; ATabActive, AMouseOverX: boolean);
  var
    Pic: TATTabsPicture;
    RectRound, RectBitmap: TRect;
    NColorBg, NColorXBg, NColorXBorder, NColorXMark: TColor;
    NSize: integer;
  begin
    if FThemed then
    begin
  