using DevExpress.XtraGrid.Columns;
using DevExpress.XtraGrid.Views.Grid;

private void gridView1_CustomFilterDialog(object sender, CustomFilterDialogEventArgs e) {
    if(e.Column.FieldName == "OrderDate" || e.Column.FieldName == "RequiredDate" || 
       e.Column.FieldName == "ShippedDate") {
        //Prevent the standard filter dialog from opening
        e.Handled = true;
        //New filter criteria
        e.FilterInfo = new ColumnFilterInfo(DateTime.Today, "[" + e.Column.Caption + "] = TODAY");
    }
}

Imports DevExpress.XtraGrid.Columns
Imports DevExpress.XtraGrid.Views.Grid

Private Sub GridView1_CustomFilterDialog(ByVal sender As Object, _
ByVal e As CustomFilterDialogEventArgs) Handles GridView1.CustomFilterDialog
    If e.Column.FieldName = "OrderDate" OrElse e.Column.FieldName = "RequiredDate" _
    OrElse e.Column.FieldName = "ShippedDate" Then
        'Prevent the standard filter dialog from opening
        e.Handled = True
        'New filter criteria
        e.FilterInfo = New ColumnFilterInfo(DateTime.Today, "[" + e.Column.Caption + "] = TODAY")
    End If
End Sub

using DevExpress.XtraGrid.Views.Grid;
//...
private void gridView1_ShowFilterPopupListBox(object sender, FilterPopupListBoxEventArgs e) {
   if (e.Column.FieldName == "OrderDate" || e.Column.FieldName == "RequiredDate" || 
   e.Column.FieldName == "ShippedDate") {  
      // Locate the (Custom) item.            
      for(int i = 0; i < e.ComboBox.Items.Count; i++) {
         object item = e.ComboBox.Items[i];
         if(item is FilterItem && ((FilterItem)item).Value is FilterItem) {
            object itemValue2 = ((FilterItem)((FilterItem)item).Value).Value;
            if(itemValue2 is Int32 && Convert.ToInt32(itemValue2) == 1) {
               (e.ComboBox.Items[i] as FilterItem).Text = "(TODAY)";
               break;
            }
         }
      }
   }
}

Imports DevExpress.XtraGrid.Views.Grid
'...
Private Sub GridView1_ShowFilterPopupListBox(ByVal sender As System.Object, _
ByVal e As FilterPopupListBoxEventArgs) Handles GridView1.ShowFilterPopupListBox
   If e.Column.FieldName = "OrderDate" Or e.Column.FieldName = "RequiredDate" _
   Or e.Column.FieldName = "ShippedDate" Then
      ' Locate the (Custom) item.            
      Dim i As Integer
      For i = 0 To e.ComboBox.Items.Count - 1
         Dim item As Object = e.ComboBox.Items(i)
         If TypeOf item Is FilterItem Then
            Dim itemValue = CType(item, FilterItem).Value
            If TypeOf itemValue Is FilterItem Then
               Dim itemValue2 = CType(itemValue, FilterItem).Value
               If TypeOf itemValue2 Is Integer Then
                  If Convert.ToInt32(itemValue2) = 1 Then
                     CType(e.ComboBox.Items(i), FilterItem).Text = "(TODAY)"
                     Exit For
                  End If
               End If
            End If
         End If
      Next
   End If
End Sub

using DevExpress.XtraGrid.Views.Grid;
using DevExpress.XtraGrid.Columns;
using DevExpress.XtraEditors;
using DevExpress.XtraGrid.Filter;

private void gridView1_CustomFilterDialog(object sender, CustomFilterDialogEventArgs e) {
    GridView View = sender as GridView;
    if (e.Column.FieldName == "RequiredDate" || e.Column.FieldName == "ShippedDate") {
        //Create a collection of columns to display in the dialog's value combo boxes
        GridColumnCollection cols = new GridColumnCollection(null);
        cols.AddRange(new GridColumn[] {view.Columns["RequiredDate"], 
          View.Columns["ShippedDate"]});
        //Create an advanced Custom Filter Dialog and supply the column collection 
        DevExpress.XtraGrid.Filter.FilterCustomDialog2 dlg = 
            new DevExpress.XtraGrid.Filter.FilterCustomDialog2(e.Column, cols, false);
        //Set the Field options in the dialog to checked 
        setFieldCheckBox(dlg, true);
        //Display the dialog
        dlg.ShowDialog();
        //The dialog sets filter criteria for the column itself based on the user's choice
        //Set e.FilterInfo to null to prevent overriding these criteria 
        //after your event handler is performed
        e.FilterInfo = null;
        //Prevent the standard filter dialog from displaying
        e.Handled = true;
    }
}

//Sets the Field check boxes in the advanced filter dialog to the specified state
private void setFieldCheckBox(FilterCustomDialog2 dialog, bool value) {
   foreach(Control ctrl in dialog.Controls)            
      if(ctrl is PanelControl) {
         foreach(Control childCtrl in ctrl.Controls)
            //Find the GroupBox containing the Field check boxes
            if(childCtrl is GroupBox) {
               foreach(Control elem in childCtrl.Controls) {
                  //Find the Field check boxes
                  if(elem is CheckEdit) {
                     ((CheckEdit)elem).Checked = value;                           
                  }
               }
               return;
            }
      }
}

Imports DevExpress.XtraGrid.Views.Grid
Imports DevExpress.XtraGrid.Columns
Imports DevExpress.XtraEditors
Imports DevExpress.XtraGrid.Filter
'...
Private Sub GridView1_CustomFilterDialog(ByVal sender As Object, _
ByVal e As CustomFilterDialogEventArgs) _
Handles GridView1.CustomFilterDialog
    Dim View As GridView = sender
    If e.Column.FieldName = "RequiredDate" OrElse e.Column.FieldName = "ShippedDate" Then
        'Create a collection of columns to display in the dialog's value combo boxes
        Dim cols As GridColumnCollection = New GridColumnCollection(Nothing)
        cols.AddRange(New GridColumn() {view.Columns("RequiredDate"), View.Columns("ShippedDate")})
        'Create an advanced Custom Filter Dialog and supply the column collection 
        Dim dlg As DevExpress.XtraGrid.Filter.FilterCustomDialog2 = _
            New DevExpress.XtraGrid.Filter.FilterCustomDialog2(e.Column, cols, False)
        'Set the Field options in the dialog to checked
        setFieldCheckBox(dlg, True)
        'Display the dialog
        dlg.ShowDialog()
        'The dialog sets filter criteria for the column itself based on user's choice
        'Set e.FilterInfo to null to prevent overriding these criteria 
        'safter your event handler is performed
        e.FilterInfo = Nothing
        'Prevent the standard filter dialog from displaying
        e.Handled = True
    End If
End Sub

' Sets the Field check boxes in the advanced filter dialog to the specified state
Private Sub setFieldCheckBox(ByVal dialog As FilterCustomDialog2, ByVal value As Boolean)
   For Each ctrl As Control In dialog.Controls
      If TypeOf ctrl Is PanelControl Then
         For Each childCtrl As Control In ctrl.Controls
            ' Find the GroupBox containing the Field check boxes
            If TypeOf childCtrl Is GroupBox Then
               For Each elem As Control In childCtrl.Controls
                  ' Find the Field check boxes
                  If TypeOf elem Is CheckEdit Then
                     CType(elem, CheckEdit).Checked = value
                  End If
               Next
               Exit Sub
            End If
         Next
      End If
   Next
End Sub