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