AppCustom/Monitor
8
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Compare commits

base: AppCustom:451dd0097efa6427e32b14342d881307ccfcf1cc
Branches Tags
AppCustom:master
...
compare: AppCustom:6852910e9e0102eba7a1d2f1cbbaa0cd9ddbf5c4
Branches Tags
AppCustom:master

3 Commits
451dd0097e ... 6852910e9e

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
Expand all files Collapse all files

1
GUIs.Monitor/Config.vb
View File

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

4
GUIs.Monitor/My Project/AssemblyInfo.vb
View File

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

5
GUIs.Monitor/ParameterLoader.vb
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)

4
GUIs.Monitor/frmMonitor.vb
View File

@@ -73,6 +73,8 @@ Public Class frmMonitor
Logger = LogConfig.GetLogger() Logger = LogConfig.GetLogger()
ConfigManager = New ConfigManager(Of Config)(LogConfig, Application.UserAppDataPath, Application.CommonAppDataPath, Application.StartupPath) ConfigManager = New ConfigManager(Of Config)(LogConfig, Application.UserAppDataPath, Application.CommonAppDataPath, Application.StartupPath)
ConfigManager.Config.Debug = LogConfig.Debug
Patterns = New Patterns2(LogConfig) Patterns = New Patterns2(LogConfig)
FormHelper = New FormHelper(LogConfig, Me) FormHelper = New FormHelper(LogConfig, Me)
ControlHelper = New Common.ControlHelper(LogConfig) ControlHelper = New Common.ControlHelper(LogConfig)
@@ -208,7 +210,7 @@ Public Class frmMonitor
oColumn.Visible = DisplayColumns.Contains(oColumn.FieldName) oColumn.Visible = DisplayColumns.Contains(oColumn.FieldName)
If oColumn.FieldName = "ADDED_WHEN" Then If oColumn.FieldName = "ADDED_WHEN" Then
oColumn.Format.FormatType = FormatType.DateTime 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 End If
Next Next