anchor.diff:        op := op.OpenerPopup;
       end;
       // notify menubar that we clicked a menu item
  -    OpenerMenuBar.FClicked := False;
  +    OpenerMenuBar.InternalReset;
       VisibleItem(FFocusItem).Click;
       FFocusItem := -1;
     end;  { if/else }
  
positive.code: begin
    inherited HandleMouseMove(x, y, btnstate, shiftstate);
  
    // process menu options
    if mnuo_nofollowingmouse in FMenuOptions then
    begin
  
negative.code:   if ComponentCount = 0 then
      Exit; // We have no menu items in MainMenu.
      
    newf := CalcMouseCol(x);
    if (FLastItemClicked <> -1) and (FLastItemClicked <> newf) then
    begin
      // do nothing
      //FClicked := not FClicked
    end
    else
      FClicked := not FClicked;
  
    if FClicked then
    begin
      ActivateMenu;
      FLastItemClicked := newf;
    end
    else
    begin
      CloseSubmenus;
      DeActivateMenu;
      FLastItemClicked := -1;
      exit; //==>
    end;
  
    if not VisibleItem(newf).Selectable then
      Exit; //==>
  