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
Show Stats 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"
Dim chklistbox As DevExpress.XtraEditors.CheckedListBoxControl = CType(control, DevExpress.XtraEditors.CheckedListBoxControl)
AddHandler chklistbox.ItemCheck, AddressOf RecordChanged
AddHandler chklistbox.EnabledChanged, AddressOf OnEnabledChanged
' AddHandler chklistbox.EnabledChanged, AddressOf OnEnabledChanged
Case "DataGridView"
Dim gridview As DataGridView = CType(control, DataGridView)
@ -1576,7 +1576,8 @@ Public Class ClassControlBuilder
control.TabIndex = tabindex
control.TabStop = tabstop
control.Parent = _master_panel
'Bei clicken checken
control.CheckOnClick = True
If Not _designMode And read_only Then
control.Enabled = Not read_only
End If
@ -1586,8 +1587,8 @@ Public Class ClassControlBuilder
Dim selectAll As New ToolStripMenuItem()
Dim deselectAll As New ToolStripMenuItem()
selectAll.Text = "Alle auswählen"
deselectAll.Text = "Keine auswählen"
selectAll.Text = "Select all"
deselectAll.Text = "Deselect all"
AddHandler selectAll.Click, AddressOf selectAll_Click
AddHandler deselectAll.Click, AddressOf deselectAll_Click
@ -1640,8 +1641,7 @@ Public Class ClassControlBuilder
End If
End If
End If
'Bei clicken checken
control.CheckOnClick = True
' Wenn statische liste vorhanden, werte splitten und einfügen
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)
Dim combo As CustomComboBox = DirectCast(control, CustomComboBox)
combo.SelectedIndex = -1
' combo.Text = String.Empty
combo.Text = String.Empty
Case GetType(CheckBox)
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)
txt.ReadOnly = state
Case GetType(DevExpress.XtraEditors.CheckedListBoxControl)
Dim chlb As DevExpress.XtraEditors.CheckedListBoxControl = CType(Control, DevExpress.XtraEditors.CheckedListBoxControl)
If state = True Then
chlb.Enabled = False
Else
chlb.Enabled = True
End If
'Dim chlb As DevExpress.XtraEditors.CheckedListBoxControl = CType(Control, DevExpress.XtraEditors.CheckedListBoxControl)
'If state = True Then
' chlb.Enabled = False
'Else
' chlb.Enabled = True
'End If
Case Else
Control.Enabled = Not state