ZooFlow: Use BaseRibbonForm, deprecate frmAdmin_Base

GUIs.Common/GridBuilder.vb

@@ -12,21 +12,45 @@ Public Class GridBuilder
         Views.AddRange(GridViews)
     End Sub
 
+    ''' <summary>
+    ''' Applies common properties to all GridViews
+    ''' </summary>
     Public Function WithDefaults() As GridBuilder
         For Each oView In Views
-            oView.OptionsView.EnableAppearanceEvenRow = True
-            oView.OptionsView.ShowAutoFilterRow = True
+            WithDefaults(oView)
         Next
 
         Return Me
     End Function
 
+    ''' <summary>
+    ''' Applies common properties to the supplied GridView
+    ''' </summary>
+    Public Function WithDefaults(GridView As GridView)
+        GridView.OptionsView.EnableAppearanceEvenRow = True
+        GridView.OptionsView.ShowAutoFilterRow = True
+
+        Return Me
+    End Function
+
+    ''' <summary>
+    ''' Applies read-only properties to all GridViews
+    ''' </summary>
     Public Function WithReadOnlyOptions() As GridBuilder
         For Each oView In Views
-            oView.OptionsBehavior.Editable = False
-            oView.OptionsBehavior.ReadOnly = True
+            WithReadOnlyOptions(oView)
         Next
 
         Return Me
     End Function
+
+    ''' <summary>
+    ''' Applies read-only properties to the supplied GridView
+    ''' </summary>
+    Public Function WithReadOnlyOptions(GridView As GridView) As GridBuilder
+        GridView.OptionsBehavior.Editable = False
+        GridView.OptionsBehavior.ReadOnly = True
+
+        Return Me
+    End Function
 End Class