anchor.diff:  begin
     inherited HandleMouseMove(x, y, btnstate, shiftstate);
   
  +  newf := CalcMouseCol(x);
  +
     // process menu options
     if mnuo_nofollowingmouse in FMenuOptions then
     begin
  
positive.code:   if ComponentCount = 0 then
      Exit; // We have no menu items in MainMenu.
      
    FClicked := not FClicked;
  
    if FClicked then
      ActivateMenu
    else
    begin
      CloseSubmenus;
      DeActivateMenu;
      exit; //==>
    end;
  
    newf := CalcMouseCol(x);
  
    if not VisibleItem(newf).Selectable then
      Exit; //==>
  
negative.code:   end
    else if mnuo_autoopen in FMenuOptions then
    begin
  //    if not Focused then
      FLastItemClicked := newf;
      FClicked := True;
      ActivateMenu;
    end
    else
    begin
      if not FClicked then
        exit
      else
        FLastItemClicked := newf;
    end;
  
    if not VisibleItem(newf).Selectable then
      Exit; //==>
  
  