anchor.diff:    end
     else
     begin
  -    if not Focused then
  -      Exit;
  -  end;
  -
  +    if not FClicked then
  +      exit;
  +  end;
   
     newf := CalcMouseCol(x);
     if not VisibleItem(newf).Selectable then
  
positive.code:   
    if ComponentCount = 0 then
      Exit; // We have no menu items in MainMenu.
  
    if not Focused then
      ActivateMenu;
    //else
    //begin
      //CloseSubmenus;
      //DeActivateMenu;
      //Exit; //==>
    //end;
  
    newf := CalcMouseCol(x);
  
  
negative.code:     FMenuOptions: TfpgMenuOptions;
      FPrevFocusItem: integer;
      FFocusItem: integer;
      FClicked: Boolean;
      procedure   SetFocusItem(const AValue: integer);
      procedure   DoSelect;
      procedure   CloseSubmenus;
  