Popup Menus

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

private void gridView1_PopupMenuShowing(object sender, PopupMenuShowingEventArgs e) {
    if(e.MenuType == GridMenuType.Column) {
        string sortAsc = "A to Z";
        string sortDesc = "Z to A";
        if (e.HitInfo.Column.ColumnType == typeof(DateTime)) {
            sortAsc = "Old to New";
            sortDesc = "New to Old";
        }
        DXMenuItem itemAsc = e.Menu.Find(GridStringId.MenuColumnSortAscending); // "Sort Ascending" 
        if (itemAsc != null)
            itemAsc.Caption = sortAsc;

        DXMenuItem itemDesc = e.Menu.Find(GridStringId.MenuColumnSortDescending); // "Sort Descending" 
        if (itemDesc != null)
            itemDesc.Caption = sortDesc;

        e.Menu.Hide(GridStringId.MenuFooterHide); //"Hide Footer" 
        e.Menu.Hide(GridStringId.MenuColumnFilterEditor); // "Filter Editor..." 
        e.Menu.Hide(GridStringId.MenuColumnFindFilterShow); // "Show Find Panel" 
        e.Menu.Hide(GridStringId.MenuColumnFindFilterHide); // "Hide Find Panel" 
        e.Menu.Hide(GridStringId.MenuColumnAutoFilterRowHide); // "Hide Auto Filter Row" 
        e.Menu.Hide(GridStringId.MenuColumnAutoFilterRowShow); // "Show Auto Filter Row" 

        DXMenuItem itemBestFit = e.Menu.Find(GridStringId.MenuColumnBestFit); // "Best Fit" 
        if (itemBestFit != null)
            itemBestFit.Enabled = false;

        DXMenuItem itemBestFitAll = e.Menu.Find(GridStringId.MenuColumnBestFitAllColumns); // "Best Fit All Columns" 
        if (itemBestFitAll != null)
            itemBestFitAll.Enabled = false;
    }
}

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

Private Sub gridView1_PopupMenuShowing(ByVal sender As Object, ByVal e As PopupMenuShowingEventArgs) Handles GridView1.PopupMenuShowing
    If e.MenuType = GridMenuType.Column Then 
        Dim sortAsc As String = "A to Z" 
        Dim sortDesc As String = "Z to A" 

        If e.HitInfo.Column.ColumnType = GetType(DateTime) Then 
            sortAsc = "Old to New" 
            sortDesc = "New to Old" 
        End If 

        Dim itemAsc As DXMenuItem = e.Menu.Find(GridStringId.MenuColumnSortAscending)
        If itemAsc IsNot Nothing Then itemAsc.Caption = sortAsc
        Dim itemDesc As DXMenuItem = e.Menu.Find(GridStringId.MenuColumnSortDescending)
        If itemDesc IsNot Nothing Then itemDesc.Caption = sortDesc
        e.Menu.Hide(GridStringId.MenuFooterHide)
        e.Menu.Hide(GridStringId.MenuColumnFilterEditor)
        e.Menu.Hide(GridStringId.MenuColumnFindFilterShow)
        e.Menu.Hide(GridStringId.MenuColumnFindFilterHide)
        e.Menu.Hide(GridStringId.MenuColumnAutoFilterRowHide)
        e.Menu.Hide(GridStringId.MenuColumnAutoFilterRowShow)
        Dim itemBestFit As DXMenuItem = e.Menu.Find(GridStringId.MenuColumnBestFit)
        If itemBestFit IsNot Nothing Then itemBestFit.Enabled = False 
        Dim itemBestFitAll As DXMenuItem = e.Menu.Find(GridStringId.MenuColumnBestFitAllColumns)
        If itemBestFitAll IsNot Nothing Then itemBestFitAll.Enabled = False 
    End If 
End Sub 

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

private void gridView1_PopupMenuShowing(object sender, PopupMenuShowingEventArgs e) {
    GridView view = sender as GridView;
    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 the Rows submenu with the 'Delete Row' command 
        e.Menu.Items.Add(CreateSubMenuRows(view, rowHandle));
        // Add the 'Cell Merging' check menu item. 
        DXMenuItem item = CreateMenuItemCellMerging(view, rowHandle);
        item.BeginGroup = true;
        e.Menu.Items.Add(item);
    }
}

DXMenuItem CreateSubMenuRows(GridView view, int rowHandle) {
    DXSubMenuItem subMenu = new DXSubMenuItem("Rows");
    string deleteRowsCommandCaption;
    if (view.IsGroupRow(rowHandle))
        deleteRowsCommandCaption = "&Delete rows in this group";
    else 
        deleteRowsCommandCaption = "&Delete this row";
    DXMenuItem menuItemDeleteRow = new DXMenuItem(deleteRowsCommandCaption, new EventHandler(OnDeleteRowClick), imageCollection1.Images[0]);
    menuItemDeleteRow.Tag = new RowInfo(view, rowHandle);
    menuItemDeleteRow.Enabled = view.IsDataRow(rowHandle) || view.IsGroupRow(rowHandle);
    subMenu.Items.Add(menuItemDeleteRow);
    return subMenu;
}

DXMenuCheckItem CreateMenuItemCellMerging(GridView view, int rowHandle) {
    DXMenuCheckItem checkItem = new DXMenuCheckItem("Cell &Merging",
      view.OptionsView.AllowCellMerge, null, new EventHandler(OnCellMergingClick));
    checkItem.Tag = new RowInfo(view, rowHandle);
    checkItem.ImageOptions.Image = imageCollection1.Images[1];
    return checkItem;
}

void OnDeleteRowClick(object sender, EventArgs e) {
    DXMenuItem menuItem = sender as DXMenuItem;
    RowInfo ri = menuItem.Tag as RowInfo;
    if (ri != null) {
        string message = menuItem.Caption.Replace("&", "");
        if (XtraMessageBox.Show(message + " ?", "Confirm operation", MessageBoxButtons.YesNo) != DialogResult.Yes)
            return;
        ri.View.DeleteRow(ri.RowHandle);
    }
}

void OnCellMergingClick(object sender, EventArgs e) {
    DXMenuCheckItem item = sender as DXMenuCheckItem;
    RowInfo info = item.Tag as RowInfo;
    info.View.OptionsView.AllowCellMerge = item.Checked;
}

class RowInfo {
    public RowInfo(GridView view, int rowHandle) {
        this.RowHandle = rowHandle;
        this.View = view;
    }
    public GridView View;
    public int RowHandle;
}

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

Private Sub GridView1_PopupMenuShowing(sender As Object, e As PopupMenuShowingEventArgs) Handles GridView1.PopupMenuShowing
    Dim view As GridView = TryCast(sender, GridView)

    If e.MenuType = GridMenuType.Row Then 
        Dim rowHandle As Integer = e.HitInfo.RowHandle
        e.Menu.Items.Clear()
        e.Menu.Items.Add(CreateSubMenuRows(view, rowHandle))
        Dim item As DXMenuItem = CreateMenuItemCellMerging(view, rowHandle)
        item.BeginGroup = True 
        e.Menu.Items.Add(item)
    End If 
End Sub 

Private Function CreateSubMenuRows(ByVal view As GridView, ByVal rowHandle As Integer) As DXMenuItem
    Dim subMenu As DXSubMenuItem = New DXSubMenuItem("Rows")
    Dim deleteRowsCommandCaption As String 
    If view.IsGroupRow(rowHandle) Then 
        deleteRowsCommandCaption = "&Delete rows in this group" 
    Else 
        deleteRowsCommandCaption = "&Delete this row" 
    End If 
    Dim menuItemDeleteRow As DXMenuItem = New DXMenuItem(deleteRowsCommandCaption, New EventHandler(AddressOf OnDeleteRowClick), ImageCollection1.Images(0))
    menuItemDeleteRow.Tag = New RowInfo(view, rowHandle)
    menuItemDeleteRow.Enabled = view.IsDataRow(rowHandle) OrElse view.IsGroupRow(rowHandle)
    subMenu.Items.Add(menuItemDeleteRow)
    Return subMenu
End Function 

Private Function CreateMenuItemCellMerging(ByVal view As GridView, ByVal rowHandle As Integer) As DXMenuCheckItem
    Dim checkItem As DXMenuCheckItem = New DXMenuCheckItem("Cell &Merging", view.OptionsView.AllowCellMerge, Nothing, New EventHandler(AddressOf OnCellMergingClick))
    checkItem.Tag = New RowInfo(view, rowHandle)
    checkItem.ImageOptions.Image = ImageCollection1.Images(1)
    Return checkItem
End Function 

Private Sub OnDeleteRowClick(ByVal sender As Object, ByVal e As EventArgs)
    Dim menuItem As DXMenuItem = TryCast(sender, DXMenuItem)
    Dim ri As RowInfo = TryCast(menuItem.Tag, RowInfo)
    If ri IsNot Nothing Then 
        Dim message As String = menuItem.Caption.Replace("&", "")
        If XtraMessageBox.Show(message & " ?", "Confirm operation", MessageBoxButtons.YesNo) <> DialogResult.Yes Then Return 
        ri.View.DeleteRow(ri.RowHandle)
    End If 
End Sub 

Private Sub OnCellMergingClick(ByVal sender As Object, ByVal e As EventArgs)
    Dim item As DXMenuCheckItem = TryCast(sender, DXMenuCheckItem)
    Dim info As RowInfo = TryCast(item.Tag, RowInfo)
    info.View.OptionsView.AllowCellMerge = item.Checked
End Sub 

Class RowInfo
    Public Sub New(ByVal view As GridView, ByVal rowHandle As Integer)
        Me.RowHandle = rowHandle
        Me.View = view
    End Sub 

    Public View As GridView
    Public RowHandle As Integer 
End Class 

using DevExpress.XtraGrid.Menu;
using DevExpress.Utils.Menu;
using DevExpress.XtraGrid.Columns; 
using DevExpress.XtraGrid.Views.Grid;
// ... 
private void bandedGridView1_PopupMenuShowing(object sender, PopupMenuShowingEventArgs e) {
    if(e.MenuType == GridMenuType.Column) {
        GridViewColumnMenu menu = e.Menu as GridViewColumnMenu;
        menu.Items.Clear();
        if(menu.Column != null) {
            menu.Items.Add(CreateCheckItem("Lock this column", menu.Column, null));
        }
    }
}

// Creates a menu item. 
DXMenuCheckItem CreateCheckItem(string caption, GridColumn column, Image image) {
    DXMenuCheckItem item = new DXMenuCheckItem(caption, 
      !column.OptionsColumn.AllowMove, image, new EventHandler(OnCanMoveItemClick));
    item.Tag = new MenuColumnInfo(column);
    return item;
}

// Menu item click handler. 
void OnCanMoveItemClick(object sender, EventArgs e) {
    DXMenuCheckItem item = sender as DXMenuCheckItem;
    MenuColumnInfo info = item.Tag as MenuColumnInfo;
    if(info == null) return;
    info.Column.OptionsColumn.AllowMove = !item.Checked;
}

class MenuColumnInfo {
    public MenuColumnInfo(GridColumn column) {
        this.Column = column;               
    }
    public GridColumn Column;
}

Imports DevExpress.XtraGrid.Menu
Imports DevExpress.Utils.Menu
Imports DevExpress.XtraGrid.Columns
Imports DevExpress.XtraGrid.Views.Grid
' ... 
Private Sub bandedGridView1_PopupMenuShowing(ByVal sender As Object, ByVal e As PopupMenuShowingEventArgs)
    If e.MenuType = GridMenuType.Column Then 
        Dim menu As GridViewColumnMenu = TryCast(e.Menu, GridViewColumnMenu)
        menu.Items.Clear()
        If menu.Column IsNot Nothing Then 
            menu.Items.Add(CreateCheckItem("Lock this column", menu.Column, Nothing))
        End If 
    End If 
End Sub 

' Creates a menu item. 
Private Function CreateCheckItem(ByVal caption As String, ByVal column As GridColumn, ByVal image As Image) As DXMenuCheckItem
    Dim item As New DXMenuCheckItem(caption, (Not column.OptionsColumn.AllowMove), image, New EventHandler(AddressOf OnCanMoveItemClick))
    item.Tag = New MenuColumnInfo(column)
    Return item
End Function 

' Menu item click handler. 
Private Sub OnCanMoveItemClick(ByVal sender As Object, ByVal e As EventArgs)
    Dim item As DXMenuCheckItem = TryCast(sender, DXMenuCheckItem)
    Dim info As MenuColumnInfo = TryCast(item.Tag, MenuColumnInfo)
    If info Is Nothing Then 
        Return 
    End If 
    info.Column.OptionsColumn.AllowMove = Not item.Checked
End Sub 

Friend Class MenuColumnInfo
    Public Sub New(ByVal column As GridColumn)
        Me.Column = column
    End Sub 
    Public Column As GridColumn
End Class 

private void gridView1_GridMenuItemClick(object sender, DevExpress.XtraGrid.Views.Grid.GridMenuItemClickEventArgs e) {
    if(e.MenuType == DevExpress.XtraGrid.Views.Grid.GridMenuType.Column) {
        GridStringId value = e.DXMenuItem.Tag is GridStringId ? (GridStringId)e.DXMenuItem.Tag : 0 ;
        if (value == GridStringId.MenuColumnRemoveColumn) { //"Hide This Column" command 
            if(MessageBox.Show("Do you want to hide this column?", "Warning", MessageBoxButtons.YesNo)== DialogResult.No) {
                e.Handled = true; //Cancel further default processing 
            }
        }
    }
}

Private Sub GridView1_GridMenuItemClick(sender As Object, e As GridMenuItemClickEventArgs) Handles GridView1.GridMenuItemClick
    If e.MenuType = GridMenuType.Column Then 
        Dim value As GridStringId = If(TypeOf e.DXMenuItem.Tag Is GridStringId, CType(e.DXMenuItem.Tag, GridStringId), 0)
        If value = GridStringId.MenuColumnRemoveColumn Then 
            If MessageBox.Show("Do you want to hide this column?", "Warning", MessageBoxButtons.YesNo) = DialogResult.No Then 
                e.Handled = True 'Cancel further default processing 
            End If 
        End If 
    End If 
End Sub 

private void gridView1_MouseDown(object sender, MouseEventArgs e) {
    GridView view = sender as GridView;
    if (e.Button == MouseButtons.Right)
        DoShowMenu(view.CalcHitInfo(new Point(e.X, e.Y)));
}

void DoShowMenu(DevExpress.XtraGrid.Views.Grid.ViewInfo.GridHitInfo hi) {
    DevExpress.XtraGrid.Menu.GridViewMenu menu = null;
    // Check whether the header panel button has been clicked.  
    if (hi.HitTest == DevExpress.XtraGrid.Views.Grid.ViewInfo.GridHitTest.ColumnButton) {
        menu = new GridViewColumnButtonMenu(hi.View);
        menu.Init(hi);
        menu.Show(hi.HitPoint);
    }
}

public class GridViewColumnButtonMenu : GridViewMenu {
    public GridViewColumnButtonMenu(DevExpress.XtraGrid.Views.Grid.GridView view) : base(view) { }

    // This method is automatically called by the menu's public Init method.  
    protected override void CreateItems() {
        Items.Clear();
        DXSubMenuItem submenuColumns = new DXSubMenuItem("Columns");
        Items.Add(submenuColumns);
        Items.Add(CreateMenuItem("Runtime Column Customization", GridMenuImages.Column.Images[3], "Customization", true));
        foreach (GridColumn column in View.Columns) {
            if (column.OptionsColumn.ShowInCustomizationForm && column.GroupIndex<0) {
                submenuColumns.Items.Add(CreateMenuCheckItem(column.GetCaption(), column.Visible, null, column, true));
            }
        }
    }

    protected override void OnMenuItemCheckedChanged(object sender, EventArgs e) {
        DXMenuCheckItem item = sender as DXMenuCheckItem;
        if (item.Tag is GridColumn) {
            GridColumn column = item.Tag as GridColumn;
            column.Visible = item.Checked;
        }
    }

    protected override void OnMenuItemClick(object sender, EventArgs e) {
        DXMenuItem item = sender as DXMenuItem;
        if (item.Tag == null) return;
        if (item.Tag.ToString() == "Customization") View.ShowCustomization();
    }
}

Private Sub GridView1_MouseDown(sender As Object, e As MouseEventArgs) Handles GridView1.MouseDown
    Dim view As GridView = TryCast(sender, GridView)
    If e.Button = MouseButtons.Right Then DoShowMenu(view.CalcHitInfo(New Point(e.X, e.Y)))
End Sub 

Private Sub DoShowMenu(ByVal hi As GridHitInfo)
    Dim menu As GridViewMenu = Nothing 

    If hi.HitTest = GridHitTest.ColumnButton Then 
        menu = New GridViewColumnButtonMenu(hi.View)
        menu.Init(hi)
        menu.Show(hi.HitPoint)
    End If 
End Sub 

Public Class GridViewColumnButtonMenu
    Inherits GridViewMenu

    Public Sub New(ByVal view As GridView)
        MyBase.New(view)
    End Sub 

    Protected Overrides Sub CreateItems()
        Items.Clear()
        Dim submenuColumns As DXSubMenuItem = New DXSubMenuItem("Columns")
        Items.Add(submenuColumns)
        Items.Add(CreateMenuItem("Runtime Column Customization", GridMenuImages.Column.Images(3), "Customization", True))

        For Each column As GridColumn In View.Columns

            If column.OptionsColumn.ShowInCustomizationForm AndAlso column.GroupIndex < 0 Then 
                submenuColumns.Items.Add(CreateMenuCheckItem(column.GetCaption(), column.Visible, Nothing, column, True))
            End If 
        Next 
    End Sub 

    Protected Overrides Sub OnMenuItemCheckedChanged(ByVal sender As Object, ByVal e As EventArgs)
        Dim item As DXMenuCheckItem = TryCast(sender, DXMenuCheckItem)

        If TypeOf item.Tag Is GridColumn Then 
            Dim column As GridColumn = TryCast(item.Tag, GridColumn)
            column.Visible = item.Checked
        End If 
    End Sub 

    Protected Overrides Sub OnMenuItemClick(ByVal sender As Object, ByVal e As EventArgs)
        Dim item As DXMenuItem = TryCast(sender, DXMenuItem)
        If item.Tag Is Nothing Then Return 
        If item.Tag.ToString() = "Customization" Then View.ShowCustomization()
    End Sub 
End Class