diff --git a/GUIs.Common/GridBuilder.vb b/GUIs.Common/GridBuilder.vb index e3702752..e754d051 100644 --- a/GUIs.Common/GridBuilder.vb +++ b/GUIs.Common/GridBuilder.vb @@ -1,7 +1,10 @@ -Imports DevExpress.XtraGrid +Imports System.Drawing Imports DevExpress.XtraGrid.Views.Grid +Imports DevExpress.XtraTreeList Public Class GridBuilder + Private ReadOnly EvenRowBackColor = Color.Gainsboro + Public ReadOnly Property Views As New List(Of GridView) Public Sub New(GridView As GridView) @@ -26,9 +29,23 @@ Public Class GridBuilder ''' ''' Applies common properties to the supplied GridView ''' - Public Function WithDefaults(GridView As GridView) + Public Function WithDefaults(GridView As GridView) As GridBuilder GridView.OptionsView.EnableAppearanceEvenRow = True GridView.OptionsView.ShowAutoFilterRow = True + GridView.Appearance.EvenRow.BackColor = EvenRowBackColor + GridView.Appearance.EvenRow.Options.UseBackColor = True + + Return Me + End Function + + ''' + ''' Applies common properties to the supplied TreeList + ''' + Public Function WithDefaults(TreeList As TreeList) As GridBuilder + TreeList.OptionsView.EnableAppearanceEvenRow = True + TreeList.OptionsView.ShowAutoFilterRow = True + TreeList.Appearance.EvenRow.BackColor = EvenRowBackColor + TreeList.Appearance.EvenRow.Options.UseBackColor = True Return Me End Function @@ -53,4 +70,14 @@ Public Class GridBuilder Return Me End Function + + ''' + ''' Applies read-only properties to the supplied TreeList + ''' + Public Function WithReadOnlyOptions(TreeList As TreeList) As GridBuilder + TreeList.OptionsBehavior.Editable = False + TreeList.OptionsBehavior.ReadOnly = True + + Return Me + End Function End Class