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
+        If Not _designMode Then
-            Dim CheckEdit As New DevExpress.XtraEditors.Repository.RepositoryItemCheckEdit()
+            ' Filter funktioniert nicht mit den MouseEvents des LevelDesigners
-            CheckEdit.ValueChecked = True
+            gridview.OptionsView.ShowAutoFilterRow = True
-            CheckEdit.ValueUnchecked = False
 
-            Dim CheckColumn = gridview.Columns.Add()
+        Else
-            CheckColumn.Caption = " "
+
-            CheckColumn.FieldName = "CHECKED"
+        End If
-            'CheckColumn.UnboundType = DevExpress.Data.UnboundColumnType.Boolean
+
-            CheckColumn.ColumnEdit = CheckEdit
+        If _designMode Then
-            CheckColumn.Visible = True
-            CheckColumn.Width = 30
 
             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()

app/DD-Record-Organiser/ClassControlCommandsUI.vb

@@ -279,6 +279,8 @@ Public Class ClassControlCommandsUI
                                             dr.Item("CTRLSCR_WIDTH"),
                                             dr.Item("CTRLSCR_HEIGHT"),
                                             False,
+                                            dr.Item("CTRLSCR_TAB_INDEX"),
+                                            dr.Item("CTRLSCR_TAB_STOP"),
                                             dr.Item("CONTROL_READ_ONLY"),
                                             dr.Item("CONTROL_REQUIRED"),
                                             dr.Item("CONTROL_COL_NAME"),

app/DD-Record-Organiser/frmLevel_Designer.vb

@@ -105,7 +105,7 @@
                     ' Aktuelles Control in die Datenbank speichern
                     ClassControlCommands.InsertControl(DesignerCtrlBuilder.CurrentControl)
                 Case "dgvcheck"
-                    DesignerCtrlBuilder.AddDataGridViewCheckable(0, "dgvcheck" & random, 0, 0, 0, 0, True, False, False, "dgvcheck" & random, Parent)
+                    DesignerCtrlBuilder.AddDataGridViewCheckable(0, "dgvcheck" & random, 0, 0, 0, 0, True, 0, False, False, False, "dgvcheck" & random, Parent)
                     ' Aktuelles Control in die Datenbank speichern
                     ClassControlCommands.InsertControl(DesignerCtrlBuilder.CurrentControl)
                 Case Else
@@ -469,6 +469,8 @@
                                             dr.Item("CTRLSCR_WIDTH"),
                                             dr.Item("CTRLSCR_HEIGHT"),
                                             False,
+                                            dr.Item("CTRLSCR_TAB_INDEX"),
+                                            dr.Item("CTRLSCR_TAB_STOP"),
                                             dr.Item("CONTROL_READ_ONLY"),
                                             dr.Item("CONTROL_REQUIRED"),
                                             dr.Item("CONTROL_COL_NAME"),
@@ -863,6 +865,8 @@
                     props.EnabledWhen = New SQLValue(r.Item("CONTROL_SQLCOMMAND_2").ToString())
                     props.IsRequired = r.Item("CONTROL_REQUIRED")
                     props.IsReadOnly = r.Item("CONTROL_READ_ONLY")
+                    props.TabStop = r.Item("CTRLSCR_TAB_STOP")
+                    props.TabIndex = r.Item("CTRLSCR_TAB_INDEX")
                 Case "F_AddAppointment"
                     props.ControlType = "Function.AddToCalendar"
                     props.Caption() = r.Item("CTRLSCR_CAPTION")