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:   FBeforeShow       := nil;
    FFocusItem        := -1;
    FPrevFocusItem    := -1;
    FFocusable        := False;
    FClicked          := False;
    FBackgroundColor  := Parent.BackgroundColor;
  
negative.code:   Result:= TfpgMenuItem(Components[AMenuPos]);
  end;
  
  
  { TfpgPopupMenu }
  
  procedure TfpgPopupMenu.DoSelect;
  