anchor.diff:    inherited HandleMouseMove(x, y, btnstate, shiftstate);
   
     newf := CalcMouseCol(x);
  +  if newf = VisibleCount then
  +    Exit; //mouse points over the last item
   
     // process menu options
     if mnuo_nofollowingmouse in FMenuOptions then
  
positive.code:     Exit; // We have no menu items in MainMenu.
      
    newf := CalcMouseCol(x);
    if (FLastItemClicked <> -1) and (FLastItemClicked <> newf) then
    begin
      // do nothing
  
negative.code:     inc(w, ItemWidth(VisibleItem(n)));
      inc(n);
    end;
    if x > w then
      Result := n;
  end;
  
  function TfpgMenuBar.GetItemPosX(index: integer): integer;
  