anchor.diff:      FTabMenu.Items.Add(mi);
     end;
   
  -  GetArrowRect(RDown);
  +  GetRectArrowDown(RDown);
     P:= Point(RDown.Left, RDown.Bottom);
     P:= ClientToScreen(P);
     FTabMenu.Popup(P.X, P.Y);
  
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
  