anchor.diff:    end;
   
     //paint arrows
  -  GetArrowRect(ARectDown);
  +  GetRectArrowDown(ARectArrowDown);
  +  GetRectArrowLeftRight(FRectArrowLeft, FRectArrowRight);
   
     if FTabShowMenu then
     begin
  -    DoPaintArrowTo(C, tabTriDown, ARectDown,
  +    DoPaintArrowTo(C, tabTriDown, ARectArrowDown,
         IfThen((FTabIndexOver=cAtArrowDown) and not DragManager.IsDragging, FColorArrowOver, FColorArrow), FColorBg);
  +  end;
  +
  +  if FTabShowScrollArrows then
  +  begin
  +    DoPaintArrowTo(C, tabTriLeft, FRectArrowLeft, FColorArrow, FColorBg);
  +    DoPaintArrowTo(C, tabTriRight, FRectArrowRight, FColorArrow, FColorBg);
     end;
   
     //paint drop mark
  
positive.code:   i: Integer;
    RBottom: TRect;
    AColorXBg, AColorXBorder, AColorXMark: TColor;
    ARect, ARectDown: TRect;
    AType: TATTabElemType;
    Data: TATTabData;
  begin
  
negative.code:     FTabMenu.Items.Add(mi);
    end;
  
    GetRectArrowDown(RDown);
    P:= Point(RDown.Left, RDown.Bottom);
    P:= ClientToScreen(P);
    FTabMenu.Popup(P.X, P.Y);
  