anchor.diff:      FMenuOptions: TfpgMenuOptions;
       FPrevFocusItem: integer;
       FFocusItem: integer;
  +    FClicked: Boolean;
       procedure   SetFocusItem(const AValue: integer);
       procedure   DoSelect;
       procedure   CloseSubmenus;
  
positive.code:   end
    else
    begin
      if not Focused then
        Exit;
    end;
  
  
    newf := CalcMouseCol(x);
    if not VisibleItem(newf).Selectable then
  
negative.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);
  
  