Fix saving and restoring form position, fix display format

This commit is contained in:
Jonathan Jenne
2023-05-24 08:55:51 +02:00
parent a4b44bc5c3
commit 37b02ec625
2 changed files with 9 additions and 6 deletions

View File

@@ -211,7 +211,7 @@ Public Module ModuleControlProperties
<Editor(GetType(MultilineStringEditor), GetType(UITypeEditor))>
Public Property RegexMessage As String
<DisplayName("Display Format String")>
<DisplayName("Display Format")>
<Category(ClassConstants.CAT_DISPLAY)>
<TypeConverter(GetType(DisplayFormatConverter))>
Public Property DisplayFormat As String
@@ -226,10 +226,10 @@ Public Module ModuleControlProperties
Public Overrides Function GetStandardValues(context As ITypeDescriptorContext) As StandardValuesCollection
Dim displayFormatList = New List(Of String) From {
ClassControlCreator.CONTROL_TYPE_TEXT,
ClassControlCreator.CONTROL_TYPE_BOOLEAN,
ClassControlCreator.CONTROL_TYPE_INTEGER,
ClassControlCreator.CONTROL_TYPE_DOUBLE,
ClassControlCreator.CONTROL_TYPE_CURRENCY
ClassControlCreator.CONTROL_TYPE_CURRENCY,
ClassControlCreator.CONTROL_TYPE_DATE,
ClassControlCreator.CONTROL_TYPE_DATETIME
}
Dim values As New StandardValuesCollection(displayFormatList)
Return values