MS New Properties

app/DD_PM_WINDREAM/ModuleControlProperties.vb

@@ -78,30 +78,27 @@ Public Module ModuleControlProperties
 
         Private _index_type As String
         Private _sql_command As String
+        Private _Override_SQL As String
+        Private _Enable_SQL As String
+        Private _image_Value As String
         Private _default_value
-
         Public Property Required() As Boolean
-
         <Category("Validierung")>
         Public Property [ReadOnly]() As Boolean
-
         <Browsable(False)>
         <Category("Indexierung")>
         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.
         ''' </summary>
         <Browsable(False)>
         Public Property Indicies() As List(Of String)
-
         ''' <summary>
         ''' Diese Eigenschaft enthält des ausgewählten Index
         ''' </summary>
         <Category("Indexierung")>
         <TypeConverter(GetType(IndexListConverter))>
         Public Property Index() As String
-
         <Category("Daten")>
         Public Property SQLCommand() As SQLValue
             Get
@@ -111,7 +108,31 @@ Public Module ModuleControlProperties
                 _sql_command = value.Value
             End Set
         End Property
-
+        Public Property Override_SQL() As SQLValue
+            Get
+                Return New SQLValue(NotNull(_Override_SQL, ""))
+            End Get
+            Set(ByVal value As SQLValue)
+                _Override_SQL = value.Value
+            End Set
+        End Property
+        Public Property Enable_SQL() As SQLValue
+            Get
+                Return New SQLValue(NotNull(_Enable_SQL, ""))
+            End Get
+            Set(ByVal value As SQLValue)
+                _Enable_SQL = value.Value
+            End Set
+        End Property
+        <Category("Image")>
+        Public Property CtrlImage() As ImageValue
+            Get
+                Return New ImageValue(NotNull(_image_Value, ""))
+            End Get
+            Set(ByVal value As ImageValue)
+                _image_Value = value.Value
+            End Set
+        End Property
         <Category("Daten")>
         Public Property DefaultValue() As String
             Get
@@ -201,7 +222,11 @@ Public Module ModuleControlProperties
         <Category("Einstellungen")>
         Public Property AllowAddNewValues As Boolean
     End Class
-
+    Public Class ButtonProperties
+        Inherits InputProperties
+        <Category("Allgemein")>
+        Public Property Text() As String
+    End Class
     Public Class LookupControlProperties
         Inherits InputProperties