lots of bugs annihilated/smashed/burned to the ground

app/DD_PM_WINDREAM/ClassControlCreator.vb

@@ -1,5 +1,8 @@
 Imports DD_LIB_Standards
 Imports DevExpress.Utils
+Imports DevExpress.XtraEditors
+Imports DevExpress.XtraEditors.Controls
+Imports DevExpress.XtraEditors.NavigatorButtons
 Imports DevExpress.XtraGrid
 Imports DevExpress.XtraGrid.Views.Grid
 Imports DigitalData.Controls.LookupGrid
@@ -179,6 +182,8 @@ Public Class ClassControlCreator
             .Cursor = Cursors.Hand,
             .Location = location
         }
+        oControl.UseEmbeddedNavigator = True
+        oControl.ForceInitialize()
         Dim oView As GridView = oControl.DefaultView
         oView.OptionsView.ShowGroupPanel = False
 
@@ -236,8 +241,8 @@ Public Class ClassControlCreator
         Return control
     End Function
 
-    Public Shared Function CreateExistingCombobox(row As DataRow, designMode As Boolean) As ComboBox
-        Dim control As ComboBox = CreateBaseControl(New ComboBox(), row, designMode)
+    Public Shared Function CreateExistingCombobox(row As DataRow, designMode As Boolean) As Windows.Forms.ComboBox
+        Dim control As Windows.Forms.ComboBox = CreateBaseControl(New Windows.Forms.ComboBox(), row, designMode)
 
         control.Size = New Size(row.Item("WIDTH"), row.Item("HEIGHT"))
 
@@ -321,8 +326,6 @@ Public Class ClassControlCreator
         Dim oDatatable As New DataTable
         Dim oView As GridView
 
-
-
         oControl.ForceInitialize()
 
         oView = oControl.DefaultView
@@ -343,11 +346,27 @@ Public Class ClassControlCreator
 
         oControl.Size = New Size(row.Item("WIDTH"), row.Item("HEIGHT"))
 
+        ' Add and configure navigator to delete rows
+        oControl.UseEmbeddedNavigator = True
+        With oControl.EmbeddedNavigator.Buttons
+            .CancelEdit.Visible = False
+            .Edit.Visible = False
+            .EndEdit.Visible = False
+            .First.Visible = False
+            .Last.Visible = False
+            .Next.Visible = False
+            .NextPage.Visible = False
+            .Append.Visible = False
+            .PrevPage.Visible = False
+            .Prev.Visible = False
+        End With
+
         For Each oRow As DD_DMSLiteDataSet.TBPM_CONTROL_TABLERow In columns
             Dim oColumn = New DataColumn() With {
                 .DataType = GetType(String),
                 .ColumnName = oRow.SPALTENNAME,
-                .Caption = oRow.SPALTEN_HEADER
+                .Caption = oRow.SPALTEN_HEADER,
+                .ReadOnly = False
             }
 
             oDatatable.Columns.Add(oColumn)
@@ -358,6 +377,7 @@ Public Class ClassControlCreator
         Return oControl
     End Function
 
+
     Public Shared Function CreateExistingLine(row As DataRow, designMode As Boolean) As LineLabel
         Dim control As LineLabel = CreateBaseControl(New LineLabel(), row, designMode)
         control.Text = "------------------------------"