jj

app/DD_PM_WINDREAM/ModuleControlProperties.vb

@@ -80,7 +80,7 @@ Public Module ModuleControlProperties
         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")>
@@ -124,15 +124,7 @@ Public Module ModuleControlProperties
                 _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
@@ -224,8 +216,22 @@ Public Module ModuleControlProperties
     End Class
     Public Class ButtonProperties
         Inherits InputProperties
+
+        Private _image_Value As String
+
+
         <Category("Allgemein")>
         Public Property Text() As String
+
+        <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
     End Class
     Public Class LookupControlProperties
         Inherits InputProperties