jj 25.05.16

app/DD-Record-Organiser/ClassControlBuilder.vb

@@ -1660,6 +1660,60 @@ Public Class ClassControlBuilder
         control.MainView = gridview
         Dim defaultSize = New Size(200, 150)
 
+        gridview.OptionsView.ShowGroupPanel = False
+        gridview.OptionsView.EnableAppearanceEvenRow = True
+        gridview.Appearance.EvenRow.BackColor = Color.Aqua
+
+
+        If _designMode Then
+            Dim CheckEdit As New DevExpress.XtraEditors.Repository.RepositoryItemCheckEdit()
+            CheckEdit.ValueChecked = True
+            CheckEdit.ValueUnchecked = False
+
+            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
+
+            Dim DataColumn = gridview.Columns.Add()
+            DataColumn.Caption = "Data"
+            DataColumn.FieldName = "DATA"
+            'DataColumn.UnboundType = DevExpress.Data.UnboundColumnType.Object
+            DataColumn.Visible = True
+
+            gridview.OptionsBehavior.ReadOnly = True
+            gridview.OptionsBehavior.Editable = False
+
+            ' 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()
         metadata.Id = id
         metadata.Name = name