anchor.diff:  end;
   
   
  -procedure TATTabs.GetArrowRect(var RDown: TRect);
  -begin
  -  RDown.Top:= FTabIndentTop;
  -  RDown.Bottom:= RDown.Top+FTabHeight;
  -
  -  RDown.Right:= ClientWidth;
  -  RDown.Left:= RDown.Right-FTabIndentArrowRight;
  +procedure TATTabs.GetRectArrowDown(out R: TRect);
  +begin
  +  R.Top:= FTabIndentTop;
  +  R.Bottom:= R.Top+FTabHeight;
  +
  +  R.Right:= ClientWidth;
  +  R.Left:= R.Right-FTabIndentArrowRight;
  +end;
  +
  +procedure TATTabs.GetRectArrowLeftRight(out RL, RR: TRect);
  +begin
  +  RL.Top:= FTabIndentTop;
  +  RL.Bottom:= RL.Top+FTabHeight;
  +
  +  RR.Top:= RL.Top;
  +  RR.Bottom:= RL.Bottom;
  +
  +  //place arrows inside TabIndentInit
  +  RL.Left:= 0;
  +  RL.Right:= RL.Left + FTabIndentInit div 2;
  +
  +  RR.Left:= RL.Right;
  +  RR.Right:= RR.Left + FTabIndentInit div 2;
   end;
   
   procedure TATTabs.ShowTabMenu;
  
positive.code:     procedure DoPaintXTo(C: TCanvas; const R: TRect; ATabBg, ATabCloseBg,
        ATabCloseBorder, ATabCloseXMark: TColor);
      procedure DoPaintDropMark(C: TCanvas);
      function RealTabAngle: Integer;
      procedure SetTabAngle(AValue: Integer);
      procedure SetTabAngleMaxTabs(AValue: Integer);
  
negative.code:   i: Integer;
    RBottom: TRect;
    AColorXBg, AColorXBorder, AColorXMark: TColor;
    ARect, ARectArrowDown, FRectArrowLeft, FRectArrowRight: TRect;
    AType: TATTabElemType;
    Data: TATTabData;
  begin
  