Prepare Loading Control Properties in Property Grid, Preload Controls with Data in Workflow Form

This commit is contained in:
Jonathan Jenne
2019-03-26 16:17:40 +01:00
parent 2438528741
commit c1dc7fcc22
27 changed files with 263 additions and 1053 deletions

View File

@@ -1,6 +1,5 @@
Imports System.ComponentModel
Imports DigitalData.GUIs.ClientSuite.ClassControlLocalization
Imports DigitalData.GUIs.ClientSuite.ClassControlUtils
Namespace ControlProperties
Public MustInherit Class ClassBaseProperties
@@ -10,31 +9,9 @@ Namespace ControlProperties
<[ReadOnly](True)>
Public Property Id As Integer
<LocalizedCategory("category_info")>
<LocalizedDescription("desc_type")>
<[ReadOnly](True)>
Public Property Type As ControlType
<LocalizedCategory("category_view")>
<LocalizedDescription("desc_name")>
Public Property Name As String
<LocalizedCategory("category_view")>
<LocalizedDescription("desc_location")>
Public Property Location As Point
<LocalizedCategory("category_view")>
<LocalizedDescription("desc_size")>
Public Property Size As Size
<LocalizedCategory("category_view")>
<LocalizedDescription("desc_fontstyle")>
Public Property Font() As Font
<LocalizedCategory("category_view")>
<LocalizedDescription("desc_color")>
Public Property Color() As Color
End Class
End Namespace

View File

@@ -1,27 +0,0 @@
Imports DigitalData.GUIs.ClientSuite.ClassControlLocalization
Namespace ControlProperties
Public MustInherit Class ClassInputProperties
Inherits ClassBaseProperties
<LocalizedCategory("category_input")>
<LocalizedDescription("desc_required")>
Public Property IsRequired() As Boolean
<LocalizedCategory("category_input")>
<LocalizedDescription("desc_readonly")>
Public Property IsReadOnly() As Boolean
<LocalizedCategory("category_input")>
<LocalizedDescription("desc_defaultvalue")>
Public Property DefaultValue() As String
<LocalizedCategory("category_other")>
<LocalizedDescription("desc_tabindex")>
Public Property TabIndex() As Integer
<LocalizedCategory("category_other")>
<LocalizedDescription("desc_tabstop")>
Public Property TabStop() As Boolean
End Class
End Namespace

View File

@@ -1,20 +0,0 @@
Imports DigitalData.GUIs.ClientSuite.ClassControlLocalization
Namespace ControlProperties
Public Class ClassMultiInputProperties
Inherits ClassInputProperties
Private _static_list As String
<LocalizedDescription("desc_staticlist")>
<LocalizedCategory("category_data")>
Public Property StaticList As StaticList
Get
Return New StaticList(_static_list)
End Get
Set(value As StaticList)
_static_list = value?.Value
End Set
End Property
End Class
End Namespace