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_IDBWM = "IDB_WM"
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

117
app/DD_PM_WINDREAM/ModuleControlProperties.vb
View File

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

46
app/DD_PM_WINDREAM/ModuleFinalIndexProperties.vb
View File

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