How to: Implement Custom Menu in XtraGrid Control

using DevExpress.XtraGrid.Views.Grid;
using DevExpress.Utils.Menu;

// Occurs when right-clicking within a grid's view.
private void gridView1_PopupMenuShowing(object sender, PopupMenuShowingEventArgs e) {
   GridView view = sender as GridView;
   // Check whether a row is right-clicked.
   if (e.MenuType == DevExpress.XtraGrid.Views.Grid.GridMenuType.Row) {
      int rowHandle = e.HitInfo.RowHandle;
      // Delete existing menu items, if any.
      e.Menu.Items.Clear();
      // Add a submenu with a single menu item.
      e.Menu.Items.Add(CreateRowSubMenu(view, rowHandle));
      // Add a check menu item.
      DXMenuItem item = CreateMergingEnabledMenuItem(view, rowHandle);
      item.BeginGroup = true;
      e.Menu.Items.Add(item);
   }
}

// Create a submenu with a single DeleteRow item.
DXMenuItem CreateRowSubMenu(GridView view, int rowHandle) {
   DXSubMenuItem subMenu = new DXSubMenuItem("Rows");
   DXMenuItem menuItemDeleteRow = new DXMenuItem("&Delete Row", 
     new EventHandler(OnDeleteRowClick), imageCollection1.Images[0]);
   menuItemDeleteRow.Tag = new RowInfo(view, rowHandle);         
   subMenu.Items.Add(menuItemDeleteRow);         
   return subMenu;
}

// Create a check menu item that triggers the Boolean AllowCellMerge option.
DXMenuCheckItem CreateMergingEnabledMenuItem(GridView view, int rowHandle) {
   DXMenuCheckItem checkItem = new DXMenuCheckItem("&Merging Enabled", 
     view.OptionsView.AllowCellMerge, null, new EventHandler(OnMergingEnabledClick));
   checkItem.Tag = new RowInfo(view, rowHandle);
   return checkItem;
}

//The handler for the DeleteRow menu item
void OnDeleteRowClick(object sender, EventArgs e) {
   DXMenuItem item = sender as DXMenuItem;
   RowInfo info = item.Tag as RowInfo;
   info.View.DeleteRow(info.RowHandle);
}

//The handler for the MergingEnabled menu item
void OnMergingEnabledClick(object sender, EventArgs e) {
   DXMenuCheckItem item = sender as DXMenuCheckItem;
   RowInfo info = item.Tag as RowInfo;
   info.View.OptionsView.AllowCellMerge = item.Checked;
}

//...

//The class that stores menu specific information
class RowInfo {
   public RowInfo(GridView view, int rowHandle) {
      this.RowHandle = rowHandle;
      this.View = view;
   }
   public GridView View;
   public int RowHandle;
}

Imports DevExpress.XtraGrid.Views.Grid
Imports DevExpress.Utils.Menu

' Occurs when right-clicking within a grid's view.
Private Sub gridView1_PopupMenuShowing(ByVal sender As Object, _
ByVal e As PopupMenuShowingEventArgs) Handles gridView1.PopupMenuShowing
   Dim view As GridView = CType(sender, GridView)
   ' Check whether a row is right-clicked.
   If e.MenuType = DevExpress.XtraGrid.Views.Grid.GridMenuType.Row Then
      Dim rowHandle As Integer = e.HitInfo.RowHandle
      ' Delete existing menu items, if any.
      e.Menu.Items.Clear()
      ' Add a submenu with a single menu item.
      e.Menu.Items.Add(CreateRowSubMenu(view, rowHandle))
      ' Add a check menu item.
      Dim item As DXMenuItem = CreateMergingEnabledMenuItem(view, rowHandle)
      item.BeginGroup = True
      e.Menu.Items.Add(item)
   End If
End Sub


' Create a submenu with a single DeleteRow item.
Function CreateRowSubMenu(ByVal view As GridView, _
ByVal rowHandle As Integer) As DXMenuItem
   Dim subMenu As New DXSubMenuItem("Rows")
   Dim menuItemDeleteRow As New DXMenuItem("&Delete Row", _
     AddressOf OnDeleteRowClick, ImageCollection1.Images(0))
   menuItemDeleteRow.Tag = New RowInfo(view, rowHandle)
   subMenu.Items.Add(menuItemDeleteRow)
   Return subMenu
End Function


' Create a check menu item that triggers the Boolean AllowCellMerge option.
Function CreateMergingEnabledMenuItem(ByVal view As GridView, _
ByVal rowHandle As Integer) As DXMenuCheckItem
   Dim checkItem As New DXMenuCheckItem("&Merging Enabled", _
     view.OptionsView.AllowCellMerge, Nothing, AddressOf OnMergingEnabledClick)
   checkItem.Tag = New RowInfo(view, rowHandle)
   Return checkItem
End Function


'The handler for the DeleteRow menu item
Sub OnDeleteRowClick(ByVal sender As Object, ByVal e As EventArgs)
   Dim item As DXMenuItem = CType(sender, DXMenuItem)
   Dim info As RowInfo = CType(item.Tag, RowInfo)
   info.View.DeleteRow(info.RowHandle)
End Sub


'The handler for the MergingEnabled menu item
Sub OnMergingEnabledClick(ByVal sender As Object, ByVal e As EventArgs)
   Dim item As DXMenuCheckItem = CType(sender, DXMenuItem)
   Dim info As RowInfo = CType(item.Tag, RowInfo)
   info.View.OptionsView.AllowCellMerge = item.Checked
End Sub

' ...

' The class that stores menu specific information
Class RowInfo
   Public Sub New(ByVal view As GridView, ByVal rowHandle As Integer)
      Me.RowHandle = rowHandle
      Me.View = view
   End Sub 'New
   Public View As GridView
   Public RowHandle As Integer
End Class