anchor.diff:    FFocusItem        := -1;
     FPrevFocusItem    := -1;
     FFocusable        := False;
  +  FClicked          := False;
     FBackgroundColor  := Parent.BackgroundColor;
     FTextColor        := Parent.TextColor;
     // calculate the best height based on font
  
positive.code:     FMenuOptions: TfpgMenuOptions;
      FPrevFocusItem: integer;
      FFocusItem: integer;
      procedure   SetFocusItem(const AValue: integer);
      procedure   DoSelect;
      procedure   CloseSubmenus;
  
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);
  
  