JJ 27.04.2016

app/DD-Record-Organiser/ClassControlProperties.vb

@@ -123,6 +123,7 @@ Module ClassControlProperties
         Private _read_only As Boolean = False
         ' Database Configurations
         Private _sql_command As String = ""
+        Private _sql_command_2 As String = "" 'EnabledWhen
         ' Font Configurations
         Private _font As Font
         Private _font_color As Color
@@ -170,6 +171,18 @@ Module ClassControlProperties
                 _sql_command = value.Value
             End Set
         End Property
+
+        <LocalizedCategoryAttribute("category_database")>
+        <LocalizedDescriptionAttribute("desc_enabledwhen")>
+        Public Property EnabledWhen() As SQLValue
+            Get
+                Return New SQLValue(_sql_command_2)
+            End Get
+            Set(value As SQLValue)
+                _sql_command_2 = value.Value
+            End Set
+        End Property
+
         <LocalizedCategoryAttribute("category_font")>
         <LocalizedDescriptionAttribute("desc_fontstyle")>
         Public Property Font() As Font