Add First Pass of UserManager

EDMI_ClientSuite/ClassUIUtils.vb

@@ -0,0 +1,38 @@
+Imports DevExpress.XtraGrid
+Imports DevExpress.XtraGrid.Views.Grid
+
+Public Class ClassUIUtils
+
+    Public Shared Function ConfigureGridVieDefaults(View As GridView)
+        View.OptionsView.ShowAutoFilterRow = True
+        View.OptionsView.EnableAppearanceEvenRow = True
+
+        With View.Appearance
+            .EvenRow.BackColor = Color.Aquamarine
+            .FilterPanel.BackColor = Color.Orange
+        End With
+
+        Return View
+    End Function
+
+    Public Shared Function ConfigureGridViewReadOnly(View As GridView)
+        View.OptionsBehavior.Editable = False
+        View.OptionsBehavior.ReadOnly = True
+        View.OptionsSelection.MultiSelectMode = GridMultiSelectMode.RowSelect
+    End Function
+
+    Public Shared Function ConfigureGridControlDefaults(Grid As GridControl, Optional [ReadOnly] As Boolean = False) As GridControl
+        For Each oView In Grid.Views
+            Select Case oView.GetType
+                Case GetType(GridView)
+                    oView = ConfigureGridVieDefaults(oView)
+
+                    If [ReadOnly] Then
+                        oView = ConfigureGridViewReadOnly(oView)
+                    End If
+            End Select
+        Next
+
+        Return Grid
+    End Function
+End Class