jj 13.03

app/DD-Record-Organizer/ClassControlProperties.vb

@@ -142,9 +142,7 @@ Module ClassControlProperties
         Private _location As Point
         Private _name As String = ""
         Private _column_title = ""
-        ' Other Configurations
-        Private _required As Boolean = False
-        Private _read_only As Boolean = False
+
         ' Database Configurations
         Private _sql_command As String = ""
         Private _sql_command_2 As String = "" 'EnabledWhen
@@ -163,28 +161,6 @@ Module ClassControlProperties
             End Set
         End Property
 
-        <LocalizedCategoryAttribute("category_other")>
-        <LocalizedDescriptionAttribute("desc_required")>
-        Public Property IsRequired() As Boolean
-            Get
-                Return _required
-            End Get
-            Set(value As Boolean)
-                _required = value
-            End Set
-        End Property
-
-        <LocalizedCategoryAttribute("category_other")>
-        <LocalizedDescriptionAttribute("desc_readonly")>
-        Public Property IsReadOnly() As Boolean
-            Get
-                Return _read_only
-            End Get
-            Set(value As Boolean)
-                _read_only = value
-            End Set
-        End Property
-
         <LocalizedCategoryAttribute("category_database")>
         <LocalizedDescriptionAttribute("desc_sqlcommand")>
         Public Property SQLCommand() As SQLValue
@@ -238,6 +214,32 @@ Module ClassControlProperties
         Private _tab_stop As Boolean
         Private _show_column As Boolean
 
+        ' Other Configurations
+        Private _required As Boolean = False
+        Private _read_only As Boolean = False
+
+        <LocalizedCategoryAttribute("category_other")>
+        <LocalizedDescriptionAttribute("desc_required")>
+        Public Property IsRequired() As Boolean
+            Get
+                Return _required
+            End Get
+            Set(value As Boolean)
+                _required = value
+            End Set
+        End Property
+
+        <LocalizedCategoryAttribute("category_other")>
+        <LocalizedDescriptionAttribute("desc_readonly")>
+        Public Property IsReadOnly() As Boolean
+            Get
+                Return _read_only
+            End Get
+            Set(value As Boolean)
+                _read_only = value
+            End Set
+        End Property
+
         <LocalizedCategoryAttribute("category_other")>
         <LocalizedDescriptionAttribute("desc_tabindex")>
         Public Property TabIndex() As Integer
@@ -302,6 +304,18 @@ Module ClassControlProperties
             End Set
         End Property
 
+        <Browsable(False)>
+        <LocalizedCategoryAttribute("category_other")>
+        <LocalizedDescriptionAttribute("desc_tree_view")>
+        Public Overloads Property TreeView() As Boolean
+            Get
+                Return False
+            End Get
+            Set(value As Boolean)
+                '_tree_view = value
+            End Set
+        End Property
+
         <LocalizedCategoryAttribute("category_view")>
         <LocalizedDescriptionAttribute("desc_caption")>
         Public Property Caption() As String
@@ -496,6 +510,9 @@ Module ClassControlProperties
         Inherits CommonProperties
 
         Private _show_column As Boolean
+        Private _required As Boolean
+        Private _read_only As Boolean
+        Private _tree_view As Boolean
 
         <LocalizedCategoryAttribute("category_view")>
         <LocalizedDescriptionAttribute("desc_showcolumn")>
@@ -507,10 +524,58 @@ Module ClassControlProperties
                 _show_column = value
             End Set
         End Property
+
+        <LocalizedCategoryAttribute("category_other")>
+        <LocalizedDescriptionAttribute("desc_required")>
+        Public Property IsRequired() As Boolean
+            Get
+                Return _required
+            End Get
+            Set(value As Boolean)
+                _required = value
+            End Set
+        End Property
+
+        <LocalizedCategoryAttribute("category_other")>
+        <LocalizedDescriptionAttribute("desc_readonly")>
+        Public Property IsReadOnly() As Boolean
+            Get
+                Return _read_only
+            End Get
+            Set(value As Boolean)
+                _read_only = value
+            End Set
+        End Property
+
     End Class
 
     Public Class PictureBoxProperties
         Inherits CommonProperties
+
+        Private _required As Boolean
+        Private _read_only As Boolean
+
+        <LocalizedCategoryAttribute("category_other")>
+        <LocalizedDescriptionAttribute("desc_required")>
+        Public Property IsRequired() As Boolean
+            Get
+                Return _required
+            End Get
+            Set(value As Boolean)
+                _required = value
+            End Set
+        End Property
+
+        <LocalizedCategoryAttribute("category_other")>
+        <LocalizedDescriptionAttribute("desc_readonly")>
+        Public Property IsReadOnly() As Boolean
+            Get
+                Return _read_only
+            End Get
+            Set(value As Boolean)
+                _read_only = value
+            End Set
+        End Property
     End Class
     Public Class GroupBoxProperties
         Inherits CommonProperties
@@ -548,6 +613,8 @@ Module ClassControlProperties
                 _back_color = value
             End Set
         End Property
+
+
     End Class
 
     ' +++++ FUNCTION CLASSES +++++