AppStd/RecordOrganizer
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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

Browse Source
This commit is contained in:
JenneJ 2016-06-03 13:00:28 +02:00
parent 4610dbd656
commit 4569036691
3 changed files with 17 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
app/DD-Record-Organiser/ClassControlBuilder.vb
View File

@ -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()

2
app/DD-Record-Organiser/ClassControlCommandsUI.vb
View File

@ -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"),

6
app/DD-Record-Organiser/frmLevel_Designer.vb
View File

@ -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")