This repository has been archived by the owner on Sep 11, 2023. It is now read-only.
-
Notifications
You must be signed in to change notification settings - Fork 0
/
CustomFilterControl.vb
39 lines (34 loc) · 1.73 KB
/
CustomFilterControl.vb
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Imports System
Imports DevExpress.Data
Imports DevExpress.XtraEditors.Filtering
Imports DevExpress.Data.Filtering.Helpers
Namespace Q253493.FilterControl
Public Class CustomFilterControl
Inherits DevExpress.XtraEditors.FilterControl
Protected Overrides Function CreateModel() As WinFilterTreeNodeModel
Return New CustomWinFilterTreeNodeModel(Me)
End Function
Private Sub RaiseGetDefaultOperation(ByVal args As GetDefaultOperationEventArgs)
Dim handler As EventHandler(Of GetDefaultOperationEventArgs) = TryCast(Events(fGetDefaultOperation), EventHandler(Of GetDefaultOperationEventArgs))
If handler IsNot Nothing Then
handler(Me, args)
End If
End Sub
Friend Function GetDefaultOperationCore(ByVal [property] As IBoundProperty, ByVal operation As ClauseType) As ClauseType
Dim args As New GetDefaultOperationEventArgs([property], operation)
RaiseGetDefaultOperation(args)
Return args.ClauseType
End Function
Private Shared ReadOnly fGetDefaultOperation As New Object()
Public Custom Event GetDefaultOperation As EventHandler(Of GetDefaultOperationEventArgs)
AddHandler(ByVal value As EventHandler(Of GetDefaultOperationEventArgs))
Events.AddHandler(fGetDefaultOperation, value)
End AddHandler
RemoveHandler(ByVal value As EventHandler(Of GetDefaultOperationEventArgs))
Events.RemoveHandler(fGetDefaultOperation, value)
End RemoveHandler
RaiseEvent(ByVal sender As System.Object, ByVal e As GetDefaultOperationEventArgs)
End RaiseEvent
End Event
End Class
End Namespace