More Logging for Config Module, Add ControlPatcher, Add More UIConfig Items

EDMI_ClientSuite/UserManager/frmEdit.vb

@@ -1,4 +1,5 @@
 Imports DevExpress.XtraEditors
+Imports DevExpress.XtraGrid
 Imports DevExpress.XtraLayout
 
 Public Class frmEdit
@@ -16,11 +17,16 @@ Public Class frmEdit
     End Sub
 
     Private Async Sub frmEdit_Load(sender As Object, e As EventArgs) Handles MyBase.Load
-        GridList = ClassUIUtils.ConfigureGridControlDefaults(GridList, [ReadOnly]:=True)
+        Dim oGridPatcher = New ClassControlPatcher(Of GridControl)(Me)
+        oGridPatcher.
+            ProcessContainer(AddressOf ClassGridControl.DefaultGridSettings).
+            ProcessContainer(AddressOf ClassGridControl.ReadOnlyGridSettings)
 
         ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
         GridList.DataSource = _Datatable
 
+        SplitContainerControl1.SplitterPosition = My.UIConfig.FrmEdit_Splitter
+
         Dim oUserLanguage = My.Application.User.Language
         Await LoadLanguageTableAsync(oUserLanguage)
         LoadFormLayout()
@@ -101,4 +107,9 @@ Public Class frmEdit
         LayoutControlGroup1.AddItem(New EmptySpaceItem())
         LayoutControlGroup1.LayoutMode = Utils.LayoutMode.Flow
     End Sub
+
+    Private Sub SplitContainerControl1_SplitterPositionChanged(sender As Object, e As EventArgs) Handles SplitContainerControl1.SplitterPositionChanged
+        My.UIConfig.FrmEdit_Splitter = SplitContainerControl1.SplitterPosition
+        My.UIConfigManager.Save()
+    End Sub
 End Class