jj

EDMI_ClientSuite/EntityDesigner/ControlProperties/BaseClasses/ClassBaseProperties.vb

@@ -0,0 +1,40 @@
+Imports System.ComponentModel
+Imports DigitalData.GUIS.ClientSuite.ClassControlLocalization
+Imports DigitalData.GUIS.ClientSuite.ClassControlUtils
+
+Namespace ControlProperties
+    Public MustInherit Class ClassBaseProperties
+
+        <LocalizedCategory("category_info")>
+        <LocalizedDescription("desc_id")>
+        <[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
+

EDMI_ClientSuite/EntityDesigner/ControlProperties/BaseClasses/ClassInputProperties.vb

@@ -0,0 +1,27 @@
+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

EDMI_ClientSuite/EntityDesigner/ControlProperties/BaseClasses/ClassMultiInputProperties.vb

@@ -0,0 +1,27 @@
+Imports System.ComponentModel
+Imports System.Drawing.Design
+Imports DevExpress.XtraEditors.Repository
+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