Work on Editor

EDMI_ClientSuite/FormDesigner/Controls/Loader.vb

@@ -58,9 +58,10 @@ Namespace Controls
                 End If
 
                 oEditor.Tag = New Metadata() With {
-                .Id = oControlId,
-                .Type = oControlType
-            }
+                    .Id = oControlId,
+                    .Type = oControlType,
+                    .Caption = oCaption
+                }
 
                 LayoutControls.Add(oEditor)
                 LayoutControlGroup.AddItem(oCaption, oEditor)

EDMI_ClientSuite/FormDesigner/Controls/Metadata.vb

@@ -2,6 +2,7 @@
     Public Class Metadata
         Public Id As Int64
         Public Type As String
+        Public Caption As String
     End Class
 End Namespace
 

EDMI_ClientSuite/FormDesigner/Controls/Properties/BaseProperties.vb

@@ -9,7 +9,7 @@ Namespace Controls.Properties
         <[ReadOnly](True)>
         Public Property Id As Integer
 
-        <LocalizedCategory("category_view")>
+        <LocalizedCategory("category_info")>
         <LocalizedDescription("desc_name")>
         Public Property Name As String
     End Class

EDMI_ClientSuite/FormDesigner/Controls/Properties/CheckboxProperties.vb

@@ -0,0 +1,7 @@
+Namespace Controls.Properties
+    Public Class CheckboxProperties
+        Inherits BaseProperties
+    End Class
+End Namespace
+
+

EDMI_ClientSuite/FormDesigner/Controls/Properties/DatepickerProperties.vb

@@ -0,0 +1,6 @@
+Namespace Controls.Properties
+    Public Class DatepickerProperties
+        Inherits BaseProperties
+    End Class
+
+End Namespace

EDMI_ClientSuite/FormDesigner/Controls/Properties/MemoeditProperties.vb

@@ -0,0 +1,7 @@
+Namespace Controls.Properties
+    Public Class MemoeditProperties
+        Inherits BaseProperties
+    End Class
+End Namespace
+
+

EDMI_ClientSuite/FormDesigner/Controls/Properties/TextboxProperties.vb

@@ -0,0 +1,7 @@
+Namespace Controls.Properties
+    Public Class TextboxProperties
+        Inherits BaseProperties
+    End Class
+End Namespace
+
+