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