jj02.06 tabindex für gridcontrol und keine doppelte checkcol

app/DD-Record-Organiser/ClassControlBuilder.vb

@@ -1753,6 +1753,8 @@ Public Class ClassControlBuilder
                               vwidth As Integer,
                               vheight As Integer,
                               _new As Boolean,
+                              tabindex As Integer,
+                              tabstop As Boolean,
                               read_only As Boolean,
                               required As Boolean,
                               columnTitle As String,
@@ -1772,18 +1774,15 @@ Public Class ClassControlBuilder
         gridview.OptionsSelection.MultiSelectMode = DevExpress.XtraGrid.Views.Grid.GridMultiSelectMode.CheckBoxRowSelect
 
 
-        If _designMode Then
-            Dim CheckEdit As New DevExpress.XtraEditors.Repository.RepositoryItemCheckEdit()
-            CheckEdit.ValueChecked = True
-            CheckEdit.ValueUnchecked = False
+        If Not _designMode Then
+            ' Filter funktioniert nicht mit den MouseEvents des LevelDesigners
+            gridview.OptionsView.ShowAutoFilterRow = True
 
-            Dim CheckColumn = gridview.Columns.Add()
-            CheckColumn.Caption = " "
-            CheckColumn.FieldName = "CHECKED"
-            'CheckColumn.UnboundType = DevExpress.Data.UnboundColumnType.Boolean
-            CheckColumn.ColumnEdit = CheckEdit
-            CheckColumn.Visible = True
-            CheckColumn.Width = 30
+        Else
+
+        End If
+
+        If _designMode Then
 
             Dim DataColumn = gridview.Columns.Add()
             DataColumn.Caption = "Data"
@@ -1796,29 +1795,18 @@ Public Class ClassControlBuilder
 
             ' Beispieldaten hinzufügen
             Dim dt As New DataTable
-            dt.Columns.Add(CheckColumn.FieldName)
             dt.Columns.Add(DataColumn.FieldName)
 
-            ' Diese Zeile sorgt dafür, dass die checkboxen richtig angezeigt werden.
-            ' Wenn eine Datenquelle an das Control gebunden wird, muss diese in der Ersten
-            ' Spalte den Typ Boolean haben bzw. das Ergebnis muss ein Boolean sein
-            dt.Columns(CheckColumn.FieldName).DataType = GetType(Boolean)
 
             Dim row1 As DataRow = dt.NewRow()
-            row1.Item(CheckColumn.FieldName) = True
             row1.Item(DataColumn.FieldName) = "Datensatz 1"
             dt.Rows.Add(row1)
 
             Dim row2 As DataRow = dt.NewRow()
-            row2.Item(CheckColumn.FieldName) = False
             row2.Item(DataColumn.FieldName) = "Datensatz 2"
             dt.Rows.Add(row2)
 
             control.DataSource = dt
-        Else
-            ' Filter funktioniert nicht mit den MouseEvents des LevelDesigners
-            gridview.OptionsView.ShowAutoFilterRow = True
-
         End If
 
         Dim metadata As New ClassControlMetadata()