Common: Add GridBuilder

GUIs.Common/Common.vbproj

@@ -114,6 +114,7 @@
       <SubType>Form</SubType>
     </Compile>
     <Compile Include="DocumentResultList\DocumentResultCache.vb" />
+    <Compile Include="GridBuilder.vb" />
     <Compile Include="IResultForm.vb" />
     <Compile Include="My Project\AssemblyInfo.vb" />
     <Compile Include="My Project\Application.Designer.vb">

GUIs.Common/GridBuilder.vb

@@ -0,0 +1,32 @@
+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