anchor.diff:    if FTabShowMenu then
       if PtInRect(RDown, Pnt) then
       begin
  -      Result:= cAtArrowDown;
  +      Result:= TabIndexArrowMenu;
         Exit
       end;
   
  
positive.code:   if FTabShowPlus then
      if PtInRect(GetTabRect_Plus, Pnt) then
      begin
        Result:= cAtTabPlus;
        Exit
      end;
  end;
  
negative.code:   if FMouseDownButton=mbLeft then
    begin
      case FTabIndexOver of
        TabIndexArrowMenu:
          begin
            EndDrag(false);
            FTabIndexOver:= -1;
  