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

MS_21.04.2016

Browse Source
This commit is contained in:
SchreiberM
2016-04-22 07:25:19 +02:00
parent fa5397cd24
commit 89224ad272
3 changed files with 13 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -349,7 +349,7 @@ Public Class ClassControlBuilder
Case "CheckedListBoxControl" Case "CheckedListBoxControl"
Dim chklistbox As DevExpress.XtraEditors.CheckedListBoxControl = CType(control, DevExpress.XtraEditors.CheckedListBoxControl) Dim chklistbox As DevExpress.XtraEditors.CheckedListBoxControl = CType(control, DevExpress.XtraEditors.CheckedListBoxControl)
AddHandler chklistbox.ItemCheck, AddressOf RecordChanged AddHandler chklistbox.ItemCheck, AddressOf RecordChanged
AddHandler chklistbox.EnabledChanged, AddressOf OnEnabledChanged ' AddHandler chklistbox.EnabledChanged, AddressOf OnEnabledChanged
Case "DataGridView" Case "DataGridView"
Dim gridview As DataGridView = CType(control, DataGridView) Dim gridview As DataGridView = CType(control, DataGridView)
@@ -1576,7 +1576,8 @@ Public Class ClassControlBuilder
control.TabIndex = tabindex control.TabIndex = tabindex
control.TabStop = tabstop control.TabStop = tabstop
control.Parent = _master_panel control.Parent = _master_panel
'Bei clicken checken
control.CheckOnClick = True
If Not _designMode And read_only Then If Not _designMode And read_only Then
control.Enabled = Not read_only control.Enabled = Not read_only
End If End If
@@ -1586,8 +1587,8 @@ Public Class ClassControlBuilder
Dim selectAll As New ToolStripMenuItem() Dim selectAll As New ToolStripMenuItem()
Dim deselectAll As New ToolStripMenuItem() Dim deselectAll As New ToolStripMenuItem()
selectAll.Text = "Alle auswählen" selectAll.Text = "Select all"
deselectAll.Text = "Keine auswählen" deselectAll.Text = "Deselect all"
AddHandler selectAll.Click, AddressOf selectAll_Click AddHandler selectAll.Click, AddressOf selectAll_Click
AddHandler deselectAll.Click, AddressOf deselectAll_Click AddHandler deselectAll.Click, AddressOf deselectAll_Click
@@ -1640,8 +1641,7 @@ Public Class ClassControlBuilder
End If End If
End If End If
End If End If
'Bei clicken checken
control.CheckOnClick = True
' Wenn statische liste vorhanden, werte splitten und einfügen ' Wenn statische liste vorhanden, werte splitten und einfügen
If static_list.Length > 0 Then If static_list.Length > 0 Then

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

@@ -458,7 +458,7 @@ Public Class ClassControlValues
Case GetType(CustomComboBox) Case GetType(CustomComboBox)
Dim combo As CustomComboBox = DirectCast(control, CustomComboBox) Dim combo As CustomComboBox = DirectCast(control, CustomComboBox)
combo.SelectedIndex = -1 combo.SelectedIndex = -1
' combo.Text = String.Empty combo.Text = String.Empty
Case GetType(CheckBox) Case GetType(CheckBox)
DirectCast(control, CheckBox).Checked = False DirectCast(control, CheckBox).Checked = False

12
app/DD-Record-Organiser/frmConstructor_Main.vb
View File

@@ -1993,12 +1993,12 @@ Public Class frmConstructor_Main
Dim txt As TextBox = CType(Control, TextBox) Dim txt As TextBox = CType(Control, TextBox)
txt.ReadOnly = state txt.ReadOnly = state
Case GetType(DevExpress.XtraEditors.CheckedListBoxControl) Case GetType(DevExpress.XtraEditors.CheckedListBoxControl)
Dim chlb As DevExpress.XtraEditors.CheckedListBoxControl = CType(Control, DevExpress.XtraEditors.CheckedListBoxControl) 'Dim chlb As DevExpress.XtraEditors.CheckedListBoxControl = CType(Control, DevExpress.XtraEditors.CheckedListBoxControl)
If state = True Then 'If state = True Then
chlb.Enabled = False ' chlb.Enabled = False
Else 'Else
chlb.Enabled = True ' chlb.Enabled = True
End If 'End If
Case Else Case Else
Control.Enabled = Not state Control.Enabled = Not state