Compare commits

...

3 Commits

Author SHA1 Message Date
Jonathan Jenne
6852910e9e Version 1.0.0.2 2022-08-29 14:37:52 +02:00
Jonathan Jenne
9d59917b62 disallow clearing date controls 2022-08-29 14:36:36 +02:00
Jonathan Jenne
57eb7cbec8 Add debug config flag 2022-08-29 14:36:22 +02:00
4 changed files with 10 additions and 4 deletions

View File

@ -3,4 +3,5 @@
Public Class Config
<ConnectionString>
Public Property ConnectionString As String = String.Empty
Public Property Debug As Boolean = False
End Class

View File

@ -11,7 +11,7 @@ Imports System.Runtime.InteropServices
<Assembly: AssemblyCompany("Digital Data")>
<Assembly: AssemblyProduct("Monitor")>
<Assembly: AssemblyCopyright("Copyright © 2022")>
<Assembly: AssemblyTrademark("1.0.0.1")>
<Assembly: AssemblyTrademark("1.0.0.2")>
<Assembly: AssemblyCulture("")>
' Setting ComVisible to false makes the types in this assembly not visible
@ -32,5 +32,5 @@ Imports System.Runtime.InteropServices
' You can specify all the values or you can default the Build and Revision Numbers
' by using the '*' as shown below:
' [assembly: AssemblyVersion("1.0.*")]
<Assembly: AssemblyVersion("1.0.0.1")>
<Assembly: AssemblyVersion("1.0.0.2")>
<Assembly: AssemblyFileVersion("1.0.0.0")>

View File

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

View File

@ -73,6 +73,8 @@ Public Class frmMonitor
Logger = LogConfig.GetLogger()
ConfigManager = New ConfigManager(Of Config)(LogConfig, Application.UserAppDataPath, Application.CommonAppDataPath, Application.StartupPath)
ConfigManager.Config.Debug = LogConfig.Debug
Patterns = New Patterns2(LogConfig)
FormHelper = New FormHelper(LogConfig, Me)
ControlHelper = New Common.ControlHelper(LogConfig)
@ -208,7 +210,7 @@ Public Class frmMonitor
oColumn.Visible = DisplayColumns.Contains(oColumn.FieldName)
If oColumn.FieldName = "ADDED_WHEN" Then
oColumn.Format.FormatType = FormatType.DateTime
oColumn.Format.FormatString = "dd.MM.yyyy HH:MM:ss"
oColumn.Format.FormatString = "dd.MM.yyyy HH:MM:ss"
End If
Next