33 lines
834 B
VB.net
33 lines
834 B
VB.net
Imports DevExpress.XtraGrid
|
|
Imports DevExpress.XtraGrid.Views.Grid
|
|
|
|
Public Class GridBuilder
|
|
Public ReadOnly Property Views As New List(Of GridView)
|
|
|
|
Public Sub New(GridView As GridView)
|
|
Views.Add(GridView)
|
|
End Sub
|
|
|
|
Public Sub New(GridViews As List(Of GridView))
|
|
Views.AddRange(GridViews)
|
|
End Sub
|
|
|
|
Public Function WithDefaults() As GridBuilder
|
|
For Each oView In Views
|
|
oView.OptionsView.EnableAppearanceEvenRow = True
|
|
oView.OptionsView.ShowAutoFilterRow = True
|
|
Next
|
|
|
|
Return Me
|
|
End Function
|
|
|
|
Public Function WithReadOnlyOptions() As GridBuilder
|
|
For Each oView In Views
|
|
oView.OptionsBehavior.Editable = False
|
|
oView.OptionsBehavior.ReadOnly = True
|
|
Next
|
|
|
|
Return Me
|
|
End Function
|
|
End Class
|