Merge branch 'master' of http://scmadmin@172.24.11.74:90/scm/git/RecordOrganizer

app/DD-Record-Organiser/ClassControlBuilder.vb

@@ -1021,7 +1021,7 @@ Public Class ClassControlBuilder
         Try
             Dim control As New DevExpress.XtraEditors.DateEdit
             'Dim control As New DateTimePicker
-            Dim defaultSize As Size = New Size(120, 24)
+            Dim defaultSize As Size = New Size(90, 20)
 
             Dim metadata As New ClassControlMetadata()
             metadata.Id = id
@@ -1105,9 +1105,9 @@ Public Class ClassControlBuilder
 
 
 
-        column.HeaderText = ""
+        'column.HeaderText = ""
-        column.Name = "column1"
+        'column.Name = "column1"
-        control.Columns.Add(column)
+        'control.Columns.Add(column)
 
         If _new And IsNothing(parent) Then
             control.Location = Me.GetCursorPosition()

app/DD-Record-Organiser/ClassControlCommands.vb

@@ -233,16 +233,20 @@
                 DEFAULTVALUE = properties.DefaultValue
             End If
 
-            If type = "TextBox" OrElse
+            'If type = "TextBox" OrElse
-                type = "ComboBox" OrElse
+            '    type = "ComboBox" OrElse
-                type = "CheckBox" OrElse
+            '    type = "CheckBox" OrElse
-                type = "RadioButton" OrElse
+            '    type = "RadioButton" OrElse
-                type = "CheckedListBoxControl" OrElse
+            '    type = "CheckedListBoxControl" OrElse
-                 type = "ListBoxControl" Then
+            '     type = "ListBoxControl" Then
 
+            '    SHOW_COLUMN = BoolToInt(properties.ShowColumn)
+            'Else
+            '    SHOW_COLUMN = BoolToInt(True)
+            'End If
+
+            If propExists(properties, "ShowColumn") Then
                 SHOW_COLUMN = BoolToInt(properties.ShowColumn)
-            Else
-                SHOW_COLUMN = BoolToInt(True)
             End If
 
             If type = "TextBox" AndAlso propExists(properties, "Format") Then

app/DD-Record-Organiser/ClassControlCommandsUI.vb

@@ -495,6 +495,12 @@ Public Class ClassControlCommandsUI
                     Continue For
                 End If
 
+                If TypeOf ctrl Is DevExpress.XtraEditors.CheckedListBoxControl Then
+                    Dim id As Integer = DirectCast(ctrl.Tag, ClassControlMetadata).Id
+                    UpdateMultipleValues(id, RecordID, CONTROL_VALUE)
+                    Continue For
+                End If
+
                 Dim ValueExists = ClassDatabase.Execute_Scalar(String.Format("SELECT RECORD_ID FROM VWPMO_VALUES WHERE RECORD_ID = {0} AND CONTROL_ID = {1}", RecordID, CONTROL_ID))
 
                 If ValueExists Then ' Control Updaten
@@ -510,6 +516,31 @@ Public Class ClassControlCommandsUI
     
     End Sub
 
+    Public Sub UpdateMultipleValues(ControlId As Integer, RecordId As Integer, value As String)
+        Try
+            Dim values As New List(Of String)(value.Split(";"))
+            Dim dt As DataTable = ClassDatabase.Return_Datatable(String.Format("SELECT VALUE FROM TBPMO_CONTROL_VALUE WHERE CONTROL_ID = {0} AND RECORD_ID = {1}", ControlId, RecordId))
+            ' Konvertiere datatable zu liste
+            Dim oldValues = dt.AsEnumerable().Select(Of String)(Function(r)
+                                                                    Return r.Item("VALUE")
+                                                                End Function).ToList()
+
+            Dim AddValues = values.Except(oldValues)
+            Dim RemoveValues = oldValues.Except(values)
+
+            For Each v As String In AddValues
+                ClassDatabase.Execute_non_Query(String.Format("INSERT INTO TBPMO_CONTROL_VALUE (CONTROL_ID, RECORD_ID, VALUE) VALUES({0}, {1}, '{2}')", ControlId, RecordId, v))
+            Next
+
+            For Each v As String In RemoveValues
+                ClassDatabase.Execute_non_Query(String.Format("DELETE FROM TBPMO_CONTROL_VALUE WHERE CONTROL_ID = {0} AND RECORD_ID = {1} AND VALUE = '{2}'", ControlId, RecordId, v))
+            Next
+
+        Catch ex As Exception
+            MsgBox("Error in UpdateMultipleValues:" & vbNewLine & ex.Message)
+        End Try
+    End Sub
+
     Function GetControlValue(ctrl As Control) As String
 
         Dim type = ctrl.GetType().Name
@@ -547,7 +578,7 @@ Public Class ClassControlCommandsUI
                     Dim result_string As String
 
                     For Each item As DevExpress.XtraEditors.Controls.CheckedListBoxItem In chklbx.CheckedItems
-                        result.Add(item.Value)
+                        result.Add(item.Value.ToString.Trim)
                     Next
 
                     result_string = String.Join(";", result)
@@ -598,7 +629,7 @@ Public Class ClassControlCommandsUI
                                         If LogErrorsOnly = False Then ClassLogger.Add(">> Checked ListBox record  '" & rid.ToString & "' was linked successfully.", False)
                                     End If
                                 End If
-                               
+
                             End If
                         End If
                     Catch ex As Exception

app/DD-Record-Organiser/ClassControlLoader.vb

@@ -66,7 +66,7 @@
                 If IsNothing(staticList) Or String.IsNullOrWhiteSpace(staticList) Then
                     Return Nothing
                 Else
-                    Return New List(Of String)(staticList.Split(";"))
+                    Return New List(Of String)(staticList.Split(";").ToArray())
                 End If
             Catch ex As Exception
                 MsgBox("Error in CheckForStaticList: " & vbNewLine & ex.Message)
@@ -74,7 +74,7 @@
             End Try
         End Function
 
-        Private Shared Function GetSqlList(controlId As Integer, formId As Integer, connection_Id As Object, sqlCommand As String)
+        Public Shared Function GetSqlList(controlId As Integer, formId As Integer, connection_Id As Object, sqlCommand As String) As DataTable
             Try
                 If sqlCommand Is Nothing Or sqlCommand = String.Empty Then
                     Return Nothing
@@ -178,6 +178,10 @@
             control.DataSource = dt
         End Sub
 
+        Overloads Shared Sub SetDataSource(control As Windows.Forms.DataGridView, dt As DataTable)
+            control.DataSource = dt
+        End Sub
+
     End Class
 
     Public Structure DynamicValue
@@ -333,13 +337,11 @@
 
     Public Class CheckedListBox : Inherits _ListControl
 
-        Public Shared Sub LoadValue(control As DevExpress.XtraEditors.CheckedListBoxControl, value As String)
+        Public Shared Sub LoadValue(control As DevExpress.XtraEditors.CheckedListBoxControl, values As List(Of Object))
-            If IsNothing(value) Then
+            If IsNothing(values) Then
                 Exit Sub
             End If
 
-            Dim values() As String = value.Split(";")
-
             For Each v As String In values
                 Dim pos = control.FindStringExact(v)
                 If pos >= 0 Then
@@ -353,7 +355,11 @@
                 Dim dynamic As DynamicValue = GetDynamicValue(DirectCast(control.Tag, ClassControlMetadata).Id, formId, conn_Id, SQLCommand)
 
                 If dynamic.StaticList IsNot Nothing Then
-                    control.DataSource = dynamic.StaticList
+                    control.Items.Clear()
+                    For Each item In dynamic.StaticList
+                        control.Items.Add(item)
+                    Next
+                    'control.DataSource = dynamic.StaticList
                 End If
 
                 If dynamic.DataTable IsNot Nothing AndAlso dynamic.DataTable.Rows.Count > 0 Then
@@ -391,4 +397,19 @@
 
     End Class
 
+    Public Class DataGridView : Inherits _ListControl
+
+        Public Shared Sub LoadList(control As Windows.Forms.DataGridView, formId As Integer, ConnId As Object, SQLCommand As String)
+            Dim controlId As Integer = DirectCast(control.Tag, ClassControlMetadata).Id
+            Dim dynamic As DynamicValue = GetDynamicValue(DirectCast(control.Tag, ClassControlMetadata).Id, formId, ConnId, SQLCommand)
+
+            ' SQLCommand ignorieren
+            If dynamic.StaticList IsNot Nothing Then
+                control.DataSource = dynamic.StaticList
+            End If
+
+        End Sub
+
+    End Class
+
 End Namespace

app/DD-Record-Organiser/ClassControlProperties.vb

@@ -399,6 +399,31 @@ Module ClassControlProperties
 
     Public Class DataGridViewProperties
         Inherits CommonProperties
+
+        Private _show_column As Boolean
+        Private _static_list As String
+
+        <LocalizedCategoryAttribute("category_view")>
+        <LocalizedDescriptionAttribute("desc_showcolumn")>
+        Public Property ShowColumn() As Boolean
+            Get
+                Return _show_column
+            End Get
+            Set(value As Boolean)
+                _show_column = value
+            End Set
+        End Property
+
+        <LocalizedCategoryAttribute("category_data")>
+        <LocalizedDescriptionAttribute("desc_staticlist")>
+        Public Property StaticList() As String
+            Get
+                Return _static_list
+            End Get
+            Set(value As String)
+                _static_list = value
+            End Set
+        End Property
     End Class
     Public Class PictureBoxProperties
         Inherits CommonProperties

app/DD-Record-Organiser/ClassControlValues.vb

@@ -159,15 +159,15 @@ Public Class ClassControlValues
                 Dim ControlId As Integer = DirectCast(control.Tag, ClassControlMetadata).Id
 
                 ' Wert per LINQ aus DT_ControlValues suchen der zur aktuellen controlId passt
-                Dim value = (From row In DT_ControlValues.AsEnumerable()
+                Dim values As List(Of Object) = (From row In DT_ControlValues.AsEnumerable()
                             Where row.Item("CONTROL_ID") = ControlId
-                            Select row.Item("VALUE")).FirstOrDefault()
+                            Select row.Item("VALUE")).ToList()
 
                 If TypeOf control Is GroupBox Then
                     Dim groupbox As GroupBox = DirectCast(control, GroupBox)
                     LoadControlValues(RecordId, ParentRecordId, FormId, groupbox.Controls)
                 Else
-                    LoadControlValue(RecordId, ParentRecordId, ControlId, control, value)
+                    LoadControlValue(RecordId, ParentRecordId, ControlId, control, values)
                 End If
 
             Next
@@ -178,8 +178,15 @@ Public Class ClassControlValues
 
     End Sub
 
-    Private Shared Sub LoadControlValue(recordId As Integer, parentRecordId As Integer, controlId As Integer, control As Control, value As Object)
+    Private Shared Sub LoadControlValue(recordId As Integer, parentRecordId As Integer, controlId As Integer, control As Control, values As List(Of Object))
         Try
+            ' Für die meisten Controls wird nur das erste Element der Liste benötigt
+            Dim value As String = Nothing
+
+            If values.Count > 0 Then
+                value = values.Item(0)
+            End If
+
             Select Case control.GetType()
                 Case GetType(TextBox)
                     If LogErrorsOnly = False Then ClassLogger.Add(">> Sub LoadControlValueNeu - GetType(TextBox) ", False)
@@ -219,7 +226,7 @@ Public Class ClassControlValues
                 Case GetType(DevExpress.XtraEditors.CheckedListBoxControl)
                     If LogErrorsOnly = False Then ClassLogger.Add(">> Sub LoadControlValueNeu - GetType(CheckedListBoxControl) ", False)
                     Dim checkedlistbox As DevExpress.XtraEditors.CheckedListBoxControl = DirectCast(control, DevExpress.XtraEditors.CheckedListBoxControl)
-                    ControlLoader.CheckedListBox.LoadValue(checkedlistbox, value)
+                    ControlLoader.CheckedListBox.LoadValue(checkedlistbox, values)
 
                 Case GetType(PictureBox)
                     If LogErrorsOnly = False Then ClassLogger.Add(">> Sub LoadControlValueNeu - GetType(PictureBox) ", False)
@@ -250,7 +257,7 @@ Public Class ClassControlValues
 
             ' Zuerst alle SQL Commands für FormID finden
             ' CONTROL_SQLCOMMAND_1 wird als SQL gealiast
-            Dim SQL As String = String.Format("SELECT CONTROL_ID, CONTROL_CONNID_1,CONTROL_SQLCOMMAND_1 AS SQL FROM VWPMO_CONTROL_SCREEN WHERE FORM_ID = {0} AND CONTROL_SQLCOMMAND_1 <> '' AND CONTROL_SQLCOMMAND_1 NOT LIKE '%@%'", FormID)
+            Dim SQL As String = String.Format("SELECT CONTROL_ID, CONTROL_CONNID_1,CONTROL_SQLCOMMAND_1 AS SQL FROM VWPMO_CONTROL_SCREEN WHERE FORM_ID = {0} AND CONTROL_SQLCOMMAND_1 NOT LIKE '%@%'", FormID)
             Dim dt As DataTable = ClassDatabase.Return_Datatable(SQL)
 
             swsql.Stop()
@@ -290,6 +297,11 @@ Public Class ClassControlValues
                         Dim chlistbox = DirectCast(Ctrl, DevExpress.XtraEditors.CheckedListBoxControl)
                         ControlLoader.CheckedListBox.LoadList(chlistbox, FormID, ConnID, sqlcommand)
 
+                    Case GetType(DataGridView)
+                        Dim gridview = DirectCast(Ctrl, DataGridView)
+                        Dim noSQL As String = ""
+                        ControlLoader.DataGridView.LoadList(gridview, FormID, ConnID, noSQL)
+
                 End Select
 
                 swcontrol.Stop()

app/DD-Record-Organiser/frmTool_ControlDesigner.Designer.vb

@@ -24,9 +24,6 @@ Partial Class frmTool_ControlDesigner
     Private Sub InitializeComponent()
         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmTool_ControlDesigner))
         Me.GroupBox1 = New System.Windows.Forms.GroupBox()
-        Me.GroupBox2 = New System.Windows.Forms.GroupBox()
-        Me.btn_addformdata = New System.Windows.Forms.Button()
-        Me.btn_addtocal = New System.Windows.Forms.Button()
         Me.btnListBox = New System.Windows.Forms.Button()
         Me.btnListBoxCheckable = New System.Windows.Forms.Button()
         Me.btnRadioButton = New System.Windows.Forms.Button()
@@ -38,13 +35,15 @@ Partial Class frmTool_ControlDesigner
         Me.btncmb = New System.Windows.Forms.Button()
         Me.btntextbox = New System.Windows.Forms.Button()
         Me.btnlabel = New System.Windows.Forms.Button()
+        Me.GroupBox2 = New System.Windows.Forms.GroupBox()
+        Me.btn_addformdata = New System.Windows.Forms.Button()
+        Me.btn_addtocal = New System.Windows.Forms.Button()
         Me.GroupBox1.SuspendLayout()
         Me.GroupBox2.SuspendLayout()
         Me.SuspendLayout()
         '
         'GroupBox1
         '
-        resources.ApplyResources(Me.GroupBox1, "GroupBox1")
         Me.GroupBox1.Controls.Add(Me.btnListBox)
         Me.GroupBox1.Controls.Add(Me.btnListBoxCheckable)
         Me.GroupBox1.Controls.Add(Me.btnRadioButton)
@@ -56,33 +55,10 @@ Partial Class frmTool_ControlDesigner
         Me.GroupBox1.Controls.Add(Me.btncmb)
         Me.GroupBox1.Controls.Add(Me.btntextbox)
         Me.GroupBox1.Controls.Add(Me.btnlabel)
+        resources.ApplyResources(Me.GroupBox1, "GroupBox1")
         Me.GroupBox1.Name = "GroupBox1"
         Me.GroupBox1.TabStop = False
         '
-        'GroupBox2
-        '
-        resources.ApplyResources(Me.GroupBox2, "GroupBox2")
-        Me.GroupBox2.Controls.Add(Me.btn_addformdata)
-        Me.GroupBox2.Controls.Add(Me.btn_addtocal)
-        Me.GroupBox2.Name = "GroupBox2"
-        Me.GroupBox2.TabStop = False
-        '
-        'btn_addformdata
-        '
-        resources.ApplyResources(Me.btn_addformdata, "btn_addformdata")
-        Me.btn_addformdata.Image = Global.DD_Record_Organiser.My.Resources.Resources.AddMark_10580
-        Me.btn_addformdata.Name = "btn_addformdata"
-        Me.btn_addformdata.TabStop = False
-        Me.btn_addformdata.UseVisualStyleBackColor = True
-        '
-        'btn_addtocal
-        '
-        resources.ApplyResources(Me.btn_addtocal, "btn_addtocal")
-        Me.btn_addtocal.Image = Global.DD_Record_Organiser.My.Resources.Resources.AddTable_5632
-        Me.btn_addtocal.Name = "btn_addtocal"
-        Me.btn_addtocal.TabStop = False
-        Me.btn_addtocal.UseVisualStyleBackColor = True
-        '
         'btnListBox
         '
         resources.ApplyResources(Me.btnListBox, "btnListBox")
@@ -169,6 +145,30 @@ Partial Class frmTool_ControlDesigner
         Me.btnlabel.TabStop = False
         Me.btnlabel.UseVisualStyleBackColor = True
         '
+        'GroupBox2
+        '
+        Me.GroupBox2.Controls.Add(Me.btn_addformdata)
+        Me.GroupBox2.Controls.Add(Me.btn_addtocal)
+        resources.ApplyResources(Me.GroupBox2, "GroupBox2")
+        Me.GroupBox2.Name = "GroupBox2"
+        Me.GroupBox2.TabStop = False
+        '
+        'btn_addformdata
+        '
+        resources.ApplyResources(Me.btn_addformdata, "btn_addformdata")
+        Me.btn_addformdata.Image = Global.DD_Record_Organiser.My.Resources.Resources.AddMark_10580
+        Me.btn_addformdata.Name = "btn_addformdata"
+        Me.btn_addformdata.TabStop = False
+        Me.btn_addformdata.UseVisualStyleBackColor = True
+        '
+        'btn_addtocal
+        '
+        resources.ApplyResources(Me.btn_addtocal, "btn_addtocal")
+        Me.btn_addtocal.Image = Global.DD_Record_Organiser.My.Resources.Resources.AddTable_5632
+        Me.btn_addtocal.Name = "btn_addtocal"
+        Me.btn_addtocal.TabStop = False
+        Me.btn_addtocal.UseVisualStyleBackColor = True
+        '
         'frmTool_ControlDesigner
         '
         resources.ApplyResources(Me, "$this")

app/DD-Record-Organiser/frmTool_ControlDesigner.en-US.resx

@@ -145,6 +145,9 @@
   <data name="btndtp.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
     <value>NoControl</value>
   </data>
+  <data name="btndtp.Text" xml:space="preserve">
+    <value>DatePicker</value>
+  </data>
   <data name="btncmb.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
     <value>NoControl</value>
   </data>
@@ -154,18 +157,15 @@
   <data name="btnlabel.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
     <value>NoControl</value>
   </data>
+  <data name="GroupBox2.Text" xml:space="preserve">
+    <value>functions</value>
+  </data>
   <data name="btn_addformdata.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
     <value>NoControl</value>
   </data>
   <data name="btn_addtocal.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
     <value>NoControl</value>
   </data>
-  <data name="GroupBox2.Text" xml:space="preserve">
-    <value>functions</value>
-  </data>
-  <data name="$this.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
-    <value>NoControl</value>
-  </data>
   <data name="$this.Text" xml:space="preserve">
     <value>Controls - Formdesigner</value>
   </data>

app/DD-Record-Organiser/frmTool_ControlDesigner.resx

@@ -117,262 +117,127 @@
   <resheader name="writer">
     <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </resheader>
-  <data name="&gt;&gt;btnpb.Parent" xml:space="preserve">
-    <value>GroupBox1</value>
-  </data>
-  <data name="btnpb.Text" xml:space="preserve">
-    <value>PictureBox</value>
-  </data>
   <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
-  <data name="btnpb.Location" type="System.Drawing.Point, System.Drawing">
+  <data name="btnListBox.Font" type="System.Drawing.Font, System.Drawing">
-    <value>12, 127</value>
-  </data>
-  <data name="&gt;&gt;btnListBox.Type" xml:space="preserve">
-    <value>System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="btncmb.Size" type="System.Drawing.Size, System.Drawing">
-    <value>134, 31</value>
-  </data>
-  <data name="&gt;&gt;btnTabelle.Parent" xml:space="preserve">
-    <value>GroupBox1</value>
-  </data>
-  <data name="&gt;&gt;GroupBox1.Type" xml:space="preserve">
-    <value>System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="GroupBox2.Text" xml:space="preserve">
-    <value>Funktionen</value>
-  </data>
-  <data name="btnRadioButton.ImageAlign" type="System.Drawing.ContentAlignment, System.Drawing">
-    <value>MiddleLeft</value>
-  </data>
-  <data name="&gt;&gt;btntextbox.Type" xml:space="preserve">
-    <value>System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <assembly alias="mscorlib" name="mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
-  <data name="GroupBox1.TabIndex" type="System.Int32, mscorlib">
-    <value>3</value>
-  </data>
-  <data name="btnListBox.TextAlign" type="System.Drawing.ContentAlignment, System.Drawing">
-    <value>MiddleRight</value>
-  </data>
-  <data name="btnListBoxCheckable.TextAlign" type="System.Drawing.ContentAlignment, System.Drawing">
-    <value>MiddleRight</value>
-  </data>
-  <data name="&gt;&gt;btnRadioButton.Type" xml:space="preserve">
-    <value>System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="btnListBox.Text" xml:space="preserve">
-    <value>ListBox</value>
-  </data>
-  <data name="btnlabel.Size" type="System.Drawing.Size, System.Drawing">
-    <value>134, 27</value>
-  </data>
-  <data name="btn_addformdata.ImageAlign" type="System.Drawing.ContentAlignment, System.Drawing">
-    <value>MiddleLeft</value>
-  </data>
-  <data name="btncmb.Location" type="System.Drawing.Point, System.Drawing">
-    <value>12, 90</value>
-  </data>
-  <data name="btnRadioButton.TextAlign" type="System.Drawing.ContentAlignment, System.Drawing">
-    <value>MiddleRight</value>
-  </data>
-  <data name="btn_addtocal.Text" xml:space="preserve">
-    <value>Add to Calendar</value>
-  </data>
-  <data name="btngb.Text" xml:space="preserve">
-    <value>GroupBox</value>
-  </data>
-  <data name="btndtp.Text" xml:space="preserve">
-    <value>DateTimePicker</value>
-  </data>
-  <data name="btnTabelle.Text" xml:space="preserve">
-    <value>Tabelle</value>
-  </data>
-  <data name="&gt;&gt;btnTabelle.ZOrder" xml:space="preserve">
-    <value>5</value>
-  </data>
-  <data name="&gt;&gt;btncmb.ZOrder" xml:space="preserve">
-    <value>8</value>
-  </data>
-  <data name="btncmb.Font" type="System.Drawing.Font, System.Drawing">
     <value>Segoe UI, 8.25pt, style=Bold</value>
   </data>
-  <data name="btntextbox.TabIndex" type="System.Int32, mscorlib">
-    <value>2</value>
-  </data>
-  <data name="btnListBox.Size" type="System.Drawing.Size, System.Drawing">
-    <value>134, 31</value>
-  </data>
-  <data name="btnlabel.Location" type="System.Drawing.Point, System.Drawing">
-    <value>12, 22</value>
-  </data>
-  <data name="$this.Font" type="System.Drawing.Font, System.Drawing">
-    <value>Segoe UI, 8.25pt</value>
-  </data>
-  <data name="&gt;&gt;btn_addformdata.Name" xml:space="preserve">
-    <value>btn_addformdata</value>
-  </data>
-  <data name="$this.Text" xml:space="preserve">
-    <value>Werkzeug-Formulardesigner</value>
-  </data>
-  <data name="&gt;&gt;btnListBoxCheckable.Parent" xml:space="preserve">
-    <value>GroupBox1</value>
-  </data>
-  <data name="btnListBox.TabIndex" type="System.Int32, mscorlib">
-    <value>10</value>
-  </data>
-  <data name="btntextbox.Location" type="System.Drawing.Point, System.Drawing">
-    <value>13, 55</value>
-  </data>
-  <data name="&gt;&gt;btn_addformdata.Type" xml:space="preserve">
-    <value>System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="btn_addformdata.TextAlign" type="System.Drawing.ContentAlignment, System.Drawing">
-    <value>MiddleRight</value>
-  </data>
-  <data name="btnRadioButton.Text" xml:space="preserve">
-    <value>RadioButton</value>
-  </data>
-  <data name="btndtp.Size" type="System.Drawing.Size, System.Drawing">
-    <value>132, 27</value>
-  </data>
-  <data name="$this.AutoScaleDimensions" type="System.Drawing.SizeF, System.Drawing">
-    <value>6, 13</value>
-  </data>
-  <data name="btnListBoxCheckable.Location" type="System.Drawing.Point, System.Drawing">
-    <value>12, 164</value>
-  </data>
-  <data name="&gt;&gt;btncmb.Type" xml:space="preserve">
-    <value>System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="&gt;&gt;btncmb.Name" xml:space="preserve">
-    <value>btncmb</value>
-  </data>
   <data name="btnListBox.ImageAlign" type="System.Drawing.ContentAlignment, System.Drawing">
     <value>MiddleLeft</value>
   </data>
-  <data name="&gt;&gt;btn_addtocal.Type" xml:space="preserve">
+  <data name="btnListBox.Location" type="System.Drawing.Point, System.Drawing">
+    <value>12, 200</value>
+  </data>
+  <data name="btnListBox.Size" type="System.Drawing.Size, System.Drawing">
+    <value>134, 31</value>
+  </data>
+  <assembly alias="mscorlib" name="mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
+  <data name="btnListBox.TabIndex" type="System.Int32, mscorlib">
+    <value>10</value>
+  </data>
+  <data name="btnListBox.Text" xml:space="preserve">
+    <value>ListBox</value>
+  </data>
+  <data name="btnListBox.TextAlign" type="System.Drawing.ContentAlignment, System.Drawing">
+    <value>MiddleRight</value>
+  </data>
+  <data name="&gt;&gt;btnListBox.Name" xml:space="preserve">
+    <value>btnListBox</value>
+  </data>
+  <data name="&gt;&gt;btnListBox.Type" xml:space="preserve">
     <value>System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </data>
-  <data name="btnTabelle.ImageAlign" type="System.Drawing.ContentAlignment, System.Drawing">
+  <data name="&gt;&gt;btnListBox.Parent" xml:space="preserve">
-    <value>MiddleLeft</value>
-  </data>
-  <data name="&gt;&gt;btngb.Parent" xml:space="preserve">
     <value>GroupBox1</value>
   </data>
-  <data name="btngb.ImageAlign" type="System.Drawing.ContentAlignment, System.Drawing">
+  <data name="&gt;&gt;btnListBox.ZOrder" xml:space="preserve">
-    <value>MiddleLeft</value>
-  </data>
-  <data name="&gt;&gt;btnlabel.Name" xml:space="preserve">
-    <value>btnlabel</value>
-  </data>
-  <data name="btnCheckbox.Size" type="System.Drawing.Size, System.Drawing">
-    <value>132, 31</value>
-  </data>
-  <data name="&gt;&gt;btn_addtocal.Name" xml:space="preserve">
-    <value>btn_addtocal</value>
-  </data>
-  <data name="&gt;&gt;GroupBox2.ZOrder" xml:space="preserve">
     <value>0</value>
   </data>
-  <data name="&gt;&gt;btn_addtocal.ZOrder" xml:space="preserve">
-    <value>1</value>
-  </data>
-  <data name="btncmb.TextAlign" type="System.Drawing.ContentAlignment, System.Drawing">
-    <value>MiddleRight</value>
-  </data>
-  <data name="btndtp.Location" type="System.Drawing.Point, System.Drawing">
-    <value>152, 22</value>
-  </data>
-  <data name="btntextbox.Font" type="System.Drawing.Font, System.Drawing">
-    <value>Segoe UI, 8.25pt, style=Bold</value>
-  </data>
-  <data name="btnpb.Font" type="System.Drawing.Font, System.Drawing">
-    <value>Segoe UI, 8.25pt, style=Bold</value>
-  </data>
-  <data name="&gt;&gt;GroupBox2.Parent" xml:space="preserve">
-    <value>$this</value>
-  </data>
-  <data name="btnCheckbox.TextAlign" type="System.Drawing.ContentAlignment, System.Drawing">
-    <value>MiddleRight</value>
-  </data>
-  <data name="&gt;&gt;btngb.ZOrder" xml:space="preserve">
-    <value>3</value>
-  </data>
-  <data name="&gt;&gt;btnRadioButton.Name" xml:space="preserve">
-    <value>btnRadioButton</value>
-  </data>
-  <data name="btnpb.Size" type="System.Drawing.Size, System.Drawing">
-    <value>134, 31</value>
-  </data>
-  <data name="&gt;&gt;btndtp.Type" xml:space="preserve">
-    <value>System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="&gt;&gt;btnRadioButton.ZOrder" xml:space="preserve">
-    <value>2</value>
-  </data>
-  <data name="&gt;&gt;$this.Name" xml:space="preserve">
-    <value>frmTool_ControlDesigner</value>
-  </data>
-  <data name="btnTabelle.TextAlign" type="System.Drawing.ContentAlignment, System.Drawing">
-    <value>MiddleRight</value>
-  </data>
-  <data name="&gt;&gt;btnListBoxCheckable.ZOrder" xml:space="preserve">
-    <value>1</value>
-  </data>
-  <data name="btnListBoxCheckable.Size" type="System.Drawing.Size, System.Drawing">
-    <value>134, 31</value>
-  </data>
   <data name="btnListBoxCheckable.Font" type="System.Drawing.Font, System.Drawing">
     <value>Segoe UI, 8.25pt, style=Bold</value>
   </data>
-  <data name="btnCheckbox.TabIndex" type="System.Int32, mscorlib">
+  <data name="btnListBoxCheckable.ImageAlign" type="System.Drawing.ContentAlignment, System.Drawing">
-    <value>3</value>
-  </data>
-  <data name="btnListBoxCheckable.Text" xml:space="preserve">
-    <value>ListBox Checkable</value>
-  </data>
-  <data name="btn_addtocal.ImageAlign" type="System.Drawing.ContentAlignment, System.Drawing">
     <value>MiddleLeft</value>
   </data>
+  <data name="btnListBoxCheckable.Location" type="System.Drawing.Point, System.Drawing">
+    <value>12, 164</value>
+  </data>
+  <data name="btnListBoxCheckable.Size" type="System.Drawing.Size, System.Drawing">
+    <value>134, 31</value>
+  </data>
   <data name="btnListBoxCheckable.TabIndex" type="System.Int32, mscorlib">
     <value>9</value>
   </data>
-  <data name="&gt;&gt;btnRadioButton.Parent" xml:space="preserve">
+  <data name="btnListBoxCheckable.Text" xml:space="preserve">
+    <value>ListBox Checkable</value>
+  </data>
+  <data name="btnListBoxCheckable.TextAlign" type="System.Drawing.ContentAlignment, System.Drawing">
+    <value>MiddleRight</value>
+  </data>
+  <data name="&gt;&gt;btnListBoxCheckable.Name" xml:space="preserve">
+    <value>btnListBoxCheckable</value>
+  </data>
+  <data name="&gt;&gt;btnListBoxCheckable.Type" xml:space="preserve">
+    <value>System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </data>
+  <data name="&gt;&gt;btnListBoxCheckable.Parent" xml:space="preserve">
     <value>GroupBox1</value>
   </data>
-  <data name="btn_addtocal.TabIndex" type="System.Int32, mscorlib">
+  <data name="&gt;&gt;btnListBoxCheckable.ZOrder" xml:space="preserve">
-    <value>0</value>
+    <value>1</value>
   </data>
-  <data name="&gt;&gt;btndtp.Parent" xml:space="preserve">
+  <data name="btnRadioButton.Font" type="System.Drawing.Font, System.Drawing">
-    <value>GroupBox1</value>
+    <value>Segoe UI, 8.25pt, style=Bold</value>
   </data>
-  <data name="&gt;&gt;btn_addformdata.Parent" xml:space="preserve">
+  <data name="btnRadioButton.ImageAlign" type="System.Drawing.ContentAlignment, System.Drawing">
-    <value>GroupBox2</value>
+    <value>MiddleLeft</value>
   </data>
-  <data name="&gt;&gt;btntextbox.Parent" xml:space="preserve">
+  <data name="btnRadioButton.Location" type="System.Drawing.Point, System.Drawing">
-    <value>GroupBox1</value>
+    <value>152, 92</value>
+  </data>
+  <data name="btnRadioButton.Size" type="System.Drawing.Size, System.Drawing">
+    <value>132, 31</value>
   </data>
   <data name="btnRadioButton.TabIndex" type="System.Int32, mscorlib">
     <value>5</value>
   </data>
-  <data name="btn_addtocal.Location" type="System.Drawing.Point, System.Drawing">
+  <data name="btnRadioButton.Text" xml:space="preserve">
-    <value>12, 24</value>
+    <value>RadioButton</value>
   </data>
-  <data name="&gt;&gt;btnlabel.Parent" xml:space="preserve">
+  <data name="btnRadioButton.TextAlign" type="System.Drawing.ContentAlignment, System.Drawing">
+    <value>MiddleRight</value>
+  </data>
+  <data name="&gt;&gt;btnRadioButton.Name" xml:space="preserve">
+    <value>btnRadioButton</value>
+  </data>
+  <data name="&gt;&gt;btnRadioButton.Type" xml:space="preserve">
+    <value>System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </data>
+  <data name="&gt;&gt;btnRadioButton.Parent" xml:space="preserve">
     <value>GroupBox1</value>
   </data>
-  <data name="&gt;&gt;btn_addtocal.Parent" xml:space="preserve">
+  <data name="&gt;&gt;btnRadioButton.ZOrder" xml:space="preserve">
-    <value>GroupBox2</value>
+    <value>2</value>
   </data>
-  <data name="btndtp.ImageAlign" type="System.Drawing.ContentAlignment, System.Drawing">
+  <data name="btngb.Font" type="System.Drawing.Font, System.Drawing">
+    <value>Segoe UI, 8.25pt, style=Bold</value>
+  </data>
+  <data name="btngb.ImageAlign" type="System.Drawing.ContentAlignment, System.Drawing">
     <value>MiddleLeft</value>
   </data>
-  <data name="&gt;&gt;btncmb.Parent" xml:space="preserve">
+  <data name="btngb.Location" type="System.Drawing.Point, System.Drawing">
-    <value>GroupBox1</value>
+    <value>152, 164</value>
   </data>
-  <data name="btnlabel.ImageAlign" type="System.Drawing.ContentAlignment, System.Drawing">
+  <data name="btngb.Size" type="System.Drawing.Size, System.Drawing">
-    <value>MiddleLeft</value>
+    <value>132, 31</value>
+  </data>
+  <data name="btngb.TabIndex" type="System.Int32, mscorlib">
+    <value>8</value>
+  </data>
+  <data name="btngb.Text" xml:space="preserve">
+    <value>GroupBox</value>
+  </data>
+  <data name="btngb.TextAlign" type="System.Drawing.ContentAlignment, System.Drawing">
+    <value>MiddleRight</value>
   </data>
   <data name="&gt;&gt;btngb.Name" xml:space="preserve">
     <value>btngb</value>
@@ -380,250 +245,382 @@
   <data name="&gt;&gt;btngb.Type" xml:space="preserve">
     <value>System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </data>
-  <data name="&gt;&gt;GroupBox1.Parent" xml:space="preserve">
+  <data name="&gt;&gt;btngb.Parent" xml:space="preserve">
-    <value>$this</value>
+    <value>GroupBox1</value>
   </data>
-  <data name="btnTabelle.Size" type="System.Drawing.Size, System.Drawing">
+  <data name="&gt;&gt;btngb.ZOrder" xml:space="preserve">
-    <value>132, 31</value>
+    <value>3</value>
   </data>
-  <data name="btn_addtocal.Size" type="System.Drawing.Size, System.Drawing">
+  <data name="btnpb.Font" type="System.Drawing.Font, System.Drawing">
+    <value>Segoe UI, 8.25pt, style=Bold</value>
+  </data>
+  <data name="btnpb.ImageAlign" type="System.Drawing.ContentAlignment, System.Drawing">
+    <value>MiddleLeft</value>
+  </data>
+  <data name="btnpb.Location" type="System.Drawing.Point, System.Drawing">
+    <value>12, 127</value>
+  </data>
+  <data name="btnpb.Size" type="System.Drawing.Size, System.Drawing">
     <value>134, 31</value>
   </data>
-  <data name="&gt;&gt;btnListBox.Parent" xml:space="preserve">
+  <data name="btnpb.TabIndex" type="System.Int32, mscorlib">
-    <value>GroupBox1</value>
+    <value>6</value>
+  </data>
+  <data name="btnpb.Text" xml:space="preserve">
+    <value>PictureBox</value>
   </data>
   <data name="btnpb.TextAlign" type="System.Drawing.ContentAlignment, System.Drawing">
     <value>MiddleRight</value>
   </data>
-  <data name="btnCheckbox.ImageAlign" type="System.Drawing.ContentAlignment, System.Drawing">
+  <data name="&gt;&gt;btnpb.Name" xml:space="preserve">
+    <value>btnpb</value>
+  </data>
+  <data name="&gt;&gt;btnpb.Type" xml:space="preserve">
+    <value>System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </data>
+  <data name="&gt;&gt;btnpb.Parent" xml:space="preserve">
+    <value>GroupBox1</value>
+  </data>
+  <data name="&gt;&gt;btnpb.ZOrder" xml:space="preserve">
+    <value>4</value>
+  </data>
+  <data name="btnTabelle.Font" type="System.Drawing.Font, System.Drawing">
+    <value>Segoe UI, 8.25pt, style=Bold</value>
+  </data>
+  <data name="btnTabelle.ImageAlign" type="System.Drawing.ContentAlignment, System.Drawing">
     <value>MiddleLeft</value>
   </data>
+  <data name="btnTabelle.Location" type="System.Drawing.Point, System.Drawing">
+    <value>152, 127</value>
+  </data>
+  <data name="btnTabelle.Size" type="System.Drawing.Size, System.Drawing">
+    <value>132, 31</value>
+  </data>
   <data name="btnTabelle.TabIndex" type="System.Int32, mscorlib">
     <value>7</value>
   </data>
-  <data name="GroupBox2.TabIndex" type="System.Int32, mscorlib">
+  <data name="btnTabelle.Text" xml:space="preserve">
-    <value>4</value>
+    <value>Tabelle</value>
   </data>
-  <data name="btngb.Location" type="System.Drawing.Point, System.Drawing">
+  <data name="btnTabelle.TextAlign" type="System.Drawing.ContentAlignment, System.Drawing">
-    <value>152, 164</value>
+    <value>MiddleRight</value>
   </data>
-  <data name="&gt;&gt;btnListBoxCheckable.Type" xml:space="preserve">
+  <data name="&gt;&gt;btnTabelle.Name" xml:space="preserve">
+    <value>btnTabelle</value>
+  </data>
+  <data name="&gt;&gt;btnTabelle.Type" xml:space="preserve">
     <value>System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </data>
-  <data name="btngb.TextAlign" type="System.Drawing.ContentAlignment, System.Drawing">
+  <data name="&gt;&gt;btnTabelle.Parent" xml:space="preserve">
-    <value>MiddleRight</value>
-  </data>
-  <data name="btn_addformdata.Font" type="System.Drawing.Font, System.Drawing">
-    <value>Segoe UI, 8.25pt, style=Bold</value>
-  </data>
-  <data name="btnlabel.TextAlign" type="System.Drawing.ContentAlignment, System.Drawing">
-    <value>MiddleRight</value>
-  </data>
-  <data name="&gt;&gt;GroupBox1.Name" xml:space="preserve">
     <value>GroupBox1</value>
   </data>
-  <data name="btnRadioButton.Font" type="System.Drawing.Font, System.Drawing">
+  <data name="&gt;&gt;btnTabelle.ZOrder" xml:space="preserve">
+    <value>5</value>
+  </data>
+  <data name="btnCheckbox.Font" type="System.Drawing.Font, System.Drawing">
     <value>Segoe UI, 8.25pt, style=Bold</value>
   </data>
-  <data name="btnCheckbox.Text" xml:space="preserve">
+  <data name="btnCheckbox.ImageAlign" type="System.Drawing.ContentAlignment, System.Drawing">
-    <value>CheckBox</value>
-  </data>
-  <data name="btntextbox.Text" xml:space="preserve">
-    <value>TextBox</value>
-  </data>
-  <data name="&gt;&gt;GroupBox1.ZOrder" xml:space="preserve">
-    <value>1</value>
-  </data>
-  <data name="btnListBoxCheckable.ImageAlign" type="System.Drawing.ContentAlignment, System.Drawing">
     <value>MiddleLeft</value>
   </data>
   <data name="btnCheckbox.Location" type="System.Drawing.Point, System.Drawing">
     <value>152, 55</value>
   </data>
-  <data name="btnListBox.Location" type="System.Drawing.Point, System.Drawing">
+  <data name="btnCheckbox.Size" type="System.Drawing.Size, System.Drawing">
-    <value>12, 200</value>
+    <value>132, 31</value>
   </data>
-  <data name="btnlabel.Font" type="System.Drawing.Font, System.Drawing">
+  <data name="btnCheckbox.TabIndex" type="System.Int32, mscorlib">
-    <value>Segoe UI, 8.25pt, style=Bold</value>
+    <value>3</value>
   </data>
-  <data name="btntextbox.Size" type="System.Drawing.Size, System.Drawing">
+  <data name="btnCheckbox.Text" xml:space="preserve">
-    <value>133, 29</value>
+    <value>CheckBox</value>
   </data>
-  <data name="btnlabel.Text" xml:space="preserve">
+  <data name="btnCheckbox.TextAlign" type="System.Drawing.ContentAlignment, System.Drawing">
-    <value>Label</value>
-  </data>
-  <data name="btntextbox.ImageAlign" type="System.Drawing.ContentAlignment, System.Drawing">
-    <value>MiddleLeft</value>
-  </data>
-  <data name="&gt;&gt;btnCheckbox.ZOrder" xml:space="preserve">
-    <value>6</value>
-  </data>
-  <data name="&gt;&gt;btnTabelle.Name" xml:space="preserve">
-    <value>btnTabelle</value>
-  </data>
-  <data name="&gt;&gt;btntextbox.Name" xml:space="preserve">
-    <value>btntextbox</value>
-  </data>
-  <data name="&gt;&gt;btnCheckbox.Type" xml:space="preserve">
-    <value>System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="&gt;&gt;btntextbox.ZOrder" xml:space="preserve">
-    <value>9</value>
-  </data>
-  <data name="btnRadioButton.Location" type="System.Drawing.Point, System.Drawing">
-    <value>152, 92</value>
-  </data>
-  <data name="&gt;&gt;$this.Type" xml:space="preserve">
-    <value>System.Windows.Forms.Form, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="btncmb.ImageAlign" type="System.Drawing.ContentAlignment, System.Drawing">
-    <value>MiddleLeft</value>
-  </data>
-  <data name="btntextbox.TextAlign" type="System.Drawing.ContentAlignment, System.Drawing">
     <value>MiddleRight</value>
   </data>
-  <data name="&gt;&gt;GroupBox2.Type" xml:space="preserve">
-    <value>System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="GroupBox1.Location" type="System.Drawing.Point, System.Drawing">
-    <value>12, 12</value>
-  </data>
-  <data name="btngb.Font" type="System.Drawing.Font, System.Drawing">
-    <value>Segoe UI, 8.25pt, style=Bold</value>
-  </data>
-  <data name="btncmb.TabIndex" type="System.Int32, mscorlib">
-    <value>4</value>
-  </data>
-  <data name="&gt;&gt;btndtp.ZOrder" xml:space="preserve">
-    <value>7</value>
-  </data>
-  <data name="btnTabelle.Location" type="System.Drawing.Point, System.Drawing">
-    <value>152, 127</value>
-  </data>
   <data name="&gt;&gt;btnCheckbox.Name" xml:space="preserve">
     <value>btnCheckbox</value>
   </data>
-  <data name="btngb.Size" type="System.Drawing.Size, System.Drawing">
+  <data name="&gt;&gt;btnCheckbox.Type" xml:space="preserve">
-    <value>132, 31</value>
+    <value>System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </data>
-  <data name="btnListBox.Font" type="System.Drawing.Font, System.Drawing">
+  <data name="&gt;&gt;btnCheckbox.Parent" xml:space="preserve">
-    <value>Segoe UI, 8.25pt, style=Bold</value>
+    <value>GroupBox1</value>
+  </data>
+  <data name="&gt;&gt;btnCheckbox.ZOrder" xml:space="preserve">
+    <value>6</value>
   </data>
   <data name="btndtp.Font" type="System.Drawing.Font, System.Drawing">
     <value>Segoe UI, 8.25pt, style=Bold</value>
   </data>
-  <data name="btnlabel.TabIndex" type="System.Int32, mscorlib">
+  <data name="btndtp.ImageAlign" type="System.Drawing.ContentAlignment, System.Drawing">
-    <value>0</value>
-  </data>
-  <data name="btn_addformdata.Size" type="System.Drawing.Size, System.Drawing">
-    <value>132, 31</value>
-  </data>
-  <data name="&gt;&gt;btnpb.Type" xml:space="preserve">
-    <value>System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="&gt;&gt;btnTabelle.Type" xml:space="preserve">
-    <value>System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="&gt;&gt;btnListBox.ZOrder" xml:space="preserve">
-    <value>0</value>
-  </data>
-  <data name="btnpb.ImageAlign" type="System.Drawing.ContentAlignment, System.Drawing">
     <value>MiddleLeft</value>
   </data>
-  <data name="&gt;&gt;GroupBox2.Name" xml:space="preserve">
+  <data name="btndtp.Location" type="System.Drawing.Point, System.Drawing">
-    <value>GroupBox2</value>
+    <value>152, 22</value>
+  </data>
+  <data name="btndtp.Size" type="System.Drawing.Size, System.Drawing">
+    <value>132, 27</value>
   </data>
   <data name="btndtp.TabIndex" type="System.Int32, mscorlib">
     <value>1</value>
   </data>
-  <data name="&gt;&gt;btn_addformdata.ZOrder" xml:space="preserve">
+  <data name="btndtp.Text" xml:space="preserve">
+    <value>DatePicker</value>
+  </data>
+  <data name="btndtp.TextAlign" type="System.Drawing.ContentAlignment, System.Drawing">
+    <value>MiddleRight</value>
+  </data>
+  <data name="&gt;&gt;btndtp.Name" xml:space="preserve">
+    <value>btndtp</value>
+  </data>
+  <data name="&gt;&gt;btndtp.Type" xml:space="preserve">
+    <value>System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </data>
+  <data name="&gt;&gt;btndtp.Parent" xml:space="preserve">
+    <value>GroupBox1</value>
+  </data>
+  <data name="&gt;&gt;btndtp.ZOrder" xml:space="preserve">
+    <value>7</value>
+  </data>
+  <data name="btncmb.Font" type="System.Drawing.Font, System.Drawing">
+    <value>Segoe UI, 8.25pt, style=Bold</value>
+  </data>
+  <data name="btncmb.ImageAlign" type="System.Drawing.ContentAlignment, System.Drawing">
+    <value>MiddleLeft</value>
+  </data>
+  <data name="btncmb.Location" type="System.Drawing.Point, System.Drawing">
+    <value>12, 90</value>
+  </data>
+  <data name="btncmb.Size" type="System.Drawing.Size, System.Drawing">
+    <value>134, 31</value>
+  </data>
+  <data name="btncmb.TabIndex" type="System.Int32, mscorlib">
+    <value>4</value>
+  </data>
+  <data name="btncmb.Text" xml:space="preserve">
+    <value>ComboBox</value>
+  </data>
+  <data name="btncmb.TextAlign" type="System.Drawing.ContentAlignment, System.Drawing">
+    <value>MiddleRight</value>
+  </data>
+  <data name="&gt;&gt;btncmb.Name" xml:space="preserve">
+    <value>btncmb</value>
+  </data>
+  <data name="&gt;&gt;btncmb.Type" xml:space="preserve">
+    <value>System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </data>
+  <data name="&gt;&gt;btncmb.Parent" xml:space="preserve">
+    <value>GroupBox1</value>
+  </data>
+  <data name="&gt;&gt;btncmb.ZOrder" xml:space="preserve">
+    <value>8</value>
+  </data>
+  <data name="btntextbox.Font" type="System.Drawing.Font, System.Drawing">
+    <value>Segoe UI, 8.25pt, style=Bold</value>
+  </data>
+  <data name="btntextbox.ImageAlign" type="System.Drawing.ContentAlignment, System.Drawing">
+    <value>MiddleLeft</value>
+  </data>
+  <data name="btntextbox.Location" type="System.Drawing.Point, System.Drawing">
+    <value>13, 55</value>
+  </data>
+  <data name="btntextbox.Size" type="System.Drawing.Size, System.Drawing">
+    <value>133, 29</value>
+  </data>
+  <data name="btntextbox.TabIndex" type="System.Int32, mscorlib">
+    <value>2</value>
+  </data>
+  <data name="btntextbox.Text" xml:space="preserve">
+    <value>TextBox</value>
+  </data>
+  <data name="btntextbox.TextAlign" type="System.Drawing.ContentAlignment, System.Drawing">
+    <value>MiddleRight</value>
+  </data>
+  <data name="&gt;&gt;btntextbox.Name" xml:space="preserve">
+    <value>btntextbox</value>
+  </data>
+  <data name="&gt;&gt;btntextbox.Type" xml:space="preserve">
+    <value>System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </data>
+  <data name="&gt;&gt;btntextbox.Parent" xml:space="preserve">
+    <value>GroupBox1</value>
+  </data>
+  <data name="&gt;&gt;btntextbox.ZOrder" xml:space="preserve">
+    <value>9</value>
+  </data>
+  <data name="btnlabel.Font" type="System.Drawing.Font, System.Drawing">
+    <value>Segoe UI, 8.25pt, style=Bold</value>
+  </data>
+  <data name="btnlabel.ImageAlign" type="System.Drawing.ContentAlignment, System.Drawing">
+    <value>MiddleLeft</value>
+  </data>
+  <data name="btnlabel.Location" type="System.Drawing.Point, System.Drawing">
+    <value>12, 22</value>
+  </data>
+  <data name="btnlabel.Size" type="System.Drawing.Size, System.Drawing">
+    <value>134, 27</value>
+  </data>
+  <data name="btnlabel.TabIndex" type="System.Int32, mscorlib">
     <value>0</value>
   </data>
-  <data name="btnRadioButton.Size" type="System.Drawing.Size, System.Drawing">
+  <data name="btnlabel.Text" xml:space="preserve">
+    <value>Label</value>
+  </data>
+  <data name="btnlabel.TextAlign" type="System.Drawing.ContentAlignment, System.Drawing">
+    <value>MiddleRight</value>
+  </data>
+  <data name="&gt;&gt;btnlabel.Name" xml:space="preserve">
+    <value>btnlabel</value>
+  </data>
+  <data name="&gt;&gt;btnlabel.Type" xml:space="preserve">
+    <value>System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </data>
+  <data name="&gt;&gt;btnlabel.Parent" xml:space="preserve">
+    <value>GroupBox1</value>
+  </data>
+  <data name="&gt;&gt;btnlabel.ZOrder" xml:space="preserve">
+    <value>10</value>
+  </data>
+  <data name="GroupBox1.Font" type="System.Drawing.Font, System.Drawing">
+    <value>Segoe UI, 9.75pt, style=Bold</value>
+  </data>
+  <data name="GroupBox1.Location" type="System.Drawing.Point, System.Drawing">
+    <value>12, 12</value>
+  </data>
+  <data name="GroupBox1.Size" type="System.Drawing.Size, System.Drawing">
+    <value>295, 237</value>
+  </data>
+  <data name="GroupBox1.TabIndex" type="System.Int32, mscorlib">
+    <value>3</value>
+  </data>
+  <data name="GroupBox1.Text" xml:space="preserve">
+    <value>Control-Types (Drag and Drop)</value>
+  </data>
+  <data name="&gt;&gt;GroupBox1.Name" xml:space="preserve">
+    <value>GroupBox1</value>
+  </data>
+  <data name="&gt;&gt;GroupBox1.Type" xml:space="preserve">
+    <value>System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </data>
+  <data name="&gt;&gt;GroupBox1.Parent" xml:space="preserve">
+    <value>$this</value>
+  </data>
+  <data name="&gt;&gt;GroupBox1.ZOrder" xml:space="preserve">
+    <value>1</value>
+  </data>
+  <data name="btn_addformdata.Font" type="System.Drawing.Font, System.Drawing">
+    <value>Segoe UI, 8.25pt, style=Bold</value>
+  </data>
+  <data name="btn_addformdata.ImageAlign" type="System.Drawing.ContentAlignment, System.Drawing">
+    <value>MiddleLeft</value>
+  </data>
+  <data name="btn_addformdata.Location" type="System.Drawing.Point, System.Drawing">
+    <value>152, 24</value>
+  </data>
+  <data name="btn_addformdata.Size" type="System.Drawing.Size, System.Drawing">
     <value>132, 31</value>
   </data>
   <data name="btn_addformdata.TabIndex" type="System.Int32, mscorlib">
     <value>1</value>
   </data>
-  <data name="&gt;&gt;btnlabel.ZOrder" xml:space="preserve">
-    <value>10</value>
-  </data>
-  <data name="$this.ClientSize" type="System.Drawing.Size, System.Drawing">
-    <value>324, 337</value>
-  </data>
-  <data name="btn_addformdata.Location" type="System.Drawing.Point, System.Drawing">
-    <value>152, 24</value>
-  </data>
-  <data name="btngb.TabIndex" type="System.Int32, mscorlib">
-    <value>8</value>
-  </data>
-  <data name="btnCheckbox.Font" type="System.Drawing.Font, System.Drawing">
-    <value>Segoe UI, 8.25pt, style=Bold</value>
-  </data>
-  <data name="&gt;&gt;btnpb.Name" xml:space="preserve">
-    <value>btnpb</value>
-  </data>
   <data name="btn_addformdata.Text" xml:space="preserve">
     <value>Add Form Data</value>
   </data>
-  <data name="GroupBox1.Size" type="System.Drawing.Size, System.Drawing">
+  <data name="btn_addformdata.TextAlign" type="System.Drawing.ContentAlignment, System.Drawing">
-    <value>295, 237</value>
-  </data>
-  <data name="&gt;&gt;btnListBoxCheckable.Name" xml:space="preserve">
-    <value>btnListBoxCheckable</value>
-  </data>
-  <data name="btndtp.TextAlign" type="System.Drawing.ContentAlignment, System.Drawing">
     <value>MiddleRight</value>
   </data>
-  <data name="GroupBox1.Font" type="System.Drawing.Font, System.Drawing">
+  <data name="&gt;&gt;btn_addformdata.Name" xml:space="preserve">
-    <value>Segoe UI, 9.75pt, style=Bold</value>
+    <value>btn_addformdata</value>
+  </data>
+  <data name="&gt;&gt;btn_addformdata.Type" xml:space="preserve">
+    <value>System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </data>
+  <data name="&gt;&gt;btn_addformdata.Parent" xml:space="preserve">
+    <value>GroupBox2</value>
+  </data>
+  <data name="&gt;&gt;btn_addformdata.ZOrder" xml:space="preserve">
+    <value>0</value>
   </data>
   <data name="btn_addtocal.Font" type="System.Drawing.Font, System.Drawing">
     <value>Segoe UI, 8.25pt, style=Bold</value>
   </data>
-  <data name="&gt;&gt;btnCheckbox.Parent" xml:space="preserve">
+  <data name="btn_addtocal.ImageAlign" type="System.Drawing.ContentAlignment, System.Drawing">
-    <value>GroupBox1</value>
+    <value>MiddleLeft</value>
   </data>
-  <data name="&gt;&gt;btndtp.Name" xml:space="preserve">
+  <data name="btn_addtocal.Location" type="System.Drawing.Point, System.Drawing">
-    <value>btndtp</value>
+    <value>12, 24</value>
   </data>
-  <data name="&gt;&gt;btnpb.ZOrder" xml:space="preserve">
+  <data name="btn_addtocal.Size" type="System.Drawing.Size, System.Drawing">
-    <value>4</value>
+    <value>134, 31</value>
   </data>
-  <data name="&gt;&gt;btnListBox.Name" xml:space="preserve">
+  <data name="btn_addtocal.TabIndex" type="System.Int32, mscorlib">
-    <value>btnListBox</value>
+    <value>0</value>
   </data>
-  <data name="btnpb.TabIndex" type="System.Int32, mscorlib">
+  <data name="btn_addtocal.Text" xml:space="preserve">
-    <value>6</value>
+    <value>Add to Calendar</value>
-  </data>
-  <data name="&gt;&gt;btnlabel.Type" xml:space="preserve">
-    <value>System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="btncmb.Text" xml:space="preserve">
-    <value>ComboBox</value>
-  </data>
-  <data name="btnTabelle.Font" type="System.Drawing.Font, System.Drawing">
-    <value>Segoe UI, 8.25pt, style=Bold</value>
-  </data>
-  <data name="GroupBox2.Size" type="System.Drawing.Size, System.Drawing">
-    <value>295, 71</value>
-  </data>
-  <data name="GroupBox2.Location" type="System.Drawing.Point, System.Drawing">
-    <value>12, 255</value>
   </data>
   <data name="btn_addtocal.TextAlign" type="System.Drawing.ContentAlignment, System.Drawing">
     <value>MiddleRight</value>
   </data>
-  <data name="GroupBox1.Text" xml:space="preserve">
+  <data name="&gt;&gt;btn_addtocal.Name" xml:space="preserve">
-    <value>Control-Types (Drag and Drop)</value>
+    <value>btn_addtocal</value>
+  </data>
+  <data name="&gt;&gt;btn_addtocal.Type" xml:space="preserve">
+    <value>System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </data>
+  <data name="&gt;&gt;btn_addtocal.Parent" xml:space="preserve">
+    <value>GroupBox2</value>
+  </data>
+  <data name="&gt;&gt;btn_addtocal.ZOrder" xml:space="preserve">
+    <value>1</value>
   </data>
   <data name="GroupBox2.Font" type="System.Drawing.Font, System.Drawing">
     <value>Segoe UI, 9.75pt, style=Bold</value>
   </data>
+  <data name="GroupBox2.Location" type="System.Drawing.Point, System.Drawing">
+    <value>12, 255</value>
+  </data>
+  <data name="GroupBox2.Size" type="System.Drawing.Size, System.Drawing">
+    <value>295, 71</value>
+  </data>
+  <data name="GroupBox2.TabIndex" type="System.Int32, mscorlib">
+    <value>4</value>
+  </data>
+  <data name="GroupBox2.Text" xml:space="preserve">
+    <value>Funktionen</value>
+  </data>
+  <data name="&gt;&gt;GroupBox2.Name" xml:space="preserve">
+    <value>GroupBox2</value>
+  </data>
+  <data name="&gt;&gt;GroupBox2.Type" xml:space="preserve">
+    <value>System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </data>
+  <data name="&gt;&gt;GroupBox2.Parent" xml:space="preserve">
+    <value>$this</value>
+  </data>
+  <data name="&gt;&gt;GroupBox2.ZOrder" xml:space="preserve">
+    <value>0</value>
+  </data>
   <metadata name="$this.Localizable" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
     <value>True</value>
   </metadata>
-  <metadata name="$this.Language" type="System.Globalization.CultureInfo, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+  <data name="$this.AutoScaleDimensions" type="System.Drawing.SizeF, System.Drawing">
-    <value>en-US</value>
+    <value>6, 13</value>
-  </metadata>
+  </data>
+  <data name="$this.ClientSize" type="System.Drawing.Size, System.Drawing">
+    <value>324, 337</value>
+  </data>
+  <data name="$this.Font" type="System.Drawing.Font, System.Drawing">
+    <value>Segoe UI, 8.25pt</value>
+  </data>
+  <data name="$this.Text" xml:space="preserve">
+    <value>Werkzeug-Formulardesigner</value>
+  </data>
+  <data name="&gt;&gt;$this.Name" xml:space="preserve">
+    <value>frmTool_ControlDesigner</value>
+  </data>
+  <data name="&gt;&gt;$this.Type" xml:space="preserve">
+    <value>System.Windows.Forms.Form, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </data>
 </root>

app/DD-Record-Organiser/frmTool_ControlProperties.vb

@@ -150,6 +150,10 @@
                                           CType(r.Item("CTRLSCR_FONT_STYLE"), FontStyle))
                     props.ColumnTitle = ClassConverter.ToStringOrDefault(r.Item("CONTROL_COL_NAME"), ctrl.Name)
                     props.ShowColumn = ClassConverter.ToBooleanOrDefault(r.Item("CONTROL_SHOW_COLUMN"), True)
+                    props.StaticList = NotNull(r.Item("CONTROL_STATIC_LIST"), "")
+                    props.SQLCommand = New SQLValue(NotNull(r.Item("CONTROL_SQLCOMMAND_1"), ""))
+                    props.IsRequired = r.Item("CONTROL_REQUIRED")
+                    props.IsReadOnly = r.Item("CONTROL_READ_ONLY")
 
                 Case "Groupbox"
                     props.Caption = r.Item("CTRLSCR_CAPTION")