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

app/DD-Record-Organiser/ClassControlBuilder.vb

@@ -16,6 +16,29 @@ Public Class ClassControlBuilder
     Private _onMouseHoverName As String = "OnMouseHover"
     Private _events As System.ComponentModel.EventHandlerList = Nothing
 
+    Public IsInsert As Boolean
+    Public IsEdit As Boolean
+
+    ' +++ Constructor +++
+    Public Sub New(MasterPanel As Panel,
+                   MouseDownHandler As MouseEventHandler,
+                   MouseUpHandler As MouseEventHandler,
+                   MouseMoveHandler As MouseEventHandler,
+                   MouseClickHandler As EventHandler,
+                   GroupBoxDragDropHandler As DragEventHandler)
+
+        Me._master_panel = MasterPanel
+        Me._mouse_down_handler = MouseDownHandler
+        Me._mouse_up_handler = MouseUpHandler
+        Me._mouse_move_handler = MouseMoveHandler
+        Me._mouse_click_handler = MouseClickHandler
+        Me._group_box_drag_drop_handler = GroupBoxDragDropHandler
+    End Sub
+
+    Public Sub New(MasterPanel As Panel)
+        Me._master_panel = MasterPanel
+    End Sub
+
     Protected ReadOnly Property Events() As System.ComponentModel.EventHandlerList
         Get
             If _events Is Nothing Then
@@ -182,8 +205,8 @@ Public Class ClassControlBuilder
             Dim controlId As Integer = DirectCast(control.Tag, ClassControlMetadata).Id
             CONTROL_ID = controlId
 
-           
-            If CtrlCommandUI.IsEdit Then
+
+            If IsEdit Then
                 Dim expression As String
                 expression = "ENTITY_ID = " & CURRENT_ENTITY_ID
                 Dim foundControls() As DataRow
@@ -202,7 +225,7 @@ Public Class ClassControlBuilder
                         Dim result As MsgBoxResult
                         result = MessageBox.Show(msg, "Confirmation needed:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
                         If result = MsgBoxResult.No Then
-                            CtrlBuilder.ControlsChanged.Remove(controlId)
+                            Me.ControlsChanged.Remove(controlId)
                             ' Y U NO WORK??
                             Dim text = CURRENT_TEXTBOX_SELECTED_TEXT
                             textbox.Text = text
@@ -213,7 +236,7 @@ Public Class ClassControlBuilder
                     End If
                 Next
             End If
-            
+
         Catch ex As Exception
             If ex.Message.Contains("Objektverweis") Or ex.Message.Contains("reference not set") Then
 
@@ -224,7 +247,7 @@ Public Class ClassControlBuilder
             CURRENT_RECORD_ENABLED = True
         End Try
     End Sub
-    
+
     Public Sub OnComboBoxFocus(sender As Object, ByVal e As EventArgs)
         Dim combo As CustomComboBox = sender
         combo.BackColor = Color.LemonChiffon
@@ -260,7 +283,7 @@ Public Class ClassControlBuilder
                     ' DependingControlId bezeichnet das Control, das die Abhängigkeit enthält
                     Dim dependingControlId As Integer = row.Item("GUID")
                     'Dim panel As Panel = DirectCast(control.Parent, Panel)
-                    Dim panel As Panel = CtrlBuilder.MasterPanel
+                    Dim panel As Panel = Me.MasterPanel
                     ' Über die Id das Control finden
                     Dim dependingControl As Control = panel.Controls.OfType(Of Control)().Where(Function(c As Control)
                                                                                                     Return DirectCast(c.Tag, ClassControlMetadata).Id = dependingControlId
@@ -369,7 +392,7 @@ Public Class ClassControlBuilder
 
                     ' DependingControlId bezeichnet das Control, das die Abhängigkeit enthält
                     Dim dependingControlId As Integer = row.Item("GUID")
-                    Dim panel As Panel = CtrlBuilder.MasterPanel
+                    Dim panel As Panel = Me.MasterPanel
                     'Dim panel As Panel = DirectCast(control.Parent, Panel)
                     ' Über die Id das Control finden
                     Dim dependingControl As Control = panel.Controls.OfType(Of Control)().Where(Function(c As Control)
@@ -438,7 +461,11 @@ Public Class ClassControlBuilder
 
 
                             'ClassControlValues.LoadControlValue(CURRENT_RECORD_ID, CURRENT_PARENT_RECORD_ID, dependingControlId, dependingControl, values, CURRENT_ENTITY_ID)
+                            
                             ControlLoader.CheckedListBox.LoadValue(checkedlistbox, values)
+                            If IsEdit Or IsInsert Then
+                                CURRENT_RECORD_ENABLED = True
+                            End If
 
                         Case "Label"
                             If dt.Rows.Count = 1 Then
@@ -516,7 +543,7 @@ Public Class ClassControlBuilder
             If String.IsNullOrEmpty(value) Then
                 Exit Sub
             End If
-            If CURRENT_RECORD_ID = 0 And CtrlCommandUI.IsInsert = True Then
+            If CURRENT_RECORD_ID = 0 And IsInsert = True Then
                 Exit Sub
             End If
 
@@ -557,7 +584,7 @@ Public Class ClassControlBuilder
             Dim combo As CustomComboBox = DirectCast(control, CustomComboBox)
             Dim controlId As Integer = DirectCast(control.Tag, ClassControlMetadata).Id
             CONTROL_ID = controlId
-            If CtrlCommandUI.IsEdit Then
+            If IsEdit Then
                 Dim expression As String
                 expression = "ENTITY_ID = " & CURRENT_ENTITY_ID
                 Dim foundControls() As DataRow
@@ -575,7 +602,7 @@ Public Class ClassControlBuilder
                         Dim result As MsgBoxResult
                         result = MessageBox.Show(msg, "Confirmation needed:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
                         If result = MsgBoxResult.No Then
-                            CtrlBuilder.ControlsChanged.Remove(controlId)
+                            Me.ControlsChanged.Remove(controlId)
                             ' Y U NO WORK??
                             Dim text = CURRENT_COMBOBOX_SELECTED_TEXT
                             combo.SelectedIndex = -1
@@ -624,7 +651,7 @@ Public Class ClassControlBuilder
                 CURRENT_RECORD_ENABLED = True
                 Exit Sub
             End If
-            If CURRENT_RECORD_ID = 0 And CtrlCommandUI.IsInsert = True Then
+            If CURRENT_RECORD_ID = 0 And IsInsert = True Then
                 CURRENT_RECORD_ENABLED = True
                 Exit Sub
             End If
@@ -653,7 +680,7 @@ Public Class ClassControlBuilder
             CONTROL_ID = controlId
             control.Update()
 
-            If CtrlCommandUI.IsEdit Then
+            If IsEdit Then
                 Dim expression As String
                 expression = "ENTITY_ID = " & CURRENT_ENTITY_ID
                 Dim foundControls() As DataRow
@@ -672,7 +699,7 @@ Public Class ClassControlBuilder
                         result = MessageBox.Show(msg, "Confirmation needed:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
                         If result = MsgBoxResult.No Then
                             RIGHT_CONTROL_CHANGED = False
-                            CtrlBuilder.ControlsChanged.Remove(controlId)
+                            Me.ControlsChanged.Remove(controlId)
 
                             Dim loadedValues As List(Of Object) = (From row In CURRENT_CONTROL_VALUES.AsEnumerable()
                                 Where row.Item("CONTROL_ID") = controlId
@@ -803,9 +830,12 @@ Public Class ClassControlBuilder
                 Exit Sub
             End Try
 
-            If CURRENT_RECORD_ID = 0 And CtrlCommandUI.IsInsert = True Then
+            If CURRENT_RECORD_ID = 0 Then
                 Exit Sub
             End If
+            'If CURRENT_RECORD_ID = 0 And CtrlCommandUI.IsInsert = True Then
+            '    Exit Sub
+            'End If
 
 
             Dim datatable1 As DataTable = ClassDatabase.Return_Datatable(SQLenable)
@@ -1049,26 +1079,6 @@ Public Class ClassControlBuilder
         controls.Remove(control)
     End Sub
 
-    ' +++ Constructor +++
-    Public Sub New(MasterPanel As Panel,
-                   MouseDownHandler As MouseEventHandler,
-                   MouseUpHandler As MouseEventHandler,
-                   MouseMoveHandler As MouseEventHandler,
-                   MouseClickHandler As EventHandler,
-                   GroupBoxDragDropHandler As DragEventHandler)
-
-        Me._master_panel = MasterPanel
-        Me._mouse_down_handler = MouseDownHandler
-        Me._mouse_up_handler = MouseUpHandler
-        Me._mouse_move_handler = MouseMoveHandler
-        Me._mouse_click_handler = MouseClickHandler
-        Me._group_box_drag_drop_handler = GroupBoxDragDropHandler
-    End Sub
-
-    Public Sub New(MasterPanel As Panel)
-        Me._master_panel = MasterPanel
-    End Sub
-
     ' +++ Public Properties +++
     Public Property CurrentControl As Control
         Get
@@ -1150,7 +1160,7 @@ Public Class ClassControlBuilder
                 control.SelectAll()
             End If
         End If
-       
+
         'Dim i = IsValidCurrency(control.Text)
         'If IsValidCurrency(control.Text) = False Then
         '    MsgBox("Sorry but some input characters are invalid for the format currency!", MsgBoxStyle.Exclamation)

app/DD-Record-Organiser/ClassControlCommandsUI.vb

@@ -9,8 +9,27 @@ Public Class ClassControlCommandsUI
     Private _AddFormDataHandler As System.EventHandler
     Private _ContextMenuStrip As ContextMenuStrip
 
-    Public IsInsert As Boolean = False
-    Public IsEdit As Boolean = False
+    Private _isinsert As Boolean = False
+    Private _isedit As Boolean = False
+
+    Public Property IsInsert As Boolean
+        Get
+            Return _isinsert
+        End Get
+        Set(value As Boolean)
+            _isinsert = value
+            _CtrlBuilder.IsInsert = value
+        End Set
+    End Property
+    Public Property IsEdit As Boolean
+        Get
+            Return _isedit
+        End Get
+        Set(value As Boolean)
+            _isedit = value
+            _CtrlBuilder.IsEdit = value
+        End Set
+    End Property
     ''' <summary>
     ''' Erstellt eine neue Instanz der ClassControlCommandsUI Klasse
     ''' </summary>
@@ -231,7 +250,7 @@ Public Class ClassControlCommandsUI
                                                 parent)
                     control = "Radiobutton - " & dr.Item("CONTROL_ID")
                 Case 12 'CheckedListBox
-                    CtrlBuilder.AddCheckedListBox(dr.Item("CONTROL_ID"),
+                    _CtrlBuilder.AddCheckedListBox(dr.Item("CONTROL_ID"),
                                             dr.Item("CONTROL_NAME"),
                                             dr.Item("CTRLSCR_X_LOC"),
                                             dr.Item("CTRLSCR_Y_LOC"),
@@ -251,7 +270,7 @@ Public Class ClassControlCommandsUI
                                             parent)
                     control = "CheckedlistBox - " & dr.Item("CONTROL_ID")
                 Case 13 'CheckedListBox
-                    CtrlBuilder.AddListBox(dr.Item("CONTROL_ID"),
+                    _CtrlBuilder.AddListBox(dr.Item("CONTROL_ID"),
                                             dr.Item("CONTROL_NAME"),
                                             dr.Item("CTRLSCR_X_LOC"),
                                             dr.Item("CTRLSCR_Y_LOC"),
@@ -271,7 +290,7 @@ Public Class ClassControlCommandsUI
                                             parent)
                     control = "Listbox - " & dr.Item("CONTROL_ID")
                 Case 14 'DataGridViewCheckable
-                    CtrlBuilder.AddDataGridViewCheckable(dr.Item("CONTROL_ID"),
+                    _CtrlBuilder.AddDataGridViewCheckable(dr.Item("CONTROL_ID"),
                                             dr.Item("CONTROL_NAME"),
                                             dr.Item("CTRLSCR_X_LOC"),
                                             dr.Item("CTRLSCR_Y_LOC"),
@@ -532,7 +551,7 @@ Public Class ClassControlCommandsUI
 
                 'Dim ValueExists = ClassDatabase.Execute_Scalar(String.Format("SELECT RECORD_ID FROM VWPMO_VALUES WHERE RECORD_ID = {0} AND CONTROL_ID = {1}", RecordID, CONTROL_ID))
                 Dim ValueExists = VALUE_EXISTS_DT.Select(String.Format("CONTROL_ID = {0}", CONTROL_ID))
-                Dim ValueChanged As Boolean = CtrlBuilder.ControlsChanged.Contains(CONTROL_ID)
+                Dim ValueChanged As Boolean = _CtrlBuilder.ControlsChanged.Contains(CONTROL_ID)
 
                 If Not ValueChanged Then
                     Continue For

app/DD-Record-Organiser/ClassControlLoader.vb

@@ -451,10 +451,6 @@
                     End If
                 End While
             Next
-            If CtrlCommandUI.IsEdit Or CtrlCommandUI.IsInsert Then
-                CURRENT_RECORD_ENABLED = True
-            End If
-
         End Sub
 
         Public Shared Sub LoadList(control As DevExpress.XtraEditors.CheckedListBoxControl, formId As Integer, conn_Id As Object, SQLCommand As String)

app/DD-Record-Organiser/ClassControlValues.vb

@@ -508,7 +508,9 @@ Public Class ClassControlValues
                     Integer.TryParse(match.Groups(2).Value, otherControlId)
                     ' Jetzt suchen wir das Control, das zu dieser ControlId passt
                     Dim otherControl As Control = controls.OfType(Of Control)().Where(Function(c As Control)
-                                                                                          Return DirectCast(c.Tag, ClassControlMetadata).Id = otherControlId
+                                                                                          Dim controlId As Integer = DirectCast(c.Tag, ClassControlMetadata).Id
+                                                                                          Console.WriteLine(controlId)
+                                                                                          Return controlId = otherControlId
                                                                                       End Function).SingleOrDefault()
                     Dim otherControlType As String = otherControl.GetType().Name
 

app/DD-Record-Organiser/DD-Record-Organiser.vbproj

@@ -70,13 +70,11 @@
   <ItemGroup>
     <Reference Include="AxInterop.INDEXLib, Version=1.0.0.0, Culture=neutral, processorArchitecture=MSIL">
       <SpecificVersion>False</SpecificVersion>
-      <HintPath>..\..\3rdparty\lib\Windream\AxInterop.INDEXLib.dll</HintPath>
-      <Private>True</Private>
+      <HintPath>..\..\..\DD3rdPartyLibs\Windream\AxInterop.INDEXLib.dll</HintPath>
     </Reference>
     <Reference Include="AxInterop.OBJECTLISTCONTROLLib, Version=1.0.0.0, Culture=neutral, processorArchitecture=MSIL">
       <SpecificVersion>False</SpecificVersion>
-      <HintPath>..\..\3rdparty\lib\Windream\AxInterop.OBJECTLISTCONTROLLib.dll</HintPath>
-      <Private>True</Private>
+      <HintPath>..\..\..\DD3rdPartyLibs\Windream\AxInterop.OBJECTLISTCONTROLLib.dll</HintPath>
     </Reference>
     <Reference Include="CommandLine">
       <HintPath>..\..\3rdparty\lib\Commandline\CommandLine.dll</HintPath>
@@ -180,30 +178,28 @@
     </Reference>
     <Reference Include="Interop.OBJECTLISTCONTROLLib, Version=1.0.0.0, Culture=neutral, processorArchitecture=MSIL">
       <SpecificVersion>False</SpecificVersion>
-      <EmbedInteropTypes>False</EmbedInteropTypes>
-      <HintPath>..\..\3rdparty\lib\Windream\Interop.OBJECTLISTCONTROLLib.dll</HintPath>
-      <Private>True</Private>
+      <EmbedInteropTypes>True</EmbedInteropTypes>
+      <HintPath>..\..\..\DD3rdPartyLibs\Windream\Interop.OBJECTLISTCONTROLLib.dll</HintPath>
     </Reference>
     <Reference Include="Interop.WINDREAMLib, Version=1.0.0.0, Culture=neutral, processorArchitecture=MSIL">
       <SpecificVersion>False</SpecificVersion>
       <EmbedInteropTypes>False</EmbedInteropTypes>
-      <HintPath>..\..\3rdparty\lib\Windream\Interop.WINDREAMLib.dll</HintPath>
-      <Private>True</Private>
+      <HintPath>..\..\..\DD3rdPartyLibs\Windream\Interop.WINDREAMLib.dll</HintPath>
     </Reference>
-    <Reference Include="Interop.WMOBRWSLib">
-      <HintPath>..\..\3rdparty\lib\Windream\Interop.WMOBRWSLib.dll</HintPath>
-      <EmbedInteropTypes>False</EmbedInteropTypes>
-      <Private>True</Private>
+    <Reference Include="Interop.WMOBRWSLib, Version=1.0.0.0, Culture=neutral, processorArchitecture=MSIL">
+      <SpecificVersion>False</SpecificVersion>
+      <EmbedInteropTypes>True</EmbedInteropTypes>
+      <HintPath>..\..\..\DD3rdPartyLibs\Windream\Interop.WMOBRWSLib.dll</HintPath>
     </Reference>
-    <Reference Include="Interop.WMOSRCHLib">
-      <HintPath>..\..\3rdparty\lib\Windream\Interop.WMOSRCHLib.dll</HintPath>
-      <EmbedInteropTypes>False</EmbedInteropTypes>
-      <Private>True</Private>
+    <Reference Include="Interop.WMOSRCHLib, Version=1.0.0.0, Culture=neutral, processorArchitecture=MSIL">
+      <SpecificVersion>False</SpecificVersion>
+      <EmbedInteropTypes>True</EmbedInteropTypes>
+      <HintPath>..\..\..\DD3rdPartyLibs\Windream\Interop.WMOSRCHLib.dll</HintPath>
     </Reference>
-    <Reference Include="Interop.WMOTOOLLib">
-      <HintPath>..\..\3rdparty\lib\Windream\Interop.WMOTOOLLib.dll</HintPath>
-      <EmbedInteropTypes>False</EmbedInteropTypes>
-      <Private>True</Private>
+    <Reference Include="Interop.WMOTOOLLib, Version=1.0.0.0, Culture=neutral, processorArchitecture=MSIL">
+      <SpecificVersion>False</SpecificVersion>
+      <EmbedInteropTypes>True</EmbedInteropTypes>
+      <HintPath>..\..\..\DD3rdPartyLibs\Windream\Interop.WMOTOOLLib.dll</HintPath>
     </Reference>
     <Reference Include="Microsoft.Office.Interop.Outlook, Version=15.0.0.0, Culture=neutral, PublicKeyToken=71e9bce111e9429c, processorArchitecture=MSIL">
       <SpecificVersion>False</SpecificVersion>
@@ -665,18 +661,6 @@
     <Compile Include="frmTask_Overview.vb">
       <SubType>Form</SubType>
     </Compile>
-    <Compile Include="frmTool_ControlProperties.Designer.vb">
-      <DependentUpon>frmTool_ControlProperties.vb</DependentUpon>
-    </Compile>
-    <Compile Include="frmTool_ControlProperties.vb">
-      <SubType>Form</SubType>
-    </Compile>
-    <Compile Include="frmTool_ControlDesigner.Designer.vb">
-      <DependentUpon>frmTool_ControlDesigner.vb</DependentUpon>
-    </Compile>
-    <Compile Include="frmTool_ControlDesigner.vb">
-      <SubType>Form</SubType>
-    </Compile>
     <Compile Include="frmUserKonfig.Designer.vb">
       <DependentUpon>frmUserKonfig.vb</DependentUpon>
     </Compile>
@@ -1006,12 +990,6 @@
       <DependentUpon>frmTemplates.vb</DependentUpon>
       <SubType>Designer</SubType>
     </EmbeddedResource>
-    <EmbeddedResource Include="frmTool_ControlDesigner.en-US.resx">
-      <DependentUpon>frmTool_ControlDesigner.vb</DependentUpon>
-    </EmbeddedResource>
-    <EmbeddedResource Include="frmTool_ControlProperties.en-US.resx">
-      <DependentUpon>frmTool_ControlProperties.vb</DependentUpon>
-    </EmbeddedResource>
     <EmbeddedResource Include="frmUserKonfig.en-US.resx">
       <DependentUpon>frmUserKonfig.vb</DependentUpon>
     </EmbeddedResource>
@@ -1056,12 +1034,6 @@
     <EmbeddedResource Include="frmTask_Overview.resx">
       <DependentUpon>frmTask_Overview.vb</DependentUpon>
     </EmbeddedResource>
-    <EmbeddedResource Include="frmTool_ControlProperties.resx">
-      <DependentUpon>frmTool_ControlProperties.vb</DependentUpon>
-    </EmbeddedResource>
-    <EmbeddedResource Include="frmTool_ControlDesigner.resx">
-      <DependentUpon>frmTool_ControlDesigner.vb</DependentUpon>
-    </EmbeddedResource>
     <EmbeddedResource Include="frmUserKonfig.resx">
       <DependentUpon>frmUserKonfig.vb</DependentUpon>
     </EmbeddedResource>

app/DD-Record-Organiser/ModuleRuntimeVariables.vb

@@ -3,8 +3,7 @@
 
     Public MAIN_FORM As frmMain = Nothing
     Public ERROR_INIT = "NONE"
-    Public CtrlBuilder As ClassControlBuilder
-    Public CtrlCommandUI As ClassControlCommandsUI
+    
 
     ' Diese Werte müssen später zur Laufzeit geladen werden
 

app/DD-Record-Organiser/frmConstructor_Main.vb

@@ -46,6 +46,9 @@ Public Class frmConstructor_Main
         Public hProcess As IntPtr
     End Structure
 #Region "Laufzeitvariablen & Konstanten"
+    Public CtrlBuilder As ClassControlBuilder
+    Public CtrlCommandUI As ClassControlCommandsUI
+
     Private CONSTRUCTORID As Integer
     Private CONSTRUCTOR_DETAIL_ID As Integer
     Private DT_CONSTRUCT_VIEW As DataTable
@@ -1675,14 +1678,12 @@ Public Class frmConstructor_Main
         FORMVIEW_ID = frmview_id
         ENTITY_ID = DT_TBPMO_FORM_VIEW.Rows(0).Item("FORM_ID") 'ClassDatabase.Execute_Scalar("SELECT FORM_ID FROM TBPMO_FORM_VIEW WHERE GUID = " & frmview_id)
         CtrlBuilder = New ClassControlBuilder(pnlDetails)
-        'LoadControls(thisFormId)
         CtrlCommandUI = New ClassControlCommandsUI(CtrlBuilder,
                                                    ContextMenuDetails,
-                                                   AddressOf NewEditAppointment) ',
-        'AddressOf OpenFormData)
+                                                   AddressOf NewEditAppointment)
+
         CtrlCommandUI.LoadControls(ENTITY_ID)
         Lock_RecordControls(True)
-        ' pnlDetails.Enabled = False
 
         AddHandler CtrlBuilder.OnRecordChanged, AddressOf OnRecordChanged
         AddHandler CtrlBuilder.OnMouseHover, AddressOf HandleToolTip

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

@@ -1,201 +0,0 @@
-<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
-Partial Class frmTool_ControlDesigner
-    Inherits System.Windows.Forms.Form
-
-    'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
-    <System.Diagnostics.DebuggerNonUserCode()> _
-    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
-        Try
-            If disposing AndAlso components IsNot Nothing Then
-                components.Dispose()
-            End If
-        Finally
-            MyBase.Dispose(disposing)
-        End Try
-    End Sub
-
-    'Wird vom Windows Form-Designer benötigt.
-    Private components As System.ComponentModel.IContainer
-
-    'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
-    'Das Bearbeiten ist mit dem Windows Form-Designer möglich.  
-    'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
-    <System.Diagnostics.DebuggerStepThrough()> _
-    Private Sub InitializeComponent()
-        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmTool_ControlDesigner))
-        Me.GroupBox1 = New System.Windows.Forms.GroupBox()
-        Me.btnListBox = New System.Windows.Forms.Button()
-        Me.btnListBoxCheckable = New System.Windows.Forms.Button()
-        Me.btnRadioButton = New System.Windows.Forms.Button()
-        Me.btngb = New System.Windows.Forms.Button()
-        Me.btnpb = New System.Windows.Forms.Button()
-        Me.btnTabelle = New System.Windows.Forms.Button()
-        Me.btnCheckbox = New System.Windows.Forms.Button()
-        Me.btndtp = New System.Windows.Forms.Button()
-        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
-        '
-        Me.GroupBox1.Controls.Add(Me.btnListBox)
-        Me.GroupBox1.Controls.Add(Me.btnListBoxCheckable)
-        Me.GroupBox1.Controls.Add(Me.btnRadioButton)
-        Me.GroupBox1.Controls.Add(Me.btngb)
-        Me.GroupBox1.Controls.Add(Me.btnpb)
-        Me.GroupBox1.Controls.Add(Me.btnTabelle)
-        Me.GroupBox1.Controls.Add(Me.btnCheckbox)
-        Me.GroupBox1.Controls.Add(Me.btndtp)
-        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
-        '
-        'btnListBox
-        '
-        resources.ApplyResources(Me.btnListBox, "btnListBox")
-        Me.btnListBox.Image = Global.DD_Record_Organiser.My.Resources.Resources.ListBox_686_24
-        Me.btnListBox.Name = "btnListBox"
-        Me.btnListBox.UseVisualStyleBackColor = True
-        '
-        'btnListBoxCheckable
-        '
-        resources.ApplyResources(Me.btnListBoxCheckable, "btnListBoxCheckable")
-        Me.btnListBoxCheckable.Image = Global.DD_Record_Organiser.My.Resources.Resources.ListBox_686_24
-        Me.btnListBoxCheckable.Name = "btnListBoxCheckable"
-        Me.btnListBoxCheckable.UseVisualStyleBackColor = True
-        '
-        'btnRadioButton
-        '
-        resources.ApplyResources(Me.btnRadioButton, "btnRadioButton")
-        Me.btnRadioButton.Image = Global.DD_Record_Organiser.My.Resources.Resources.RadioButton_701
-        Me.btnRadioButton.Name = "btnRadioButton"
-        Me.btnRadioButton.TabStop = False
-        Me.btnRadioButton.UseVisualStyleBackColor = True
-        '
-        'btngb
-        '
-        resources.ApplyResources(Me.btngb, "btngb")
-        Me.btngb.Image = Global.DD_Record_Organiser.My.Resources.Resources.GroupBox_680
-        Me.btngb.Name = "btngb"
-        Me.btngb.TabStop = False
-        Me.btngb.UseVisualStyleBackColor = True
-        '
-        'btnpb
-        '
-        resources.ApplyResources(Me.btnpb, "btnpb")
-        Me.btnpb.Image = Global.DD_Record_Organiser.My.Resources.Resources.ImageListControl_683
-        Me.btnpb.Name = "btnpb"
-        Me.btnpb.TabStop = False
-        Me.btnpb.UseVisualStyleBackColor = True
-        '
-        'btnTabelle
-        '
-        resources.ApplyResources(Me.btnTabelle, "btnTabelle")
-        Me.btnTabelle.Image = Global.DD_Record_Organiser.My.Resources.Resources.Table_748
-        Me.btnTabelle.Name = "btnTabelle"
-        Me.btnTabelle.TabStop = False
-        Me.btnTabelle.UseVisualStyleBackColor = True
-        '
-        'btnCheckbox
-        '
-        resources.ApplyResources(Me.btnCheckbox, "btnCheckbox")
-        Me.btnCheckbox.Image = Global.DD_Record_Organiser.My.Resources.Resources.CheckBox_669
-        Me.btnCheckbox.Name = "btnCheckbox"
-        Me.btnCheckbox.TabStop = False
-        Me.btnCheckbox.UseVisualStyleBackColor = True
-        '
-        'btndtp
-        '
-        resources.ApplyResources(Me.btndtp, "btndtp")
-        Me.btndtp.Image = Global.DD_Record_Organiser.My.Resources.Resources.DateOrTimePicker_675
-        Me.btndtp.Name = "btndtp"
-        Me.btndtp.TabStop = False
-        Me.btndtp.UseVisualStyleBackColor = True
-        '
-        'btncmb
-        '
-        resources.ApplyResources(Me.btncmb, "btncmb")
-        Me.btncmb.Image = Global.DD_Record_Organiser.My.Resources.Resources.ComboBox_672
-        Me.btncmb.Name = "btncmb"
-        Me.btncmb.TabStop = False
-        Me.btncmb.UseVisualStyleBackColor = True
-        '
-        'btntextbox
-        '
-        resources.ApplyResources(Me.btntextbox, "btntextbox")
-        Me.btntextbox.Image = Global.DD_Record_Organiser.My.Resources.Resources.TextBox_708
-        Me.btntextbox.Name = "btntextbox"
-        Me.btntextbox.TabStop = False
-        Me.btntextbox.UseVisualStyleBackColor = True
-        '
-        'btnlabel
-        '
-        resources.ApplyResources(Me.btnlabel, "btnlabel")
-        Me.btnlabel.Image = Global.DD_Record_Organiser.My.Resources.Resources.Label_684
-        Me.btnlabel.Name = "btnlabel"
-        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")
-        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.Controls.Add(Me.GroupBox2)
-        Me.Controls.Add(Me.GroupBox1)
-        Me.MaximizeBox = False
-        Me.MinimizeBox = False
-        Me.Name = "frmTool_ControlDesigner"
-        Me.GroupBox1.ResumeLayout(False)
-        Me.GroupBox2.ResumeLayout(False)
-        Me.ResumeLayout(False)
-
-    End Sub
-    Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
-    Friend WithEvents btnTabelle As System.Windows.Forms.Button
-    Friend WithEvents btnCheckbox As System.Windows.Forms.Button
-    Friend WithEvents btndtp As System.Windows.Forms.Button
-    Friend WithEvents btncmb As System.Windows.Forms.Button
-    Friend WithEvents btntextbox As System.Windows.Forms.Button
-    Friend WithEvents btnlabel As System.Windows.Forms.Button
-    Friend WithEvents btngb As System.Windows.Forms.Button
-    Friend WithEvents btnpb As System.Windows.Forms.Button
-    Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
-    Friend WithEvents btn_addtocal As System.Windows.Forms.Button
-    Friend WithEvents btn_addformdata As System.Windows.Forms.Button
-    Friend WithEvents btnRadioButton As System.Windows.Forms.Button
-    Friend WithEvents btnListBoxCheckable As System.Windows.Forms.Button
-    Friend WithEvents btnListBox As System.Windows.Forms.Button
-End Class

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

@@ -1,172 +0,0 @@
-<?xml version="1.0" encoding="utf-8"?>
-<root>
-  <!-- 
-    Microsoft ResX Schema 
-    
-    Version 2.0
-    
-    The primary goals of this format is to allow a simple XML format 
-    that is mostly human readable. The generation and parsing of the 
-    various data types are done through the TypeConverter classes 
-    associated with the data types.
-    
-    Example:
-    
-    ... ado.net/XML headers & schema ...
-    <resheader name="resmimetype">text/microsoft-resx</resheader>
-    <resheader name="version">2.0</resheader>
-    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
-    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
-    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
-    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
-    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
-        <value>[base64 mime encoded serialized .NET Framework object]</value>
-    </data>
-    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
-        <comment>This is a comment</comment>
-    </data>
-                
-    There are any number of "resheader" rows that contain simple 
-    name/value pairs.
-    
-    Each data row contains a name, and value. The row also contains a 
-    type or mimetype. Type corresponds to a .NET class that support 
-    text/value conversion through the TypeConverter architecture. 
-    Classes that don't support this are serialized and stored with the 
-    mimetype set.
-    
-    The mimetype is used for serialized objects, and tells the 
-    ResXResourceReader how to depersist the object. This is currently not 
-    extensible. For a given mimetype the value must be set accordingly:
-    
-    Note - application/x-microsoft.net.object.binary.base64 is the format 
-    that the ResXResourceWriter will generate, however the reader can 
-    read any of the formats listed below.
-    
-    mimetype: application/x-microsoft.net.object.binary.base64
-    value   : The object must be serialized with 
-            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
-            : and then encoded with base64 encoding.
-    
-    mimetype: application/x-microsoft.net.object.soap.base64
-    value   : The object must be serialized with 
-            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
-            : and then encoded with base64 encoding.
-
-    mimetype: application/x-microsoft.net.object.bytearray.base64
-    value   : The object must be serialized into a byte array 
-            : using a System.ComponentModel.TypeConverter
-            : and then encoded with base64 encoding.
-    -->
-  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
-    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
-    <xsd:element name="root" msdata:IsDataSet="true">
-      <xsd:complexType>
-        <xsd:choice maxOccurs="unbounded">
-          <xsd:element name="metadata">
-            <xsd:complexType>
-              <xsd:sequence>
-                <xsd:element name="value" type="xsd:string" minOccurs="0" />
-              </xsd:sequence>
-              <xsd:attribute name="name" use="required" type="xsd:string" />
-              <xsd:attribute name="type" type="xsd:string" />
-              <xsd:attribute name="mimetype" type="xsd:string" />
-              <xsd:attribute ref="xml:space" />
-            </xsd:complexType>
-          </xsd:element>
-          <xsd:element name="assembly">
-            <xsd:complexType>
-              <xsd:attribute name="alias" type="xsd:string" />
-              <xsd:attribute name="name" type="xsd:string" />
-            </xsd:complexType>
-          </xsd:element>
-          <xsd:element name="data">
-            <xsd:complexType>
-              <xsd:sequence>
-                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
-                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
-              </xsd:sequence>
-              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
-              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
-              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
-              <xsd:attribute ref="xml:space" />
-            </xsd:complexType>
-          </xsd:element>
-          <xsd:element name="resheader">
-            <xsd:complexType>
-              <xsd:sequence>
-                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
-              </xsd:sequence>
-              <xsd:attribute name="name" type="xsd:string" use="required" />
-            </xsd:complexType>
-          </xsd:element>
-        </xsd:choice>
-      </xsd:complexType>
-    </xsd:element>
-  </xsd:schema>
-  <resheader name="resmimetype">
-    <value>text/microsoft-resx</value>
-  </resheader>
-  <resheader name="version">
-    <value>2.0</value>
-  </resheader>
-  <resheader name="reader">
-    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </resheader>
-  <resheader name="writer">
-    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </resheader>
-  <assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
-  <data name="btnListBox.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
-    <value>NoControl</value>
-  </data>
-  <data name="btnListBoxCheckable.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
-    <value>NoControl</value>
-  </data>
-  <data name="btnRadioButton.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
-    <value>NoControl</value>
-  </data>
-  <data name="btngb.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
-    <value>NoControl</value>
-  </data>
-  <data name="btnpb.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
-    <value>NoControl</value>
-  </data>
-  <data name="btnTabelle.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
-    <value>NoControl</value>
-  </data>
-  <data name="btnTabelle.Text" xml:space="preserve">
-    <value>Table</value>
-  </data>
-  <data name="btnCheckbox.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
-    <value>NoControl</value>
-  </data>
-  <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>
-  <data name="btntextbox.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
-    <value>NoControl</value>
-  </data>
-  <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="$this.Text" xml:space="preserve">
-    <value>Controls - Formdesigner</value>
-  </data>
-</root>

app/DD-Record-Organiser/frmTool_ControlDesigner.resx

@@ -1,626 +0,0 @@
-<?xml version="1.0" encoding="utf-8"?>
-<root>
-  <!-- 
-    Microsoft ResX Schema 
-    
-    Version 2.0
-    
-    The primary goals of this format is to allow a simple XML format 
-    that is mostly human readable. The generation and parsing of the 
-    various data types are done through the TypeConverter classes 
-    associated with the data types.
-    
-    Example:
-    
-    ... ado.net/XML headers & schema ...
-    <resheader name="resmimetype">text/microsoft-resx</resheader>
-    <resheader name="version">2.0</resheader>
-    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
-    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
-    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
-    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
-    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
-        <value>[base64 mime encoded serialized .NET Framework object]</value>
-    </data>
-    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
-        <comment>This is a comment</comment>
-    </data>
-                
-    There are any number of "resheader" rows that contain simple 
-    name/value pairs.
-    
-    Each data row contains a name, and value. The row also contains a 
-    type or mimetype. Type corresponds to a .NET class that support 
-    text/value conversion through the TypeConverter architecture. 
-    Classes that don't support this are serialized and stored with the 
-    mimetype set.
-    
-    The mimetype is used for serialized objects, and tells the 
-    ResXResourceReader how to depersist the object. This is currently not 
-    extensible. For a given mimetype the value must be set accordingly:
-    
-    Note - application/x-microsoft.net.object.binary.base64 is the format 
-    that the ResXResourceWriter will generate, however the reader can 
-    read any of the formats listed below.
-    
-    mimetype: application/x-microsoft.net.object.binary.base64
-    value   : The object must be serialized with 
-            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
-            : and then encoded with base64 encoding.
-    
-    mimetype: application/x-microsoft.net.object.soap.base64
-    value   : The object must be serialized with 
-            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
-            : and then encoded with base64 encoding.
-
-    mimetype: application/x-microsoft.net.object.bytearray.base64
-    value   : The object must be serialized into a byte array 
-            : using a System.ComponentModel.TypeConverter
-            : and then encoded with base64 encoding.
-    -->
-  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
-    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
-    <xsd:element name="root" msdata:IsDataSet="true">
-      <xsd:complexType>
-        <xsd:choice maxOccurs="unbounded">
-          <xsd:element name="metadata">
-            <xsd:complexType>
-              <xsd:sequence>
-                <xsd:element name="value" type="xsd:string" minOccurs="0" />
-              </xsd:sequence>
-              <xsd:attribute name="name" use="required" type="xsd:string" />
-              <xsd:attribute name="type" type="xsd:string" />
-              <xsd:attribute name="mimetype" type="xsd:string" />
-              <xsd:attribute ref="xml:space" />
-            </xsd:complexType>
-          </xsd:element>
-          <xsd:element name="assembly">
-            <xsd:complexType>
-              <xsd:attribute name="alias" type="xsd:string" />
-              <xsd:attribute name="name" type="xsd:string" />
-            </xsd:complexType>
-          </xsd:element>
-          <xsd:element name="data">
-            <xsd:complexType>
-              <xsd:sequence>
-                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
-                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
-              </xsd:sequence>
-              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
-              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
-              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
-              <xsd:attribute ref="xml:space" />
-            </xsd:complexType>
-          </xsd:element>
-          <xsd:element name="resheader">
-            <xsd:complexType>
-              <xsd:sequence>
-                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
-              </xsd:sequence>
-              <xsd:attribute name="name" type="xsd:string" use="required" />
-            </xsd:complexType>
-          </xsd:element>
-        </xsd:choice>
-      </xsd:complexType>
-    </xsd:element>
-  </xsd:schema>
-  <resheader name="resmimetype">
-    <value>text/microsoft-resx</value>
-  </resheader>
-  <resheader name="version">
-    <value>2.0</value>
-  </resheader>
-  <resheader name="reader">
-    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </resheader>
-  <resheader name="writer">
-    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </resheader>
-  <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
-  <data name="btnListBox.Font" type="System.Drawing.Font, System.Drawing">
-    <value>Segoe UI, 8.25pt, style=Bold</value>
-  </data>
-  <data name="btnListBox.ImageAlign" type="System.Drawing.ContentAlignment, System.Drawing">
-    <value>MiddleLeft</value>
-  </data>
-  <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="&gt;&gt;btnListBox.Parent" xml:space="preserve">
-    <value>GroupBox1</value>
-  </data>
-  <data name="&gt;&gt;btnListBox.ZOrder" xml:space="preserve">
-    <value>0</value>
-  </data>
-  <data name="btnListBoxCheckable.Font" type="System.Drawing.Font, System.Drawing">
-    <value>Segoe UI, 8.25pt, style=Bold</value>
-  </data>
-  <data name="btnListBoxCheckable.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="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="&gt;&gt;btnListBoxCheckable.ZOrder" xml:space="preserve">
-    <value>1</value>
-  </data>
-  <data name="btnRadioButton.Font" type="System.Drawing.Font, System.Drawing">
-    <value>Segoe UI, 8.25pt, style=Bold</value>
-  </data>
-  <data name="btnRadioButton.ImageAlign" type="System.Drawing.ContentAlignment, System.Drawing">
-    <value>MiddleLeft</value>
-  </data>
-  <data name="btnRadioButton.Location" type="System.Drawing.Point, System.Drawing">
-    <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="btnRadioButton.Text" xml:space="preserve">
-    <value>RadioButton</value>
-  </data>
-  <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;btnRadioButton.ZOrder" xml:space="preserve">
-    <value>2</value>
-  </data>
-  <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="btngb.Location" type="System.Drawing.Point, System.Drawing">
-    <value>152, 164</value>
-  </data>
-  <data name="btngb.Size" type="System.Drawing.Size, System.Drawing">
-    <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>
-  </data>
-  <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;btngb.Parent" xml:space="preserve">
-    <value>GroupBox1</value>
-  </data>
-  <data name="&gt;&gt;btngb.ZOrder" xml:space="preserve">
-    <value>3</value>
-  </data>
-  <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="btnpb.TabIndex" type="System.Int32, mscorlib">
-    <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="&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="btnTabelle.Text" xml:space="preserve">
-    <value>Tabelle</value>
-  </data>
-  <data name="btnTabelle.TextAlign" type="System.Drawing.ContentAlignment, System.Drawing">
-    <value>MiddleRight</value>
-  </data>
-  <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="&gt;&gt;btnTabelle.Parent" xml:space="preserve">
-    <value>GroupBox1</value>
-  </data>
-  <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.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="btnCheckbox.Size" type="System.Drawing.Size, System.Drawing">
-    <value>132, 31</value>
-  </data>
-  <data name="btnCheckbox.TabIndex" type="System.Int32, mscorlib">
-    <value>3</value>
-  </data>
-  <data name="btnCheckbox.Text" xml:space="preserve">
-    <value>CheckBox</value>
-  </data>
-  <data name="btnCheckbox.TextAlign" type="System.Drawing.ContentAlignment, System.Drawing">
-    <value>MiddleRight</value>
-  </data>
-  <data name="&gt;&gt;btnCheckbox.Name" xml:space="preserve">
-    <value>btnCheckbox</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;btnCheckbox.Parent" xml:space="preserve">
-    <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="btndtp.ImageAlign" type="System.Drawing.ContentAlignment, System.Drawing">
-    <value>MiddleLeft</value>
-  </data>
-  <data name="btndtp.Location" type="System.Drawing.Point, System.Drawing">
-    <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="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="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="btn_addformdata.Text" xml:space="preserve">
-    <value>Add Form Data</value>
-  </data>
-  <data name="btn_addformdata.TextAlign" type="System.Drawing.ContentAlignment, System.Drawing">
-    <value>MiddleRight</value>
-  </data>
-  <data name="&gt;&gt;btn_addformdata.Name" xml:space="preserve">
-    <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="btn_addtocal.ImageAlign" type="System.Drawing.ContentAlignment, System.Drawing">
-    <value>MiddleLeft</value>
-  </data>
-  <data name="btn_addtocal.Location" type="System.Drawing.Point, System.Drawing">
-    <value>12, 24</value>
-  </data>
-  <data name="btn_addtocal.Size" type="System.Drawing.Size, System.Drawing">
-    <value>134, 31</value>
-  </data>
-  <data name="btn_addtocal.TabIndex" type="System.Int32, mscorlib">
-    <value>0</value>
-  </data>
-  <data name="btn_addtocal.Text" xml:space="preserve">
-    <value>Add to Calendar</value>
-  </data>
-  <data name="btn_addtocal.TextAlign" type="System.Drawing.ContentAlignment, System.Drawing">
-    <value>MiddleRight</value>
-  </data>
-  <data name="&gt;&gt;btn_addtocal.Name" xml:space="preserve">
-    <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>
-  <data name="$this.AutoScaleDimensions" type="System.Drawing.SizeF, System.Drawing">
-    <value>6, 13</value>
-  </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_ControlDesigner.vb

@@ -1,141 +0,0 @@
-Public Class frmTool_ControlDesigner
-    Dim MouseIsDown As Boolean = False
-    Private Shared _Instance As frmTool_ControlDesigner = Nothing
-    Public Shared Function Instance() As frmTool_ControlDesigner
-        If _Instance Is Nothing OrElse _Instance.IsDisposed = True Then
-            _Instance = New frmTool_ControlDesigner
-        End If
-        _Instance.BringToFront()
-        Return _Instance
-    End Function
-    Private Sub btncontrol_MouseDown(sender As Object, e As MouseEventArgs) Handles btntextbox.MouseDown,
-                                                                                    btnTabelle.MouseDown,
-                                                                                    btnlabel.MouseDown,
-                                                                                    btndtp.MouseDown,
-                                                                                    btncmb.MouseDown,
-                                                                                    btnCheckbox.MouseDown,
-                                                                                    btnpb.MouseDown,
-                                                                                    btngb.MouseDown,
-                                                                                    btn_addtocal.MouseDown,
-                                                                                    btn_addformdata.MouseDown,
-                                                                                    btnRadioButton.MouseDown,
-                                                                                    btnListBoxCheckable.MouseDown,
-                                                                                    btnListBox.MouseDown
-        MouseIsDown = True
-    End Sub
-    Private Sub btnlabel_MouseMove(sender As Object, e As MouseEventArgs) Handles btnlabel.MouseMove
-        If MouseIsDown Then
-            'Initiate dragging. 
-            btnlabel.DoDragDrop("lbl", DragDropEffects.Copy)
-        End If
-        MouseIsDown = False
-    End Sub
-
-    Private Sub btndtp_MouseMove(sender As Object, e As MouseEventArgs) Handles btndtp.MouseMove
-        If MouseIsDown Then
-            'Initiate dragging. 
-            btndtp.DoDragDrop("dtp", DragDropEffects.Copy)
-        End If
-        MouseIsDown = False
-    End Sub
-
-    Private Sub btntextbox_MouseMove(sender As Object, e As MouseEventArgs) Handles btntextbox.MouseMove
-        If MouseIsDown Then
-            'Initiate dragging. 
-            btntextbox.DoDragDrop("txt", DragDropEffects.Copy)
-        End If
-        MouseIsDown = False
-    End Sub
-
-    Private Sub btnCheckbox_MouseMove(sender As Object, e As MouseEventArgs) Handles btnCheckbox.MouseMove
-        If MouseIsDown Then
-            'Initiate dragging. 
-            btnCheckbox.DoDragDrop("chk", DragDropEffects.Copy)
-        End If
-        MouseIsDown = False
-    End Sub
-
-    Private Sub btncmb_MouseMove(sender As Object, e As MouseEventArgs) Handles btncmb.MouseMove
-        If MouseIsDown Then
-            'Initiate dragging. 
-            btncmb.DoDragDrop("cmb", DragDropEffects.Copy)
-        End If
-        MouseIsDown = False
-    End Sub
-
-    Private Sub btnTabelle_MouseMove(sender As Object, e As MouseEventArgs) Handles btnTabelle.MouseMove
-        If MouseIsDown Then
-            'Initiate dragging. 
-            btnTabelle.DoDragDrop("dgv", DragDropEffects.Copy)
-        End If
-        MouseIsDown = False
-    End Sub
-
-    Private Sub btnpb_MouseMove(sender As Object, e As MouseEventArgs) Handles btnpb.MouseMove
-        If MouseIsDown Then
-            btnpb.DoDragDrop("pb", DragDropEffects.Copy)
-        End If
-        MouseIsDown = False
-    End Sub
-
-    Private Sub btngb_MouseMove(sender As Object, e As MouseEventArgs) Handles btngb.MouseMove
-        If MouseIsDown Then
-            btngb.DoDragDrop("gb", DragDropEffects.Copy)
-        End If
-        MouseIsDown = False
-    End Sub
-
-    Private Sub btn_addtocal_MouseMove(sender As Object, e As MouseEventArgs) Handles btn_addtocal.MouseMove
-        If MouseIsDown Then
-            btn_addtocal.DoDragDrop("f_addappointment", DragDropEffects.Copy)
-        End If
-        MouseIsDown = False
-    End Sub
-
-    Private Sub btn_addformdata_MouseMove(sender As Object, e As MouseEventArgs) Handles btn_addformdata.MouseMove
-        If MouseIsDown Then
-            btn_addformdata.DoDragDrop("f_addformdata", DragDropEffects.Copy)
-        End If
-        MouseIsDown = False
-    End Sub
-    Private Sub btnRadioButton_MouseMove(sender As Object, e As MouseEventArgs) Handles btnRadioButton.MouseMove
-        If MouseIsDown Then
-            btn_addformdata.DoDragDrop("rb", DragDropEffects.Copy)
-        End If
-        MouseIsDown = False
-    End Sub
-
-    Private Sub frmTool_FormDesigner_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
-        Try
-            ClassWindowLocation.SaveFormLocationSize(Me, 1, CURRENT_SCREEN_ID, "frmTool_FormDesigner")
-            My.Settings.Save()
-        Catch ex As Exception
-            MsgBox("Settings could not be saved.\n" & ex.ToString)
-        End Try
-    End Sub
-
-    Private Sub frmTool_FormDesigner_Load(sender As Object, e As EventArgs) Handles Me.Load
-        ClassWindowLocation.LoadFormLocationSize(Me, 1, CURRENT_SCREEN_ID, "frmTool_FormDesigner")
-
-    End Sub
-
-    Private Sub btnListBox_MouseMove(sender As Object, e As MouseEventArgs) Handles btnListBoxCheckable.MouseMove
-        If MouseIsDown Then
-            'Initiate dragging. 
-            btnListBoxCheckable.DoDragDrop("lstbxcheck", DragDropEffects.Copy)
-        End If
-    End Sub
-
-    Private Sub btnListBox_MouseMove_1(sender As Object, e As MouseEventArgs) Handles btnListBox.MouseMove
-        If MouseIsDown Then
-            'Initiate dragging. 
-            btnListBox.DoDragDrop("lstbx", DragDropEffects.Copy)
-        End If
-    End Sub
-
-    Private Sub frmTool_ControlDesigner_Shown(sender As Object, e As EventArgs) Handles Me.Shown
-        If Me.WindowState = FormWindowState.Maximized Then
-            Me.WindowState = FormWindowState.Normal
-        End If
-    End Sub
-End Class

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

@@ -1,95 +0,0 @@
-<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
-Partial Class frmTool_ControlProperties
-    Inherits System.Windows.Forms.Form
-
-    'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
-    <System.Diagnostics.DebuggerNonUserCode()> _
-    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
-        Try
-            If disposing AndAlso components IsNot Nothing Then
-                components.Dispose()
-            End If
-        Finally
-            MyBase.Dispose(disposing)
-        End Try
-    End Sub
-
-    'Wird vom Windows Form-Designer benötigt.
-    Private components As System.ComponentModel.IContainer
-
-    'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
-    'Das Bearbeiten ist mit dem Windows Form-Designer möglich.  
-    'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
-    <System.Diagnostics.DebuggerStepThrough()> _
-    Private Sub InitializeComponent()
-        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmTool_ControlProperties))
-        Me.pgControlProperties = New System.Windows.Forms.PropertyGrid()
-        Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
-        Me.StatusStrip1 = New System.Windows.Forms.StatusStrip()
-        Me.lblStatus = New System.Windows.Forms.ToolStripStatusLabel()
-        Me.btnSaveControl = New System.Windows.Forms.ToolStripButton()
-        Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton()
-        Me.ToolStrip1.SuspendLayout()
-        Me.StatusStrip1.SuspendLayout()
-        Me.SuspendLayout()
-        '
-        'pgControlProperties
-        '
-        resources.ApplyResources(Me.pgControlProperties, "pgControlProperties")
-        Me.pgControlProperties.Name = "pgControlProperties"
-        '
-        'ToolStrip1
-        '
-        resources.ApplyResources(Me.ToolStrip1, "ToolStrip1")
-        Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.btnSaveControl, Me.ToolStripButton1})
-        Me.ToolStrip1.Name = "ToolStrip1"
-        '
-        'StatusStrip1
-        '
-        resources.ApplyResources(Me.StatusStrip1, "StatusStrip1")
-        Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.lblStatus})
-        Me.StatusStrip1.Name = "StatusStrip1"
-        '
-        'lblStatus
-        '
-        resources.ApplyResources(Me.lblStatus, "lblStatus")
-        Me.lblStatus.Image = Global.DD_Record_Organiser.My.Resources.Resources.flag_green
-        Me.lblStatus.Name = "lblStatus"
-        '
-        'btnSaveControl
-        '
-        resources.ApplyResources(Me.btnSaveControl, "btnSaveControl")
-        Me.btnSaveControl.Image = Global.DD_Record_Organiser.My.Resources.Resources.save_16xLG
-        Me.btnSaveControl.Name = "btnSaveControl"
-        '
-        'ToolStripButton1
-        '
-        resources.ApplyResources(Me.ToolStripButton1, "ToolStripButton1")
-        Me.ToolStripButton1.Image = Global.DD_Record_Organiser.My.Resources.Resources.action_Cancel_16xLG
-        Me.ToolStripButton1.Name = "ToolStripButton1"
-        '
-        'frmTool_ControlProperties
-        '
-        resources.ApplyResources(Me, "$this")
-        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.Controls.Add(Me.StatusStrip1)
-        Me.Controls.Add(Me.ToolStrip1)
-        Me.Controls.Add(Me.pgControlProperties)
-        Me.MaximizeBox = False
-        Me.MinimizeBox = False
-        Me.Name = "frmTool_ControlProperties"
-        Me.ToolStrip1.ResumeLayout(False)
-        Me.ToolStrip1.PerformLayout()
-        Me.StatusStrip1.ResumeLayout(False)
-        Me.StatusStrip1.PerformLayout()
-        Me.ResumeLayout(False)
-        Me.PerformLayout()
-
-    End Sub
-    Friend WithEvents pgControlProperties As System.Windows.Forms.PropertyGrid
-    Friend WithEvents ToolStrip1 As System.Windows.Forms.ToolStrip
-    Friend WithEvents btnSaveControl As System.Windows.Forms.ToolStripButton
-    Friend WithEvents StatusStrip1 As System.Windows.Forms.StatusStrip
-    Friend WithEvents lblStatus As System.Windows.Forms.ToolStripStatusLabel
-    Friend WithEvents ToolStripButton1 As System.Windows.Forms.ToolStripButton
-End Class

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

@@ -1,140 +0,0 @@
-<?xml version="1.0" encoding="utf-8"?>
-<root>
-  <!-- 
-    Microsoft ResX Schema 
-    
-    Version 2.0
-    
-    The primary goals of this format is to allow a simple XML format 
-    that is mostly human readable. The generation and parsing of the 
-    various data types are done through the TypeConverter classes 
-    associated with the data types.
-    
-    Example:
-    
-    ... ado.net/XML headers & schema ...
-    <resheader name="resmimetype">text/microsoft-resx</resheader>
-    <resheader name="version">2.0</resheader>
-    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
-    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
-    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
-    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
-    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
-        <value>[base64 mime encoded serialized .NET Framework object]</value>
-    </data>
-    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
-        <comment>This is a comment</comment>
-    </data>
-                
-    There are any number of "resheader" rows that contain simple 
-    name/value pairs.
-    
-    Each data row contains a name, and value. The row also contains a 
-    type or mimetype. Type corresponds to a .NET class that support 
-    text/value conversion through the TypeConverter architecture. 
-    Classes that don't support this are serialized and stored with the 
-    mimetype set.
-    
-    The mimetype is used for serialized objects, and tells the 
-    ResXResourceReader how to depersist the object. This is currently not 
-    extensible. For a given mimetype the value must be set accordingly:
-    
-    Note - application/x-microsoft.net.object.binary.base64 is the format 
-    that the ResXResourceWriter will generate, however the reader can 
-    read any of the formats listed below.
-    
-    mimetype: application/x-microsoft.net.object.binary.base64
-    value   : The object must be serialized with 
-            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
-            : and then encoded with base64 encoding.
-    
-    mimetype: application/x-microsoft.net.object.soap.base64
-    value   : The object must be serialized with 
-            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
-            : and then encoded with base64 encoding.
-
-    mimetype: application/x-microsoft.net.object.bytearray.base64
-    value   : The object must be serialized into a byte array 
-            : using a System.ComponentModel.TypeConverter
-            : and then encoded with base64 encoding.
-    -->
-  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
-    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
-    <xsd:element name="root" msdata:IsDataSet="true">
-      <xsd:complexType>
-        <xsd:choice maxOccurs="unbounded">
-          <xsd:element name="metadata">
-            <xsd:complexType>
-              <xsd:sequence>
-                <xsd:element name="value" type="xsd:string" minOccurs="0" />
-              </xsd:sequence>
-              <xsd:attribute name="name" use="required" type="xsd:string" />
-              <xsd:attribute name="type" type="xsd:string" />
-              <xsd:attribute name="mimetype" type="xsd:string" />
-              <xsd:attribute ref="xml:space" />
-            </xsd:complexType>
-          </xsd:element>
-          <xsd:element name="assembly">
-            <xsd:complexType>
-              <xsd:attribute name="alias" type="xsd:string" />
-              <xsd:attribute name="name" type="xsd:string" />
-            </xsd:complexType>
-          </xsd:element>
-          <xsd:element name="data">
-            <xsd:complexType>
-              <xsd:sequence>
-                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
-                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
-              </xsd:sequence>
-              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
-              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
-              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
-              <xsd:attribute ref="xml:space" />
-            </xsd:complexType>
-          </xsd:element>
-          <xsd:element name="resheader">
-            <xsd:complexType>
-              <xsd:sequence>
-                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
-              </xsd:sequence>
-              <xsd:attribute name="name" type="xsd:string" use="required" />
-            </xsd:complexType>
-          </xsd:element>
-        </xsd:choice>
-      </xsd:complexType>
-    </xsd:element>
-  </xsd:schema>
-  <resheader name="resmimetype">
-    <value>text/microsoft-resx</value>
-  </resheader>
-  <resheader name="version">
-    <value>2.0</value>
-  </resheader>
-  <resheader name="reader">
-    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </resheader>
-  <resheader name="writer">
-    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </resheader>
-  <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
-  <data name="btnSaveControl.Size" type="System.Drawing.Size, System.Drawing">
-    <value>51, 22</value>
-  </data>
-  <data name="btnSaveControl.Text" xml:space="preserve">
-    <value>Save</value>
-  </data>
-  <data name="ToolStripButton1.Size" type="System.Drawing.Size, System.Drawing">
-    <value>60, 22</value>
-  </data>
-  <data name="ToolStripButton1.Text" xml:space="preserve">
-    <value>Delete</value>
-  </data>
-  <assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
-  <data name="$this.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
-    <value>NoControl</value>
-  </data>
-  <data name="$this.Text" xml:space="preserve">
-    <value>Preferences Control</value>
-  </data>
-</root>

app/DD-Record-Organiser/frmTool_ControlProperties.resx

@@ -1,273 +0,0 @@
-<?xml version="1.0" encoding="utf-8"?>
-<root>
-  <!-- 
-    Microsoft ResX Schema 
-    
-    Version 2.0
-    
-    The primary goals of this format is to allow a simple XML format 
-    that is mostly human readable. The generation and parsing of the 
-    various data types are done through the TypeConverter classes 
-    associated with the data types.
-    
-    Example:
-    
-    ... ado.net/XML headers & schema ...
-    <resheader name="resmimetype">text/microsoft-resx</resheader>
-    <resheader name="version">2.0</resheader>
-    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
-    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
-    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
-    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
-    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
-        <value>[base64 mime encoded serialized .NET Framework object]</value>
-    </data>
-    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
-        <comment>This is a comment</comment>
-    </data>
-                
-    There are any number of "resheader" rows that contain simple 
-    name/value pairs.
-    
-    Each data row contains a name, and value. The row also contains a 
-    type or mimetype. Type corresponds to a .NET class that support 
-    text/value conversion through the TypeConverter architecture. 
-    Classes that don't support this are serialized and stored with the 
-    mimetype set.
-    
-    The mimetype is used for serialized objects, and tells the 
-    ResXResourceReader how to depersist the object. This is currently not 
-    extensible. For a given mimetype the value must be set accordingly:
-    
-    Note - application/x-microsoft.net.object.binary.base64 is the format 
-    that the ResXResourceWriter will generate, however the reader can 
-    read any of the formats listed below.
-    
-    mimetype: application/x-microsoft.net.object.binary.base64
-    value   : The object must be serialized with 
-            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
-            : and then encoded with base64 encoding.
-    
-    mimetype: application/x-microsoft.net.object.soap.base64
-    value   : The object must be serialized with 
-            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
-            : and then encoded with base64 encoding.
-
-    mimetype: application/x-microsoft.net.object.bytearray.base64
-    value   : The object must be serialized into a byte array 
-            : using a System.ComponentModel.TypeConverter
-            : and then encoded with base64 encoding.
-    -->
-  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
-    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
-    <xsd:element name="root" msdata:IsDataSet="true">
-      <xsd:complexType>
-        <xsd:choice maxOccurs="unbounded">
-          <xsd:element name="metadata">
-            <xsd:complexType>
-              <xsd:sequence>
-                <xsd:element name="value" type="xsd:string" minOccurs="0" />
-              </xsd:sequence>
-              <xsd:attribute name="name" use="required" type="xsd:string" />
-              <xsd:attribute name="type" type="xsd:string" />
-              <xsd:attribute name="mimetype" type="xsd:string" />
-              <xsd:attribute ref="xml:space" />
-            </xsd:complexType>
-          </xsd:element>
-          <xsd:element name="assembly">
-            <xsd:complexType>
-              <xsd:attribute name="alias" type="xsd:string" />
-              <xsd:attribute name="name" type="xsd:string" />
-            </xsd:complexType>
-          </xsd:element>
-          <xsd:element name="data">
-            <xsd:complexType>
-              <xsd:sequence>
-                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
-                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
-              </xsd:sequence>
-              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
-              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
-              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
-              <xsd:attribute ref="xml:space" />
-            </xsd:complexType>
-          </xsd:element>
-          <xsd:element name="resheader">
-            <xsd:complexType>
-              <xsd:sequence>
-                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
-              </xsd:sequence>
-              <xsd:attribute name="name" type="xsd:string" use="required" />
-            </xsd:complexType>
-          </xsd:element>
-        </xsd:choice>
-      </xsd:complexType>
-    </xsd:element>
-  </xsd:schema>
-  <resheader name="resmimetype">
-    <value>text/microsoft-resx</value>
-  </resheader>
-  <resheader name="version">
-    <value>2.0</value>
-  </resheader>
-  <resheader name="reader">
-    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </resheader>
-  <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;pgControlProperties.Name" xml:space="preserve">
-    <value>pgControlProperties</value>
-  </data>
-  <data name="$this.Text" xml:space="preserve">
-    <value>Eigenschaften</value>
-  </data>
-  <data name="&gt;&gt;lblStatus.Name" xml:space="preserve">
-    <value>lblStatus</value>
-  </data>
-  <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
-  <data name="$this.AutoScaleDimensions" type="System.Drawing.SizeF, System.Drawing">
-    <value>6, 13</value>
-  </data>
-  <data name="btnSaveControl.Text" xml:space="preserve">
-    <value>Speichern</value>
-  </data>
-  <data name="StatusStrip1.Text" xml:space="preserve">
-    <value>StatusStrip1</value>
-  </data>
-  <data name="&gt;&gt;ToolStrip1.ZOrder" xml:space="preserve">
-    <value>1</value>
-  </data>
-  <data name="lblStatus.Size" type="System.Drawing.Size, System.Drawing">
-    <value>80, 17</value>
-  </data>
-  <data name="StatusStrip1.Size" type="System.Drawing.Size, System.Drawing">
-    <value>384, 22</value>
-  </data>
-  <data name="&gt;&gt;pgControlProperties.ZOrder" xml:space="preserve">
-    <value>2</value>
-  </data>
-  <data name="pgControlProperties.Location" type="System.Drawing.Point, System.Drawing">
-    <value>0, 28</value>
-  </data>
-  <data name="&gt;&gt;pgControlProperties.Parent" xml:space="preserve">
-    <value>$this</value>
-  </data>
-  <data name="&gt;&gt;StatusStrip1.Type" xml:space="preserve">
-    <value>System.Windows.Forms.StatusStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</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="ToolStrip1.Text" xml:space="preserve">
-    <value>ToolStrip1</value>
-  </data>
-  <data name="&gt;&gt;$this.Name" xml:space="preserve">
-    <value>frmTool_ControlProperties</value>
-  </data>
-  <data name="ToolStripButton1.ImageTransparentColor" type="System.Drawing.Color, System.Drawing">
-    <value>Magenta</value>
-  </data>
-  <data name="&gt;&gt;StatusStrip1.Name" xml:space="preserve">
-    <value>StatusStrip1</value>
-  </data>
-  <data name="pgControlProperties.Size" type="System.Drawing.Size, System.Drawing">
-    <value>384, 322</value>
-  </data>
-  <data name="&gt;&gt;btnSaveControl.Type" xml:space="preserve">
-    <value>System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="&gt;&gt;lblStatus.Type" xml:space="preserve">
-    <value>System.Windows.Forms.ToolStripStatusLabel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="ToolStrip1.Size" type="System.Drawing.Size, System.Drawing">
-    <value>384, 25</value>
-  </data>
-  <data name="btnSaveControl.ImageTransparentColor" type="System.Drawing.Color, System.Drawing">
-    <value>Magenta</value>
-  </data>
-  <data name="$this.ClientSize" type="System.Drawing.Size, System.Drawing">
-    <value>384, 375</value>
-  </data>
-  <data name="btnSaveControl.Size" type="System.Drawing.Size, System.Drawing">
-    <value>79, 22</value>
-  </data>
-  <data name="&gt;&gt;ToolStrip1.Type" xml:space="preserve">
-    <value>System.Windows.Forms.ToolStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="ToolStripButton1.Size" type="System.Drawing.Size, System.Drawing">
-    <value>71, 22</value>
-  </data>
-  <data name="ToolStrip1.Location" type="System.Drawing.Point, System.Drawing">
-    <value>0, 0</value>
-  </data>
-  <assembly alias="mscorlib" name="mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
-  <data name="StatusStrip1.TabIndex" type="System.Int32, mscorlib">
-    <value>2</value>
-  </data>
-  <data name="ToolStrip1.TabIndex" type="System.Int32, mscorlib">
-    <value>1</value>
-  </data>
-  <data name="&gt;&gt;ToolStrip1.Parent" xml:space="preserve">
-    <value>$this</value>
-  </data>
-  <data name="&gt;&gt;btnSaveControl.Name" xml:space="preserve">
-    <value>btnSaveControl</value>
-  </data>
-  <assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
-  <data name="pgControlProperties.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
-    <value>Top, Bottom, Left, Right</value>
-  </data>
-  <data name="&gt;&gt;ToolStripButton1.Type" xml:space="preserve">
-    <value>System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="pgControlProperties.Enabled" type="System.Boolean, mscorlib">
-    <value>False</value>
-  </data>
-  <data name="&gt;&gt;pgControlProperties.Type" xml:space="preserve">
-    <value>System.Windows.Forms.PropertyGrid, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="pgControlProperties.TabIndex" type="System.Int32, mscorlib">
-    <value>0</value>
-  </data>
-  <data name="ToolStripButton1.Text" xml:space="preserve">
-    <value>Löschen</value>
-  </data>
-  <data name="&gt;&gt;StatusStrip1.Parent" xml:space="preserve">
-    <value>$this</value>
-  </data>
-  <data name="&gt;&gt;ToolStrip1.Name" xml:space="preserve">
-    <value>ToolStrip1</value>
-  </data>
-  <data name="StatusStrip1.Location" type="System.Drawing.Point, System.Drawing">
-    <value>0, 353</value>
-  </data>
-  <data name="lblStatus.Visible" type="System.Boolean, mscorlib">
-    <value>False</value>
-  </data>
-  <data name="lblStatus.Text" xml:space="preserve">
-    <value>erfolgreich</value>
-  </data>
-  <data name="$this.Font" type="System.Drawing.Font, System.Drawing">
-    <value>Segoe UI, 8.25pt</value>
-  </data>
-  <data name="&gt;&gt;ToolStripButton1.Name" xml:space="preserve">
-    <value>ToolStripButton1</value>
-  </data>
-  <data name="&gt;&gt;StatusStrip1.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">
-    <value>en-US</value>
-  </metadata>
-  <metadata name="StatusStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>124, 17</value>
-  </metadata>
-  <metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>17, 17</value>
-  </metadata>
-</root>

app/DD-Record-Organiser/frmTool_ControlProperties.vb

@@ -1,614 +0,0 @@
-Public Class frmTool_ControlProperties
-    Private Shared _Instance As frmTool_ControlProperties = Nothing
-    Private CurrentProperties As Object = Nothing
-
-    Public Shared Function Instance() As frmTool_ControlProperties
-        If _Instance Is Nothing OrElse _Instance.IsDisposed = True Then
-            _Instance = New frmTool_ControlProperties
-        End If
-        _Instance.BringToFront()
-        Return _Instance
-    End Function
-
-    Private Sub frmTool_ControlProperties_Load(sender As Object, e As EventArgs) Handles MyBase.Load
-        ClassWindowLocation.LoadFormLocationSize(Me, 1, CURRENT_SCREEN_ID, "frmTool_ControlProperties")
-    End Sub
-
-    Private Sub frmTool_ControlProperties_FormClosing(sender As Object, e As FormClosingEventArgs) Handles MyBase.FormClosing
-        Try
-            ClassWindowLocation.SaveFormLocationSize(Me, 1, CURRENT_SCREEN_ID, "frmTool_ControlProperties")
-            My.Settings.Save()
-        Catch ex As Exception
-            MsgBox("Settings could not be saved.\n" & ex.ToString)
-        End Try
-    End Sub
-
-    Public Sub LoadControlPropertiesNeu(ctrl As Control)
-        Try
-
-            Dim controlId = DirectCast(ctrl.Tag, ClassControlMetadata).Id
-            Dim sql As String = String.Format("SELECT * FROM VWPMO_CONTROL_SCREEN WHERE CONTROL_ID = {0}", ControlId)
-            'Dim sqlHint As String = String.Format("SELECT HINT FROM TBPMO_CONTROL_LANGUAGE WHERE CONTROL_SCREEN_ID = {0} AND LANGUAGE_TYPE = '{1}'", controlId, USER_LANGUAGE)
-            Dim sqlHint = String.Format("SELECT HINT FROM TBPMO_CONTROL_LANGUAGE WHERE CONTROL_SCREEN_ID = (SELECT GUID FROM TBPMO_CONTROL_SCREEN WHERE CONTROL_ID = {0} AND SCREEN_ID = {1}) AND LANGUAGE_TYPE = '{2}'", controlId, CURRENT_SCREEN_ID, USER_LANGUAGE)
-
-            Dim dt As DataTable = ClassDatabase.Return_Datatable(sql)
-            Dim hint As String = ClassConverter.ToStringOrDefault(ClassDatabase.Execute_Scalar(sqlHint), Nothing)
-
-            Dim props As Object = Nothing
-            Dim r As DataRow = Nothing
-            Dim type As String = Nothing
-
-            If dt.Rows.Count <> 1 Then
-                MsgBox("Unexpected behaviour in LoadControlProperties: No Control could be loaded!" & vbNewLine & "Tag.ControlID: " & ControlId.ToString, MsgBoxStyle.Exclamation)
-                Exit Sub
-            End If
-
-            r = dt.Rows(0)
-            type = r.Item("CTRLTYPE_NAME")
-
-            'Props Object initialisieren
-            Select Case type
-                Case "Label" : props = New LabelProperties()
-                Case "Textbox" : props = New TextBoxProperties()
-                Case "CustomComboBox" : props = New ComboBoxProperties()
-                Case "Checkbox" : props = New CheckBoxProperties()
-                Case "RadioButton" : props = New RadioButtonProperties()
-                Case "Datepicker" : props = New DateTimePickerProperties()
-                Case "Datagridview" : props = New DataGridViewProperties()
-                Case "Groupbox" : props = New GroupBoxProperties()
-                Case "Picturebox" : props = New PictureBoxProperties()
-                Case "ListBox" : props = New ComboBoxProperties()
-                Case "CheckedListBox" : props = New ComboBoxProperties()
-                Case "F_AddAppointment" : props = New FunctionAddAppointment()
-                Case "F_AddFormData" : props = New FunctionAddFormData()
-            End Select
-
-            'Generische Properties laden
-            props.ID = r.Item("CONTROL_ID")
-            props.Name = r.Item("CONTROL_NAME")
-            props.Size = New Size(r.Item("CTRLSCR_WIDTH"), r.Item("CTRLSCR_HEIGHT"))
-            props.Location = New Point(r.Item("CTRLSCR_X_LOC"), r.Item("CTRLSCR_Y_LOC"))
-            props.Hint = hint
-
-            'Control-spezifische Properties laden
-            Select Case type
-                Case "Label"
-                    props.FontColor = IntToColor(r.Item("CTRLSCR_FONT_COLOR"))
-                    props.Font = New Font(r.Item("CTRLSCR_FONT_FAMILY").ToString(),
-                                          CType(r.Item("CTRLSCR_FONT_SIZE"), Single),
-                                          CType(r.Item("CTRLSCR_FONT_STYLE"), FontStyle))
-                    props.ColumnTitle = r.Item("CONTROL_COL_NAME")
-                    props.Caption = r.Item("CTRLSCR_CAPTION")
-                    props.SQLCommand = New SQLValue(NotNull(r.Item("CONTROL_SQLCOMMAND_1"), ""))
-
-                Case "Textbox"
-                    props.FontColor = IntToColor(r.Item("CTRLSCR_FONT_COLOR"))
-                    props.Font = New Font(r.Item("CTRLSCR_FONT_FAMILY").ToString(),
-                                          CType(r.Item("CTRLSCR_FONT_SIZE"), Single),
-                                          CType(r.Item("CTRLSCR_FONT_STYLE"), FontStyle))
-                    props.ColumnTitle = r.Item("CONTROL_COL_NAME")
-                    props.DefaultValue = ClassConverter.ToStringOrDefault(r.Item("CONTROL_DEF_VALUE"))
-                    props.Format = NotNull([Enum].Parse(GetType(EnumFormatOptions), r.Item("CONTROL_FORMAT_TYPE")), EnumFormatOptions.String)
-                    props.IsRequired = r.Item("CONTROL_REQUIRED")
-                    props.IsReadOnly = r.Item("CONTROL_READ_ONLY")
-                    props.TabStop = r.Item("CTRLSCR_TAB_STOP")
-                    props.TabIndex = r.Item("CTRLSCR_TAB_INDEX")
-                    props.ShowColumn = NotNull(CBool(r.Item("CONTROL_SHOW_COLUMN")), True)
-                    props.Multiline = r.Item("CONTROL_MULTILINE")
-                    props.SQLCommand = New SQLValue(NotNull(r.Item("CONTROL_SQLCOMMAND_1"), ""))
-
-                Case "CustomComboBox"
-                    props.FontColor = IntToColor(r.Item("CTRLSCR_FONT_COLOR"))
-                    props.Font = New Font(r.Item("CTRLSCR_FONT_FAMILY").ToString(),
-                                          CType(r.Item("CTRLSCR_FONT_SIZE"), Single),
-                                          CType(r.Item("CTRLSCR_FONT_STYLE"), FontStyle))
-                    props.ColumnTitle = r.Item("CONTROL_COL_NAME")
-                    props.DefaultValue = ClassConverter.ToStringOrDefault(r.Item("CONTROL_DEF_VALUE"))
-                    props.MasterDataId = r.Item("CTRLSCR_MASTER_DATA_ID")
-                    props.Format = NotNull([Enum].Parse(GetType(EnumFormatOptions), r.Item("CONTROL_FORMAT_TYPE")), EnumFormatOptions.String)
-                    props.StaticList = NotNull(r.Item("CONTROL_STATIC_LIST"), "")
-                    props.IsRequired = r.Item("CONTROL_REQUIRED")
-                    props.IsReadOnly = r.Item("CONTROL_READ_ONLY")
-                    props.TabStop = r.Item("CTRLSCR_TAB_STOP")
-                    props.TabIndex = r.Item("CTRLSCR_TAB_INDEX")
-                    props.ShowColumn = NotNull(CBool(r.Item("CONTROL_SHOW_COLUMN")), True)
-                    props.SQLCommand = New SQLValue(NotNull(r.Item("CONTROL_SQLCOMMAND_1"), ""))
-
-                Case "Checkbox"
-                    props.FontColor = IntToColor(r.Item("CTRLSCR_FONT_COLOR"))
-                    props.Font = New Font(r.Item("CTRLSCR_FONT_FAMILY").ToString(),
-                                          CType(r.Item("CTRLSCR_FONT_SIZE"), Single),
-                                          CType(r.Item("CTRLSCR_FONT_STYLE"), FontStyle))
-                    props.ColumnTitle = r.Item("CONTROL_COL_NAME")
-                    props.Caption = r.Item("CTRLSCR_CAPTION")
-                    props.DefaultValue = ClassConverter.ToBooleanOrDefault(r.Item("CONTROL_DEF_VALUE"))
-                    props.IsRequired = r.Item("CONTROL_REQUIRED")
-                    props.IsReadOnly = r.Item("CONTROL_READ_ONLY")
-                    props.ShowColumn = NotNull(CBool(r.Item("CONTROL_SHOW_COLUMN")), True)
-                    props.TabStop = r.Item("CTRLSCR_TAB_STOP")
-                    props.TabIndex = r.Item("CTRLSCR_TAB_INDEX")
-
-                Case "RadioButton"
-                    props.ColumnTitle = r.Item("CONTROL_COL_NAME")
-                    props.Caption = r.Item("CTRLSCR_CAPTION")
-                    props.IsRequired = r.Item("CONTROL_REQUIRED")
-                    props.IsReadOnly = r.Item("CONTROL_READ_ONLY")
-                    props.FontColor = IntToColor(r.Item("CTRLSCR_FONT_COLOR"))
-                    props.Font = New Font(r.Item("CTRLSCR_FONT_FAMILY").ToString(),
-                                          CType(r.Item("CTRLSCR_FONT_SIZE"), Single),
-                                          CType(r.Item("CTRLSCR_FONT_STYLE"), FontStyle))
-
-                Case "Datepicker"
-                    props.FontColor = IntToColor(r.Item("CTRLSCR_FONT_COLOR"))
-                    props.Font = New Font(r.Item("CTRLSCR_FONT_FAMILY").ToString(),
-                                          CType(r.Item("CTRLSCR_FONT_SIZE"), Single),
-                                          CType(r.Item("CTRLSCR_FONT_STYLE"), FontStyle))
-                    props.ColumnTitle = r.Item("CONTROL_COL_NAME")
-                    Dim i = r.Item("CONTROL_DEF_VALUE")
-                    props.DefaultValue = NotNull(r.Item("CONTROL_DEF_VALUE"), EnumDateTimePickerDefaultValueOptions.Empty)
-                    props.IsRequired = r.Item("CONTROL_REQUIRED")
-                    props.IsReadOnly = r.Item("CONTROL_READ_ONLY")
-                    props.ShowColumn = NotNull(CBool(r.Item("CONTROL_SHOW_COLUMN")), True)
-                    props.TabStop = r.Item("CTRLSCR_TAB_STOP")
-                    props.TabIndex = r.Item("CTRLSCR_TAB_INDEX")
-
-                Case "Datagridview"
-                    ' Keine zusätzliche Properties
-                    props.FontColor = IntToColor(r.Item("CTRLSCR_FONT_COLOR"))
-                    props.Font = New Font(r.Item("CTRLSCR_FONT_FAMILY").ToString(),
-                                          CType(r.Item("CTRLSCR_FONT_SIZE"), Single),
-                                          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.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")
-                    props.BackColor = IntToColor(r.Item("CTRLSCR_BACK_COLOR"))
-
-                Case "Picturebox"
-                    props.IsRequired = r.Item("CONTROL_REQUIRED")
-                    props.IsReadOnly = r.Item("CONTROL_READ_ONLY")
-
-                Case "ListBox"
-                    props.StaticList = ClassConverter.ToStringOrDefault(r.Item("CONTROL_STATIC_LIST"))
-                    props.IsRequired = r.Item("CONTROL_REQUIRED")
-                    props.IsReadOnly = r.Item("CONTROL_READ_ONLY")
-                    props.FontColor = IntToColor(r.Item("CTRLSCR_FONT_COLOR"))
-                    props.Font = New Font(r.Item("CTRLSCR_FONT_FAMILY").ToString(),
-                                          CType(r.Item("CTRLSCR_FONT_SIZE"), Single),
-                                          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)
-
-                Case "CheckedListBox"
-                    props.StaticList = ClassConverter.ToStringOrDefault(r.Item("CONTROL_STATIC_LIST"))
-                    props.IsRequired = r.Item("CONTROL_REQUIRED")
-                    props.IsReadOnly = r.Item("CONTROL_READ_ONLY")
-                    props.FontColor = IntToColor(r.Item("CTRLSCR_FONT_COLOR"))
-                    props.Font = New Font(r.Item("CTRLSCR_FONT_FAMILY").ToString(),
-                                          CType(r.Item("CTRLSCR_FONT_SIZE"), Single),
-                                          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)
-
-                Case "F_AddAppointment"
-                    props.Caption() = r.Item("CTRLSCR_CAPTION")
-
-                    Dim f = ClassFunctionCommands.LoadFunction(controlId)
-                    Dim FromDateId, ToDateId, SubjectString, Subject2String, PlaceString, DescString
-
-                    FromDateId = f.Item("INTEGER1")
-                    If IsDBNull(FromDateId) OrElse FromDateId = 0 Then
-                        props.FromDate = ""
-                    Else
-                        props.FromDate = Get_Name_for_ControlID(FromDateId, CURRENT_ENTITY_ID)
-                    End If
-
-                    ToDateId = f.Item("INTEGER2")
-                    If IsDBNull(ToDateId) OrElse ToDateId = 0 Then
-                        props.ToDate = ""
-                    Else
-                        props.ToDate = Get_Name_for_ControlID(ToDateId, CURRENT_ENTITY_ID)
-                    End If
-
-                    SubjectString = f.Item("STRING1")
-                    If IsDBNull(SubjectString) OrElse String.IsNullOrEmpty(SubjectString) Then
-                        props.Subject = ""
-                    Else
-                        props.Subject = SubjectString
-                    End If
-
-                    Subject2String = f.Item("STRING2")
-                    If IsDBNull(Subject2String) OrElse String.IsNullOrEmpty(Subject2String) Then
-                        props.Subject2 = ""
-                    Else
-                        props.Subject2 = Subject2String
-                    End If
-
-                    PlaceString = f.Item("STRING3")
-                    If IsDBNull(PlaceString) OrElse String.IsNullOrEmpty(PlaceString) Then
-                        props.Place = ""
-                    Else
-                        props.Place = PlaceString
-                    End If
-
-                    DescString = f.Item("STRING4")
-                    If IsDBNull(DescString) OrElse String.IsNullOrEmpty(DescString) Then
-                        props.Description = ""
-                    Else
-                        props.Description = DescString
-                    End If
-
-
-                Case "F_AddFormData"
-                    props.Caption = r.Item("CTRLSCR_CAPTION")
-
-                    Dim f = ClassFunctionCommands.LoadFunction(controlId)
-
-                    Dim FormId = f.Item("INTEGER1")
-                    props.FormID = NotNullInt(FormId, 0)
-
-                    Dim ScreenId = f.Item("INTEGER2")
-                    props.ScreenID = NotNullInt(ScreenId, 0)
-
-            End Select
-
-            CURRENT_CONTROL_ID = r.Item("CONTROL_ID")
-            ' Aktuelle Control Eigenschaften anzeigen
-            Me.pgControlProperties.SelectedObject = props
-            ' Fenster Titel aktualisieren
-            Me.Text = String.Format("Properties of {0} ({1})", type, props.ID.ToString())
-
-        Catch ex As Exception
-            MsgBox("Error in LoadControlProperties" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
-        End Try
-    End Sub
-
-    ' ADDED 25.11
-    ' Lade Control Eigenschaften und zeige diese an
-    ' Wird von frmLevelDesigner aufgerufen
-    'Public Sub LoadControlProperties(ctrl As Control)
-    '    Try
-    '        Dim sql As String = "SELECT CTRLSCR_ID FROM VWPMO_CONTROL_SCREEN WHERE CONTROL_NAME = '" & ctrl.Name & "' AND FORM_ID = " & CURRENT_ENTITY_ID & " and SCREEN_ID = " & CURRENT_SCREEN_ID
-    '        Dim CTRLSCR_ID = ClassDatabase.Execute_Scalar(sql)
-    '        If CTRLSCR_ID > 0 Then
-    '            Dim DT As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM VWPMO_CONTROL_SCREEN WHERE CTRLSCR_ID = " & CTRLSCR_ID)
-    '            If DT.Rows.Count = 1 Then
-    '                Dim row As DataRow = DT.Rows(0)
-    '                Dim type As String = row.Item("CTRLTYPE_NAME")
-    '                Dim props As Object = Nothing
-    '                Dim fontcolor As Color
-    '                Dim fontfamily As String
-    '                Dim fontstyle As FontStyle
-    '                Dim fontsize As Single
-    '                Dim isreadonly As Boolean
-    '                Dim isrequired As Boolean
-    '                Dim columntitle As String
-    '                Dim DefaultValue As String
-
-
-    '                Select Case type
-    '                    Case "Label"
-    '                        props = New LabelProperties()
-    '                        props.Caption = row.Item("CTRLSCR_CAPTION")
-    '                    Case "Textbox"
-    '                        props = New TextBoxProperties()
-    '                        props.DefaultValue = ClassConverter.ToStringOrDefault(row.Item("CONTROL_DEF_VALUE"))
-
-    '                        If Not IsDBNull(row.Item("CONTROL_FORMAT_TYPE")) Then
-    '                            props.Format = DirectCast([Enum].Parse(GetType(EnumFormatOptions), row.Item("CONTROL_FORMAT_TYPE")), Integer)
-    '                        Else
-    '                            props.Format = "String"
-    '                        End If
-    '                    Case "CustomComboBox"
-    '                        props = New ComboBoxProperties()
-    '                        props.MasterDataId = row.Item("CTRLSCR_MASTER_DATA_ID")
-    '                        props.DefaultValue = ClassConverter.ToStringOrDefault(row.Item("CONTROL_DEF_VALUE"))
-
-    '                        If Not IsDBNull(row.Item("CONTROL_FORMAT_TYPE")) Then
-    '                            props.Format = DirectCast([Enum].Parse(GetType(EnumFormatOptions), row.Item("CONTROL_FORMAT_TYPE")), Integer)
-    '                        Else
-    '                            props.Format = "String"
-    '                        End If
-
-    '                        props.StaticList = ClassConverter.ToStringOrDefault(row.Item("CONTROL_STATIC_LIST"))
-    '                    Case "Checkbox"
-    '                        props = New CheckBoxProperties()
-    '                        props.Caption = row.Item("CTRLSCR_CAPTION")
-    '                        props.DefaultValue = ClassConverter.ToBooleanOrDefault(row.Item("CONTROL_DEF_VALUE"))
-    '                    Case "Datepicker"
-    '                        props = New DateTimePickerProperties()
-    '                        props.DefaultValue = NotNull(row.Item("CONTROL_DEF_VALUE"), EnumDateTimePickerDefaultValueOptions.Empty)
-    '                        'props.DefaultValue = ClassConverter.ToDateTimePickerOptionsOrDefault(row.Item("CONTROL_DEF_VALUE"))
-    '                    Case "Datagridview"
-    '                        props = New DataGridViewProperties()
-    '                    Case "Groupbox"
-    '                        props = New GroupBoxProperties()
-    '                        props.Caption = row.Item("CTRLSCR_CAPTION")
-    '                        props.BackColor = IntToColor(row.Item("CTRLSCR_BACK_COLOR"))
-    '                    Case "Picturebox"
-    '                        props = New PictureBoxProperties()
-    '                    Case "RadioButton"
-    '                        props = New RadioButtonProperties()
-    '                        props.Caption = row.Item("CTRLSCR_CAPTION")
-    '                        props.DefaultValue = ClassConverter.ToBooleanOrDefault(row.Item("CONTROL_DEF_VALUE"))
-    '                        props.IsRequired = row.Item("CONTROL_REQUIRED")
-    '                    Case "F_AddAppointment"
-    '                        props = New FunctionAddAppointment()
-    '                    Case "F_AddFormData"
-    '                        props = New FunctionAddFormData()
-    '                    Case "CheckedListBox"
-    '                        props = New ComboBoxProperties()
-    '                        props.StaticList = ClassConverter.ToStringOrDefault(row.Item("CONTROL_STATIC_LIST"))
-    '                    Case "ListBox"
-    '                        props = New ComboBoxProperties()
-    '                        props.StaticList = ClassConverter.ToStringOrDefault(row.Item("CONTROL_STATIC_LIST"))
-    '                    Case Else
-    '                        MsgBox("Unknown control type " & type, MsgBoxStyle.Exclamation, "Error in LoadControlProperties:")
-    '                End Select
-
-    '                ' Generic Properties
-    '                props.ID = row.Item("CONTROL_ID")
-    '                props.Name = row.Item("CONTROL_NAME")
-    '                props.Size = New Size(row.Item("CTRLSCR_WIDTH"), row.Item("CTRLSCR_HEIGHT"))
-
-    '                'TODO: calc location
-    '                'If row.Item("CONTROL_PARENT_ID") <> 0 Then
-    '                '    Dim parentSQL = "SELECT CTRLSCR_X_LOC, CTRLSCR_Y_LOC FROM VWPMO_VALUES WHERE = CONTROL_ID = " & row.Item("CONTROL_PARENT_ID")
-    '                'End If
-
-
-    '                props.Location = New Point(row.Item("CTRLSCR_X_LOC"), row.Item("CTRLSCR_Y_LOC"))
-
-    '                Me.Text = "Eigenschaften Control-ID: " & props.ID
-
-    '                If type = "F_AddAppointment" Then
-    '                    Dim ControlId = GetControlID_for_Name(ctrl.Name, CURRENT_ENTITY_ID)
-    '                    Dim dr = ClassFunctionCommands.LoadFunction(ControlId)
-
-    '                    Dim FromDateId, ToDateId, SubjectString, Subject2String, PlaceString, DescString
-
-    '                    FromDateId = dr.Item("INTEGER1")
-    '                    ToDateId = dr.Item("INTEGER2")
-    '                    SubjectString = dr.Item("STRING1")
-    '                    Subject2String = dr.Item("STRING2")
-    '                    PlaceString = dr.Item("STRING3")
-    '                    DescString = dr.Item("STRING4")
-
-
-    '                    If IsDBNull(FromDateId) OrElse FromDateId = 0 Then
-    '                        props.FromDate = ""
-    '                    Else
-    '                        props.FromDate = Get_Name_for_ControlID(FromDateId, CURRENT_ENTITY_ID)
-    '                    End If
-
-    '                    If IsDBNull(ToDateId) OrElse ToDateId = 0 Then
-    '                        props.ToDate = ""
-    '                    Else
-    '                        props.ToDate = Get_Name_for_ControlID(ToDateId, CURRENT_ENTITY_ID)
-    '                    End If
-
-
-
-    '                    If IsDBNull(SubjectString) OrElse String.IsNullOrEmpty(SubjectString) Then
-    '                        props.Subject = ""
-    '                    Else
-    '                        props.Subject = SubjectString
-    '                    End If
-
-    '                    If IsDBNull(Subject2String) OrElse String.IsNullOrEmpty(Subject2String) Then
-    '                        props.Subject2 = ""
-    '                    Else
-    '                        props.Subject2 = Subject2String
-    '                    End If
-
-    '                    If IsDBNull(PlaceString) OrElse String.IsNullOrEmpty(PlaceString) Then
-    '                        props.Place = ""
-    '                    Else
-    '                        props.Place = PlaceString
-    '                    End If
-
-    '                    If IsDBNull(DescString) OrElse String.IsNullOrEmpty(DescString) Then
-    '                        props.Description = ""
-    '                    Else
-    '                        props.Description = DescString
-    '                    End If
-
-    '                    props.Caption = row.Item("CTRLSCR_CAPTION")
-    '                ElseIf type = "F_AddFormData" Then
-    '                    ' TODO
-    '                    Dim ControlId = GetControlID_for_Name(ctrl.Name, CURRENT_ENTITY_ID)
-    '                    Dim dr = ClassFunctionCommands.LoadFunction(ControlId)
-
-    '                    Dim FormId, ScreenId
-
-    '                    FormId = dr.Item("INTEGER1")
-    '                    ScreenId = dr.Item("INTEGER2")
-
-    '                    If IsDBNull(FormId) OrElse FormId = 0 Then
-    '                        props.FormID = 0
-    '                    Else
-    '                        props.FormID = FormId
-    '                    End If
-
-    '                    If IsDBNull(ScreenId) OrElse ScreenId = 0 Then
-    '                        props.ScreenID = 0
-    '                    Else
-    '                        props.ScreenID = ScreenId
-    '                    End If
-
-    '                    props.Caption = row.Item("CTRLSCR_CAPTION")
-    '                End If
-
-    '                ' Control Properties
-    '                If Not type.Contains("F_") Then
-    '                    ' PreSave and Convert Properties
-    '                    fontcolor = IntToColor(row.Item("CTRLSCR_FONT_COLOR"))
-    '                    fontfamily = row.Item("CTRLSCR_FONT_FAMILY")
-    '                    fontstyle = CType(row.Item("CTRLSCR_FONT_STYLE"), FontStyle)
-    '                    fontsize = CType(row.Item("CTRLSCR_FONT_SIZE"), Single)
-    '                    isreadonly = row.Item("CONTROL_READ_ONLY")
-    '                    isrequired = row.Item("CONTROL_REQUIRED")
-    '                    columntitle = row.Item("CONTROL_COL_NAME")
-
-    '                    ' Assign Properties to Class
-    '                    props.FontColor = fontcolor
-    '                    props.Font = New Font(fontfamily, fontsize, fontstyle)
-    '                    props.ColumnTitle = columntitle
-
-    '                    'ReadOnly
-    '                    If type = "Textbox" Or type = "Datepicker" Or type = "Combobox" Or type = "Picturebox" Or type = "RadioButton" Or type = "Checkbox" Or type = "CheckedListBox" _
-    '                        Or type = "ListBox" Then
-    '                        props.IsReadOnly = row.Item("CONTROL_READ_ONLY")
-    '                    End If
-
-    '                    ' Nicht verfügbar für label
-    '                    If type = "Textbox" Or type = "Combobox" Or type = "Datepicker" Or type = "Checkbox" Or type = "RadioButton" Or type = "CheckedListBox" _
-    '                     Or type = "ListBox" Then
-    '                        props.TabStop = row.Item("CTRLSCR_TAB_STOP")
-    '                        props.TabIndex = row.Item("CTRLSCR_TAB_INDEX")
-
-    '                        If Not IsDBNull(row.Item("CONTROL_SHOW_COLUMN")) Then
-    '                            props.ShowColumn = row.Item("CONTROL_SHOW_COLUMN")
-    '                        Else
-    '                            props.ShowColumn = True
-    '                        End If
-    '                    End If
-
-    '                    If type = "Textbox" Then
-    '                        props.Multiline = row.Item("CONTROL_MULTILINE")
-    '                    End If
-
-    '                    If type = "Combobox" Or type = "CheckedListBox" Or type = "ListBox" Or type = "Textbox" Then
-    '                        If row.Item("CONTROL_SQLCOMMAND_1").ToString.Length > 1 Then
-    '                            Dim value As New SQLValue(row.Item("CONTROL_SQLCOMMAND_1").ToString)
-    '                            props.SQLCommand = value
-    '                            'props.SQLCommand = row.Item("CONTROL_SQLCOMMAND_1").ToString
-    '                        End If
-
-    '                        'props.ParentFormID = row.Item("PARENT_FORM_ID")
-    '                        props.IsRequired = isrequired
-    '                        props.IsReadOnly = isreadonly
-    '                    End If
-
-    '                    If type = "Label" Then
-    '                        If row.Item("CONTROL_SQLCOMMAND_1").ToString.Length > 1 Then
-    '                            Dim value As New SQLValue(row.Item("CONTROL_SQLCOMMAND_1").ToString)
-    '                            props.SQLCommand = value
-    '                            'props.SQLCommand = row.Item("CONTROL_SQLCOMMAND_1").ToString
-    '                        End If
-    '                    End If
-
-
-    '                End If
-
-    '                ' Globale Variable setzen
-    '                CURRENT_CONTROL_ID = row.Item("CONTROL_ID")
-    '                Me.pgControlProperties.SelectedObject = props
-    '            End If
-    '        End If
-
-    '    Catch ex As Exception
-    '        MsgBox("Error in loadcontrolproperties" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
-    '    End Try
-
-
-    'End Sub
-
-    ' Aktualisiert die Position des akutellen Controls und speichert diese in der Klasse
-    Public Sub UpdateControlLocation(ctrl As Control)
-        CurrentProperties = Me.pgControlProperties.SelectedObject
-
-        If CurrentProperties IsNot Nothing Then
-            CurrentProperties.Location = ctrl.Location
-            Me.pgControlProperties.SelectedObject = CurrentProperties
-        End If
-        
-    End Sub
-
-    Public Function SaveControlProperties(ctrl As Control, properties As Object) As Boolean
-        If ClassControlCommands.UpdateControl(ctrl, properties) Then
-            LoadControlPropertiesNeu(ctrl)
-            Return True
-        Else
-            MsgBox("Fehler beim Speichern der Elementeigenschaften.", MsgBoxStyle.Critical)
-            Return False
-        End If
-    End Function
-
-    Private Sub btnSaveControl_Click(sender As Object, e As EventArgs) Handles btnSaveControl.Click
-        If SaveControlProperties(CtrlBuilder.CurrentControl, pgControlProperties.SelectedObject) Then
-            lblStatus.Text = "Änderungen gespeichert - " & Now
-            lblStatus.Visible = True
-        Else
-            lblStatus.Visible = False
-        End If
-    End Sub
-
-    Private Sub pgControlProperties_PropertyValueChanged(s As Object, e As PropertyValueChangedEventArgs) Handles pgControlProperties.PropertyValueChanged
-
-        Dim oldValue As Object = e.OldValue
-        Dim newValue As Object = e.ChangedItem.Value
-        Dim currentProperty As String = e.ChangedItem.Label
-        Dim ctrl As Control = CtrlBuilder.CurrentControl
-
-        Select Case currentProperty
-            Case "Location"
-                ctrl.Location = newValue
-            Case "X"
-                ctrl.Location = New Point(newValue, ctrl.Location.Y)
-            Case "Y"
-                ctrl.Location = New Point(ctrl.Location.X, newValue)
-            Case "Size"
-                ctrl.Size = newValue
-            Case "Width"
-                ctrl.Size = New Size(newValue, ctrl.Size.Height)
-            Case "Height"
-                ctrl.Size = New Size(ctrl.Size.Width, newValue)
-            Case "Name"
-                ctrl.Name = newValue
-            Case "Caption"
-                ctrl.Text = newValue
-            Case "Font"
-                ctrl.Font = newValue
-            Case "FontColor"
-                ctrl.ForeColor = newValue
-            Case "BackColor"
-                ctrl.BackColor = newValue
-        End Select
-
-        lblStatus.Text = "Ausstehende Änderungen"
-        lblStatus.Visible = True
-    End Sub
-
-    Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles ToolStripButton1.Click
-        If MsgBox("Wollen Sie das Element wirklich löschen?", MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
-            If IsGroupBox(CtrlBuilder.CurrentControl) Then
-                Dim parentID As Integer = GetControlID_for_Name(CtrlBuilder.CurrentControl.Name, CURRENT_ENTITY_ID)
-                Dim SQL = "SELECT GUID FROM TBPMO_CONTROL WHERE PARENT_CONTROL_ID = " & parentID
-                Dim dt As DataTable = ClassDatabase.Return_Datatable(SQL)
-
-                For Each dr As DataRow In dt.Rows
-                    Dim id As Integer = dr.Item(0)
-                    ClassControlCommands.DeleteControl(id)
-                Next
-
-            End If
-
-            If ClassControlCommands.DeleteControl(CURRENT_CONTROL_ID) = True Then
-                'MsgBox("Element gelöscht, Elemente werden neu geladen.", MsgBoxStyle.Information)
-                CtrlBuilder.ClearControls()
-                frmLevel_Designer.Instance.LoadControls()
-            End If
-        End If
-    End Sub
-
-    Private Sub frmTool_ControlProperties_Shown(sender As Object, e As EventArgs) Handles Me.Shown
-        If Me.WindowState = FormWindowState.Maximized Then
-            Me.WindowState = FormWindowState.Normal
-        End If
-    End Sub
-End Class