/
GridViewEx.vb
49 lines (40 loc) · 1.89 KB
/
GridViewEx.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
40
41
42
43
44
45
46
47
48
49
Imports DevExpress.Data
Imports DevExpress.Utils.Controls
Imports DevExpress.Utils.Serializing
Imports DevExpress.XtraGrid
Imports DevExpress.XtraGrid.Views.Base
Imports DevExpress.XtraGrid.Views.Grid
Imports System
Imports System.ComponentModel
Namespace DxSample.Grid
Public Class GridViewEx
Inherits GridView
Public Sub New()
MyBase.New()
End Sub
Public Sub New(ByVal ownerGrid As GridControl)
MyBase.New(ownerGrid)
End Sub
<DesignerSerializationVisibility(DesignerSerializationVisibility.Content), XtraSerializableProperty(XtraSerializationVisibility.Content)>
Public Overloads ReadOnly Property OptionsBehavior As GridViewExOptionsBehavior
Get
Return CType(MyBase.OptionsBehavior, GridViewExOptionsBehavior)
End Get
End Property
Protected Overrides Function CreateOptionsBehavior() As ColumnViewOptionsBehavior
Return New GridViewExOptionsBehavior(Me)
End Function
Protected Overrides Function CreateDataController() As BaseGridController
If requireDataControllerType = DataControllerType.Regular Then Return New CancellingChangesDataController()
Return MyBase.CreateDataController()
End Function
Protected Overrides Function OnCreateLookupDisplayFilter(ByVal text As String, ByVal displayMember As String) As String
Throw New NotSupportedException("This view cannot be used in lookup editors")
End Function
Protected Overrides Sub UpdateDataControllerOptions()
MyBase.UpdateDataControllerOptions()
Dim controller As CancellingChangesDataController = TryCast(DataController, CancellingChangesDataController)
If controller IsNot Nothing Then controller.CanCancelChanges = OptionsBehavior.CanCancelChanges
End Sub
End Class
End Namespace