AppStd/TaskFlow
8
1
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

use checkstate for checkboxes

Browse Source
This commit is contained in:
Jonathan Jenne 2019-07-17 12:22:55 +02:00
parent db20d97253
commit 551e869392
3 changed files with 13 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
app/DD_PM_WINDREAM/ClassControlCreator.vb
View File

@ -116,7 +116,8 @@ Public Class ClassControlCreator
.AutoSize = True, .AutoSize = True,
.Text = DEFAULT_TEXT, .Text = DEFAULT_TEXT,
.Cursor = Cursors.Hand, .Cursor = Cursors.Hand,
.Location = location .Location = location,
.CheckState = CheckState.Indeterminate
} }
Return control Return control
@ -278,6 +279,7 @@ Public Class ClassControlCreator
control.AutoSize = True control.AutoSize = True
control.Text = row.Item("CTRL_TEXT") control.Text = row.Item("CTRL_TEXT")
control.CheckState = CheckState.Indeterminate
If Not designMode Then If Not designMode Then
control.Enabled = Not row.Item("READ_ONLY") control.Enabled = Not row.Item("READ_ONLY")

6
app/DD_PM_WINDREAM/frmMassValidator.vb
View File

@ -1543,12 +1543,16 @@ Public Class frmMassValidator
Dim chk As CheckBox = oControl Dim chk As CheckBox = oControl
oMyControlInput = chk.Checked.ToString oMyControlInput = chk.Checked.ToString
If chk.Checked = False And _MUSSEINGABE = True Then If chk.CheckState = CheckState.Indeterminate And _MUSSEINGABE = True Then
oMissing = True oMissing = True
oErrorMessage = "Option '" & chk.Name & "' is required." oErrorMessage = "Option '" & chk.Name & "' is required."
Exit For Exit For
End If End If
If chk.CheckState = CheckState.Indeterminate Then
LOGGER.Debug("Checkbox {0} is indeterminate. Skipping indexing.", chk.Name)
Exit For
End If
Dim result() As String Dim result() As String
ReDim Preserve result(0) ReDim Preserve result(0)

6
app/DD_PM_WINDREAM/frmValidator.vb
View File

@ -3299,7 +3299,7 @@ Public Class frmValidator
Dim chk As CheckBox = oControl Dim chk As CheckBox = oControl
input = chk.Checked.ToString input = chk.Checked.ToString
If chk.Checked = False And oIsRequired = True Then If chk.CheckState = CheckState.Indeterminate And oIsRequired = True Then
oMissing = True oMissing = True
oErrorMessage = "Option '" & chk.Name & "' is required." oErrorMessage = "Option '" & chk.Name & "' is required."
Exit For Exit For
@ -3336,6 +3336,10 @@ Public Class frmValidator
End If End If
If chk.CheckState = CheckState.Indeterminate Then
LOGGER.Debug("Checkbox {0} is indeterminate. Skipping indexing.", oControlName)
Exit For
End If
' Dim Bool_WD = CBool(CURRENT_WMFILE.GetVariableValue(_IDXName)) ' Dim Bool_WD = CBool(CURRENT_WMFILE.GetVariableValue(_IDXName))