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

reorganize form designer & final index properties

Browse Source
This commit is contained in:
Jonathan Jenne 2022-08-09 09:46:12 +02:00
parent 6e9b190f00
commit 8c76b53273
3 changed files with 120 additions and 52 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
app/DD_PM_WINDREAM/ClassConstants.vb
View File

@ -2,4 +2,11 @@
Public Const OpModeFS_PWM = "PURE_WM" Public Const OpModeFS_PWM = "PURE_WM"
Public Const OpModeFS_IDBWM = "IDB_WM" Public Const OpModeFS_IDBWM = "IDB_WM"
Public Const OpModeFS_ZF = "ZOOFLOW" Public Const OpModeFS_ZF = "ZOOFLOW"
Public Const CAT_INFORMATION = "Information"
Public Const CAT_GENERAL = "Allgemein"
Public Const CAT_DISPLAY = "Anzeige"
Public Const CAT_BEHAVIOUR = "Verhalten"
Public Const CAT_DATA = "Daten"
Public Const CAT_VALIDATION = "Validierung"
End Class End Class

117
app/DD_PM_WINDREAM/ModuleControlProperties.vb
View File

@ -5,6 +5,7 @@ Imports System.Globalization
Imports DigitalData.Modules.Language.Utils Imports DigitalData.Modules.Language.Utils
Public Module ModuleControlProperties Public Module ModuleControlProperties
Public Enum IndexTypes Public Enum IndexTypes
SimpleIndex = 0 SimpleIndex = 0
VectorIndex = 1 VectorIndex = 1
@ -14,27 +15,28 @@ Public Module ModuleControlProperties
Private _size As Size Private _size As Size
Private _font As Font Private _font As Font
<DisplayName("Changed At")>
<Category("Allgemein")> <Category(ClassConstants.CAT_INFORMATION)>
<[ReadOnly](True)> <[ReadOnly](True)>
Public Property ChangedAt As Date Public Property ChangedAt As Date
<Category("Allgemein")> <DisplayName("Changed Who")>
<Category(ClassConstants.CAT_INFORMATION)>
<[ReadOnly](True)> <[ReadOnly](True)>
Public Property ChangedWho As String Public Property ChangedWho As String
<Category("Allgemein")> <Category(ClassConstants.CAT_GENERAL)>
<[ReadOnly](True)> <[ReadOnly](True)>
Public Property ID() As Integer Public Property ID() As Integer
<Category("Allgemein")> <Category(ClassConstants.CAT_GENERAL)>
Public Property Name() As String Public Property Name() As String
<Category("Anzeige")> <Category(ClassConstants.CAT_DISPLAY)>
Public Property Location() As Point Public Property Location() As Point
<Category("Anzeige")> <Category(ClassConstants.CAT_DISPLAY)>
Public Property Size() As Size Public Property Size() As Size
Get Get
Return _size Return _size
@ -52,7 +54,7 @@ Public Module ModuleControlProperties
End Set End Set
End Property End Property
<Category("Anzeige")> <Category(ClassConstants.CAT_DISPLAY)>
<TypeConverter(GetType(FontConverter))> <TypeConverter(GetType(FontConverter))>
Public Overridable Property Font As Font Public Overridable Property Font As Font
Get Get
@ -63,7 +65,8 @@ Public Module ModuleControlProperties
End Set End Set
End Property End Property
<Category("Anzeige")> <DisplayName("Font Color")>
<Category(ClassConstants.CAT_DISPLAY)>
Public Property TextColor As Color Public Property TextColor As Color
Class FontConverter Class FontConverter
@ -84,16 +87,24 @@ Public Module ModuleControlProperties
Private _Override_SQL As String Private _Override_SQL As String
Private _Enable_SQL As String Private _Enable_SQL As String
Private _Enable_SQL_ONLOAD As String Private _Enable_SQL_ONLOAD As String
Private _default_value Private _default_value
<Category("Allgemein")> Public Property Active() As Boolean
<Category(ClassConstants.CAT_BEHAVIOUR)>
Public Property Active() As Boolean
<Category(ClassConstants.CAT_VALIDATION)>
Public Property Required() As Boolean Public Property Required() As Boolean
<Category("Validierung")>
<DisplayName("Read Only")>
<Category(ClassConstants.CAT_VALIDATION)>
Public Property [ReadOnly]() As Boolean Public Property [ReadOnly]() As Boolean
<DisplayName("Save Changes On Read Only")>
<Category(ClassConstants.CAT_BEHAVIOUR)>
Public Property [SaveChangeOnReadOnly]() As Boolean Public Property [SaveChangeOnReadOnly]() As Boolean
<Browsable(False)> <Browsable(False)>
<Category("Indexierung")> <Category(ClassConstants.CAT_GENERAL)>
Public Property IndexType() As IndexTypes Public Property IndexType() As IndexTypes
''' <summary> ''' <summary>
''' Diese Eigenschaft enthält die auswählbaren Indicies, die für das Control verfügbar sind. Wird nicht direkt angezeigt. ''' Diese Eigenschaft enthält die auswählbaren Indicies, die für das Control verfügbar sind. Wird nicht direkt angezeigt.
@ -103,10 +114,12 @@ Public Module ModuleControlProperties
''' <summary> ''' <summary>
''' Diese Eigenschaft enthält des ausgewählten Index ''' Diese Eigenschaft enthält des ausgewählten Index
''' </summary> ''' </summary>
<Category("Indexierung")> <Category(ClassConstants.CAT_GENERAL)>
<TypeConverter(GetType(IndexListConverter))> <TypeConverter(GetType(IndexListConverter))>
Public Property Index() As String Public Property Index() As String
<Category("Daten")>
<DisplayName("SQL Command")>
<Category(ClassConstants.CAT_DATA)>
Public Property SQLCommand() As SQLValue Public Property SQLCommand() As SQLValue
Get Get
Return New SQLValue(NotNull(_sql_command, "")) Return New SQLValue(NotNull(_sql_command, ""))
@ -115,6 +128,9 @@ Public Module ModuleControlProperties
_sql_command = value.Value _sql_command = value.Value
End Set End Set
End Property End Property
<DisplayName("Completion Override SQL")>
<Category(ClassConstants.CAT_VALIDATION)>
Public Property Override_SQL() As SQLValue Public Property Override_SQL() As SQLValue
Get Get
Return New SQLValue(NotNull(_Override_SQL, "")) Return New SQLValue(NotNull(_Override_SQL, ""))
@ -123,6 +139,9 @@ Public Module ModuleControlProperties
_Override_SQL = value.Value _Override_SQL = value.Value
End Set End Set
End Property End Property
<DisplayName("Enable On Change SQL")>
<Category(ClassConstants.CAT_BEHAVIOUR)>
Public Property Enable_SQL() As SQLValue Public Property Enable_SQL() As SQLValue
Get Get
Return New SQLValue(NotNull(_Enable_SQL, "")) Return New SQLValue(NotNull(_Enable_SQL, ""))
@ -131,6 +150,9 @@ Public Module ModuleControlProperties
_Enable_SQL = value.Value _Enable_SQL = value.Value
End Set End Set
End Property End Property
<DisplayName("Enable On Load SQL")>
<Category(ClassConstants.CAT_BEHAVIOUR)>
Public Property Enable_SQL_OnLoad() As SQLValue Public Property Enable_SQL_OnLoad() As SQLValue
Get Get
Return New SQLValue(NotNull(_Enable_SQL_ONLOAD, "")) Return New SQLValue(NotNull(_Enable_SQL_ONLOAD, ""))
@ -140,7 +162,8 @@ Public Module ModuleControlProperties
End Set End Set
End Property End Property
<Category("Daten")> <DisplayName("Default Value")>
<Category(ClassConstants.CAT_DATA)>
Public Property DefaultValue() As String Public Property DefaultValue() As String
Get Get
Return _default_value Return _default_value
@ -153,13 +176,18 @@ Public Module ModuleControlProperties
Public Class TextboxProperties Public Class TextboxProperties
Inherits InputProperties Inherits InputProperties
<Category("Sonstiges")>
<DisplayName("Set Control Data SQL")>
<Category(ClassConstants.CAT_BEHAVIOUR)>
Public Property SetControlData As SQLValue Public Property SetControlData As SQLValue
<Category("Validierung")>
<DisplayName("Regex Pattern")>
<Category(ClassConstants.CAT_VALIDATION)>
<Editor(GetType(ClassRegexEditor), GetType(UITypeEditor))> <Editor(GetType(ClassRegexEditor), GetType(UITypeEditor))>
Public Property Regex As String Public Property Regex As String
<Category("Validierung")> <DisplayName("Regex Failure Message")>
<Category(ClassConstants.CAT_VALIDATION)>
<Editor(GetType(MultilineStringEditor), GetType(UITypeEditor))> <Editor(GetType(MultilineStringEditor), GetType(UITypeEditor))>
Public Property RegexMessage As String Public Property RegexMessage As String
End Class End Class
@ -167,34 +195,41 @@ Public Module ModuleControlProperties
Public Class LabelProperties Public Class LabelProperties
Inherits BaseProperties Inherits BaseProperties
<Category("Allgemein")> <Category(ClassConstants.CAT_DISPLAY)>
Public Property Text() As String Public Property Text() As String
End Class End Class
Public Class CheckboxProperties Public Class CheckboxProperties
Inherits InputProperties Inherits InputProperties
<Category("Allgemein")> <Category(ClassConstants.CAT_DISPLAY)>
Public Property Text() As String Public Property Text() As String
<Category("Sonstiges")>
<DisplayName("Set Control Data SQL")>
<Category(ClassConstants.CAT_BEHAVIOUR)>
Public Property SetControlData As SQLValue Public Property SetControlData As SQLValue
End Class End Class
Public Class ComboboxProperties Public Class ComboboxProperties
Inherits InputProperties Inherits InputProperties
<Category("Allgemein")> <Category(ClassConstants.CAT_DISPLAY)>
Public Property Text() As String Public Property Text() As String
<Category("Sonstiges")>
<DisplayName("Set Control Data SQL")>
<Category(ClassConstants.CAT_BEHAVIOUR)>
Public Property SetControlData As SQLValue Public Property SetControlData As SQLValue
<Browsable(False)> <Browsable(False)>
Public Property ChoiceLists() As List(Of String) Public Property ChoiceLists() As List(Of String)
<Category("Daten")> <DisplayName("Static Choice List")>
<Category(ClassConstants.CAT_DATA)>
<TypeConverter(GetType(ChoiceListConverter))> <TypeConverter(GetType(ChoiceListConverter))>
Public Property ChoiceList() As String Public Property ChoiceList() As String
<Category("SpecialBehaviour")>
<DisplayName("Display As Lookup Control")>
<Category(ClassConstants.CAT_BEHAVIOUR)>
Public Property DisplayAsLookUpControl As Boolean Public Property DisplayAsLookUpControl As Boolean
Public Class ChoiceListConverter Public Class ChoiceListConverter
@ -231,7 +266,8 @@ Public Module ModuleControlProperties
Public Class GridControlProperties Public Class GridControlProperties
Inherits InputProperties Inherits InputProperties
<Category("Einstellungen")> <DisplayName("Allow Adding New Values")>
<Category(ClassConstants.CAT_BEHAVIOUR)>
Public Property AllowAddNewValues As Boolean Public Property AllowAddNewValues As Boolean
End Class End Class
Public Class ButtonProperties Public Class ButtonProperties
@ -240,10 +276,11 @@ Public Module ModuleControlProperties
Private _image_Value As String Private _image_Value As String
<Category("Allgemein")> <Category(ClassConstants.CAT_DISPLAY)>
Public Property Text() As String Public Property Text() As String
<Category("Image")> <DisplayName("Image")>
<Category(ClassConstants.CAT_DISPLAY)>
Public Property CtrlImage() As ImageValue Public Property CtrlImage() As ImageValue
Get Get
Return New ImageValue(NotNull(_image_Value, "")) Return New ImageValue(NotNull(_image_Value, ""))
@ -256,16 +293,28 @@ Public Module ModuleControlProperties
Public Class LookupControlProperties Public Class LookupControlProperties
Inherits InputProperties Inherits InputProperties
<Category("Einstellungen")> <DisplayName("Multi Select")>
<Category(ClassConstants.CAT_BEHAVIOUR)>
Public Property MultiSelect As Boolean Public Property MultiSelect As Boolean
<Category("Einstellungen")>
<DisplayName("Allow Adding New Values")>
<Category(ClassConstants.CAT_BEHAVIOUR)>
Public Property AllowAddNewValues As Boolean Public Property AllowAddNewValues As Boolean
<Category("Einstellungen")>
<DisplayName("Prevent Duplicates")>
<Category(ClassConstants.CAT_BEHAVIOUR)>
Public Property PreventDuplicates As Boolean Public Property PreventDuplicates As Boolean
<DisplayName("Static Choice List")>
<Category(ClassConstants.CAT_DATA)>
Public Property ChoiceList() As String Public Property ChoiceList() As String
<Category("SpecialBehaviour")>
<DisplayName("Display As Combobox Control")>
<Category(ClassConstants.CAT_BEHAVIOUR)>
Public Property DisplayAsComboBox As Boolean Public Property DisplayAsComboBox As Boolean
<Category("Sonstiges")>
<DisplayName("Set Control Data SQL")>
<Category(ClassConstants.CAT_BEHAVIOUR)>
Public Property SetControlData As SQLValue Public Property SetControlData As SQLValue
End Class End Class

48
app/DD_PM_WINDREAM/ModuleFinalIndexProperties.vb
View File

@ -6,73 +6,85 @@ Imports FormsUtils
Module ModuleFinalIndexProperties Module ModuleFinalIndexProperties
<TypeConverter(GetType(PropertiesDeluxeTypeConverter))> <TypeConverter(GetType(PropertiesDeluxeTypeConverter))>
Public Class FinalIndexProperties Public Class FinalIndexProperties
<Category("Information")> <DisplayName("ID")>
<Category(ClassConstants.CAT_GENERAL)>
<[ReadOnly](True)> <[ReadOnly](True)>
Public Property GUID As Integer Public Property GUID As Integer
<Category("Information")>
<DisplayName("Connection ID")>
<Category(ClassConstants.CAT_INFORMATION)>
<[ReadOnly](True)> <[ReadOnly](True)>
Public Property ConnectionId As Integer Public Property ConnectionId As Integer
<Category("Sonstiges")> <Category(ClassConstants.CAT_GENERAL)>
Public Property Description As String Public Property Description As String
<Category("Sonstiges")>
<Category(ClassConstants.CAT_BEHAVIOUR)>
Public Property Active As Boolean Public Property Active As Boolean
<Category("Sonstiges")>
<Category(ClassConstants.CAT_BEHAVIOUR)>
Public Property Sequence As Integer = 0 Public Property Sequence As Integer = 0
<Category("Sonstiges")>
<DisplayName("Continue On Indifferent State")>
<Category(ClassConstants.CAT_BEHAVIOUR)>
Public Property ContinueOnIndifferentState As Boolean Public Property ContinueOnIndifferentState As Boolean
''' <summary> ''' <summary>
''' Eigenschaft, die den SQL Editor anzeigt ''' Eigenschaft, die den SQL Editor anzeigt
''' </summary> ''' </summary>
<Category("Daten - SQL")> <DisplayName("SQL Command")>
<Category(ClassConstants.CAT_DATA)>
Public Property SQLCommand As SQLValue Public Property SQLCommand As SQLValue
' Eigenschaften für die verschiedenen Index-Typen ' Eigenschaften für die verschiedenen Index-Typen
<DisplayName("Value")> <DisplayName("Value")>
<Category("Daten - Fester Wert")> <Category(ClassConstants.CAT_DATA)>
<PropertyAttributesProvider("IndexTypeStringProvider")> <PropertyAttributesProvider("IndexTypeStringProvider")>
Public Property StringValue As String Public Property StringValue As String
<DisplayName("Value")> <DisplayName("Value")>
<Category("Daten - Fester Wert")> <Category(ClassConstants.CAT_DATA)>
<PropertyAttributesProvider("IndexTypeBooleanProvider")> <PropertyAttributesProvider("IndexTypeBooleanProvider")>
Public Property BoolValue As Boolean Public Property BoolValue As Boolean
<DisplayName("Value")> <DisplayName("Value")>
<Category("Daten - Fester Wert")> <Category(ClassConstants.CAT_DATA)>
<PropertyAttributesProvider("IndexTypeFloatProvider")> <PropertyAttributesProvider("IndexTypeFloatProvider")>
Public Property FloatValue As Double Public Property FloatValue As Double
<DisplayName("Value")> <DisplayName("Value")>
<Category("Daten - Fester Wert")> <Category(ClassConstants.CAT_DATA)>
<PropertyAttributesProvider("IndexTypeDateProvider")> <PropertyAttributesProvider("IndexTypeDateProvider")>
Public Property DateValue As Date Public Property DateValue As Date
<DisplayName("Value")> <DisplayName("Value")>
<Category("Daten - Fester Wert")> <Category(ClassConstants.CAT_DATA)>
<PropertyAttributesProvider("IndexTypeIntegerProvider")> <PropertyAttributesProvider("IndexTypeIntegerProvider")>
Public Property IntegerValue As Integer Public Property IntegerValue As Integer
<Category("Index")> <DisplayName("Index")>
<Category(ClassConstants.CAT_GENERAL)>
<TypeConverter(GetType(IndexListConverter))> <TypeConverter(GetType(IndexListConverter))>
Public Property IndexName As String Public Property IndexName As String
<Category("Index")> <DisplayName("Vector Index")>
<Category(ClassConstants.CAT_INFORMATION)>
<[ReadOnly](True)> <[ReadOnly](True)>
Public Property VectorIndex As Boolean Public Property VectorIndex As Boolean
<Category("Index")> <Category(ClassConstants.CAT_BEHAVIOUR)>
<DisplayName("Allow Multivalues")> <DisplayName("Allow Multivalues")>
<PropertyAttributesProvider("VectorIndexBooleanProvider")> <PropertyAttributesProvider("VectorIndexBooleanProvider")>
Public Property AllowAddNewValues As Boolean Public Property AllowAddNewValues As Boolean
<Category("Index")> <Category(ClassConstants.CAT_BEHAVIOUR)>
<DisplayName("IndexBehaviour")> <DisplayName("Index Behaviour")>
<TypeConverter(GetType(ClassVectorBehaviourListConverter))> <TypeConverter(GetType(ClassVectorBehaviourListConverter))>
<PropertyAttributesProvider("VectorIndexOnlyProvider")> <PropertyAttributesProvider("VectorIndexOnlyProvider")>
Public Property VectorBehaviour As String Public Property VectorBehaviour As String
<Category("Index")> <DisplayName("Prevent Duplicates")>
<Category(ClassConstants.CAT_BEHAVIOUR)>
<PropertyAttributesProvider("VectorIndexBooleanProvider")> <PropertyAttributesProvider("VectorIndexBooleanProvider")>
Public Property PreventDuplicates As Boolean Public Property PreventDuplicates As Boolean