jj 22.06 visible / treeview property

app/DD-Record-Organiser/ClassControlProperties.vb

@@ -39,6 +39,19 @@ Module ClassControlProperties
         Private _location As Point
         Private _name As String
         Private _hint As String
+        Private _visible As Boolean
+        Private _tree_view As Boolean
+
+        <LocalizedCategoryAttribute("category_other")>
+        <LocalizedDescriptionAttribute("desc_tree_view")>
+        Public Property TreeView() As Boolean
+            Get
+                Return _tree_view
+            End Get
+            Set(value As Boolean)
+                _tree_view = value
+            End Set
+        End Property
 
         <LocalizedCategoryAttribute("category_info")>
         <LocalizedDescriptionAttribute("desc_id")>
@@ -75,6 +88,17 @@ Module ClassControlProperties
             End Set
         End Property
 
+        <LocalizedCategoryAttribute("category_view")>
+        <LocalizedDescriptionAttribute("desc_visible")>
+        Public Property Visible() As Boolean
+            Get
+                Return _visible
+            End Get
+            Set(value As Boolean)
+                _visible = value
+            End Set
+        End Property
+
         <LocalizedCategoryAttribute("category_view")>
         <LocalizedDescriptionAttribute("desc_size")>
         Public Property Size() As Size
@@ -381,6 +405,16 @@ Module ClassControlProperties
         Private _caption As String = ""
         Private _default_value As Boolean = False
 
+        <Browsable(False)>
+        Public Overloads Property TreeView() As Boolean
+            Get
+                Return False
+            End Get
+            Set(value As Boolean)
+                'noop
+            End Set
+        End Property
+
         <LocalizedCategoryAttribute("category_view")>
         <LocalizedDescriptionAttribute("desc_caption")>
         Public Property Caption() As String
@@ -411,6 +445,16 @@ Module ClassControlProperties
         Private _caption As String = ""
         Private _default_value As Boolean = False
 
+        <Browsable(False)>
+        Public Overloads Property TreeView() As Boolean
+            Get
+                Return False
+            End Get
+            Set(value As Boolean)
+                'noop
+            End Set
+        End Property
+
 
         <LocalizedCategoryAttribute("category_view")>
         <LocalizedDescriptionAttribute("desc_caption")>
@@ -461,6 +505,16 @@ Module ClassControlProperties
         Private _caption As String = ""
         Private _back_color As Color
 
+        <Browsable(False)>
+        Public Overloads Property TreeView() As Boolean
+            Get
+                Return False
+            End Get
+            Set(value As Boolean)
+                'noop
+            End Set
+        End Property
+
         <LocalizedCategoryAttribute("category_view")>
         <LocalizedDescriptionAttribute("desc_caption")>
         Public Property Caption() As String