disallow clearing date controls

This commit is contained in:
Jonathan Jenne 2022-08-29 14:36:36 +02:00
parent 57eb7cbec8
commit 9d59917b62

View File

@ -63,9 +63,12 @@ Public Class ParameterLoader
oDefaultValue = Now oDefaultValue = Now
End If End If
oControl = New DateEdit() With { Dim oDateEdit As New DateEdit() With {
.EditValue = oDefaultValue .EditValue = oDefaultValue
} }
oDateEdit.Properties.ShowClear = False
oControl = oDateEdit
Case Constants.DataTypeEnum.String Case Constants.DataTypeEnum.String
Dim oDefaultValue As String = GetDefaultValue(oParam) Dim oDefaultValue As String = GetDefaultValue(oParam)