anchor.diff:    Result:= TfpgMenuItem(Components[AMenuPos]);
   end;
   
  +
   { TfpgPopupMenu }
   
   procedure TfpgPopupMenu.DoSelect;
  
positive.code:       op := op.OpenerPopup;
      end;
      // notify menubar that we clicked a menu item
      OpenerMenuBar.FClicked := False;
      VisibleItem(FFocusItem).Click;
      FFocusItem := -1;
    end;  { if/else }
  
negative.code: function TfpgMenuBar.ItemWidth(mi: TfpgMenuItem): integer;
  begin
    Result := fpgStyle.MenuFont.TextWidth(mi.Text) + (2*6);
  end;
  
  procedure TfpgMenuBar.InternalReset;
  begin
    FClicked := False;
    FLastItemClicked := -1;
  end;
  
  procedure TfpgMenuBar.DrawColumn(col: integer; focus: boolean);
  