How to: Add custom menu items to the standard menus

• Nov 13, 2018
• 2 minutes to read

The following example demonstrates how to add a custom item to a standard context menu and handle the click event for this item. The TreeList.PopupMenuShowing event is handled to add the Clear All item to the summary footer menu. Clicking this item cancels the summary calculations for all Tree List columns.

C#

using DevExpress.Utils.Menu;
using DevExpress.XtraTreeList;
using DevExpress.XtraTreeList.Columns;
//...
private void treeList1_PopupMenuShowing(object sender, DevExpress.XtraTreeList.PopupMenuShowingEventArgs e) {
    TreeList tL = sender as TreeList;
    TreeListHitInfo hitInfo = tL.CalcHitInfo(e.Point);
    if (hitInfo.HitInfoType == HitInfoType.SummaryFooter) {
        DXMenuItem menuItem = new DXMenuItem("Clear All", new EventHandler(this.clearAllMenuItemClick));
        menuItem.Tag = hitInfo.Column;
        e.Menu.Items.Add(menuItem);
    }
}

private void clearAllMenuItemClick(object sender, EventArgs e) {
    TreeListColumn clickedColumn = (sender as DXMenuItem).Tag as TreeListColumn;
    if (clickedColumn == null) return;
    TreeList tl = clickedColumn.TreeList;
    foreach (TreeListColumn column in tl.Columns)
        column.SummaryFooter = SummaryItemType.None;
}

VB.NET

Imports DevExpress.Utils.Menu
Imports DevExpress.XtraTreeList
Imports DevExpress.XtraTreeList.Columns
'...
Private Sub TreeList1_PopupMenuShowing(sender As Object, e As DevExpress.XtraTreeList.PopupMenuShowingEventArgs) Handles TreeList1.PopupMenuShowing
    Dim tL As TreeList = sender
    Dim HitInfo As TreeListHitInfo = tL.CalcHitInfo(e.Point)
    If HitInfo.HitInfoType = HitInfoType.SummaryFooter Then
        Dim menuItem As New DXMenuItem("Clear All", AddressOf Me.clearAllMenuItemClick)
        menuItem.Tag = HitInfo.Column
        e.Menu.Items.Add(menuItem)
    End If
End Sub

Private Sub clearAllMenuItemClick(ByVal sender As Object, ByVal e As EventArgs)
    Dim clickedColumn As TreeListColumn = CType(CType(sender, DXMenuItem).Tag, TreeListColumn)
    If clickedColumn Is Nothing Then Return
    Dim treeList1 As TreeList = clickedColumn.TreeList
    For Each Column In treeList1.Columns
        Column.SummaryFooter = SummaryItemType.None
    Next
End Sub