jj Designer Update

app/DD_PM_WINDREAM/App.config

@@ -6,11 +6,10 @@
         </sectionGroup>
     </configSections>
     <connectionStrings>
-        <add name="DD_PM_WINDREAM.My.MySettings.ConnectionString" connectionString="Data Source=172.24.12.41\Tests;Initial Catalog=DD_ECM_TEST;Persist Security Info=True;User ID=sa;Password=dd"
+        <add name="DD_PM_WINDREAM.My.MySettings.ConnectionString" connectionString="Data Source=172.24.12.41\Tests;Initial Catalog=DD_ECM_TEST;Persist Security Info=True;User ID=sa;Password=dd" providerName="System.Data.SqlClient"/>
-            providerName="System.Data.SqlClient" />
     </connectionStrings>
     <startup>
-        <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.0"/>
+        <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.5.1"/>
     </startup>
     <userSettings>
         <DD_PM_WINDREAM.My.MySettings>

app/DD_PM_WINDREAM/ClassControl.vb

@@ -1,40 +0,0 @@
-Public Class ClassControl
-    Private props As BaseProperties
-    Private ctrl As Control
-
-    Public Sub New(control As Control)
-        ctrl = control
-
-        If TypeOf control Is Label Then
-            props = CreateBasePropertyObject(New LabelProperties())
-        ElseIf TypeOf control Is TextBox Then
-            props = CreateBasePropertyObject(New TextboxProperties())
-        End If
-    End Sub
-
-    Public ReadOnly Property Control As Control
-        Get
-            Return ctrl
-        End Get
-    End Property
-
-    Public Property Properties As BaseProperties
-        Get
-            Return props
-        End Get
-        Set(value As BaseProperties)
-            props = value
-        End Set
-    End Property
-
-    Private Function CreateBasePropertyObject(obj As BaseProperties) As BaseProperties
-        obj.ID = ctrl.Tag
-        obj.Name = ctrl.Name
-        obj.Location = ctrl.Location
-        obj.Width = ctrl.Width
-        obj.Height = ctrl.Height
-
-        Return obj
-    End Function
-
-End Class

app/DD_PM_WINDREAM/ClassControls.vb

@@ -1,52 +0,0 @@
-Public Class ClassControls
-    Private controls As List(Of ClassControl)
-
-    Public Sub New()
-        controls = New List(Of ClassControl)
-    End Sub
-
-    Public Sub Load(datatable As DataTable)
-
-        For Each row As DataRow In datatable.Rows
-            Dim type As String = row.Item("CTRL_TYPE")
-            Dim guid As Integer = row.Item("GUID")
-            Dim name As String = row.Item("NAME")
-            Dim location As New Point(row.Item("X_LOC"), row.Item("Y_LOC"))
-            Dim width As Integer = row.Item("WIDTH")
-            Dim height As Integer = row.Item("HEIGHT")
-            Dim text As String = row.Item("CTRL_TEXT")
-
-            Dim control As ClassControl
-
-            Select Case type
-                Case "TXT"
-                    Dim textbox = AddTextbox(guid, name, height, width, location)
-                    control = New ClassControl(textbox)
-            End Select
-
-
-
-
-
-        Next
-
-    End Sub
-
-    Public Function GetAll() As List(Of ClassControl)
-        Return controls
-    End Function
-
-    Public Function GetById() As ClassControl
-
-    End Function
-
-    Private Function AddTextbox(id As Integer, name As String, height As Integer, width As Integer, location As Point)
-        Dim textbox As New TextBox()
-
-        textbox.Tag = id
-        textbox.Name = name
-        textbox.Height = height
-        textbox.Width = width
-        textbox.Location = location
-    End Function
-End Class

app/DD_PM_WINDREAM/ClassPMWindream.vb

@@ -1,5 +1,6 @@
 Imports WINDREAMLib
 Imports WMOSRCHLib
+
 Public Class ClassPMWindream
     Inherits ClassWindream_allgemein
     'Private email As New ClassNIEmail

app/DD_PM_WINDREAM/ClassSQLEditor.vb

@@ -0,0 +1,30 @@
+Imports System.ComponentModel
+Imports System.Drawing.Design
+Imports System.Windows.Forms.Design
+Imports DD_PM_WINDREAM.InputProperties
+
+Public Class ClassSQLEditor
+    Inherits UITypeEditor
+
+    Public Overrides Function GetEditStyle(context As ITypeDescriptorContext) As UITypeEditorEditStyle
+        Return UITypeEditorEditStyle.Modal
+    End Function
+
+    Public Overrides Function EditValue(context As ITypeDescriptorContext, provider As IServiceProvider, value As Object) As Object
+        'Return MyBase.EditValue(context, provider, value)
+        Dim svc As IWindowsFormsEditorService = TryCast(provider.GetService(GetType(IWindowsFormsEditorService)), IWindowsFormsEditorService)
+        Dim SQLSTring As String = DirectCast(value, SQLValue).Value
+
+        If svc IsNot Nothing AndAlso SQLSTring IsNot Nothing Then
+            Using Form As New frmSQL_DESIGNER()
+                Form.Value = SQLSTring
+                If svc.ShowDialog(Form) = DialogResult.OK Then
+                    Dim sql As New SQLValue(Form.Value)
+                    value = sql
+                End If
+            End Using
+        End If
+
+        Return value
+    End Function
+End Class

app/DD_PM_WINDREAM/DD_PM_WINDREAM.vbproj

@@ -1,5 +1,5 @@
 <?xml version="1.0" encoding="utf-8"?>
-<Project ToolsVersion="4.0" DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+<Project ToolsVersion="12.0" DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
   <PropertyGroup>
     <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
     <Platform Condition=" '$(Platform)' == '' ">x86</Platform>
@@ -13,7 +13,7 @@
     <AssemblyName>DD_PM_WINDREAM</AssemblyName>
     <FileAlignment>512</FileAlignment>
     <MyType>WindowsForms</MyType>
-    <TargetFrameworkVersion>v4.0</TargetFrameworkVersion>
+    <TargetFrameworkVersion>v4.5.1</TargetFrameworkVersion>
     <TargetFrameworkProfile>
     </TargetFrameworkProfile>
   </PropertyGroup>
@@ -56,6 +56,10 @@
     <ApplicationIcon>PM_ohne_slogan_128px.ico</ApplicationIcon>
   </PropertyGroup>
   <ItemGroup>
+    <Reference Include="DD_LIB_Standards, Version=1.0.0.0, Culture=neutral, processorArchitecture=MSIL">
+      <SpecificVersion>False</SpecificVersion>
+      <HintPath>..\..\..\DDLibStandards\DD_LIB_Standards\bin\Debug\DD_LIB_Standards.dll</HintPath>
+    </Reference>
     <Reference Include="DevExpress.Charts.v15.2.Core, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
     <Reference Include="DevExpress.Data.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
       <SpecificVersion>False</SpecificVersion>
@@ -110,7 +114,7 @@
       <HintPath>D:\ProgramFiles\DevExpress 15.2\Bin\Framework\DevExpress.XtraTreeList.v15.2.dll</HintPath>
     </Reference>
     <Reference Include="DLLLicenseManager">
-      <HintPath>..\..\..\LizenzManager\LizenzManager\bin\Debug\DLLLicenseManager.dll</HintPath>
+      <HintPath>P:\Visual Studio Projekte\Bibliotheken\DLLLicenseManager.dll</HintPath>
     </Reference>
     <Reference Include="Independentsoft.Msg, Version=2.0.140.29929, Culture=neutral, PublicKeyToken=76be97fe952f1ec7, processorArchitecture=MSIL">
       <SpecificVersion>False</SpecificVersion>
@@ -150,10 +154,9 @@
   </ItemGroup>
   <ItemGroup>
     <Compile Include="ClassAnnotation.vb" />
-    <Compile Include="ClassControl.vb" />
-    <Compile Include="ClassControls.vb" />
     <Compile Include="ClassInit.vb" />
     <Compile Include="ClassLogger.vb" />
+    <Compile Include="ClassSQLEditor.vb" />
     <Compile Include="frmAbout.designer.vb">
       <DependentUpon>frmAbout.vb</DependentUpon>
     </Compile>
@@ -273,6 +276,7 @@
       <SubType>Form</SubType>
     </Compile>
     <Compile Include="ModuleControlProperties.vb" />
+    <Compile Include="ModuleHelperMethods.vb" />
     <Compile Include="ModuleMySettings.vb" />
     <Compile Include="ModuleRuntimeVariables.vb" />
     <Compile Include="My Project\AssemblyInfo.vb" />

app/DD_PM_WINDREAM/ModuleControlProperties.vb

@@ -1,14 +1,23 @@
 Imports System.ComponentModel
+Imports System.Drawing.Design
+Imports System.Globalization
 
 Public Module ModuleControlProperties
-    Private _id As Integer
+    Public Enum IndexTypes
-    Private _name As String
+        SimpleIndex = 0
-    Private _location As Point
+        VectorIndex = 1
-    Private _width As Integer
+    End Enum
-    Private _height As Integer
 
     Public Class BaseProperties
-        <ReadOnlyAttribute(True)>
+        Private _id As Integer
+        Private _name As String
+        Private _location As Point
+        Private _size As Size
+        Private _font As Font
+        Private _text_color As Color
+
+        <Category("Allgemein")>
+        <[ReadOnly](True)>
         Public Property ID() As Integer
             Get
                 Return _id
@@ -18,6 +27,7 @@ Public Module ModuleControlProperties
             End Set
         End Property
 
+        <Category("Allgemein")>
         Public Property Name() As String
             Get
                 Return _name
@@ -27,6 +37,7 @@ Public Module ModuleControlProperties
             End Set
         End Property
 
+        <Category("Anzeige")>
         Public Property Location() As Point
             Get
                 Return _location
@@ -36,48 +47,183 @@ Public Module ModuleControlProperties
             End Set
         End Property
 
-        Public Property Width() As Integer
+        <Category("Anzeige")>
+        Public Property Size() As Size
             Get
-                Return _width
+                Return _size
             End Get
-            Set(value As Integer)
+            Set(value As Size)
-                _width = value
+                _size = value
             End Set
         End Property
 
-        Public Property Height() As Integer
+        <Category("Anzeige")>
+        <TypeConverter(GetType(FontConverter))>
+        Public Property Font As Font
             Get
-                Return _height
+                Return _font
             End Get
-            Set(value As Integer)
+            Set(value As Font)
-                _height = value
+                _font = value
             End Set
         End Property
+
+        <Category("Anzeige")>
+        Public Property TextColor As Color
+            Get
+                Return _text_color
+            End Get
+            Set(value As Color)
+                _text_color = value
+            End Set
+        End Property
+
+        Class FontConverter
+            Inherits TypeConverter
+
+            Public Overrides Function ConvertTo(context As ITypeDescriptorContext, culture As CultureInfo, value As Object, destinationType As Type) As Object
+                Dim font = DirectCast(value, Font)
+                Return $"{font.Name}, {font.Size}"
+            End Function
+        End Class
     End Class
 
-    Public Class TextboxProperties
+    Public Class InputProperties
         Inherits BaseProperties
 
         Private _required As Boolean
         Private _read_only As Boolean
+        Private _index_type As String
+        Private _indicies As List(Of String)
+        Private _index As String
+        Private _sql_command As String
 
-        Public Property Required() As String
+        Public Property Required() As Boolean
             Get
                 Return _required
             End Get
-            Set(ByVal value As String)
+            Set(ByVal value As Boolean)
                 _required = value
             End Set
         End Property
 
-        Public Property [ReadOnly]() As String
+        Public Property [ReadOnly]() As Boolean
             Get
                 Return _read_only
             End Get
-            Set(ByVal value As String)
+            Set(ByVal value As Boolean)
                 _read_only = value
             End Set
         End Property
+
+        <Category("Indexierung")>
+        Public Property IndexType() As IndexTypes
+            Get
+                Return _index_type
+            End Get
+            Set(ByVal value As IndexTypes)
+                _index_type = value
+            End Set
+        End Property
+
+        ''' <summary>
+        ''' Diese Eigenschaft enthält die auswählbaren Indicies, die für das Control verfügbar sind. Wird nicht direkt angezeigt.
+        ''' </summary>
+        <Browsable(False)>
+        Public Property Indicies() As List(Of String)
+            Get
+                Return _indicies
+            End Get
+            Set(ByVal value As List(Of String))
+                _indicies = value
+            End Set
+        End Property
+
+        ''' <summary>
+        ''' Diese Eigenschaft enthält des ausgewählten Index
+        ''' </summary>
+        <Category("Indexierung")>
+        <TypeConverter(GetType(IndexListConverter))>
+        Public Property Index() As String
+            Get
+                Return _index
+            End Get
+            Set(value As String)
+                _index = value
+            End Set
+        End Property
+
+        <Category("Daten")>
+        Public Property SQLCommand() As SQLValue
+            Get
+                Return New SQLValue(NotNull(_sql_command, ""))
+            End Get
+            Set(ByVal value As SQLValue)
+                _sql_command = value.Value
+            End Set
+        End Property
+
+        ''' <summary>
+        ''' Sorgt dafür, dass die Liste von Indicies aus dem gleichnamigen Feld ausgelesen wird
+        ''' </summary>
+        Public Class IndexListConverter
+            Inherits TypeConverter
+
+            Public Overrides Function GetStandardValuesSupported(context As ITypeDescriptorContext) As Boolean
+                Return True
+            End Function
+
+            Public Overrides Function GetStandardValues(context As ITypeDescriptorContext) As StandardValuesCollection
+                Dim indexList = DirectCast(context.Instance, InputProperties).Indicies
+                Dim values As New StandardValuesCollection(indexList)
+                Return values
+            End Function
+
+            Public Overrides Function ConvertTo(context As ITypeDescriptorContext, culture As CultureInfo, value As Object, destinationType As Type) As Object
+                If IsNothing(value) Then
+                    Return ""
+                Else
+                    Return value.ToString()
+                End If
+            End Function
+        End Class
+
+        Public Class SQLTypeConverter
+            Inherits TypeConverter
+
+            Public Overrides Function ConvertTo(context As ITypeDescriptorContext, culture As Globalization.CultureInfo, value As Object, destinationType As Type) As Object
+                'Return MyBase.ConvertTo(context, culture, value, destinationType)
+                Dim sqlvalue As SQLValue = DirectCast(value, SQLValue)
+                Return sqlvalue.Value
+            End Function
+        End Class
+
+        ''' <summary>
+        ''' Hilfsklasse, die für das anzeigen und abspeichern von SQL-Befehlen verwendet wird
+        ''' </summary>
+        <Editor(GetType(ClassSQLEditor), GetType(UITypeEditor))>
+        <TypeConverter(GetType(SQLTypeConverter))>
+        Public Class SQLValue
+            Private _value As String
+
+            Public Sub New(value As String)
+                Me.Value = value
+            End Sub
+
+            Public Property Value As String
+                Get
+                    Return _value
+                End Get
+                Set(value As String)
+                    _value = value
+                End Set
+            End Property
+        End Class
+    End Class
+
+    Public Class TextboxProperties
+        Inherits InputProperties
+
     End Class
 
     Public Class LabelProperties
@@ -85,6 +231,7 @@ Public Module ModuleControlProperties
 
         Private _text As String
 
+        <Category("Allgemein")>
         Public Property Text() As String
             Get
                 Return _text
@@ -96,10 +243,11 @@ Public Module ModuleControlProperties
     End Class
 
     Public Class CheckboxProperties
-        Inherits BaseProperties
+        Inherits InputProperties
 
         Private _text As String
 
+        <Category("Allgemein")>
         Public Property Text() As String
             Get
                 Return _text
@@ -110,4 +258,72 @@ Public Module ModuleControlProperties
         End Property
     End Class
 
+    Public Class ComboboxProperties
+        Inherits InputProperties
+
+        Private _text As String
+        Private _choice_list As String
+        Private _choice_lists As List(Of String)
+
+        <Category("Allgemein")>
+        Public Property Text() As String
+            Get
+                Return _text
+            End Get
+            Set(value As String)
+                _text = value
+            End Set
+        End Property
+
+        <Browsable(False)>
+        Public Property ChoiceLists() As List(Of String)
+            Get
+                Return _choice_lists
+            End Get
+            Set(value As List(Of String))
+                _choice_lists = value
+            End Set
+        End Property
+
+        <Category("Daten")>
+        <TypeConverter(GetType(ChoiceListConverter))>
+        Public Property ChoiceList() As String
+            Get
+                Return _choice_list
+            End Get
+            Set(value As String)
+                _choice_list = value
+            End Set
+        End Property
+
+        Public Class ChoiceListConverter
+            Inherits TypeConverter
+
+            Public Overrides Function GetStandardValuesSupported(context As ITypeDescriptorContext) As Boolean
+                Return True
+            End Function
+
+            Public Overrides Function GetStandardValues(context As ITypeDescriptorContext) As StandardValuesCollection
+                Dim choiceListList = DirectCast(context.Instance, ComboboxProperties).ChoiceLists
+                Dim values As New StandardValuesCollection(choiceListList)
+                Return values
+            End Function
+
+            Public Overrides Function ConvertTo(context As ITypeDescriptorContext, culture As CultureInfo, value As Object, destinationType As Type) As Object
+                If IsNothing(value) Then
+                    Return ""
+                Else
+                    Return value.ToString()
+                End If
+            End Function
+        End Class
+    End Class
+
+    Public Class DatepickerProperties
+        Inherits InputProperties
+    End Class
+
+    Public Class GridViewProperties
+        Inherits InputProperties
+    End Class
 End Module

app/DD_PM_WINDREAM/ModuleHelperMethods.vb

@@ -0,0 +1,50 @@
+Module ModuleHelperMethods
+    ''' <summary>
+    ''' Überprüft einen Wert auf verschiedene Arten von "Null"-Werten
+    ''' </summary>
+    ''' <param name="value">Der zu überprüfende Wert</param>
+    ''' <param name="defaultValue">Der Standard Wert</param>
+    ''' <returns>value oder wenn dieser "Null" ist, defaultValue</returns>
+    Public Function NotNull(Of T)(ByVal value As T, ByVal defaultValue As T) As T
+        If IsNothing(value) OrElse String.IsNullOrEmpty(value.ToString) OrElse IsDBNull(value) Then
+            Return defaultValue
+        Else
+            Return value
+        End If
+    End Function
+
+    ''' <summary>
+    ''' Versucht einen String in einen Boolean zu konvertieren
+    ''' </summary>
+    ''' <param name="str">Der zu konvertierende String</param>
+    ''' <returns>Den umgewandelten Wert oder Falsche</returns>
+    Public Function StrToBool(str As Object) As Boolean
+        Dim result As Boolean = False
+
+        str = TryCast(str, String)
+
+        Try
+            result = Convert.ToBoolean(str)
+        Catch ex As Exception
+            result = False
+        End Try
+
+        Return result
+    End Function
+
+    ''' <summary>
+    ''' Konvertiert eine Farbe in den entsprechenden Integer Wert
+    ''' </summary>
+    Public Function ColorToInt(color As Color) As Integer
+        Return ColorTranslator.ToWin32(color)
+    End Function
+
+    ''' <summary>
+    ''' Konvertiert eine Zahl in die entsprechende Farbe
+    ''' </summary>
+    Public Function IntToColor(int As Integer) As Color
+        Return ColorTranslator.FromWin32(int)
+    End Function
+End Module
+
+

app/DD_PM_WINDREAM/My Project/Application.Designer.vb

@@ -1,7 +1,7 @@
 '------------------------------------------------------------------------------
 ' <auto-generated>
 '     Dieser Code wurde von einem Tool generiert.
-'     Laufzeitversion:4.0.30319.34014
+'     Laufzeitversion:4.0.30319.42000
 '
 '     Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
 '     der Code erneut generiert wird.
@@ -14,8 +14,8 @@ Option Explicit On
 
 Namespace My
     
-    'HINWEIS: Diese Datei wird automatisch generiert. Ändern Sie sie nicht direkt. Zum Ändern
+    'HINWEIS: Diese Datei wird automatisch generiert und darf nicht direkt bearbeitet werden.  Wenn Sie Änderungen vornehmen möchten
-    ' oder bei in dieser Datei auftretenden Buildfehlern wechseln Sie zum Projekt-Designer.
+    ' oder in dieser Datei Buildfehler auftreten, wechseln Sie zum Projekt-Designer.
     ' (Wechseln Sie dazu zu den Projekteigenschaften, oder doppelklicken Sie auf den Knoten "Mein Projekt" im
     ' Projektmappen-Explorer). Nehmen Sie auf der Registerkarte "Anwendung" entsprechende Änderungen vor.
     '

app/DD_PM_WINDREAM/frmFormDesigner.Designer.vb

@@ -23,24 +23,12 @@ Partial Class frmFormDesigner
     <System.Diagnostics.DebuggerStepThrough()> _
     Private Sub InitializeComponent()
         Me.components = New System.ComponentModel.Container()
-        Dim X_LOCLabel As System.Windows.Forms.Label
-        Dim Y_LOCLabel As System.Windows.Forms.Label
         Dim CHANGED_WHOLabel As System.Windows.Forms.Label
         Dim CHANGED_WHENLabel As System.Windows.Forms.Label
-        Dim HEIGHTLabel As System.Windows.Forms.Label
-        Dim WIDTHLabel As System.Windows.Forms.Label
-        Dim GUIDLabel As System.Windows.Forms.Label
         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmFormDesigner))
         Me.Panel1 = New System.Windows.Forms.Panel()
         Me.lblDesign = New System.Windows.Forms.Label()
         Me.GroupBox1 = New System.Windows.Forms.GroupBox()
-        Me.btnTabelle = New System.Windows.Forms.Button()
-        Me.btnCheckbox = New System.Windows.Forms.Button()
-        Me.btnVektor = 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.pnldesigner = New System.Windows.Forms.Panel()
         Me.Label1 = New System.Windows.Forms.Label()
         Me.lblhintergrund = New System.Windows.Forms.Label()
@@ -48,8 +36,6 @@ Partial Class frmFormDesigner
         Me.TabControlEigenschaften = New System.Windows.Forms.TabControl()
         Me.TabPage1 = New System.Windows.Forms.TabPage()
         Me.LOAD_IDX_VALUECheckBox = New System.Windows.Forms.CheckBox()
-        Me.TBPM_PROFILE_CONTROLSBindingSource = New System.Windows.Forms.BindingSource(Me.components)
-        Me.DD_DMSLiteDataSet = New DD_PM_WINDREAM.DD_DMSLiteDataSet()
         Me.READ_ONLYCheckBox = New System.Windows.Forms.CheckBox()
         Me.INDEX_NAME_VALUE = New System.Windows.Forms.TextBox()
         Me.rbVektor = New System.Windows.Forms.RadioButton()
@@ -66,93 +52,72 @@ Partial Class frmFormDesigner
         Me.lblAuswahlliste = New System.Windows.Forms.Label()
         Me.INDEX_NAMETextBox = New System.Windows.Forms.TextBox()
         Me.TabPage2 = New System.Windows.Forms.TabPage()
-        Me.btnheight_minus = New System.Windows.Forms.Button()
-        Me.btnheight_plus = New System.Windows.Forms.Button()
         Me.Label3 = New System.Windows.Forms.Label()
-        Me.btnwidth_minus = New System.Windows.Forms.Button()
-        Me.btnwidth_plus = New System.Windows.Forms.Button()
         Me.Label2 = New System.Windows.Forms.Label()
         Me.TabPage3 = New System.Windows.Forms.TabPage()
         Me.pnlAuswahlliste = New System.Windows.Forms.Panel()
-        Me.btnEditor = New System.Windows.Forms.Button()
-        Me.btnShowConnections = New System.Windows.Forms.Button()
         Me.SQL_CommandTextBox = New System.Windows.Forms.TextBox()
         Me.Label5 = New System.Windows.Forms.Label()
         Me.Label4 = New System.Windows.Forms.Label()
         Me.cmbConnection = New System.Windows.Forms.ComboBox()
-        Me.TBPM_CONNECTIONBindingSource = New System.Windows.Forms.BindingSource(Me.components)
         Me.TabPage4 = New System.Windows.Forms.TabPage()
         Me.pgControls = New System.Windows.Forms.PropertyGrid()
+        Me.CHANGED_WHOTextBox = New System.Windows.Forms.TextBox()
+        Me.StatusStrip1 = New System.Windows.Forms.StatusStrip()
+        Me.CHANGED_WHENTextBox = New System.Windows.Forms.TextBox()
+        Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components)
+        Me.TBPM_PROFILE_CONTROLSBindingSource = New System.Windows.Forms.BindingSource(Me.components)
+        Me.DD_DMSLiteDataSet = New DD_PM_WINDREAM.DD_DMSLiteDataSet()
+        Me.btnrefresh = New System.Windows.Forms.Button()
+        Me.tslblAenderungen = New System.Windows.Forms.ToolStripStatusLabel()
+        Me.btnheight_minus = New System.Windows.Forms.Button()
+        Me.btnheight_plus = New System.Windows.Forms.Button()
+        Me.btnwidth_minus = New System.Windows.Forms.Button()
+        Me.btnwidth_plus = New System.Windows.Forms.Button()
+        Me.btnEditor = New System.Windows.Forms.Button()
+        Me.btnShowConnections = New System.Windows.Forms.Button()
+        Me.TBPM_CONNECTIONBindingSource = New System.Windows.Forms.BindingSource(Me.components)
         Me.btndelete = New System.Windows.Forms.Button()
         Me.btnsave = New System.Windows.Forms.Button()
-        Me.X_LOCTextBox = New System.Windows.Forms.TextBox()
+        Me.btnTabelle = New System.Windows.Forms.Button()
-        Me.Y_LOCTextBox = New System.Windows.Forms.TextBox()
+        Me.btnCheckbox = New System.Windows.Forms.Button()
-        Me.CHANGED_WHOTextBox = New System.Windows.Forms.TextBox()
+        Me.btnVektor = 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.TBPM_PROFILE_CONTROLSTableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILE_CONTROLSTableAdapter()
         Me.TableAdapterManager = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TableAdapterManager()
-        Me.StatusStrip1 = New System.Windows.Forms.StatusStrip()
-        Me.tslblAenderungen = New System.Windows.Forms.ToolStripStatusLabel()
-        Me.CHANGED_WHENTextBox = New System.Windows.Forms.TextBox()
-        Me.HEIGHTTextBox = New System.Windows.Forms.TextBox()
-        Me.WIDTHTextBox = New System.Windows.Forms.TextBox()
         Me.TBPM_CONNECTIONTableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_CONNECTIONTableAdapter()
         Me.TBWH_CHECK_PROFILE_CONTROLSBindingSource = New System.Windows.Forms.BindingSource(Me.components)
         Me.TBWH_CHECK_PROFILE_CONTROLSTableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBWH_CHECK_PROFILE_CONTROLSTableAdapter()
-        Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components)
         Me.TBPM_CONTROL_TABLEBindingSource = New System.Windows.Forms.BindingSource(Me.components)
         Me.TBPM_CONTROL_TABLETableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_CONTROL_TABLETableAdapter()
-        Me.btnrefresh = New System.Windows.Forms.Button()
-        Me.GUIDTextBox = New System.Windows.Forms.TextBox()
-        X_LOCLabel = New System.Windows.Forms.Label()
-        Y_LOCLabel = New System.Windows.Forms.Label()
         CHANGED_WHOLabel = New System.Windows.Forms.Label()
         CHANGED_WHENLabel = New System.Windows.Forms.Label()
-        HEIGHTLabel = New System.Windows.Forms.Label()
-        WIDTHLabel = New System.Windows.Forms.Label()
-        GUIDLabel = New System.Windows.Forms.Label()
         Me.Panel1.SuspendLayout()
         Me.GroupBox1.SuspendLayout()
         Me.pnldesigner.SuspendLayout()
         Me.gbxControl.SuspendLayout()
         Me.TabControlEigenschaften.SuspendLayout()
         Me.TabPage1.SuspendLayout()
-        CType(Me.TBPM_PROFILE_CONTROLSBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.DD_DMSLiteDataSet, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.TabPage2.SuspendLayout()
         Me.TabPage3.SuspendLayout()
         Me.pnlAuswahlliste.SuspendLayout()
-        CType(Me.TBPM_CONNECTIONBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.TabPage4.SuspendLayout()
         Me.StatusStrip1.SuspendLayout()
+        CType(Me.TBPM_PROFILE_CONTROLSBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.DD_DMSLiteDataSet, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TBPM_CONNECTIONBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.TBWH_CHECK_PROFILE_CONTROLSBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.TBPM_CONTROL_TABLEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
-        'X_LOCLabel
-        '
-        X_LOCLabel.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
-        X_LOCLabel.AutoSize = True
-        X_LOCLabel.Location = New System.Drawing.Point(12, 412)
-        X_LOCLabel.Name = "X_LOCLabel"
-        X_LOCLabel.Size = New System.Drawing.Size(72, 16)
-        X_LOCLabel.TabIndex = 14
-        X_LOCLabel.Text = "Location X:"
-        '
-        'Y_LOCLabel
-        '
-        Y_LOCLabel.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
-        Y_LOCLabel.AutoSize = True
-        Y_LOCLabel.Location = New System.Drawing.Point(134, 412)
-        Y_LOCLabel.Name = "Y_LOCLabel"
-        Y_LOCLabel.Size = New System.Drawing.Size(71, 16)
-        Y_LOCLabel.TabIndex = 16
-        Y_LOCLabel.Text = "Location Y:"
-        '
         'CHANGED_WHOLabel
         '
         CHANGED_WHOLabel.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         CHANGED_WHOLabel.AutoSize = True
-        CHANGED_WHOLabel.Location = New System.Drawing.Point(12, 464)
+        CHANGED_WHOLabel.Location = New System.Drawing.Point(12, 499)
         CHANGED_WHOLabel.Name = "CHANGED_WHOLabel"
         CHANGED_WHOLabel.Size = New System.Drawing.Size(91, 16)
         CHANGED_WHOLabel.TabIndex = 18
@@ -162,41 +127,12 @@ Partial Class frmFormDesigner
         '
         CHANGED_WHENLabel.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         CHANGED_WHENLabel.AutoSize = True
-        CHANGED_WHENLabel.Location = New System.Drawing.Point(250, 464)
+        CHANGED_WHENLabel.Location = New System.Drawing.Point(250, 499)
         CHANGED_WHENLabel.Name = "CHANGED_WHENLabel"
         CHANGED_WHENLabel.Size = New System.Drawing.Size(98, 16)
         CHANGED_WHENLabel.TabIndex = 20
         CHANGED_WHENLabel.Text = "Changed when:"
         '
-        'HEIGHTLabel
-        '
-        HEIGHTLabel.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
-        HEIGHTLabel.AutoSize = True
-        HEIGHTLabel.Location = New System.Drawing.Point(250, 412)
-        HEIGHTLabel.Name = "HEIGHTLabel"
-        HEIGHTLabel.Size = New System.Drawing.Size(49, 16)
-        HEIGHTLabel.TabIndex = 21
-        HEIGHTLabel.Text = "Height:"
-        '
-        'WIDTHLabel
-        '
-        WIDTHLabel.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
-        WIDTHLabel.AutoSize = True
-        WIDTHLabel.Location = New System.Drawing.Point(328, 412)
-        WIDTHLabel.Name = "WIDTHLabel"
-        WIDTHLabel.Size = New System.Drawing.Size(46, 16)
-        WIDTHLabel.TabIndex = 22
-        WIDTHLabel.Text = "Width:"
-        '
-        'GUIDLabel
-        '
-        GUIDLabel.AutoSize = True
-        GUIDLabel.Location = New System.Drawing.Point(12, 515)
-        GUIDLabel.Name = "GUIDLabel"
-        GUIDLabel.Size = New System.Drawing.Size(25, 16)
-        GUIDLabel.TabIndex = 24
-        GUIDLabel.Text = "ID:"
-        '
         'Panel1
         '
         Me.Panel1.Controls.Add(Me.lblDesign)
@@ -236,97 +172,6 @@ Partial Class frmFormDesigner
         Me.GroupBox1.TabStop = False
         Me.GroupBox1.Text = "Control-Typ (Drag and Drop)"
         '
-        'btnTabelle
-        '
-        Me.btnTabelle.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.btnTabelle.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.table_add
-        Me.btnTabelle.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.btnTabelle.Location = New System.Drawing.Point(290, 55)
-        Me.btnTabelle.Name = "btnTabelle"
-        Me.btnTabelle.Size = New System.Drawing.Size(103, 29)
-        Me.btnTabelle.TabIndex = 6
-        Me.btnTabelle.Text = "Tabelle"
-        Me.btnTabelle.TextAlign = System.Drawing.ContentAlignment.MiddleRight
-        Me.btnTabelle.UseVisualStyleBackColor = True
-        '
-        'btnCheckbox
-        '
-        Me.btnCheckbox.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.btnCheckbox.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.checkbox_16xLG
-        Me.btnCheckbox.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.btnCheckbox.Location = New System.Drawing.Point(151, 90)
-        Me.btnCheckbox.Name = "btnCheckbox"
-        Me.btnCheckbox.Size = New System.Drawing.Size(133, 31)
-        Me.btnCheckbox.TabIndex = 5
-        Me.btnCheckbox.Text = "Checkbox"
-        Me.btnCheckbox.TextAlign = System.Drawing.ContentAlignment.MiddleRight
-        Me.btnCheckbox.UseVisualStyleBackColor = True
-        '
-        'btnVektor
-        '
-        Me.btnVektor.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.btnVektor.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.table_add
-        Me.btnVektor.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.btnVektor.Location = New System.Drawing.Point(151, 55)
-        Me.btnVektor.Name = "btnVektor"
-        Me.btnVektor.Size = New System.Drawing.Size(133, 29)
-        Me.btnVektor.TabIndex = 4
-        Me.btnVektor.Text = "Mehrfach-/Vektorfeld"
-        Me.btnVektor.TextAlign = System.Drawing.ContentAlignment.MiddleRight
-        Me.btnVektor.UseVisualStyleBackColor = True
-        '
-        'btndtp
-        '
-        Me.btndtp.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.btndtp.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.DateOrTimePicker_675
-        Me.btndtp.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.btndtp.Location = New System.Drawing.Point(151, 22)
-        Me.btndtp.Name = "btndtp"
-        Me.btndtp.Size = New System.Drawing.Size(133, 27)
-        Me.btndtp.TabIndex = 3
-        Me.btndtp.Text = "DatePicker"
-        Me.btndtp.TextAlign = System.Drawing.ContentAlignment.MiddleRight
-        Me.btndtp.UseVisualStyleBackColor = True
-        '
-        'btncmb
-        '
-        Me.btncmb.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.btncmb.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.ComboBox_16xLG
-        Me.btncmb.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.btncmb.Location = New System.Drawing.Point(12, 90)
-        Me.btncmb.Name = "btncmb"
-        Me.btncmb.Size = New System.Drawing.Size(133, 31)
-        Me.btncmb.TabIndex = 2
-        Me.btncmb.Text = "Combobox"
-        Me.btncmb.TextAlign = System.Drawing.ContentAlignment.MiddleRight
-        Me.btncmb.UseVisualStyleBackColor = True
-        '
-        'btntextbox
-        '
-        Me.btntextbox.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.btntextbox.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.TextBox_708
-        Me.btntextbox.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.btntextbox.Location = New System.Drawing.Point(13, 55)
-        Me.btntextbox.Name = "btntextbox"
-        Me.btntextbox.Size = New System.Drawing.Size(133, 29)
-        Me.btntextbox.TabIndex = 1
-        Me.btntextbox.Text = "Textbox"
-        Me.btntextbox.TextAlign = System.Drawing.ContentAlignment.MiddleRight
-        Me.btntextbox.UseVisualStyleBackColor = True
-        '
-        'btnlabel
-        '
-        Me.btnlabel.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.btnlabel.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.Label_684
-        Me.btnlabel.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.btnlabel.Location = New System.Drawing.Point(12, 22)
-        Me.btnlabel.Name = "btnlabel"
-        Me.btnlabel.Size = New System.Drawing.Size(133, 27)
-        Me.btnlabel.TabIndex = 0
-        Me.btnlabel.Text = "Label"
-        Me.btnlabel.TextAlign = System.Drawing.ContentAlignment.MiddleRight
-        Me.btnlabel.UseVisualStyleBackColor = True
-        '
         'pnldesigner
         '
         Me.pnldesigner.AllowDrop = True
@@ -433,16 +278,6 @@ Partial Class frmFormDesigner
         Me.ToolTip1.SetToolTip(Me.LOAD_IDX_VALUECheckBox, "Die im zugrundeliegenden Index gepeicherten" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Daten werden nicht angezeigt")
         Me.LOAD_IDX_VALUECheckBox.UseVisualStyleBackColor = True
         '
-        'TBPM_PROFILE_CONTROLSBindingSource
-        '
-        Me.TBPM_PROFILE_CONTROLSBindingSource.DataMember = "TBPM_PROFILE_CONTROLS"
-        Me.TBPM_PROFILE_CONTROLSBindingSource.DataSource = Me.DD_DMSLiteDataSet
-        '
-        'DD_DMSLiteDataSet
-        '
-        Me.DD_DMSLiteDataSet.DataSetName = "DD_DMSLiteDataSet"
-        Me.DD_DMSLiteDataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
-        '
         'READ_ONLYCheckBox
         '
         Me.READ_ONLYCheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBPM_PROFILE_CONTROLSBindingSource, "READ_ONLY", True))
@@ -598,7 +433,7 @@ Partial Class frmFormDesigner
         '
         'INDEX_NAMETextBox
         '
-        Me.INDEX_NAMETextBox.Location = New System.Drawing.Point(6, 104)
+        Me.INDEX_NAMETextBox.Location = New System.Drawing.Point(6, 103)
         Me.INDEX_NAMETextBox.Name = "INDEX_NAMETextBox"
         Me.INDEX_NAMETextBox.Size = New System.Drawing.Size(319, 23)
         Me.INDEX_NAMETextBox.TabIndex = 16
@@ -609,9 +444,9 @@ Partial Class frmFormDesigner
         Me.TabPage2.Controls.Add(Me.btnheight_minus)
         Me.TabPage2.Controls.Add(Me.btnheight_plus)
         Me.TabPage2.Controls.Add(Me.Label3)
+        Me.TabPage2.Controls.Add(Me.Label2)
         Me.TabPage2.Controls.Add(Me.btnwidth_minus)
         Me.TabPage2.Controls.Add(Me.btnwidth_plus)
-        Me.TabPage2.Controls.Add(Me.Label2)
         Me.TabPage2.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.TabPage2.Location = New System.Drawing.Point(4, 25)
         Me.TabPage2.Name = "TabPage2"
@@ -621,32 +456,6 @@ Partial Class frmFormDesigner
         Me.TabPage2.Text = "Format"
         Me.TabPage2.UseVisualStyleBackColor = True
         '
-        'btnheight_minus
-        '
-        Me.btnheight_minus.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.btnheight_minus.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.zoom_out
-        Me.btnheight_minus.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.btnheight_minus.Location = New System.Drawing.Point(94, 69)
-        Me.btnheight_minus.Name = "btnheight_minus"
-        Me.btnheight_minus.Size = New System.Drawing.Size(75, 25)
-        Me.btnheight_minus.TabIndex = 1
-        Me.btnheight_minus.Text = "kleiner"
-        Me.btnheight_minus.TextAlign = System.Drawing.ContentAlignment.MiddleRight
-        Me.btnheight_minus.UseVisualStyleBackColor = True
-        '
-        'btnheight_plus
-        '
-        Me.btnheight_plus.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.btnheight_plus.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.zoom_in
-        Me.btnheight_plus.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.btnheight_plus.Location = New System.Drawing.Point(13, 69)
-        Me.btnheight_plus.Name = "btnheight_plus"
-        Me.btnheight_plus.Size = New System.Drawing.Size(75, 25)
-        Me.btnheight_plus.TabIndex = 0
-        Me.btnheight_plus.Text = "größer"
-        Me.btnheight_plus.TextAlign = System.Drawing.ContentAlignment.MiddleRight
-        Me.btnheight_plus.UseVisualStyleBackColor = True
-        '
         'Label3
         '
         Me.Label3.AutoSize = True
@@ -656,32 +465,6 @@ Partial Class frmFormDesigner
         Me.Label3.TabIndex = 5
         Me.Label3.Text = "Höhe:"
         '
-        'btnwidth_minus
-        '
-        Me.btnwidth_minus.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.btnwidth_minus.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.zoom_out
-        Me.btnwidth_minus.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.btnwidth_minus.Location = New System.Drawing.Point(94, 22)
-        Me.btnwidth_minus.Name = "btnwidth_minus"
-        Me.btnwidth_minus.Size = New System.Drawing.Size(75, 25)
-        Me.btnwidth_minus.TabIndex = 1
-        Me.btnwidth_minus.Text = "kleiner"
-        Me.btnwidth_minus.TextAlign = System.Drawing.ContentAlignment.MiddleRight
-        Me.btnwidth_minus.UseVisualStyleBackColor = True
-        '
-        'btnwidth_plus
-        '
-        Me.btnwidth_plus.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.btnwidth_plus.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.zoom_in
-        Me.btnwidth_plus.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.btnwidth_plus.Location = New System.Drawing.Point(13, 22)
-        Me.btnwidth_plus.Name = "btnwidth_plus"
-        Me.btnwidth_plus.Size = New System.Drawing.Size(75, 25)
-        Me.btnwidth_plus.TabIndex = 0
-        Me.btnwidth_plus.Text = "größer"
-        Me.btnwidth_plus.TextAlign = System.Drawing.ContentAlignment.MiddleRight
-        Me.btnwidth_plus.UseVisualStyleBackColor = True
-        '
         'Label2
         '
         Me.Label2.AutoSize = True
@@ -717,33 +500,6 @@ Partial Class frmFormDesigner
         Me.pnlAuswahlliste.Size = New System.Drawing.Size(441, 228)
         Me.pnlAuswahlliste.TabIndex = 2
         '
-        'btnEditor
-        '
-        Me.btnEditor.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
-        Me.btnEditor.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.btnEditor.Image = CType(resources.GetObject("btnEditor.Image"), System.Drawing.Image)
-        Me.btnEditor.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.btnEditor.Location = New System.Drawing.Point(6, 197)
-        Me.btnEditor.Name = "btnEditor"
-        Me.btnEditor.Size = New System.Drawing.Size(114, 28)
-        Me.btnEditor.TabIndex = 81
-        Me.btnEditor.Text = "Editor Detail"
-        Me.btnEditor.TextAlign = System.Drawing.ContentAlignment.MiddleRight
-        Me.btnEditor.UseVisualStyleBackColor = True
-        '
-        'btnShowConnections
-        '
-        Me.btnShowConnections.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.btnShowConnections.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.database_go1
-        Me.btnShowConnections.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.btnShowConnections.Location = New System.Drawing.Point(271, 30)
-        Me.btnShowConnections.Name = "btnShowConnections"
-        Me.btnShowConnections.Size = New System.Drawing.Size(111, 24)
-        Me.btnShowConnections.TabIndex = 6
-        Me.btnShowConnections.Text = "Connections"
-        Me.btnShowConnections.TextAlign = System.Drawing.ContentAlignment.MiddleRight
-        Me.btnShowConnections.UseVisualStyleBackColor = True
-        '
         'SQL_CommandTextBox
         '
         Me.SQL_CommandTextBox.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
@@ -790,20 +546,15 @@ Partial Class frmFormDesigner
         Me.cmbConnection.TabIndex = 0
         Me.cmbConnection.ValueMember = "GUID"
         '
-        'TBPM_CONNECTIONBindingSource
-        '
-        Me.TBPM_CONNECTIONBindingSource.DataMember = "TBPM_CONNECTION"
-        Me.TBPM_CONNECTIONBindingSource.DataSource = Me.DD_DMSLiteDataSet
-        '
         'TabPage4
         '
         Me.TabPage4.Controls.Add(Me.pgControls)
-        Me.TabPage4.Location = New System.Drawing.Point(4, 25)
+        Me.TabPage4.Location = New System.Drawing.Point(4, 22)
         Me.TabPage4.Name = "TabPage4"
         Me.TabPage4.Padding = New System.Windows.Forms.Padding(3)
-        Me.TabPage4.Size = New System.Drawing.Size(447, 234)
+        Me.TabPage4.Size = New System.Drawing.Size(447, 237)
         Me.TabPage4.TabIndex = 3
-        Me.TabPage4.Text = "TabPage4"
+        Me.TabPage4.Text = "Eigenschaften"
         Me.TabPage4.UseVisualStyleBackColor = True
         '
         'pgControls
@@ -815,6 +566,147 @@ Partial Class frmFormDesigner
         Me.pgControls.Size = New System.Drawing.Size(441, 228)
         Me.pgControls.TabIndex = 0
         '
+        'CHANGED_WHOTextBox
+        '
+        Me.CHANGED_WHOTextBox.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.CHANGED_WHOTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPM_PROFILE_CONTROLSBindingSource, "CHANGED_WHO", True))
+        Me.CHANGED_WHOTextBox.Location = New System.Drawing.Point(15, 518)
+        Me.CHANGED_WHOTextBox.Name = "CHANGED_WHOTextBox"
+        Me.CHANGED_WHOTextBox.Size = New System.Drawing.Size(222, 23)
+        Me.CHANGED_WHOTextBox.TabIndex = 19
+        '
+        'StatusStrip1
+        '
+        Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tslblAenderungen})
+        Me.StatusStrip1.Location = New System.Drawing.Point(0, 556)
+        Me.StatusStrip1.Name = "StatusStrip1"
+        Me.StatusStrip1.Size = New System.Drawing.Size(995, 22)
+        Me.StatusStrip1.TabIndex = 20
+        Me.StatusStrip1.Text = "StatusStrip1"
+        '
+        'CHANGED_WHENTextBox
+        '
+        Me.CHANGED_WHENTextBox.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.CHANGED_WHENTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPM_PROFILE_CONTROLSBindingSource, "CHANGED_WHEN", True))
+        Me.CHANGED_WHENTextBox.Location = New System.Drawing.Point(253, 518)
+        Me.CHANGED_WHENTextBox.Name = "CHANGED_WHENTextBox"
+        Me.CHANGED_WHENTextBox.Size = New System.Drawing.Size(159, 23)
+        Me.CHANGED_WHENTextBox.TabIndex = 21
+        '
+        'TBPM_PROFILE_CONTROLSBindingSource
+        '
+        Me.TBPM_PROFILE_CONTROLSBindingSource.DataMember = "TBPM_PROFILE_CONTROLS"
+        Me.TBPM_PROFILE_CONTROLSBindingSource.DataSource = Me.DD_DMSLiteDataSet
+        '
+        'DD_DMSLiteDataSet
+        '
+        Me.DD_DMSLiteDataSet.DataSetName = "DD_DMSLiteDataSet"
+        Me.DD_DMSLiteDataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
+        '
+        'btnrefresh
+        '
+        Me.btnrefresh.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.arrow_refresh
+        Me.btnrefresh.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnrefresh.Location = New System.Drawing.Point(415, 41)
+        Me.btnrefresh.Name = "btnrefresh"
+        Me.btnrefresh.Size = New System.Drawing.Size(81, 23)
+        Me.btnrefresh.TabIndex = 24
+        Me.btnrefresh.Text = "Refresh"
+        Me.btnrefresh.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.btnrefresh.UseVisualStyleBackColor = True
+        '
+        'tslblAenderungen
+        '
+        Me.tslblAenderungen.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.flag_red
+        Me.tslblAenderungen.Name = "tslblAenderungen"
+        Me.tslblAenderungen.Size = New System.Drawing.Size(153, 17)
+        Me.tslblAenderungen.Text = "Änderungen gespeichert"
+        Me.tslblAenderungen.Visible = False
+        '
+        'btnheight_minus
+        '
+        Me.btnheight_minus.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.btnheight_minus.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.zoom_out
+        Me.btnheight_minus.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnheight_minus.Location = New System.Drawing.Point(94, 69)
+        Me.btnheight_minus.Name = "btnheight_minus"
+        Me.btnheight_minus.Size = New System.Drawing.Size(75, 25)
+        Me.btnheight_minus.TabIndex = 1
+        Me.btnheight_minus.Text = "kleiner"
+        Me.btnheight_minus.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.btnheight_minus.UseVisualStyleBackColor = True
+        '
+        'btnheight_plus
+        '
+        Me.btnheight_plus.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.btnheight_plus.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.zoom_in
+        Me.btnheight_plus.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnheight_plus.Location = New System.Drawing.Point(13, 69)
+        Me.btnheight_plus.Name = "btnheight_plus"
+        Me.btnheight_plus.Size = New System.Drawing.Size(75, 25)
+        Me.btnheight_plus.TabIndex = 0
+        Me.btnheight_plus.Text = "größer"
+        Me.btnheight_plus.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.btnheight_plus.UseVisualStyleBackColor = True
+        '
+        'btnwidth_minus
+        '
+        Me.btnwidth_minus.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.btnwidth_minus.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.zoom_out
+        Me.btnwidth_minus.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnwidth_minus.Location = New System.Drawing.Point(94, 22)
+        Me.btnwidth_minus.Name = "btnwidth_minus"
+        Me.btnwidth_minus.Size = New System.Drawing.Size(75, 25)
+        Me.btnwidth_minus.TabIndex = 1
+        Me.btnwidth_minus.Text = "kleiner"
+        Me.btnwidth_minus.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.btnwidth_minus.UseVisualStyleBackColor = True
+        '
+        'btnwidth_plus
+        '
+        Me.btnwidth_plus.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.btnwidth_plus.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.zoom_in
+        Me.btnwidth_plus.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnwidth_plus.Location = New System.Drawing.Point(13, 22)
+        Me.btnwidth_plus.Name = "btnwidth_plus"
+        Me.btnwidth_plus.Size = New System.Drawing.Size(75, 25)
+        Me.btnwidth_plus.TabIndex = 0
+        Me.btnwidth_plus.Text = "größer"
+        Me.btnwidth_plus.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.btnwidth_plus.UseVisualStyleBackColor = True
+        '
+        'btnEditor
+        '
+        Me.btnEditor.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.btnEditor.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.btnEditor.Image = CType(resources.GetObject("btnEditor.Image"), System.Drawing.Image)
+        Me.btnEditor.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnEditor.Location = New System.Drawing.Point(6, 197)
+        Me.btnEditor.Name = "btnEditor"
+        Me.btnEditor.Size = New System.Drawing.Size(114, 28)
+        Me.btnEditor.TabIndex = 81
+        Me.btnEditor.Text = "Editor Detail"
+        Me.btnEditor.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.btnEditor.UseVisualStyleBackColor = True
+        '
+        'btnShowConnections
+        '
+        Me.btnShowConnections.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.btnShowConnections.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.database_go1
+        Me.btnShowConnections.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnShowConnections.Location = New System.Drawing.Point(271, 30)
+        Me.btnShowConnections.Name = "btnShowConnections"
+        Me.btnShowConnections.Size = New System.Drawing.Size(111, 24)
+        Me.btnShowConnections.TabIndex = 6
+        Me.btnShowConnections.Text = "Connections"
+        Me.btnShowConnections.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.btnShowConnections.UseVisualStyleBackColor = True
+        '
+        'TBPM_CONNECTIONBindingSource
+        '
+        Me.TBPM_CONNECTIONBindingSource.DataMember = "TBPM_CONNECTION"
+        Me.TBPM_CONNECTIONBindingSource.DataSource = Me.DD_DMSLiteDataSet
+        '
         'btndelete
         '
         Me.btndelete.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
@@ -842,34 +734,96 @@ Partial Class frmFormDesigner
         Me.btnsave.UseVisualStyleBackColor = True
         Me.btnsave.Visible = False
         '
-        'X_LOCTextBox
+        'btnTabelle
         '
-        Me.X_LOCTextBox.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.btnTabelle.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.X_LOCTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPM_PROFILE_CONTROLSBindingSource, "X_LOC", True))
+        Me.btnTabelle.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.table_add
-        Me.X_LOCTextBox.Location = New System.Drawing.Point(15, 431)
+        Me.btnTabelle.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.X_LOCTextBox.Name = "X_LOCTextBox"
+        Me.btnTabelle.Location = New System.Drawing.Point(290, 55)
-        Me.X_LOCTextBox.ReadOnly = True
+        Me.btnTabelle.Name = "btnTabelle"
-        Me.X_LOCTextBox.Size = New System.Drawing.Size(100, 23)
+        Me.btnTabelle.Size = New System.Drawing.Size(103, 29)
-        Me.X_LOCTextBox.TabIndex = 15
+        Me.btnTabelle.TabIndex = 6
+        Me.btnTabelle.Text = "Tabelle"
+        Me.btnTabelle.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.btnTabelle.UseVisualStyleBackColor = True
         '
-        'Y_LOCTextBox
+        'btnCheckbox
         '
-        Me.Y_LOCTextBox.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.btnCheckbox.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Y_LOCTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPM_PROFILE_CONTROLSBindingSource, "Y_LOC", True))
+        Me.btnCheckbox.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.checkbox_16xLG
-        Me.Y_LOCTextBox.Location = New System.Drawing.Point(137, 431)
+        Me.btnCheckbox.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.Y_LOCTextBox.Name = "Y_LOCTextBox"
+        Me.btnCheckbox.Location = New System.Drawing.Point(151, 90)
-        Me.Y_LOCTextBox.ReadOnly = True
+        Me.btnCheckbox.Name = "btnCheckbox"
-        Me.Y_LOCTextBox.Size = New System.Drawing.Size(100, 23)
+        Me.btnCheckbox.Size = New System.Drawing.Size(133, 31)
-        Me.Y_LOCTextBox.TabIndex = 17
+        Me.btnCheckbox.TabIndex = 5
+        Me.btnCheckbox.Text = "Checkbox"
+        Me.btnCheckbox.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.btnCheckbox.UseVisualStyleBackColor = True
         '
-        'CHANGED_WHOTextBox
+        'btnVektor
         '
-        Me.CHANGED_WHOTextBox.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.btnVektor.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.CHANGED_WHOTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPM_PROFILE_CONTROLSBindingSource, "CHANGED_WHO", True))
+        Me.btnVektor.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.table_add
-        Me.CHANGED_WHOTextBox.Location = New System.Drawing.Point(15, 483)
+        Me.btnVektor.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.CHANGED_WHOTextBox.Name = "CHANGED_WHOTextBox"
+        Me.btnVektor.Location = New System.Drawing.Point(151, 55)
-        Me.CHANGED_WHOTextBox.Size = New System.Drawing.Size(222, 23)
+        Me.btnVektor.Name = "btnVektor"
-        Me.CHANGED_WHOTextBox.TabIndex = 19
+        Me.btnVektor.Size = New System.Drawing.Size(133, 29)
+        Me.btnVektor.TabIndex = 4
+        Me.btnVektor.Text = "Mehrfach-/Vektorfeld"
+        Me.btnVektor.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.btnVektor.UseVisualStyleBackColor = True
+        '
+        'btndtp
+        '
+        Me.btndtp.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.btndtp.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.DateOrTimePicker_675
+        Me.btndtp.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btndtp.Location = New System.Drawing.Point(151, 22)
+        Me.btndtp.Name = "btndtp"
+        Me.btndtp.Size = New System.Drawing.Size(133, 27)
+        Me.btndtp.TabIndex = 3
+        Me.btndtp.Text = "DatePicker"
+        Me.btndtp.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.btndtp.UseVisualStyleBackColor = True
+        '
+        'btncmb
+        '
+        Me.btncmb.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.btncmb.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.ComboBox_16xLG
+        Me.btncmb.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btncmb.Location = New System.Drawing.Point(12, 90)
+        Me.btncmb.Name = "btncmb"
+        Me.btncmb.Size = New System.Drawing.Size(133, 31)
+        Me.btncmb.TabIndex = 2
+        Me.btncmb.Text = "Combobox"
+        Me.btncmb.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.btncmb.UseVisualStyleBackColor = True
+        '
+        'btntextbox
+        '
+        Me.btntextbox.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.btntextbox.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.TextBox_708
+        Me.btntextbox.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btntextbox.Location = New System.Drawing.Point(13, 55)
+        Me.btntextbox.Name = "btntextbox"
+        Me.btntextbox.Size = New System.Drawing.Size(133, 29)
+        Me.btntextbox.TabIndex = 1
+        Me.btntextbox.Text = "Textbox"
+        Me.btntextbox.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.btntextbox.UseVisualStyleBackColor = True
+        '
+        'btnlabel
+        '
+        Me.btnlabel.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.btnlabel.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.Label_684
+        Me.btnlabel.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnlabel.Location = New System.Drawing.Point(12, 22)
+        Me.btnlabel.Name = "btnlabel"
+        Me.btnlabel.Size = New System.Drawing.Size(133, 27)
+        Me.btnlabel.TabIndex = 0
+        Me.btnlabel.Text = "Label"
+        Me.btnlabel.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.btnlabel.UseVisualStyleBackColor = True
         '
         'TBPM_PROFILE_CONTROLSTableAdapter
         '
@@ -891,52 +845,6 @@ Partial Class frmFormDesigner
         Me.TableAdapterManager.TBPM_USERTableAdapter = Nothing
         Me.TableAdapterManager.UpdateOrder = DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete
         '
-        'StatusStrip1
-        '
-        Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tslblAenderungen})
-        Me.StatusStrip1.Location = New System.Drawing.Point(0, 556)
-        Me.StatusStrip1.Name = "StatusStrip1"
-        Me.StatusStrip1.Size = New System.Drawing.Size(995, 22)
-        Me.StatusStrip1.TabIndex = 20
-        Me.StatusStrip1.Text = "StatusStrip1"
-        '
-        'tslblAenderungen
-        '
-        Me.tslblAenderungen.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.flag_red
-        Me.tslblAenderungen.Name = "tslblAenderungen"
-        Me.tslblAenderungen.Size = New System.Drawing.Size(153, 17)
-        Me.tslblAenderungen.Text = "Änderungen gespeichert"
-        Me.tslblAenderungen.Visible = False
-        '
-        'CHANGED_WHENTextBox
-        '
-        Me.CHANGED_WHENTextBox.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
-        Me.CHANGED_WHENTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPM_PROFILE_CONTROLSBindingSource, "CHANGED_WHEN", True))
-        Me.CHANGED_WHENTextBox.Location = New System.Drawing.Point(253, 483)
-        Me.CHANGED_WHENTextBox.Name = "CHANGED_WHENTextBox"
-        Me.CHANGED_WHENTextBox.Size = New System.Drawing.Size(159, 23)
-        Me.CHANGED_WHENTextBox.TabIndex = 21
-        '
-        'HEIGHTTextBox
-        '
-        Me.HEIGHTTextBox.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
-        Me.HEIGHTTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPM_PROFILE_CONTROLSBindingSource, "HEIGHT", True))
-        Me.HEIGHTTextBox.Location = New System.Drawing.Point(253, 431)
-        Me.HEIGHTTextBox.Name = "HEIGHTTextBox"
-        Me.HEIGHTTextBox.ReadOnly = True
-        Me.HEIGHTTextBox.Size = New System.Drawing.Size(71, 23)
-        Me.HEIGHTTextBox.TabIndex = 22
-        '
-        'WIDTHTextBox
-        '
-        Me.WIDTHTextBox.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
-        Me.WIDTHTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPM_PROFILE_CONTROLSBindingSource, "WIDTH", True))
-        Me.WIDTHTextBox.Location = New System.Drawing.Point(331, 431)
-        Me.WIDTHTextBox.Name = "WIDTHTextBox"
-        Me.WIDTHTextBox.ReadOnly = True
-        Me.WIDTHTextBox.Size = New System.Drawing.Size(81, 23)
-        Me.WIDTHTextBox.TabIndex = 23
-        '
         'TBPM_CONNECTIONTableAdapter
         '
         Me.TBPM_CONNECTIONTableAdapter.ClearBeforeFill = True
@@ -959,48 +867,17 @@ Partial Class frmFormDesigner
         '
         Me.TBPM_CONTROL_TABLETableAdapter.ClearBeforeFill = True
         '
-        'btnrefresh
-        '
-        Me.btnrefresh.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.arrow_refresh
-        Me.btnrefresh.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.btnrefresh.Location = New System.Drawing.Point(415, 41)
-        Me.btnrefresh.Name = "btnrefresh"
-        Me.btnrefresh.Size = New System.Drawing.Size(81, 23)
-        Me.btnrefresh.TabIndex = 24
-        Me.btnrefresh.Text = "Refresh"
-        Me.btnrefresh.TextAlign = System.Drawing.ContentAlignment.MiddleRight
-        Me.btnrefresh.UseVisualStyleBackColor = True
-        '
-        'GUIDTextBox
-        '
-        Me.GUIDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPM_PROFILE_CONTROLSBindingSource, "GUID", True))
-        Me.GUIDTextBox.Location = New System.Drawing.Point(43, 512)
-        Me.GUIDTextBox.Name = "GUIDTextBox"
-        Me.GUIDTextBox.ReadOnly = True
-        Me.GUIDTextBox.Size = New System.Drawing.Size(72, 23)
-        Me.GUIDTextBox.TabIndex = 25
-        '
         'frmFormDesigner
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.ClientSize = New System.Drawing.Size(995, 578)
-        Me.Controls.Add(GUIDLabel)
-        Me.Controls.Add(Me.GUIDTextBox)
         Me.Controls.Add(Me.btnrefresh)
-        Me.Controls.Add(WIDTHLabel)
-        Me.Controls.Add(Me.WIDTHTextBox)
-        Me.Controls.Add(HEIGHTLabel)
-        Me.Controls.Add(Me.HEIGHTTextBox)
         Me.Controls.Add(CHANGED_WHENLabel)
         Me.Controls.Add(Me.CHANGED_WHENTextBox)
         Me.Controls.Add(Me.StatusStrip1)
         Me.Controls.Add(CHANGED_WHOLabel)
         Me.Controls.Add(Me.CHANGED_WHOTextBox)
-        Me.Controls.Add(Y_LOCLabel)
-        Me.Controls.Add(Me.Y_LOCTextBox)
-        Me.Controls.Add(X_LOCLabel)
-        Me.Controls.Add(Me.X_LOCTextBox)
         Me.Controls.Add(Me.gbxControl)
         Me.Controls.Add(Me.Panel1)
         Me.Controls.Add(Me.GroupBox1)
@@ -1021,17 +898,17 @@ Partial Class frmFormDesigner
         Me.TabControlEigenschaften.ResumeLayout(False)
         Me.TabPage1.ResumeLayout(False)
         Me.TabPage1.PerformLayout()
-        CType(Me.TBPM_PROFILE_CONTROLSBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.DD_DMSLiteDataSet, System.ComponentModel.ISupportInitialize).EndInit()
         Me.TabPage2.ResumeLayout(False)
         Me.TabPage2.PerformLayout()
         Me.TabPage3.ResumeLayout(False)
         Me.pnlAuswahlliste.ResumeLayout(False)
         Me.pnlAuswahlliste.PerformLayout()
-        CType(Me.TBPM_CONNECTIONBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
         Me.TabPage4.ResumeLayout(False)
         Me.StatusStrip1.ResumeLayout(False)
         Me.StatusStrip1.PerformLayout()
+        CType(Me.TBPM_PROFILE_CONTROLSBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.DD_DMSLiteDataSet, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TBPM_CONNECTIONBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.TBWH_CHECK_PROFILE_CONTROLSBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.TBPM_CONTROL_TABLEBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
@@ -1065,8 +942,6 @@ Partial Class frmFormDesigner
     Friend WithEvents VALIDATIONCheckBox As System.Windows.Forms.CheckBox
     Friend WithEvents CTRL_TEXTTextBox As System.Windows.Forms.TextBox
     Friend WithEvents NAMETextBox As System.Windows.Forms.TextBox
-    Friend WithEvents X_LOCTextBox As System.Windows.Forms.TextBox
-    Friend WithEvents Y_LOCTextBox As System.Windows.Forms.TextBox
     Friend WithEvents CHANGED_WHOTextBox As System.Windows.Forms.TextBox
     Friend WithEvents StatusStrip1 As System.Windows.Forms.StatusStrip
     Friend WithEvents tslblAenderungen As System.Windows.Forms.ToolStripStatusLabel
@@ -1080,8 +955,6 @@ Partial Class frmFormDesigner
     Friend WithEvents btnheight_plus As System.Windows.Forms.Button
     Friend WithEvents Label3 As System.Windows.Forms.Label
     Friend WithEvents Label2 As System.Windows.Forms.Label
-    Friend WithEvents HEIGHTTextBox As System.Windows.Forms.TextBox
-    Friend WithEvents WIDTHTextBox As System.Windows.Forms.TextBox
     Friend WithEvents btnVektor As System.Windows.Forms.Button
     Friend WithEvents TabPage3 As System.Windows.Forms.TabPage
     Friend WithEvents TBPM_CONNECTIONBindingSource As System.Windows.Forms.BindingSource
@@ -1107,7 +980,6 @@ Partial Class frmFormDesigner
     Friend WithEvents btnrefresh As System.Windows.Forms.Button
     Friend WithEvents btnShowConnections As System.Windows.Forms.Button
     Friend WithEvents btnEditor As Button
-    Friend WithEvents GUIDTextBox As TextBox
     Friend WithEvents TabPage4 As TabPage
     Friend WithEvents pgControls As PropertyGrid
 End Class

app/DD_PM_WINDREAM/frmFormDesigner.resx

@@ -117,27 +117,12 @@
   <resheader name="writer">
     <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </resheader>
-  <metadata name="X_LOCLabel.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-    <value>False</value>
-  </metadata>
-  <metadata name="Y_LOCLabel.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-    <value>False</value>
-  </metadata>
   <metadata name="CHANGED_WHOLabel.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
     <value>False</value>
   </metadata>
   <metadata name="CHANGED_WHENLabel.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
     <value>False</value>
   </metadata>
-  <metadata name="HEIGHTLabel.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-    <value>False</value>
-  </metadata>
-  <metadata name="WIDTHLabel.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-    <value>False</value>
-  </metadata>
-  <metadata name="GUIDLabel.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-    <value>False</value>
-  </metadata>
   <metadata name="TBPM_PROFILE_CONTROLSBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>179, 17</value>
   </metadata>
@@ -161,15 +146,15 @@
   <metadata name="TBPM_CONNECTIONBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>1021, 17</value>
   </metadata>
+  <metadata name="StatusStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>904, 17</value>
+  </metadata>
   <metadata name="TBPM_PROFILE_CONTROLSTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>458, 17</value>
   </metadata>
   <metadata name="TableAdapterManager.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>731, 17</value>
   </metadata>
-  <metadata name="StatusStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>904, 17</value>
-  </metadata>
   <metadata name="TBPM_CONNECTIONTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>17, 56</value>
   </metadata>

app/DD_PM_WINDREAM/frmFormDesigner.vb

@@ -1,5 +1,5 @@
 Public Class frmFormDesigner
-    Private _windreamPM As ClassPMWindream
+    Public _windreamPM As ClassPMWindream
     Private COLUMN_GUID
     Private MouseIsDown As Boolean = False
     Private idxlbl As Integer = 0
@@ -18,43 +18,42 @@
     Private EndLocation As Point
 
     Private Sub frmFormDesigner_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
-        '
-        'Try
         If CURRENT_ProfilGUID > 0 Then
-            Dim DT As DataTable = ClassDatabase.Return_Datatable(String.Format("SELECT * FROM TBPM_PROFILE_CONTROLS WHERE PROFIL_ID = {0} AND (CTRL_TYPE <> 'LBL')", CURRENT_ProfilGUID), True)
+            Dim sql As String = $"SELECT NAME, INDEX_NAME FROM TBPM_PROFILE_CONTROLS WHERE PROFIL_ID = {CURRENT_ProfilGUID} AND CTRL_TYPE <> 'LBL'"
-            gbxControl.Visible = False
+            Dim dt As DataTable = ClassDatabase.Return_Datatable(sql)
-            For Each row As DataRow In DT.Rows
+
-                If row.Item("INDEX_NAME").GetType.ToString.ToLower = "system.dbnull" Or row.Item("INDEX_NAME").ToString = "" Then
+            Dim missingIndexControls As New List(Of String)
-                    MsgBox("Für das Control '" & row.Item("NAME") & "' wurde noch keine Indexdefintion hinterlegt!", MsgBoxStyle.Exclamation, "Unvollständige Konfiguration:")
+
-                    e.Cancel = True
+            For Each row As DataRow In dt.Rows
-                    gbxControl.Visible = True
+                If NotNull(row.Item("INDEX_NAME"), String.Empty) = String.Empty Then
+                    missingIndexControls.Add(row.Item("NAME"))
+
                 End If
             Next
+
+            If missingIndexControls.Count > 0 Then
+                e.Cancel = True
+                Dim missingControls As String = String.Join(vbCrLf, missingIndexControls.ToArray())
+                MsgBox($"Für die folgenden Controls wurden noch keine Indexdefinitionen hinterlegt: {vbCrLf}{vbCrLf}{missingControls}")
+            End If
         End If
+
         If Application.OpenForms().OfType(Of frmControl_Detail).Any Then
             frmControl_Detail.Close()
         End If
-        '            MessageBox.Show("Opened")
-        'Catch ex As Exception
-        '    MsgBox("Fehler bei FormClosing: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Achtung:")
-        'End Try
 
     End Sub
-    '' Used to store the current cursor shape when we start
+
-    '' to move the control
-    'Private m_CurrentCursor As Cursor
-    '' Holds the mouse position relative to the inside of
-    '' our control when the mouse button goes down
-    'Private m_CursorOffset As Point
 
 
     Private Sub frmFormDesigner_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         Try
-
+            lblDesign.Text = "FormDesigner für Profil: " & CURRENT_ProfilName
-            Me.lblDesign.Text = "FormDesigner für Profil: " & CURRENT_ProfilName
             'löscht alle Controls
             pnldesigner.Controls.Clear()
+            CURRENT_CONTROL = Nothing
             Try
+                DD_LIB_Standards.clsWindream.Create_Session()
                 ' Windream instanziieren
                 _windreamPM = New ClassPMWindream()
                 'Windream initialisieren (Connection, Session, ... aufbauen)
@@ -185,6 +184,17 @@
         End Try
         _loading = False
     End Sub
+
+    Function CreateBaseControl(ctrl As Control, guid As Integer, name As String, x As Integer, y As Integer, font As Font, color As Color)
+        ctrl.Tag = guid
+        ctrl.Name = name
+        ctrl.Location = New Point(x, y)
+        ctrl.Font = font
+        ctrl.ForeColor = color
+
+        Return ctrl
+    End Function
+
     Sub Controls_laden()
         Try
             TBPM_PROFILE_CONTROLSTableAdapter.FillByProfil(DD_DMSLiteDataSet.TBPM_PROFILE_CONTROLS, CURRENT_ProfilGUID)
@@ -192,22 +202,42 @@
             pnldesigner.Controls.Clear()
 
             Dim dt As DataTable = DD_DMSLiteDataSet.TBPM_PROFILE_CONTROLS
-            For Each dr As DataRow In dt.Rows
+            For Each row As DataRow In dt.Rows
-                Select Case dr.Item("CTRL_TYPE")
+                ' Ein Base Control erstellen
+                Dim guid As Integer = row.Item("GUID")
+                Dim name As String = row.Item("NAME")
+                Dim x As Integer = row.Item("X_LOC")
+                Dim y As Integer = row.Item("Y_LOC")
+                Dim style As FontStyle = NotNull(row.Item("FONT_STYLE"), FontStyle.Regular)
+                Dim size As Single = NotNull(row.Item("FONT_SIZE"), 10)
+                Dim familyString As String = NotNull(row.Item("FONT_FAMILY"), "Arial")
+                Dim family As FontFamily = New FontFamily(familyString)
+                Dim font As New Font(family, size, style, GraphicsUnit.Point)
+                Dim color As Color = IntToColor(NotNull(row.Item("FONT_COLOR"), 0))
+
+                ' Jetzt die Control spezifischen Eigenschaften zuweisen
+                Select Case row.Item("CTRL_TYPE")
                     Case "TXT"
-                        add_exisiting_textbox(dr.Item("GUID"), dr.Item("NAME"), CInt(dr.Item("X_LOC")), CInt(dr.Item("Y_LOC")), CInt(dr.Item("WIDTH")), CInt(dr.Item("HEIGHT")))
+                        Dim ctrl = CreateBaseControl(New TextBox, guid, name, x, y, font, color)
+                        AddExistingTextbox(ctrl, row.Item("WIDTH"), row.Item("HEIGHT"))
                     Case "LBL"
-                        add_existing_label(dr.Item("GUID"), dr.Item("NAME"), dr.Item("CTRL_TEXT"), CInt(dr.Item("X_LOC")), CInt(dr.Item("Y_LOC")), CInt(dr.Item("WIDTH")), CInt(dr.Item("HEIGHT")))
+                        Dim ctrl = CreateBaseControl(New Label, guid, name, x, y, font, color)
+                        AddExistingLabel(ctrl, row.Item("CTRL_TEXT"))
                     Case "CMB"
-                        add_exisiting_Combobox(dr.Item("GUID"), dr.Item("NAME"), CInt(dr.Item("X_LOC")), CInt(dr.Item("Y_LOC")), CInt(dr.Item("WIDTH")), CInt(dr.Item("HEIGHT")))
+                        Dim ctrl = CreateBaseControl(New ComboBox, guid, name, x, y, font, color)
+                        AddExistingCombobox(ctrl, row.Item("WIDTH"), row.Item("HEIGHT"))
                     Case "DTP"
-                        add_exisiting_DTP(dr.Item("GUID"), dr.Item("NAME"), CInt(dr.Item("X_LOC")), CInt(dr.Item("Y_LOC")), CInt(dr.Item("WIDTH")), CInt(dr.Item("HEIGHT")))
+                        Dim ctrl = CreateBaseControl(New ComboBox, guid, name, x, y, font, color)
+                        AddExistingDatetimepicker(ctrl, row.Item("WIDTH"), row.Item("HEIGHT"))
                     Case "DGV"
-                        add_exisitingDGV(dr.Item("GUID"), dr.Item("NAME"), CInt(dr.Item("X_LOC")), CInt(dr.Item("Y_LOC")), CInt(dr.Item("WIDTH")), CInt(dr.Item("HEIGHT")))
+                        Dim ctrl = CreateBaseControl(New DataGridView, guid, name, x, y, font, color)
+                        AddExistingDatagridview(ctrl, row.Item("WIDTH"), row.Item("HEIGHT"))
                     Case "CHK"
-                        add_exisiting_Checkbox(dr.Item("GUID"), dr.Item("NAME"), dr.Item("CTRL_TEXT"), CInt(dr.Item("X_LOC")), CInt(dr.Item("Y_LOC")), CInt(dr.Item("WIDTH")), CInt(dr.Item("HEIGHT")))
+                        Dim ctrl = CreateBaseControl(New CheckBox, guid, name, x, y, font, color)
+                        AddExistingCheckbox(ctrl, row.Item("CTRL_TEXT"), row.Item("WIDTH"), row.Item("HEIGHT"))
                     Case "TABLE"
-                        add_exisitingTABLE(dr.Item("GUID"), dr.Item("NAME"), CInt(dr.Item("X_LOC")), CInt(dr.Item("Y_LOC")), CInt(dr.Item("WIDTH")), CInt(dr.Item("HEIGHT")))
+                        Dim ctrl = CreateBaseControl(New DataGridView, guid, name, x, y, font, color)
+                        AddExistingTable(ctrl, row.Item("WIDTH"), row.Item("HEIGHT"))
                 End Select
             Next
         Catch ex As Exception
@@ -245,8 +275,7 @@
     End Sub
 
     Private Sub Panel2_DragDrop(sender As Object, e As System.Windows.Forms.DragEventArgs) Handles pnldesigner.DragDrop
-        Dim r As New System.Random()
+        Dim r As New Random()
-        Dim a As Byte
         Dim random As Integer = r.Next(8, 100)
         Select Case e.Data.GetData(DataFormats.Text)
             Case "lbl"
@@ -318,29 +347,14 @@
             MsgBox("Fehler bei Anlegen Label: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
         End Try
     End Function
-    Function add_existing_label(ID As Integer, lblname As String, text As String, x As Integer, y As Integer, vwidth As Integer, vheight As Integer)
+    Function AddExistingLabel(lbl As Label, text As String)
-        Dim lbl As New Label
-        lbl.Tag = ID
-        lbl.Name = lblname
         lbl.Text = text
         lbl.AutoSize = True
-        'lbl.Size = New Size(CInt(lbl.Text.Length * 10), vheight)
-        lbl.Location = New Point(x, y)
 
         pnldesigner.Controls.Add(lbl)
-        'AddHandler lbl.Click, AddressOf OnlblClick
-        'AddHandler lbl.MouseDown, AddressOf MovableLabel_MouseDown
-        'AddHandler lbl.MouseUp, AddressOf MovableCtrl_MouseUp
-        'AddHandler lbl.MouseMove, AddressOf Control_MouseMove 'MovableLabel_MouseMove
-
         SetMovementHandlers(lbl)
-
-
     End Function
 
-
-
-
     Private Function GetLastID()
         Dim sql = String.Format("SELECT MAX(GUID) FROM TBPM_PROFILE_CONTROLS WHERE PROFIL_ID = {0}", CURRENT_ProfilGUID)
         Return ClassDatabase.Execute_Scalar(sql, MyConnectionString, True)
@@ -358,10 +372,6 @@
             pnldesigner.Controls.Add(txt)
             CURRENT_CONTROL = txt
 
-            'AddHandler txt.Click, AddressOf OntxtClick
-            'AddHandler txt.MouseDown, AddressOf MovableText_MouseDown
-            'AddHandler txt.MouseUp, AddressOf MovableCtrl_MouseUp
-            'AddHandler txt.MouseMove, AddressOf Control_MouseMove 'MovableText_MouseMove
             SetMovementHandlers(txt)
 
             TBPM_PROFILE_CONTROLSTableAdapter.cmdInsertAnlage(CURRENT_ProfilGUID, txt.Name, "TXT", txtname, txt.Location.X, txt.Location.Y, Environment.UserName, 27, 200)
@@ -373,10 +383,7 @@
             MsgBox("Fehler bei Anlegen TextBox: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
         End Try
     End Function
-    Function add_exisiting_textbox(ID As Integer, txtname As String, x As Integer, y As Integer, vwidth As Integer, vheight As Integer)
+    Function AddExistingTextbox(txt As TextBox, vwidth As Integer, vheight As Integer)
-        Dim txt As New TextBox
-        txt.Tag = ID
-        txt.Name = txtname
         If vheight > 27 Then
             txt.Multiline = True
         Else
@@ -386,20 +393,12 @@
 
         txt.Cursor = Cursors.Hand
         txt.ReadOnly = True
-        txt.Location = New Point(x, y)
         txt.BackColor = Color.White
+
         pnldesigner.Controls.Add(txt)
-
-
-        ''AddHandler txt.Click, AddressOf OntxtClick
-        'AddHandler txt.MouseDown, AddressOf MovableText_MouseDown
-        'AddHandler txt.MouseUp, AddressOf MovableCtrl_MouseUp
-        'AddHandler txt.MouseMove, AddressOf Control_MouseMove 'MovableText_MouseMove
         SetMovementHandlers(txt)
 
-
         btnsave.Visible = True
-
     End Function
     Function add_newCheckbox(chkname As String)
         Try
@@ -415,10 +414,6 @@
             pnldesigner.Controls.Add(chk)
             CURRENT_CONTROL = chk
 
-            'AddHandler chk.Click, AddressOf OnchkboxClick
-            'AddHandler chk.MouseDown, AddressOf MovableChk_MouseDown
-            'AddHandler chk.MouseUp, AddressOf MovableCtrl_MouseUp
-            'AddHandler chk.MouseMove, AddressOf Control_MouseMove 'MovableChk_MouseMove
             SetMovementHandlers(chk)
 
             TBPM_PROFILE_CONTROLSTableAdapter.cmdInsertAnlage(CURRENT_ProfilGUID, chk.Name, "CHK", chkname, chk.Location.X, chk.Location.Y, Environment.UserName, 27, 200)
@@ -429,20 +424,12 @@
             MsgBox("Fehler bei Anlegen Checkbox: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
         End Try
     End Function
-    Function add_exisiting_Checkbox(ID As Integer, chkname As String, text As String, x As Integer, y As Integer, vwidth As Integer, vheight As Integer)
+    Function AddExistingCheckbox(chk As CheckBox, text As String, vwidth As Integer, vheight As Integer)
-        Dim chk As New CheckBox
-        chk.Tag = ID
-        chk.Name = chkname
         chk.AutoSize = True
-        'chk.Size = New Size(vwidth, vheight)
         chk.Text = text
         chk.Cursor = Cursors.Hand
-        chk.Location = New Point(x, y)
+
         pnldesigner.Controls.Add(chk)
-        'AddHandler chk.Click, AddressOf OnchkboxClick
-        'AddHandler chk.MouseDown, AddressOf MovableChk_MouseDown
-        'AddHandler chk.MouseUp, AddressOf MovableCtrl_MouseUp
-        'AddHandler chk.MouseMove, AddressOf Control_MouseMove 'MovableChk_MouseMove
         SetMovementHandlers(chk)
 
         btnsave.Visible = True
@@ -458,10 +445,6 @@
             pnldesigner.Controls.Add(cmb)
             CURRENT_CONTROL = cmb
 
-            'AddHandler cmb.Click, AddressOf OncmbClick
-            'AddHandler cmb.MouseDown, AddressOf Movablecmb_MouseDown
-            'AddHandler cmb.MouseUp, AddressOf MovableCtrl_MouseUp
-            'AddHandler cmb.MouseMove, AddressOf Control_MouseMove 'Movablecmb_MouseMove
             SetMovementHandlers(cmb)
 
             TBPM_PROFILE_CONTROLSTableAdapter.cmdInsertAnlage(CURRENT_ProfilGUID, cmb.Name, "CMB", cmbname, cmb.Location.X, cmb.Location.Y, Environment.UserName, 24, 180)
@@ -472,35 +455,21 @@
             MsgBox("Fehler bei Anlegen Combobox: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
         End Try
     End Function
-    Function add_exisiting_Combobox(ID As Integer, cmbname As String, x As Integer, y As Integer, vwidth As Integer, vheight As Integer)
+    Function AddExistingCombobox(cmb As ComboBox, vwidth As Integer, vheight As Integer)
-        Dim cmb As New ComboBox
-        cmb.Tag = ID
-        cmb.Name = cmbname
         cmb.Size = New Size(vwidth, vheight)
         cmb.Cursor = Cursors.Hand
-        cmb.Location = New Point(x, y)
+
         pnldesigner.Controls.Add(cmb)
-        'AddHandler cmb.Click, AddressOf OncmbClick
-        'AddHandler cmb.MouseDown, AddressOf Movablecmb_MouseDown
-        'AddHandler cmb.MouseUp, AddressOf MovableCtrl_MouseUp
-        'AddHandler cmb.MouseMove, AddressOf Control_MouseMove 'Movablecmb_MouseMove
         SetMovementHandlers(cmb)
+
         btnsave.Visible = True
     End Function
-    Function add_exisiting_DTP(ID As Integer, dtpname As String, x As Integer, y As Integer, vwidth As Integer, vheight As Integer)
+    Function AddExistingDatetimepicker(dtp As DateTimePicker, vwidth As Integer, vheight As Integer)
-        Dim dtp As New DateTimePicker
-        dtp.Tag = ID
-        dtp.Name = dtpname
         dtp.Size = New Size(vwidth, vheight)
         dtp.Cursor = Cursors.Hand
-        dtp.Location = New Point(x, y)
         dtp.Format = DateTimePickerFormat.Short
         pnldesigner.Controls.Add(dtp)
 
-        'AddHandler dtp.Click, AddressOf OndtpClick
-        'AddHandler dtp.MouseDown, AddressOf Movabledtp_MouseDown
-        'AddHandler dtp.MouseUp, AddressOf MovableCtrl_MouseUp
-        'AddHandler dtp.MouseMove, AddressOf Control_MouseMove 'Movabledtp_MouseMove
         SetMovementHandlers(dtp)
         btnsave.Visible = True
     End Function
@@ -529,13 +498,9 @@
             MsgBox("Fehler bei Anlegen DatetimePicker: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
         End Try
     End Function
-    Function add_exisitingDGV(ID As Integer, dtpname As String, x As Integer, y As Integer, vwidth As Integer, vheight As Integer)
+    Function AddExistingDatagridview(dgv As DataGridView, vwidth As Integer, vheight As Integer)
-        Dim dgv As New DataGridView
-        dgv.Tag = ID
-        dgv.Name = dtpname
         dgv.Size = New Size(vwidth, vheight)
         dgv.Cursor = Cursors.Hand
-        dgv.Location = New Point(x, y)
         dgv.AllowUserToAddRows = False
         dgv.AllowUserToDeleteRows = False
         dgv.AllowUserToResizeColumns = False
@@ -603,13 +568,17 @@
             table.AllowUserToResizeColumns = True
             table.AllowUserToResizeRows = False
 
-            Dim col1 As New DataGridViewTextBoxColumn
+            Dim col1 As New DataGridViewTextBoxColumn With {
-            col1.HeaderText = "Column1"
+                .HeaderText = "Column1",
-            col1.Name = "column1"
+                .Name = "column1"
+            }
+
+            Dim col2 As New DataGridViewTextBoxColumn With {
+                .HeaderText = "Column2",
+                .Name = "column2"
+            }
+
             table.Columns.Add(col1)
-            Dim col2 As New DataGridViewTextBoxColumn
-            col2.HeaderText = "Column2"
-            col2.Name = "column2"
             table.Columns.Add(col2)
             pnldesigner.Controls.Add(table)
             CURRENT_CONTROL = table
@@ -630,13 +599,9 @@
             MsgBox("Fehler bei Anlegen Tabelle: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
         End Try
     End Function
-    Function add_exisitingTABLE(ID As Integer, tableName As String, x As Integer, y As Integer, vwidth As Integer, vheight As Integer)
+    Function AddExistingTable(table As DataGridView, vwidth As Integer, vheight As Integer)
-        Dim table As New DataGridView
-        table.Tag = ID
-        table.Name = tableName
         table.Size = New Size(vwidth, vheight)
         table.Cursor = Cursors.Hand
-        table.Location = New Point(x, y)
         table.AllowUserToAddRows = False
         table.AllowUserToDeleteRows = False
         table.AllowUserToResizeColumns = True
@@ -681,6 +646,8 @@
                         inctrl.BackColor = Color.White
                     Case "System.Windows.Forms.Label"
                         inctrl.BackColor = Color.Transparent
+                    Case "System.Windows.Forms.CheckBox"
+                        inctrl.BackColor = Color.Transparent
                 End Select
             End If
         Next
@@ -691,23 +658,22 @@
         Dim lbl As Label = sender
         CURRENT_CONTROL = lbl
         Load_Control()
-        Me.lblBeschriftung.Visible = True
+        lblBeschriftung.Visible = True
-        Me.CTRL_TEXTTextBox.Visible = True
+        CTRL_TEXTTextBox.Visible = True
-        Me.lblIndex.Visible = False
+        lblIndex.Visible = False
 
-        Me.cmbIndex.Visible = False
+        cmbIndex.Visible = False
-        Me.rbIndex.Visible = False
+        rbIndex.Visible = False
-        Me.rbVektor.Visible = False
+        rbVektor.Visible = False
 
-        Me.VALIDATIONCheckBox.Visible = False
+        VALIDATIONCheckBox.Visible = False
-        Me.CheckBoxAuswahlliste.Visible = False
+        CheckBoxAuswahlliste.Visible = False
-        Me.CHOICE_LISTTextBox.Visible = False
+        CHOICE_LISTTextBox.Visible = False
-        Me.lblAuswahlliste.Visible = False
+        lblAuswahlliste.Visible = False
         gbxControl.Visible = True
-        ' Me.pnlAuswahlliste.Enabled = False
 
-        Me.READ_ONLYCheckBox.Visible = False
+        READ_ONLYCheckBox.Visible = False
-        Me.LOAD_IDX_VALUECheckBox.Visible = False
+        LOAD_IDX_VALUECheckBox.Visible = False
 
         INDEX_NAMETextBox.Visible = False
     End Sub
@@ -1033,194 +999,6 @@
             gbxControl.Visible = True
         End If
     End Sub
-    Private Sub MovableCtrl_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseUp
-        CURRENT_CONTROL.Tag = Nothing
-        ' The button was released, so we're going back to Static mode.
-        If MouseMoving = True Then
-            MouseMoving = False
-            EndLocation = e.Location
-            If X_LOCTextBox.Text <> String.Empty Then
-                If CURRENT_CONTROL.Location.X <> X_LOCTextBox.Text Or CURRENT_CONTROL.Location.Y <> Y_LOCTextBox.Text Then
-                    X_LOCTextBox.Text = CURRENT_CONTROL.Location.X
-                    Y_LOCTextBox.Text = CURRENT_CONTROL.Location.Y
-                    Save_Control()
-                End If
-            End If
-
-            'Y_LOCTextBox.Text = end_location.Y
-            'Save_Control()
-        End If
-        ' Restore the cursor image to the way we found it when the mouse
-        ' button was pressed
-        MyBase.Cursor = Cursors.Default
-    End Sub
-    'Private Sub Control_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove
-    '    Try
-    '        If CURRENT_CONTROL Is Nothing Then
-    '            Exit Sub
-    '        End If
-    '        'Check which mode we're in. If we're supposed to be moving
-    '        'our control
-    '        If MouseMoving = True And sender.ToString <> "DD_PM_WINDREAM.frmFormDesigner, Text: Validation-Designer" Then
-    '            Me.Cursor = Cursors.Hand
-    '            Me.Refresh()
-
-    '            Dim NowCursor As Point = GetCursorPosition()
-    '            ' get the screen position of the mouse pointer and map it
-    '            ' to the position relative to the top-left corner of our
-    '            If Point.op_Inequality(NowCursor, BeginLocation) Then
-    '                CURRENT_CONTROL.Location = New System.Drawing.Point(NowCursor.X - BeginLocation.X,
-    '                                             NowCursor.Y - BeginLocation.Y)
-    '            End If
-    '        End If
-    '    Catch ex As Exception
-    '        ' MsgBox(ex.Message, MsgBoxStyle.Exclamation, "MovableLabel_MouseMove")
-    '        MouseMoving = False
-    '    End Try
-
-    'End Sub
-    'Private Sub MovableLabel_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove
-    '    Try
-    '        If CURRENT_CONTROL Is Nothing Then
-    '            Exit Sub
-    '        End If
-    '        'Check which mode we're in. If we're supposed to be moving
-    '        'our control
-    '        If MouseMoving = True And sender.ToString <> "DD_PM_WINDREAM.frmFormDesigner, Text: Validation-Designer" And CURRENT_CONTROL.GetType.ToString = "System.Windows.Forms.Label" Then
-    '            Me.Cursor = Cursors.Hand
-    '            Me.Refresh()
-
-    '            Dim lbl As Label = DirectCast(sender, Label)
-
-    '            Dim NowCursor As Point = GetCursorPosition()
-    '            ' get the screen position of the mouse pointer and map it
-    '            ' to the position relative to the top-left corner of our
-    '            If Point.op_Inequality(NowCursor, BeginLocation) Then
-    '                lbl.Location = New System.Drawing.Point(NowCursor.X - BeginLocation.X,
-    '                                             NowCursor.Y - BeginLocation.Y)
-    '            End If
-    '        End If
-    '    Catch ex As Exception
-    '        ' MsgBox(ex.Message, MsgBoxStyle.Exclamation, "MovableLabel_MouseMove")
-    '        MouseMoving = False
-    '    End Try
-
-    'End Sub
-    'Private Sub MovableText_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove
-    '    'Check which mode we're in. If we're supposed to be moving
-    '    'our control
-    '    If CURRENT_CONTROL Is Nothing Then
-    '        Exit Sub
-    '    End If
-    '    Try
-    '        If MouseMoving = True And sender.ToString <> "DD_PM_WINDREAM.frmFormDesigner, Text: Validation-Designer" And CURRENT_CONTROL.GetType.ToString = "System.Windows.Forms.TextBox" Then
-    '            Me.Cursor = Cursors.Hand
-    '            Me.Refresh()
-
-    '            Dim txt As TextBox = DirectCast(sender, TextBox)
-
-    '            Dim NowCursor As Point = GetCursorPosition()
-    '            ' get the screen position of the mouse pointer and map it
-    '            ' to the position relative to the top-left corner of our
-    '            ' parent container
-    '            If Point.op_Inequality(NowCursor, BeginLocation) Then
-    '                txt.Location = New System.Drawing.Point(NowCursor.X - BeginLocation.X,
-    '                                             NowCursor.Y - BeginLocation.Y)
-    '            End If
-
-    '        End If
-    '    Catch ex As Exception
-    '        ' MsgBox(ex.Message, MsgBoxStyle.Exclamation, "MovableText_MouseMove")
-    '        MouseMoving = False
-    '    End Try
-
-
-    'End Sub
-    'Private Sub MovableChk_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove
-    '    'Check which mode we're in. If we're supposed to be moving
-    '    'our control
-    '    If CURRENT_CONTROL Is Nothing Then
-    '        Exit Sub
-    '    End If
-    '    Try
-    '        If MouseMoving = True And sender.ToString <> "DD_PM_WINDREAM.frmFormDesigner, Text: Validation-Designer" And CURRENT_CONTROL.GetType.ToString = "System.Windows.Forms.CheckBox" Then
-    '            Me.Cursor = Cursors.Hand
-    '            Me.Refresh()
-
-    '            Dim chk As CheckBox = DirectCast(sender, CheckBox)
-    '            Dim NowCursor As Point = GetCursorPosition()
-    '            ' get the screen position of the mouse pointer and map it
-    '            ' to the position relative to the top-left corner of our
-    '            If Point.op_Inequality(NowCursor, BeginLocation) Then
-    '                chk.Location = New System.Drawing.Point(NowCursor.X - BeginLocation.X,
-    '                                             NowCursor.Y - BeginLocation.Y)
-    '            End If
-    '        End If
-    '    Catch ex As Exception
-    '        ' MsgBox(ex.Message, MsgBoxStyle.Exclamation, "MovableChk_MouseMove")
-    '        MouseMoving = False
-    '    End Try
-
-    'End Sub
-    'Private Sub Movablecmb_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove
-    '    'Check which mode we're in. If we're supposed to be moving
-    '    'our control
-    '    If CURRENT_CONTROL Is Nothing Then
-    '        Exit Sub
-    '    End If
-    '    Try
-    '        If MouseMoving = True And sender.ToString <> "DD_PM_WINDREAM.frmFormDesigner, Text: Validation-Designer" And CURRENT_CONTROL.GetType.ToString = "System.Windows.Forms.ComboBox" Then
-    '            Me.Cursor = Cursors.Hand
-    '            Me.Refresh()
-
-    '            Dim cmb As ComboBox = DirectCast(sender, ComboBox)
-    '            Static LastCursor As Point
-    '            Dim NowCursor As Point = GetCursorPosition()
-    '            ' get the screen position of the mouse pointer and map it
-    '            ' to the position relative to the top-left corner of our
-    '            If Point.op_Inequality(NowCursor, BeginLocation) Then
-    '                cmb.Location = New System.Drawing.Point(NowCursor.X - BeginLocation.X,
-    '                                             NowCursor.Y - BeginLocation.Y)
-    '            End If
-    '        End If
-    '    Catch ex As Exception
-    '        ' MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Movablecmb_MouseMove")
-    '        MouseMoving = False
-    '    End Try
-
-
-    'End Sub
-
-    ''End Sub
-    'Private Sub dgv_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove
-    '    'Check which mode we're in. If we're supposed to be moving
-    '    'our control
-    '    If CURRENT_CONTROL Is Nothing Then
-    '        Exit Sub
-    '    End If
-    '    Try
-    '        If MouseMoving = True And sender.ToString <> "DD_PM_WINDREAM.frmFormDesigner, Text: Validation-Designer" And CURRENT_CONTROL.GetType.ToString = "System.Windows.Forms.DataGridView" Then
-    '            Me.Cursor = Cursors.Hand
-    '            Me.Refresh()
-
-    '            Dim dgv As DataGridView = DirectCast(sender, DataGridView)
-    '            Static LastCursor As Point
-    '            Dim NowCursor As Point = New Point(Cursor.Position.X, Cursor.Position.Y)
-    '            ' get the screen position of the mouse pointer and map it
-    '            ' to the position relative to the top-left corner of our
-    '            ' parent container
-    '            Dim clientPosition As Point = Me.pnldesigner.PointToClient(System.Windows.Forms.Cursor.Position)
-    '            If Point.op_Inequality(NowCursor, LastCursor) Then
-    '                dgv.Location = New System.Drawing.Point(clientPosition.X - BeginLocation.X, clientPosition.Y - BeginLocation.Y)
-    '            End If
-    '        End If
-    '    Catch ex As Exception
-    '        '   MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Movablecmb_MouseMove")
-    '        MouseMoving = False
-    '    End Try
-
-
-    'End Sub
 
     Private Sub btnsave_Click(sender As System.Object, e As System.EventArgs) Handles btnsave.Click
         Save_Control()
@@ -1311,40 +1089,10 @@
         End If
     End Sub
 
-    Private Sub CTRL_TEXTTextBox_LostFocus(sender As Object, e As System.EventArgs) Handles CTRL_TEXTTextBox.LostFocus
-        Try
-            Dim type As String = CURRENT_CONTROL.GetType.ToString
-            If type.Contains("Label") Then
-                TBPM_PROFILE_CONTROLSBindingSource.EndEdit()
-            End If
-        Catch ex As Exception
-            MsgBox("Fehler bei CTRL_TEXTTextBox.LostFocus:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
-        End Try
-        If CURRENT_CONTROL.Text <> CTRL_TEXTTextBox.Text Then
-            CURRENT_CONTROL.Text = CTRL_TEXTTextBox.Text
-            CTRL_TEXTTextBox.Text = CURRENT_CONTROL.Text
-            Save_Control()
-        End If
-    End Sub
-    Private Sub NAMETextBox_LostFocus(sender As Object, e As System.EventArgs) Handles NAMETextBox.LostFocus
-        Try
-            Dim type As String = CURRENT_CONTROL.GetType.ToString
-            If type.Contains("TextBox") Then
-                TBPM_PROFILE_CONTROLSBindingSource.EndEdit()
-            End If
-        Catch ex As Exception
-            MsgBox("Fehler bei NAMETextBox.LostFocus:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
-        End Try
-        If CURRENT_CONTROL.Name <> NAMETextBox.Text Then
-            Save_Control()
-        End If
-    End Sub
-
     Private Sub btnwidth_plus_Click(sender As System.Object, e As System.EventArgs) Handles btnwidth_plus.Click
         If CURRENT_CONTROL Is Nothing = False Then
             CURRENT_CONTROL.Size = New Size(CURRENT_CONTROL.Width + 5, CURRENT_CONTROL.Height)
-            WIDTHTextBox.Text = CURRENT_CONTROL.Size.Width
+            UpdateSingleValue("WIDTH", CURRENT_CONTROL.Size.Width)
-            Save_Control()
         End If
 
     End Sub
@@ -1352,36 +1100,31 @@
     Private Sub btnwidth_minus_Click(sender As System.Object, e As System.EventArgs) Handles btnwidth_minus.Click
         If CURRENT_CONTROL Is Nothing = False Then
             CURRENT_CONTROL.Size = New Size(CURRENT_CONTROL.Width - 5, CURRENT_CONTROL.Height)
-            WIDTHTextBox.Text = CURRENT_CONTROL.Size.Width
+            UpdateSingleValue("WIDTH", CURRENT_CONTROL.Size.Width)
-            Save_Control()
         End If
     End Sub
 
     Private Sub btnheight_plus_Click(sender As System.Object, e As System.EventArgs) Handles btnheight_plus.Click
         If CURRENT_CONTROL Is Nothing = False Then
-            Dim height As Integer = CURRENT_CONTROL.Height
+            Dim newHeight As Integer = CURRENT_CONTROL.Height + 5
-            height += 5
+
-            If height > 21 Then
+            If newHeight > 21 And TypeOf CURRENT_CONTROL Is TextBox Then
-                Dim txt As TextBox = DirectCast(CURRENT_CONTROL, TextBox)
+                DirectCast(CURRENT_CONTROL, TextBox).Multiline = True
-                txt.Multiline = True
             End If
-            CURRENT_CONTROL.Size = New Size(CURRENT_CONTROL.Width, height)
+            CURRENT_CONTROL.Size = New Size(CURRENT_CONTROL.Width, newHeight)
-            HEIGHTTextBox.Text = height
+            UpdateSingleValue("WIDTH", newHeight)
-            Save_Control()
         End If
     End Sub
 
     Private Sub btnheight_minus_Click(sender As System.Object, e As System.EventArgs) Handles btnheight_minus.Click
         If CURRENT_CONTROL Is Nothing = False Then
-            Dim height As Integer = CURRENT_CONTROL.Height
+            Dim newHeight As Integer = CURRENT_CONTROL.Height - 5
-            height -= 5
+
-            If height < 22 Then
+            If newHeight < 22 And TypeOf CURRENT_CONTROL Is TextBox Then
-                Dim txt As TextBox = DirectCast(CURRENT_CONTROL, TextBox)
+                DirectCast(CURRENT_CONTROL, TextBox).Multiline = True
-                txt.Multiline = False
             End If
-            CURRENT_CONTROL.Size = New Size(CURRENT_CONTROL.Width, height)
+            CURRENT_CONTROL.Size = New Size(CURRENT_CONTROL.Width, newHeight)
-            HEIGHTTextBox.Text = height
+            UpdateSingleValue("WIDTH", newHeight)
-            Save_Control()
         End If
     End Sub
 
@@ -1507,21 +1250,7 @@
         AddHandler control.MouseMove, AddressOf OnControl_MouseMove
     End Sub
 
-    ''' <summary>
+
-    ''' Weist die grundlegenden Eigenschaften zu einem Properties Objekt zu
-    ''' Die Properties werden an das Property Grid weitergegeben
-    ''' </summary>
-    ''' <param name="obj">Das grundlegende Properties Objekt</param>
-    ''' <param name="row">Die DataRow, die die Eigenschaften des Controls enthält</param>
-    ''' <returns>Das gefüllt Properties Objekt</returns>
-    Private Function CreatePropsObject(obj As BaseProperties, row As DataRow)
-        obj.ID = row.Item("GUID")
-        obj.Location = New Point(row.Item("X_LOC"), row.Item("Y_LOC"))
-        obj.Name = row.Item("NAME")
-        obj.Width = row.Item("WIDTH")
-        obj.Height = row.Item("HEIGHT")
-        Return obj
-    End Function
 
     Private Sub OnControl_MouseDown(sender As Control, e As MouseEventArgs)
         If e.Button = MouseButtons.Left Then
@@ -1529,6 +1258,8 @@
             BeginLocation = e.Location
             sender.BringToFront()
             MouseMoving = True
+
+            Console.WriteLine("CURRENT_CONTROL:" & CURRENT_CONTROL.Name)
         End If
     End Sub
 
@@ -1537,10 +1268,13 @@
             MouseMoving = False
             EndLocation = e.Location
 
-            If CURRENT_CONTROL.Location.X <> X_LOCTextBox.Text Or CURRENT_CONTROL.Location.Y <> Y_LOCTextBox.Text Then
+            Dim CurrentPosition As Point = DirectCast(pgControls.SelectedObject, BaseProperties).Location
-                X_LOCTextBox.Text = CURRENT_CONTROL.Location.X
+
-                Y_LOCTextBox.Text = CURRENT_CONTROL.Location.Y
+            If Point.op_Inequality(CurrentPosition, EndLocation) Then
-                Save_Control()
+                DirectCast(pgControls.SelectedObject, BaseProperties).Location = CURRENT_CONTROL.Location
+
+                UpdateSingleValue("X_LOC", CURRENT_CONTROL.Location.X)
+                UpdateSingleValue("Y_LOC", CURRENT_CONTROL.Location.Y)
             End If
         End If
 
@@ -1548,22 +1282,71 @@
     End Sub
 
     Private Sub OnControl_MouseMove(sender As Control, e As MouseEventArgs)
-        If CURRENT_CONTROL Is Nothing Then
+        Try
-            Exit Sub
+            If CURRENT_CONTROL Is Nothing Then
-        End If
+                Exit Sub
-
-        If MouseMoving Then
-            Cursor = Cursors.Hand
-            Refresh()
-
-            Dim CurrentPosition As Point = GetCursorPosition()
-
-            If Point.op_Inequality(CurrentPosition, BeginLocation) Then
-                CURRENT_CONTROL.Location = New Point(CurrentPosition.X - BeginLocation.X, CurrentPosition.Y - BeginLocation.Y)
             End If
-        End If
+
+            If MouseMoving Then
+                Cursor = Cursors.Hand
+                Refresh()
+
+                Dim CurrentPosition As Point = GetCursorPosition()
+
+                If Point.op_Inequality(CurrentPosition, BeginLocation) Then
+                    CURRENT_CONTROL.Location = New Point(CurrentPosition.X - BeginLocation.X, CurrentPosition.Y - BeginLocation.Y)
+                End If
+            End If
+        Catch ex As Exception
+            MouseMoving = False
+        End Try
     End Sub
 
+    ''' <summary>
+    ''' Weist die grundlegenden Eigenschaften zu einem Properties Objekt zu
+    ''' Die Properties werden an das Property Grid weitergegeben
+    ''' </summary>
+    ''' <param name="obj">Das grundlegende Properties Objekt</param>
+    ''' <param name="row">Die DataRow, die die Eigenschaften des Controls enthält</param>
+    ''' <returns>Das gefüllt Properties Objekt</returns>
+    Private Function CreatePropsObject(obj As BaseProperties, row As DataRow, Optional indicies As List(Of String) = Nothing)
+        obj.ID = row.Item("GUID")
+        obj.Location = New Point(row.Item("X_LOC"), row.Item("Y_LOC"))
+        obj.Name = row.Item("NAME")
+        obj.Size = New Size(row.Item("WIDTH"), row.Item("HEIGHT"))
+
+        Dim style As FontStyle = NotNull(row.Item("FONT_STYLE"), FontStyle.Regular)
+        Dim size As Single = NotNull(row.Item("FONT_SIZE"), 10)
+        Dim familyString As String = NotNull(row.Item("FONT_FAMILY"), "Arial")
+        Dim family As FontFamily = New FontFamily(familyString)
+
+        obj.Font = New Font(family, size, style)
+
+        Dim color As Integer = NotNull(row.Item("FONT_COLOR"), 0)
+
+        obj.TextColor = IntToColor(color)
+        Return obj
+    End Function
+
+    ''' <summary>
+    ''' Funktioniert wie CreatePropsObject mit dem Unterschied, dass zusätzlich noch eine Liste von Indicies übergeben wird
+    ''' Diese können dann im PropertyGrid angezeigt und ausgewählt werden.
+    ''' Außerdem werden noch einige Eigenschaften gesetzt, die alle Controls (außer reine Anzeige-Controls) haben
+    ''' </summary>
+    ''' <param name="obj">Das grundlegende Properties Objekt</param>
+    ''' <param name="row">Die DataRow, die die Eigenschaften des Controls enthält</param>
+    ''' <param name="indicies">Eine Liste von Indicies</param>
+    ''' <returns>Das gefüllt Properties Objekt</returns>
+    Private Function CreatePropsObjectWithIndicies(obj As InputProperties, row As DataRow, indicies As List(Of String))
+        obj = CreatePropsObject(obj, row)
+        obj.Indicies = indicies
+        obj.ReadOnly = StrToBool(row.Item("READ_ONLY"))
+        obj.Required = StrToBool(row.Item("VALIDATION"))
+        obj.Index = NotNull(row.Item("INDEX_NAME"), "")
+        obj.SQLCommand = New InputProperties.SQLValue(row.Item("SQL_UEBERPRUEFUNG"))
+        Return obj
+    End Function
+
     Private Sub OnControl_Click(sender As Control, e As MouseEventArgs)
         Dim props
         Dim dt As DataTable = DD_DMSLiteDataSet.TBPM_PROFILE_CONTROLS
@@ -1572,8 +1355,15 @@
                                           End Function).Single()
 
         CURRENT_CONTROL = sender
+        CURRENT_CONTROL_ID = sender.Tag
+
+        Set_Active_Color()
+
         gbxControl.Visible = True
 
+        Dim indicies As List(Of String) = _windreamPM.GetIndicesByObjecttype(CURRENT_OBJECTTYPE).ToList()
+        Dim choiceLists As List(Of String) = DD_LIB_Standards.clsWD_GET.GetChoiceLists()
+
         If TypeOf sender Is Label Then
             Dim label As Label = sender
             Dim labelProps As LabelProperties = CreatePropsObject(New LabelProperties, row)
@@ -1582,21 +1372,137 @@
             props = labelProps
         ElseIf TypeOf sender Is CheckBox Then
             Dim check As CheckBox = sender
-            Dim checkProps As CheckboxProperties = CreatePropsObject(New CheckboxProperties, row)
+            Dim checkProps As CheckboxProperties = CreatePropsObjectWithIndicies(New CheckboxProperties, row, indicies)
             checkProps.Text = check.Text
 
             props = checkProps
         ElseIf TypeOf sender Is TextBox Then
             Dim txt As TextBox = sender
-            Dim txtProps As TextboxProperties = CreatePropsObject(New TextboxProperties, row)
+            Dim txtProps As TextboxProperties = CreatePropsObjectWithIndicies(New TextboxProperties, row, indicies)
-
-            txtProps.ReadOnly = row.Item("READ_ONLY")
-            txtProps.Required = row.Item("VALIDATION")
 
             props = txtProps
+
+        ElseIf TypeOf sender Is ComboBox Then
+            Dim cmb As ComboBox = sender
+            Dim cmbProps As ComboboxProperties = CreatePropsObjectWithIndicies(New ComboboxProperties, row, indicies)
+            cmbProps.ChoiceLists = choiceLists
+            cmbProps.ChoiceList = NotNull(row.Item("CHOICE_LIST"), "")
+
+            props = cmbProps
+
+        ElseIf TypeOf sender Is DateTimePicker Then
+            Dim dtp As DateTimePicker = sender
+            Dim dtpProps As DatepickerProperties = CreatePropsObjectWithIndicies(New DatepickerProperties, row, indicies)
+
+            props = dtpProps
+        ElseIf TypeOf sender Is DataGridView Then
+            Dim grid As DataGridView = sender
+            Dim gridProps As GridViewProperties = CreatePropsObjectWithIndicies(New GridViewProperties, row, indicies)
+
+            props = gridProps
+        Else
+            MsgBox("This is not a supported control type!")
+            Exit Sub
         End If
 
         pgControls.SelectedObject = props
     End Sub
+
+    Private Sub pgControls_PropertyValueChanged(s As Object, e As PropertyValueChangedEventArgs) Handles pgControls.PropertyValueChanged
+        Dim oldValue As Object = e.OldValue
+        Dim newValue As Object = e.ChangedItem.Value
+        Dim prop As String = e.ChangedItem.Label
+
+        Select Case prop
+            Case "Location"
+                UpdateSingleValue("X_LOC", DirectCast(newValue, Point).X)
+                UpdateSingleValue("Y_LOC", DirectCast(newValue, Point).Y)
+
+                CURRENT_CONTROL.Location = newValue
+
+            Case "X"
+                UpdateSingleValue("X_LOC", CInt(newValue))
+
+                CURRENT_CONTROL.Location = New Point(newValue, CURRENT_CONTROL.Location.Y)
+
+            Case "Y"
+                UpdateSingleValue("Y_LOC", CInt(newValue))
+
+                CURRENT_CONTROL.Location = New Point(CURRENT_CONTROL.Location.X, newValue)
+
+            Case "Size"
+                UpdateSingleValue("WIDTH", DirectCast(newValue, Size).Width)
+                UpdateSingleValue("HEIGHT", DirectCast(newValue, Size).Height)
+
+                CURRENT_CONTROL.Size = newValue
+
+            Case "Width"
+                UpdateSingleValue("WIDTH", DirectCast(newValue, Size).Width)
+
+                CURRENT_CONTROL.Size = New Size(newValue, CURRENT_CONTROL.Size.Height)
+
+            Case "Height"
+                UpdateSingleValue("HEIGHT", DirectCast(newValue, Size).Height)
+
+                CURRENT_CONTROL.Size = New Size(CURRENT_CONTROL.Size.Width, newValue)
+
+            Case "Name"
+                UpdateSingleValue("NAME", newValue)
+
+                CURRENT_CONTROL.Name = newValue
+
+            Case "Index"
+                UpdateSingleValue("INDEX_NAME", newValue)
+
+            Case "Text"
+                UpdateSingleValue("CTRL_TEXT", newValue)
+
+                CURRENT_CONTROL.Text = newValue
+
+            Case "Required"
+                UpdateSingleValue("VALIDATION", IIf(newValue = True, 1, 0))
+
+            Case "ReadOnly"
+                UpdateSingleValue("READ_ONLY", IIf(newValue = True, 1, 0))
+
+            Case "Font"
+                Dim font As Font = newValue
+                Dim fontSize As Integer = Math.Truncate(font.SizeInPoints)
+                UpdateSingleValue("FONT_SIZE", fontSize)
+                UpdateSingleValue("FONT_FAMILY", font.FontFamily.Name)
+                UpdateSingleValue("FONT_STYLE", font.Style.ToString)
+
+                CURRENT_CONTROL.Font = font
+            Case "TextColor"
+                Dim color As Color = newValue
+                UpdateSingleValue("FONT_COLOR", ColorToInt(color))
+
+                CURRENT_CONTROL.ForeColor = color
+            Case "SQLCommand"
+                UpdateSingleValue("SQL_UEBERPRUEFUNG", newValue)
+                UpdateSingleValue("CHOICE_LIST", "")
+
+            Case "ChoiceList"
+                UpdateSingleValue("CHOICE_LIST", newValue)
+                UpdateSingleValue("SQL_UEBERPRUEFUNG", "")
+        End Select
+    End Sub
+
+    Private Sub UpdateSingleValue(columnName As String, value As Object)
+        Dim guid As Integer = CURRENT_CONTROL_ID
+        Dim escapedValue = value
+
+        If TypeOf value Is String Then
+            escapedValue = $"'{value}'"
+        ElseIf TypeOf value Is InputProperties.SQLValue Then
+            Dim v As InputProperties.SQLValue = value
+            escapedValue = $"'{v.Value.Replace("'", "''")}'"
+        End If
+
+        ClassDatabase.Execute_non_Query($"UPDATE TBPM_PROFILE_CONTROLS SET {columnName} = {escapedValue} WHERE GUID = {guid}")
+
+        tslblAenderungen.Visible = True
+        tslblAenderungen.Text = "Änderungen gespeichert - " & Now
+    End Sub
 #End Region
 End Class

app/DD_PM_WINDREAM/frmSQL_DESIGNER.Designer.vb

@@ -256,6 +256,7 @@ Partial Class frmSQL_DESIGNER
         '
         'btnSaveSQLCommand
         '
+        Me.btnSaveSQLCommand.DialogResult = System.Windows.Forms.DialogResult.OK
         Me.btnSaveSQLCommand.Image = CType(resources.GetObject("btnSaveSQLCommand.Image"), System.Drawing.Image)
         Me.btnSaveSQLCommand.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
         Me.btnSaveSQLCommand.Location = New System.Drawing.Point(818, 513)

app/DD_PM_WINDREAM/frmSQL_DESIGNER.resx

@@ -153,10 +153,10 @@
   </data>
   <data name="btnAddIndex.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
-        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
-        YQUAAAAJcEhZcwAADsQAAA7EAZUrDhsAAABcSURBVDhPzYxRCoAwDEN3tt7/PP2NWDrJaoRNYRh4H0uX
+        xAAADsQBlSsOGwAAAFxJREFUOE/NjFEKgDAMQ3e23v88/Y1YOslqhE1hGHgfS5fXAHxCliuMD4q7o5Kn
-        1wB8QpYrjA+Ku6OSp8iUwMwu9gjOT0wVMH1zE/DoiZ8LmDpi+mYQcJQgT5E9gkqeIlLwBlmuIMt50A4j
+        yJTAzC72CM5PTBUwfXMT8OiJnwuYOmL6ZhBwlCBPkT2CSp4iUvAGWa4gy3nQDiNEflNl/3oXAAAAAElF
-        RH5TZf96FwAAAABJRU5ErkJggg==
+        TkSuQmCC
 </value>
   </data>
   <data name="btnSaveSQLCommand.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
@@ -168,10 +168,10 @@
   </data>
   <data name="btnAddControl.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
-        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
-        YQUAAAAJcEhZcwAADsQAAA7EAZUrDhsAAABcSURBVDhPzYxRCoAwDEN3tt7/PP2NWDrJaoRNYRh4H0uX
+        xAAADsQBlSsOGwAAAFxJREFUOE/NjFEKgDAMQ3e23v88/Y1YOslqhE1hGHgfS5fXAHxCliuMD4q7o5Kn
-        1wB8QpYrjA+Ku6OSp8iUwMwu9gjOT0wVMH1zE/DoiZ8LmDpi+mYQcJQgT5E9gkqeIlLwBlmuIMt50A4j
+        yJTAzC72CM5PTBUwfXMT8OiJnwuYOmL6ZhBwlCBPkT2CSp4iUvAGWa4gy3nQDiNEflNl/3oXAAAAAElF
-        RH5TZf96FwAAAABJRU5ErkJggg==
+        TkSuQmCC
 </value>
   </data>
   <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">

app/DD_PM_WINDREAM/frmSQL_DESIGNER.vb

@@ -5,21 +5,27 @@ Public Class frmSQL_DESIGNER
     Private _windreamPM As ClassPMWindream
 
     Private Sub TBPM_PROFILE_FINAL_INDEXINGBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs)
-        Me.Validate()
+        Validate()
-        Me.TBPM_PROFILE_FINAL_INDEXINGBindingSource.EndEdit()
+        TBPM_PROFILE_FINAL_INDEXINGBindingSource.EndEdit()
-        Me.TableAdapterManager.UpdateAll(Me.DD_DMSLiteDataSet)
+        TableAdapterManager.UpdateAll(Me.DD_DMSLiteDataSet)
 
     End Sub
     Private Sub frmSQL_FINAL_INDICES_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         Try
             lblSaveFinalIndex.Visible = False
-            'TODO: Diese Codezeile lädt Daten in die Tabelle "DD_DMSLiteDataSet.TBPM_CONNECTION". Sie können sie bei Bedarf verschieben oder entfernen.
+            TBPM_CONNECTIONTableAdapter.Connection.ConnectionString = MyConnectionString
-            Me.TBPM_CONNECTIONTableAdapter.Connection.ConnectionString = MyConnectionString
+            TBPM_CONNECTIONTableAdapter.Fill(DD_DMSLiteDataSet.TBPM_CONNECTION)
-            Me.TBPM_CONNECTIONTableAdapter.Fill(Me.DD_DMSLiteDataSet.TBPM_CONNECTION)
+            TBPM_PROFILE_FINAL_INDEXINGTableAdapter.Connection.ConnectionString = MyConnectionString
-            Me.TBPM_PROFILE_FINAL_INDEXINGTableAdapter.Connection.ConnectionString = MyConnectionString
+
-            cmbConnection.SelectedValue = CURRENT_DT_SQL_CONFIG_TABLE.Rows(0).Item("CONNECTION_ID")
+            CURRENT_DT_SQL_CONFIG_TABLE = ClassDatabase.Return_Datatable(String.Format("SELECT T.CONNECTION_ID,T1.BEZEICHNUNG AS 'CON_STRING',ISNULL(T.SQL_UEBERPRUEFUNG,'') AS 'SQL_COMMAND' FROM TBPM_PROFILE_CONTROLS T, TBPM_CONNECTION T1 WHERE T.CONNECTION_ID = T1.GUID AND T.GUID = {0}", CURRENT_CONTROL_ID), True)
-            cmbConnection.FindStringExact(CURRENT_DT_SQL_CONFIG_TABLE.Rows(0).Item("CON_STRING"))
+
-            SQL_COMMANDTextBox.Text = CURRENT_DT_SQL_CONFIG_TABLE.Rows(0).Item("SQL_COMMAND")
+            If CURRENT_DT_SQL_CONFIG_TABLE.Rows.Count > 0 Then
+                cmbConnection.SelectedValue = CURRENT_DT_SQL_CONFIG_TABLE.Rows(0).Item("CONNECTION_ID")
+                cmbConnection.FindStringExact(CURRENT_DT_SQL_CONFIG_TABLE.Rows(0).Item("CON_STRING"))
+                SQL_COMMANDTextBox.Text = CURRENT_DT_SQL_CONFIG_TABLE.Rows(0).Item("SQL_COMMAND")
+            Else
+                SQL_COMMANDTextBox.Text = String.Empty
+            End If
             Try
                 ' Windream instanziieren
                 _windreamPM = New ClassPMWindream()
@@ -211,7 +217,7 @@ Public Class frmSQL_DESIGNER
             Else
                 lblSaveFinalIndex.Visible = False
             End If
-
+            Me.Value = SQL_COMMANDTextBox.Text
         End If
     End Sub