Add TreeListDefaults, Rename GridListDefaults

EDMI_ClientSuite/ClientSuite.vbproj

@@ -129,7 +129,8 @@
     <Compile Include="ClassTimer.vb" />
     <Compile Include="ClassUIConfig.vb" />
     <Compile Include="ClassUtils.vb" />
-    <Compile Include="ControlDefaults\ClassGridControl.vb" />
+    <Compile Include="ControlDefaults\GridControlDefaults.vb" />
+    <Compile Include="ControlDefaults\TreeListDefaults.vb" />
     <Compile Include="DockManagerTest.Designer.vb">
       <DependentUpon>DockManagerTest.vb</DependentUpon>
     </Compile>

EDMI_ClientSuite/ControlDefaults/GridControlDefaults.vb

@@ -1,7 +1,7 @@
 Imports DevExpress.XtraGrid
 Imports DevExpress.XtraGrid.Views.Grid
 
-Public Class ClassGridControl
+Public Class GridControlDefaults
     Public Shared Sub DefaultGridSettings(grid As GridControl, Container As Control)
         For Each oView In grid.Views
             If TypeOf oView Is GridView Then

EDMI_ClientSuite/ControlDefaults/TreeListDefaults.vb

@@ -0,0 +1,29 @@
+Imports DevExpress.XtraTreeList
+
+Public Class TreeListDefaults
+    Public Shared Sub DefaultTreeListSettings(TreeList As TreeList, Container As Control)
+        With TreeList.OptionsView
+            .FocusRectStyle = DrawFocusRectStyle.None
+            .ShowColumns = False
+            .ShowHorzLines = False
+            .ShowIndentAsRowStyle = True
+            .ShowIndicator = False
+            .ShowVertLines = False
+        End With
+
+        With TreeList.OptionsSelection
+            .EnableAppearanceFocusedCell = False
+        End With
+
+        With TreeList.Appearance.Empty
+            .BackColor = Color.Transparent
+            .Options.UseBackColor = True
+        End With
+
+        With TreeList.Appearance.Row
+            .BackColor = Color.Transparent
+            .Options.UseBackColor = True
+        End With
+    End Sub
+
+End Class

EDMI_ClientSuite/FormUserManager/UserControlAssignment.vb

@@ -35,10 +35,10 @@ Public Class UserControlAssignment
         ' Load grid customizations
         Dim oGridPatcher = New ClassControlPatcher(Of GridControl)(Me)
         oGridPatcher.
-            ProcessContainer(AddressOf ClassGridControl.DefaultGridSettings).
+            ProcessContainer(AddressOf GridControlDefaults.DefaultGridSettings).
-            ProcessContainer(AddressOf ClassGridControl.ReadOnlyGridSettings).
+            ProcessContainer(AddressOf GridControlDefaults.ReadOnlyGridSettings).
-            ProcessControl(AddressOf ClassGridControl.CheckboxSelectGridSettings, GridNotAssignedToParent).
+            ProcessControl(AddressOf GridControlDefaults.CheckboxSelectGridSettings, GridNotAssignedToParent).
-            ProcessControl(AddressOf ClassGridControl.CheckboxSelectGridSettings, GridAssignedToParent)
+            ProcessControl(AddressOf GridControlDefaults.CheckboxSelectGridSettings, GridAssignedToParent)
 
         ' Load view layouts
         Try

EDMI_ClientSuite/Widgets/ProcessManagerWidget.vb

@@ -8,8 +8,8 @@ Public Class ProcessManagerWidget
         ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
         Dim oGridPatcher = New ClassControlPatcher(Of GridControl)(Me)
         oGridPatcher.
-            ProcessContainer(AddressOf ClassGridControl.DefaultGridSettings).
+            ProcessContainer(AddressOf GridControlDefaults.DefaultGridSettings).
-            ProcessContainer(AddressOf ClassGridControl.ReadOnlyGridSettings)
+            ProcessContainer(AddressOf GridControlDefaults.ReadOnlyGridSettings)
 
 
     End Sub

EDMI_ClientSuite/frmDocTest.vb

@@ -7,8 +7,8 @@ Public Class frmDocTest
         Try
             Dim oControlPatcher = New ClassControlPatcher(Of GridControl)(Me)
             oControlPatcher.
-                ProcessContainer(AddressOf ClassGridControl.DefaultGridSettings).
+                ProcessContainer(AddressOf GridControlDefaults.DefaultGridSettings).
-                ProcessContainer(AddressOf ClassGridControl.ReadOnlyGridSettings)
+                ProcessContainer(AddressOf GridControlDefaults.ReadOnlyGridSettings)
 
             _CommonCommands = New ClassCommonCommands(My.LogConfig)
 

EDMI_ClientSuite/frmInbox.Designer.vb

@@ -25,18 +25,18 @@ Partial Class frmInbox
         Me.RibbonStatusBar = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
         Me.NavBarControl1 = New DevExpress.XtraNavBar.NavBarControl()
         Me.NavBarGroup1 = New DevExpress.XtraNavBar.NavBarGroup()
-        Me.GridControl1 = New DevExpress.XtraGrid.GridControl()
-        Me.GridView1 = New DevExpress.XtraGrid.Views.Grid.GridView()
         Me.NavBarGroupControlContainer1 = New DevExpress.XtraNavBar.NavBarGroupControlContainer()
         Me.TreeList1 = New DevExpress.XtraTreeList.TreeList()
         Me.TreeListColumn1 = New DevExpress.XtraTreeList.Columns.TreeListColumn()
+        Me.GridControl1 = New DevExpress.XtraGrid.GridControl()
+        Me.GridView1 = New DevExpress.XtraGrid.Views.Grid.GridView()
         CType(Me.RibbonControl, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.NavBarControl1, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.NavBarControl1.SuspendLayout()
-        CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.GridView1, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.NavBarGroupControlContainer1.SuspendLayout()
         CType(Me.TreeList1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.GridView1, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
         'RibbonControl
@@ -93,6 +93,49 @@ Partial Class frmInbox
         Me.NavBarGroup1.GroupStyle = DevExpress.XtraNavBar.NavBarGroupStyle.ControlContainer
         Me.NavBarGroup1.Name = "NavBarGroup1"
         '
+        'NavBarGroupControlContainer1
+        '
+        Me.NavBarGroupControlContainer1.Appearance.BackColor = System.Drawing.SystemColors.Control
+        Me.NavBarGroupControlContainer1.Appearance.Options.UseBackColor = True
+        Me.NavBarGroupControlContainer1.Controls.Add(Me.TreeList1)
+        Me.NavBarGroupControlContainer1.Name = "NavBarGroupControlContainer1"
+        Me.NavBarGroupControlContainer1.Size = New System.Drawing.Size(250, 403)
+        Me.NavBarGroupControlContainer1.TabIndex = 0
+        '
+        'TreeList1
+        '
+        Me.TreeList1.Appearance.Empty.Options.UseBackColor = True
+        Me.TreeList1.Appearance.Row.BackColor = System.Drawing.Color.Transparent
+        Me.TreeList1.Appearance.Row.Options.UseBackColor = True
+        Me.TreeList1.Appearance.SelectedRow.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.TreeList1.Appearance.SelectedRow.Options.UseFont = True
+        Me.TreeList1.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder
+        Me.TreeList1.Columns.AddRange(New DevExpress.XtraTreeList.Columns.TreeListColumn() {Me.TreeListColumn1})
+        Me.TreeList1.Cursor = System.Windows.Forms.Cursors.Default
+        Me.TreeList1.CustomizationFormBounds = New System.Drawing.Rectangle(-252, 456, 252, 236)
+        Me.TreeList1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.TreeList1.Location = New System.Drawing.Point(0, 0)
+        Me.TreeList1.Name = "TreeList1"
+        Me.TreeList1.BeginUnboundLoad()
+        Me.TreeList1.AppendNode(New Object() {"Todos"}, -1)
+        Me.TreeList1.AppendNode(New Object() {"Validierungen"}, 0)
+        Me.TreeList1.EndUnboundLoad()
+        Me.TreeList1.OptionsBehavior.Editable = False
+        Me.TreeList1.OptionsSelection.EnableAppearanceFocusedCell = False
+        Me.TreeList1.OptionsView.FocusRectStyle = DevExpress.XtraTreeList.DrawFocusRectStyle.None
+        Me.TreeList1.OptionsView.ShowIndentAsRowStyle = True
+        Me.TreeList1.Size = New System.Drawing.Size(250, 403)
+        Me.TreeList1.TabIndex = 0
+        Me.TreeList1.ViewStyle = DevExpress.XtraTreeList.TreeListViewStyle.TreeView
+        '
+        'TreeListColumn1
+        '
+        Me.TreeListColumn1.Caption = "TreeListColumn1"
+        Me.TreeListColumn1.FieldName = "TreeListColumn1"
+        Me.TreeListColumn1.Name = "TreeListColumn1"
+        Me.TreeListColumn1.Visible = True
+        Me.TreeListColumn1.VisibleIndex = 0
+        '
         'GridControl1
         '
         Me.GridControl1.Dock = System.Windows.Forms.DockStyle.Fill
@@ -109,43 +152,6 @@ Partial Class frmInbox
         Me.GridView1.GridControl = Me.GridControl1
         Me.GridView1.Name = "GridView1"
         '
-        'NavBarGroupControlContainer1
-        '
-        Me.NavBarGroupControlContainer1.Appearance.BackColor = System.Drawing.SystemColors.Control
-        Me.NavBarGroupControlContainer1.Appearance.Options.UseBackColor = True
-        Me.NavBarGroupControlContainer1.Controls.Add(Me.TreeList1)
-        Me.NavBarGroupControlContainer1.Name = "NavBarGroupControlContainer1"
-        Me.NavBarGroupControlContainer1.Size = New System.Drawing.Size(250, 403)
-        Me.NavBarGroupControlContainer1.TabIndex = 0
-        '
-        'TreeList1
-        '
-        Me.TreeList1.Columns.AddRange(New DevExpress.XtraTreeList.Columns.TreeListColumn() {Me.TreeListColumn1})
-        Me.TreeList1.Cursor = System.Windows.Forms.Cursors.Default
-        Me.TreeList1.CustomizationFormBounds = New System.Drawing.Rectangle(-252, 456, 252, 236)
-        Me.TreeList1.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.TreeList1.Location = New System.Drawing.Point(0, 0)
-        Me.TreeList1.Name = "TreeList1"
-        Me.TreeList1.BeginUnboundLoad()
-        Me.TreeList1.AppendNode(New Object() {"Todos"}, -1)
-        Me.TreeList1.AppendNode(New Object() {"Validierungen"}, 0)
-        Me.TreeList1.EndUnboundLoad()
-        Me.TreeList1.OptionsView.ShowFirstLines = True
-        Me.TreeList1.OptionsView.ShowHorzLines = True
-        Me.TreeList1.OptionsView.ShowIndicator = True
-        Me.TreeList1.OptionsView.ShowVertLines = True
-        Me.TreeList1.Size = New System.Drawing.Size(250, 403)
-        Me.TreeList1.TabIndex = 0
-        Me.TreeList1.ViewStyle = DevExpress.XtraTreeList.TreeListViewStyle.TreeView
-        '
-        'TreeListColumn1
-        '
-        Me.TreeListColumn1.Caption = "TreeListColumn1"
-        Me.TreeListColumn1.FieldName = "TreeListColumn1"
-        Me.TreeListColumn1.Name = "TreeListColumn1"
-        Me.TreeListColumn1.Visible = True
-        Me.TreeListColumn1.VisibleIndex = 0
-        '
         'frmInbox
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -162,10 +168,10 @@ Partial Class frmInbox
         CType(Me.RibbonControl, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.NavBarControl1, System.ComponentModel.ISupportInitialize).EndInit()
         Me.NavBarControl1.ResumeLayout(False)
-        CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.GridView1, System.ComponentModel.ISupportInitialize).EndInit()
         Me.NavBarGroupControlContainer1.ResumeLayout(False)
         CType(Me.TreeList1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.GridView1, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
         Me.PerformLayout()
 

EDMI_ClientSuite/frmInbox.vb

@@ -1,8 +1,12 @@
-Public Class frmInbox
+Imports DevExpress.XtraTreeList
+
+Public Class frmInbox
 
 
     Private Sub frmInbox_Load(sender As Object, e As EventArgs) Handles Me.Load
         Dim oCommonCommands As New ClassCommonCommands(My.LogConfig)
+        Dim oControlPatcher As New ClassControlPatcher(Of TreeList)(Me)
+        oControlPatcher.ProcessContainer(AddressOf TreeListDefaults.DefaultTreeListSettings)
 
 
         Dim oSQL As String = "SELECT * FROM VWICM_DOC_METADATA_DE;"

EDMI_ClientSuite/frmObjectEditor.vb

@@ -40,8 +40,8 @@ Public Class frmObjectEditor
         Try
             Dim oGridPatcher = New ClassControlPatcher(Of GridControl)(Me)
             oGridPatcher.
-                ProcessContainer(AddressOf ClassGridControl.DefaultGridSettings).
+                ProcessContainer(AddressOf GridControlDefaults.DefaultGridSettings).
-                ProcessContainer(AddressOf ClassGridControl.ReadOnlyGridSettings)
+                ProcessContainer(AddressOf GridControlDefaults.ReadOnlyGridSettings)
 
             labelParentAttributeId.Caption = $"Attribut-ID: {_AttributeId}"
             labelSyskey.Caption = $"Syskey: {_Syskey}"