jj: Neues Control Linie, form Designer entschlacken

app/DD_PM_WINDREAM/ClassControlCreator.vb

@@ -15,13 +15,14 @@ Public Class ClassControlCreator
     Private Const DEFAULT_HEIGHT As Integer = 20
     Private Const DEFAULT_HEIGHT_TABLE As Integer = 150
 
-    Private Const PREFIX_TEXTBOX = "TXT"
+    Public Const PREFIX_TEXTBOX = "TXT"
-    Private Const PREFIX_LABEL = "LBL"
+    Public Const PREFIX_LABEL = "LBL"
-    Private Const PREFIX_CHECKBOX = "CHK"
+    Public Const PREFIX_CHECKBOX = "CHK"
-    Private Const PREFIX_COMBOBOX = "CMB"
+    Public Const PREFIX_COMBOBOX = "CMB"
-    Private Const PREFIX_DATETIMEPICKER = "DTP"
+    Public Const PREFIX_DATETIMEPICKER = "DTP"
-    Private Const PREFIX_DATAGRIDVIEW = "DGV"
+    Public Const PREFIX_DATAGRIDVIEW = "DGV"
-    Private Const PREFIX_TABLE = "TB"
+    Public Const PREFIX_TABLE = "TB"
+    Public Const PREFIX_LINE = "LINE"
 
     ''' <summary>
     ''' Standard Eigenschaften für alle Controls
@@ -57,7 +58,7 @@ Public Class ClassControlCreator
         }
     End Function
 
-    Public Shared Function CreateBaseControl(ctrl As Control, row As DataRow) As Control
+    Public Shared Function CreateBaseControl(ctrl As Control, row As DataRow, designMode As Boolean) As Control
         Dim props As ControlDBProps = TransformDataRow(row)
 
         ctrl.Tag = props.Guid
@@ -66,6 +67,10 @@ Public Class ClassControlCreator
         ctrl.Font = props.Font
         ctrl.ForeColor = props.Color
 
+        If designMode Then
+            ctrl.Cursor = Cursors.Hand
+        End If
+
         Return ctrl
     End Function
 
@@ -155,6 +160,7 @@ Public Class ClassControlCreator
             .Name = $"{PREFIX_TABLE}_{clsTools.ShortGUID}",
             .Size = New Size(DEFAULT_WIDTH, DEFAULT_HEIGHT_TABLE),
             .Cursor = Cursors.Hand,
+            .Location = location,
             .AllowUserToAddRows = False,
             .AllowUserToDeleteRows = False,
             .AllowUserToResizeColumns = False,
@@ -174,13 +180,22 @@ Public Class ClassControlCreator
         Return control
     End Function
 
+    Public Shared Function CreateNewLine(location As Point) As LineLabel
+        Dim control As New LineLabel With {
+            .Name = $"{PREFIX_LINE}_{clsTools.ShortGUID}",
+            .Text = "---------------------------------",
+            .Location = location
+        }
+
+        Return control
+    End Function
+
     ' ----------------------- EXISITING CONTROLS -----------------------
 
     Public Shared Function CreateExistingTextbox(row As DataRow, designMode As Boolean) As TextBox
-        Dim control As TextBox = CreateBaseControl(New TextBox(), row)
+        Dim control As TextBox = CreateBaseControl(New TextBox(), row, designMode)
 
         control.BackColor = Color.White
-        control.Cursor = Cursors.Hand
 
         If row.Item("HEIGHT") > 27 Then
             control.Multiline = True
@@ -202,19 +217,17 @@ Public Class ClassControlCreator
     End Function
 
     Public Shared Function CreateExistingLabel(row As DataRow, designMode As Boolean) As Label
-        Dim control As Label = CreateBaseControl(New Label(), row)
+        Dim control As Label = CreateBaseControl(New Label(), row, designMode)
 
         control.Text = row.Item("CTRL_TEXT")
         control.AutoSize = True
-        control.Cursor = Cursors.Hand
 
         Return control
     End Function
 
     Public Shared Function CreateExistingCombobox(row As DataRow, designMode As Boolean) As ComboBox
-        Dim control As ComboBox = CreateBaseControl(New ComboBox(), row)
+        Dim control As ComboBox = CreateBaseControl(New ComboBox(), row, designMode)
 
-        control.Cursor = Cursors.Hand
         control.Size = New Size(row.Item("WIDTH"), row.Item("HEIGHT"))
 
         If Not designMode Then
@@ -230,9 +243,8 @@ Public Class ClassControlCreator
     End Function
 
     Public Shared Function CreateExistingDatepicker(row As DataRow, designMode As Boolean) As DateTimePicker
-        Dim control As DateTimePicker = CreateBaseControl(New DateTimePicker(), row)
+        Dim control As DateTimePicker = CreateBaseControl(New DateTimePicker(), row, designMode)
 
-        control.Cursor = Cursors.Hand
         control.Size = New Size(row.Item("WIDTH"), row.Item("HEIGHT"))
         control.Format = DateTimePickerFormat.Short
 
@@ -245,20 +257,18 @@ Public Class ClassControlCreator
     End Function
 
     Public Shared Function CreateExisingCheckbox(row As DataRow, designMode As Boolean) As CheckBox
-        Dim control As CheckBox = CreateBaseControl(New CheckBox(), row)
+        Dim control As CheckBox = CreateBaseControl(New CheckBox(), row, designMode)
 
         control.AutoSize = True
         control.Text = row.Item("CTRL_TEXT")
-        control.Cursor = Cursors.Hand
 
         Return control
     End Function
 
     Public Shared Function CreateExistingDataGridView(row As DataRow, designMode As Boolean) As DataGridView
-        Dim control As DataGridView = CreateBaseControl(New DataGridView(), row)
+        Dim control As DataGridView = CreateBaseControl(New DataGridView(), row, designMode)
 
         control.Size = New Size(row.Item("WIDTH"), row.Item("HEIGHT"))
-        control.Cursor = Cursors.Hand
         control.AllowUserToAddRows = False
         control.AllowUserToDeleteRows = False
         control.AllowUserToResizeColumns = False
@@ -275,10 +285,9 @@ Public Class ClassControlCreator
     End Function
 
     Public Shared Function CreateExistingTable(row As DataRow, columns As List(Of DD_DMSLiteDataSet.TBPM_CONTROL_TABLERow), designMode As Boolean) As DataGridView
-        Dim control As DataGridView = CreateBaseControl(New DataGridView(), row)
+        Dim control As DataGridView = CreateBaseControl(New DataGridView(), row, designMode)
 
         control.Size = New Size(row.Item("WIDTH"), row.Item("HEIGHT"))
-        control.Cursor = Cursors.Hand
         control.AllowUserToAddRows = False
         control.AllowUserToDeleteRows = False
         control.AllowUserToResizeColumns = False
@@ -297,4 +306,31 @@ Public Class ClassControlCreator
         Return control
     End Function
 
+    Public Shared Function CreateExistingLine(row As DataRow, designMode As Boolean) As LineLabel
+        Dim control As LineLabel = CreateBaseControl(New LineLabel(), row, designMode)
+        control.Text = "------------------------------"
+        control.BorderStyle = BorderStyle.None
+        control.AutoSize = False
+        control.BackColor = IntToColor(NotNull(row.Item("FONT_COLOR"), DEFAULT_COLOR))
+        control.Size = New Size(row.Item("WIDTH"), row.Item("HEIGHT"))
+
+        Return control
+    End Function
+
+
+    ' ----------------------- CUSTOM LABEL/LINE CLASS ----------------------- 
+
+    Public Class LineLabel
+        Inherits Label
+
+        Protected Overrides Sub OnPaint(e As PaintEventArgs)
+            'MyBase.OnPaint(e)
+
+            Dim size As New Size(e.ClipRectangle.Width, 2)
+            Dim rect As New Rectangle(New Point(0, 0), size)
+
+            'ControlPaint.DrawBorder(e.Graphics, rect, Me.ForeColor, ButtonBorderStyle.Solid)
+            e.Graphics.DrawLine(New Pen(ForeColor, 100), New Point(0, 0), New Point(e.ClipRectangle.Width, 2))
+        End Sub
+    End Class
 End Class

app/DD_PM_WINDREAM/ModuleControlProperties.vb

@@ -77,13 +77,21 @@ Public Module ModuleControlProperties
                 Return _size
             End Get
             Set(value As Size)
+                If (value.Height <= 0) Then
+                    value.Height = 1
+                End If
+
+                If (value.Width <= 20) Then
+                    value.Width = 20
+                End If
+
                 _size = value
             End Set
         End Property
 
         <Category("Anzeige")>
         <TypeConverter(GetType(FontConverter))>
-        Public Property Font As Font
+        Public Overridable Property Font As Font
             Get
                 Return _font
             End Get
@@ -350,4 +358,17 @@ Public Module ModuleControlProperties
     Public Class GridViewProperties
         Inherits InputProperties
     End Class
+
+    Public Class LineLabelProperties
+        Inherits BaseProperties
+
+        <Browsable(False)>
+        Public Overrides Property Font As Font
+            Get
+                Return Nothing
+            End Get
+            Set(value As Font)
+            End Set
+        End Property
+    End Class
 End Module

app/DD_PM_WINDREAM/frmFormDesigner.Designer.vb

@@ -1,9 +1,9 @@
-<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
 Partial Class frmFormDesigner
     Inherits System.Windows.Forms.Form
 
     'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
-    <System.Diagnostics.DebuggerNonUserCode()> _
+    <System.Diagnostics.DebuggerNonUserCode()>
     Protected Overrides Sub Dispose(ByVal disposing As Boolean)
         Try
             If disposing AndAlso components IsNot Nothing Then
@@ -20,15 +20,12 @@ Partial Class frmFormDesigner
     'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
     'Das Bearbeiten ist mit dem Windows Form-Designer möglich.  
     'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
-    <System.Diagnostics.DebuggerStepThrough()> _
+    <System.Diagnostics.DebuggerStepThrough()>
     Private Sub InitializeComponent()
         Me.components = New System.ComponentModel.Container()
-        Dim CHANGED_WHOLabel As System.Windows.Forms.Label
-        Dim CHANGED_WHENLabel 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.btnLine = New System.Windows.Forms.Button()
         Me.btnTabelle = New System.Windows.Forms.Button()
         Me.btnCheckbox = New System.Windows.Forms.Button()
         Me.btnVektor = New System.Windows.Forms.Button()
@@ -39,7 +36,6 @@ Partial Class frmFormDesigner
         Me.pnldesigner = New System.Windows.Forms.Panel()
         Me.Label1 = New System.Windows.Forms.Label()
         Me.lblhintergrund = New System.Windows.Forms.Label()
-        Me.gbxControl = New System.Windows.Forms.GroupBox()
         Me.TabControlEigenschaften = New System.Windows.Forms.TabControl()
         Me.pageProperties = New System.Windows.Forms.TabPage()
         Me.pgControls = New System.Windows.Forms.PropertyGrid()
@@ -50,40 +46,12 @@ Partial Class frmFormDesigner
         Me.Label2 = New System.Windows.Forms.Label()
         Me.btnwidth_minus = New System.Windows.Forms.Button()
         Me.btnwidth_plus = New System.Windows.Forms.Button()
-        Me.pageSQL = 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.TBPM_PROFILE_CONTROLSBindingSource = New System.Windows.Forms.BindingSource(Me.components)
         Me.DD_DMSLiteDataSet = New DD_PM_WINDREAM.DD_DMSLiteDataSet()
-        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.pagePropertiesOld = New System.Windows.Forms.TabPage()
-        Me.LOAD_IDX_VALUECheckBox = New System.Windows.Forms.CheckBox()
-        Me.READ_ONLYCheckBox = New System.Windows.Forms.CheckBox()
-        Me.INDEX_NAME_VALUE = New System.Windows.Forms.TextBox()
-        Me.rbVektor = New System.Windows.Forms.RadioButton()
-        Me.rbIndex = New System.Windows.Forms.RadioButton()
-        Me.lblCtrlName = New System.Windows.Forms.Label()
-        Me.CHOICE_LISTTextBox = New System.Windows.Forms.TextBox()
-        Me.lblBeschriftung = New System.Windows.Forms.Label()
-        Me.VALIDATIONCheckBox = New System.Windows.Forms.CheckBox()
-        Me.lblIndex = New System.Windows.Forms.Label()
-        Me.CTRL_TEXTTextBox = New System.Windows.Forms.TextBox()
-        Me.cmbIndex = New System.Windows.Forms.ComboBox()
-        Me.NAMETextBox = New System.Windows.Forms.TextBox()
-        Me.CheckBoxAuswahlliste = New System.Windows.Forms.CheckBox()
-        Me.lblAuswahlliste = New System.Windows.Forms.Label()
-        Me.INDEX_NAMETextBox = New System.Windows.Forms.TextBox()
         Me.btndelete = New System.Windows.Forms.Button()
-        Me.btnsave = New System.Windows.Forms.Button()
-        Me.CHANGED_WHOTextBox = New System.Windows.Forms.TextBox()
         Me.StatusStrip1 = New System.Windows.Forms.StatusStrip()
         Me.tslblAenderungen = New System.Windows.Forms.ToolStripStatusLabel()
-        Me.CHANGED_WHENTextBox = New System.Windows.Forms.TextBox()
         Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components)
         Me.btnrefresh = New System.Windows.Forms.Button()
         Me.TBPM_PROFILE_CONTROLSTableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILE_CONTROLSTableAdapter()
@@ -93,70 +61,24 @@ Partial Class frmFormDesigner
         Me.TBWH_CHECK_PROFILE_CONTROLSTableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBWH_CHECK_PROFILE_CONTROLSTableAdapter()
         Me.TBPM_CONTROL_TABLEBindingSource = New System.Windows.Forms.BindingSource(Me.components)
         Me.TBPM_CONTROL_TABLETableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_CONTROL_TABLETableAdapter()
-        CHANGED_WHOLabel = New System.Windows.Forms.Label()
-        CHANGED_WHENLabel = New System.Windows.Forms.Label()
-        Me.Panel1.SuspendLayout()
         Me.GroupBox1.SuspendLayout()
         Me.pnldesigner.SuspendLayout()
-        Me.gbxControl.SuspendLayout()
         Me.TabControlEigenschaften.SuspendLayout()
         Me.pageProperties.SuspendLayout()
         Me.pageFormat.SuspendLayout()
-        Me.pageSQL.SuspendLayout()
-        Me.pnlAuswahlliste.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()
-        Me.pagePropertiesOld.SuspendLayout()
         Me.StatusStrip1.SuspendLayout()
         CType(Me.TBWH_CHECK_PROFILE_CONTROLSBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.TBPM_CONTROL_TABLEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
-        '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, 499)
-        CHANGED_WHOLabel.Name = "CHANGED_WHOLabel"
-        CHANGED_WHOLabel.Size = New System.Drawing.Size(91, 16)
-        CHANGED_WHOLabel.TabIndex = 18
-        CHANGED_WHOLabel.Text = "Changed who:"
-        '
-        'CHANGED_WHENLabel
-        '
-        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, 499)
-        CHANGED_WHENLabel.Name = "CHANGED_WHENLabel"
-        CHANGED_WHENLabel.Size = New System.Drawing.Size(98, 16)
-        CHANGED_WHENLabel.TabIndex = 20
-        CHANGED_WHENLabel.Text = "Changed when:"
-        '
-        'Panel1
-        '
-        Me.Panel1.Controls.Add(Me.lblDesign)
-        Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top
-        Me.Panel1.Location = New System.Drawing.Point(0, 0)
-        Me.Panel1.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
-        Me.Panel1.Name = "Panel1"
-        Me.Panel1.Size = New System.Drawing.Size(995, 34)
-        Me.Panel1.TabIndex = 1
-        '
-        'lblDesign
-        '
-        Me.lblDesign.AutoSize = True
-        Me.lblDesign.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.lblDesign.Location = New System.Drawing.Point(12, 9)
-        Me.lblDesign.Name = "lblDesign"
-        Me.lblDesign.Size = New System.Drawing.Size(50, 16)
-        Me.lblDesign.TabIndex = 0
-        Me.lblDesign.Text = "Label2"
-        '
         'GroupBox1
         '
         Me.GroupBox1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.GroupBox1.Controls.Add(Me.btnLine)
         Me.GroupBox1.Controls.Add(Me.btnTabelle)
         Me.GroupBox1.Controls.Add(Me.btnCheckbox)
         Me.GroupBox1.Controls.Add(Me.btnVektor)
@@ -164,14 +86,27 @@ Partial Class frmFormDesigner
         Me.GroupBox1.Controls.Add(Me.btncmb)
         Me.GroupBox1.Controls.Add(Me.btntextbox)
         Me.GroupBox1.Controls.Add(Me.btnlabel)
-        Me.GroupBox1.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.GroupBox1.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.GroupBox1.Location = New System.Drawing.Point(507, 70)
+        Me.GroupBox1.Location = New System.Drawing.Point(507, 12)
         Me.GroupBox1.Name = "GroupBox1"
         Me.GroupBox1.Size = New System.Drawing.Size(476, 129)
         Me.GroupBox1.TabIndex = 2
         Me.GroupBox1.TabStop = False
         Me.GroupBox1.Text = "Control-Typ (Drag and Drop)"
         '
+        'btnLine
+        '
+        Me.btnLine.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.btnLine.Image = CType(resources.GetObject("btnLine.Image"), System.Drawing.Image)
+        Me.btnLine.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnLine.Location = New System.Drawing.Point(290, 90)
+        Me.btnLine.Name = "btnLine"
+        Me.btnLine.Size = New System.Drawing.Size(133, 27)
+        Me.btnLine.TabIndex = 7
+        Me.btnLine.Text = "Linie"
+        Me.btnLine.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.btnLine.UseVisualStyleBackColor = True
+        '
         'btnTabelle
         '
         Me.btnTabelle.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
@@ -179,7 +114,7 @@ Partial Class frmFormDesigner
         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.Size = New System.Drawing.Size(133, 27)
         Me.btnTabelle.TabIndex = 6
         Me.btnTabelle.Text = "Tabelle"
         Me.btnTabelle.TextAlign = System.Drawing.ContentAlignment.MiddleRight
@@ -192,7 +127,7 @@ Partial Class frmFormDesigner
         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.Size = New System.Drawing.Size(133, 27)
         Me.btnCheckbox.TabIndex = 5
         Me.btnCheckbox.Text = "Checkbox"
         Me.btnCheckbox.TextAlign = System.Drawing.ContentAlignment.MiddleRight
@@ -205,7 +140,7 @@ Partial Class frmFormDesigner
         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.Size = New System.Drawing.Size(133, 27)
         Me.btnVektor.TabIndex = 4
         Me.btnVektor.Text = "Mehrfach-/Vektorfeld"
         Me.btnVektor.TextAlign = System.Drawing.ContentAlignment.MiddleRight
@@ -231,7 +166,7 @@ Partial Class frmFormDesigner
         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.Size = New System.Drawing.Size(133, 27)
         Me.btncmb.TabIndex = 2
         Me.btncmb.Text = "Combobox"
         Me.btncmb.TextAlign = System.Drawing.ContentAlignment.MiddleRight
@@ -244,7 +179,7 @@ Partial Class frmFormDesigner
         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.Size = New System.Drawing.Size(133, 27)
         Me.btntextbox.TabIndex = 1
         Me.btntextbox.Text = "Textbox"
         Me.btntextbox.TextAlign = System.Drawing.ContentAlignment.MiddleRight
@@ -272,9 +207,9 @@ Partial Class frmFormDesigner
         Me.pnldesigner.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
         Me.pnldesigner.Controls.Add(Me.Label1)
         Me.pnldesigner.Controls.Add(Me.lblhintergrund)
-        Me.pnldesigner.Location = New System.Drawing.Point(15, 72)
+        Me.pnldesigner.Location = New System.Drawing.Point(15, 12)
         Me.pnldesigner.Name = "pnldesigner"
-        Me.pnldesigner.Size = New System.Drawing.Size(481, 337)
+        Me.pnldesigner.Size = New System.Drawing.Size(481, 525)
         Me.pnldesigner.TabIndex = 3
         '
         'Label1
@@ -298,22 +233,6 @@ Partial Class frmFormDesigner
         Me.lblhintergrund.TabIndex = 1
         Me.lblhintergrund.Text = "Validierungsbereich"
         '
-        'gbxControl
-        '
-        Me.gbxControl.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
-            Or System.Windows.Forms.AnchorStyles.Left) _
-            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.gbxControl.Controls.Add(Me.TabControlEigenschaften)
-        Me.gbxControl.Controls.Add(Me.btndelete)
-        Me.gbxControl.Controls.Add(Me.btnsave)
-        Me.gbxControl.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.gbxControl.Location = New System.Drawing.Point(507, 205)
-        Me.gbxControl.Name = "gbxControl"
-        Me.gbxControl.Size = New System.Drawing.Size(476, 332)
-        Me.gbxControl.TabIndex = 4
-        Me.gbxControl.TabStop = False
-        Me.gbxControl.Text = "Controleigenschaften:"
-        '
         'TabControlEigenschaften
         '
         Me.TabControlEigenschaften.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
@@ -321,13 +240,11 @@ Partial Class frmFormDesigner
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.TabControlEigenschaften.Controls.Add(Me.pageProperties)
         Me.TabControlEigenschaften.Controls.Add(Me.pageFormat)
-        Me.TabControlEigenschaften.Controls.Add(Me.pageSQL)
-        Me.TabControlEigenschaften.Controls.Add(Me.pagePropertiesOld)
         Me.TabControlEigenschaften.Enabled = False
-        Me.TabControlEigenschaften.Location = New System.Drawing.Point(12, 22)
+        Me.TabControlEigenschaften.Location = New System.Drawing.Point(507, 147)
         Me.TabControlEigenschaften.Name = "TabControlEigenschaften"
         Me.TabControlEigenschaften.SelectedIndex = 0
-        Me.TabControlEigenschaften.Size = New System.Drawing.Size(455, 263)
+        Me.TabControlEigenschaften.Size = New System.Drawing.Size(476, 361)
         Me.TabControlEigenschaften.TabIndex = 22
         '
         'pageProperties
@@ -336,7 +253,7 @@ Partial Class frmFormDesigner
         Me.pageProperties.Location = New System.Drawing.Point(4, 25)
         Me.pageProperties.Name = "pageProperties"
         Me.pageProperties.Padding = New System.Windows.Forms.Padding(3)
-        Me.pageProperties.Size = New System.Drawing.Size(447, 234)
+        Me.pageProperties.Size = New System.Drawing.Size(468, 332)
         Me.pageProperties.TabIndex = 3
         Me.pageProperties.Text = "Eigenschaften"
         Me.pageProperties.UseVisualStyleBackColor = True
@@ -347,7 +264,7 @@ Partial Class frmFormDesigner
         Me.pgControls.HelpVisible = False
         Me.pgControls.Location = New System.Drawing.Point(3, 3)
         Me.pgControls.Name = "pgControls"
-        Me.pgControls.Size = New System.Drawing.Size(441, 228)
+        Me.pgControls.Size = New System.Drawing.Size(462, 326)
         Me.pgControls.TabIndex = 0
         '
         'pageFormat
@@ -362,7 +279,7 @@ Partial Class frmFormDesigner
         Me.pageFormat.Location = New System.Drawing.Point(4, 25)
         Me.pageFormat.Name = "pageFormat"
         Me.pageFormat.Padding = New System.Windows.Forms.Padding(3)
-        Me.pageFormat.Size = New System.Drawing.Size(447, 234)
+        Me.pageFormat.Size = New System.Drawing.Size(468, 332)
         Me.pageFormat.TabIndex = 1
         Me.pageFormat.Text = "Format"
         Me.pageFormat.UseVisualStyleBackColor = True
@@ -437,72 +354,6 @@ Partial Class frmFormDesigner
         Me.btnwidth_plus.TextAlign = System.Drawing.ContentAlignment.MiddleRight
         Me.btnwidth_plus.UseVisualStyleBackColor = True
         '
-        'pageSQL
-        '
-        Me.pageSQL.Controls.Add(Me.pnlAuswahlliste)
-        Me.pageSQL.Location = New System.Drawing.Point(4, 25)
-        Me.pageSQL.Name = "pageSQL"
-        Me.pageSQL.Padding = New System.Windows.Forms.Padding(3)
-        Me.pageSQL.Size = New System.Drawing.Size(447, 234)
-        Me.pageSQL.TabIndex = 2
-        Me.pageSQL.Text = "SQL-Liste"
-        Me.pageSQL.UseVisualStyleBackColor = True
-        '
-        'pnlAuswahlliste
-        '
-        Me.pnlAuswahlliste.AutoScroll = True
-        Me.pnlAuswahlliste.Controls.Add(Me.btnEditor)
-        Me.pnlAuswahlliste.Controls.Add(Me.btnShowConnections)
-        Me.pnlAuswahlliste.Controls.Add(Me.SQL_CommandTextBox)
-        Me.pnlAuswahlliste.Controls.Add(Me.Label5)
-        Me.pnlAuswahlliste.Controls.Add(Me.Label4)
-        Me.pnlAuswahlliste.Controls.Add(Me.cmbConnection)
-        Me.pnlAuswahlliste.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.pnlAuswahlliste.Location = New System.Drawing.Point(3, 3)
-        Me.pnlAuswahlliste.Name = "pnlAuswahlliste"
-        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) _
-            Or System.Windows.Forms.AnchorStyles.Left) _
-            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.SQL_CommandTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPM_PROFILE_CONTROLSBindingSource, "SQL_UEBERPRUEFUNG", True))
-        Me.SQL_CommandTextBox.Font = New System.Drawing.Font("Courier New", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.SQL_CommandTextBox.Location = New System.Drawing.Point(5, 76)
-        Me.SQL_CommandTextBox.Multiline = True
-        Me.SQL_CommandTextBox.Name = "SQL_CommandTextBox"
-        Me.SQL_CommandTextBox.Size = New System.Drawing.Size(433, 115)
-        Me.SQL_CommandTextBox.TabIndex = 5
-        '
         'TBPM_PROFILE_CONTROLSBindingSource
         '
         Me.TBPM_PROFILE_CONTROLSBindingSource.DataMember = "TBPM_PROFILE_CONTROLS"
@@ -513,266 +364,17 @@ Partial Class frmFormDesigner
         Me.DD_DMSLiteDataSet.DataSetName = "DD_DMSLiteDataSet"
         Me.DD_DMSLiteDataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
         '
-        'Label5
-        '
-        Me.Label5.AutoSize = True
-        Me.Label5.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label5.Location = New System.Drawing.Point(3, 57)
-        Me.Label5.Name = "Label5"
-        Me.Label5.Size = New System.Drawing.Size(76, 16)
-        Me.Label5.TabIndex = 2
-        Me.Label5.Text = "SQL-Befehl:"
-        '
-        'Label4
-        '
-        Me.Label4.AutoSize = True
-        Me.Label4.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label4.Location = New System.Drawing.Point(3, 11)
-        Me.Label4.Name = "Label4"
-        Me.Label4.Size = New System.Drawing.Size(76, 16)
-        Me.Label4.TabIndex = 1
-        Me.Label4.Text = "Connection:"
-        '
-        'cmbConnection
-        '
-        Me.cmbConnection.DataBindings.Add(New System.Windows.Forms.Binding("SelectedValue", Me.TBPM_PROFILE_CONTROLSBindingSource, "CONNECTION_ID", True))
-        Me.cmbConnection.DataSource = Me.TBPM_CONNECTIONBindingSource
-        Me.cmbConnection.DisplayMember = "BEZEICHNUNG"
-        Me.cmbConnection.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.cmbConnection.FormattingEnabled = True
-        Me.cmbConnection.Location = New System.Drawing.Point(5, 30)
-        Me.cmbConnection.Name = "cmbConnection"
-        Me.cmbConnection.Size = New System.Drawing.Size(260, 24)
-        Me.cmbConnection.TabIndex = 0
-        Me.cmbConnection.ValueMember = "GUID"
-        '
         'TBPM_CONNECTIONBindingSource
         '
         Me.TBPM_CONNECTIONBindingSource.DataMember = "TBPM_CONNECTION"
         Me.TBPM_CONNECTIONBindingSource.DataSource = Me.DD_DMSLiteDataSet
         '
-        'pagePropertiesOld
-        '
-        Me.pagePropertiesOld.AutoScroll = True
-        Me.pagePropertiesOld.BackColor = System.Drawing.Color.White
-        Me.pagePropertiesOld.Controls.Add(Me.LOAD_IDX_VALUECheckBox)
-        Me.pagePropertiesOld.Controls.Add(Me.READ_ONLYCheckBox)
-        Me.pagePropertiesOld.Controls.Add(Me.INDEX_NAME_VALUE)
-        Me.pagePropertiesOld.Controls.Add(Me.rbVektor)
-        Me.pagePropertiesOld.Controls.Add(Me.rbIndex)
-        Me.pagePropertiesOld.Controls.Add(Me.lblCtrlName)
-        Me.pagePropertiesOld.Controls.Add(Me.CHOICE_LISTTextBox)
-        Me.pagePropertiesOld.Controls.Add(Me.lblBeschriftung)
-        Me.pagePropertiesOld.Controls.Add(Me.VALIDATIONCheckBox)
-        Me.pagePropertiesOld.Controls.Add(Me.lblIndex)
-        Me.pagePropertiesOld.Controls.Add(Me.CTRL_TEXTTextBox)
-        Me.pagePropertiesOld.Controls.Add(Me.cmbIndex)
-        Me.pagePropertiesOld.Controls.Add(Me.NAMETextBox)
-        Me.pagePropertiesOld.Controls.Add(Me.CheckBoxAuswahlliste)
-        Me.pagePropertiesOld.Controls.Add(Me.lblAuswahlliste)
-        Me.pagePropertiesOld.Controls.Add(Me.INDEX_NAMETextBox)
-        Me.pagePropertiesOld.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.pagePropertiesOld.Location = New System.Drawing.Point(4, 25)
-        Me.pagePropertiesOld.Name = "pagePropertiesOld"
-        Me.pagePropertiesOld.Padding = New System.Windows.Forms.Padding(3)
-        Me.pagePropertiesOld.Size = New System.Drawing.Size(447, 234)
-        Me.pagePropertiesOld.TabIndex = 0
-        Me.pagePropertiesOld.Text = "Allgemein (Alt)"
-        '
-        'LOAD_IDX_VALUECheckBox
-        '
-        Me.LOAD_IDX_VALUECheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBPM_PROFILE_CONTROLSBindingSource, "LOAD_IDX_VALUE", True))
-        Me.LOAD_IDX_VALUECheckBox.Enabled = False
-        Me.LOAD_IDX_VALUECheckBox.Location = New System.Drawing.Point(6, 185)
-        Me.LOAD_IDX_VALUECheckBox.Name = "LOAD_IDX_VALUECheckBox"
-        Me.LOAD_IDX_VALUECheckBox.Size = New System.Drawing.Size(121, 24)
-        Me.LOAD_IDX_VALUECheckBox.TabIndex = 19
-        Me.LOAD_IDX_VALUECheckBox.Text = "Lade Indexdaten"
-        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
-        '
-        'READ_ONLYCheckBox
-        '
-        Me.READ_ONLYCheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBPM_PROFILE_CONTROLSBindingSource, "READ_ONLY", True))
-        Me.READ_ONLYCheckBox.Enabled = False
-        Me.READ_ONLYCheckBox.Location = New System.Drawing.Point(6, 164)
-        Me.READ_ONLYCheckBox.Name = "READ_ONLYCheckBox"
-        Me.READ_ONLYCheckBox.Size = New System.Drawing.Size(86, 24)
-        Me.READ_ONLYCheckBox.TabIndex = 18
-        Me.READ_ONLYCheckBox.Text = "Read Only"
-        Me.ToolTip1.SetToolTip(Me.READ_ONLYCheckBox, "lässt keine Änderungen am Index zu")
-        Me.READ_ONLYCheckBox.UseVisualStyleBackColor = True
-        '
-        'INDEX_NAME_VALUE
-        '
-        Me.INDEX_NAME_VALUE.BackColor = System.Drawing.Color.White
-        Me.INDEX_NAME_VALUE.BorderStyle = System.Windows.Forms.BorderStyle.None
-        Me.INDEX_NAME_VALUE.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPM_PROFILE_CONTROLSBindingSource, "INDEX_NAME", True))
-        Me.INDEX_NAME_VALUE.Enabled = False
-        Me.INDEX_NAME_VALUE.ForeColor = System.Drawing.Color.White
-        Me.INDEX_NAME_VALUE.Location = New System.Drawing.Point(334, 142)
-        Me.INDEX_NAME_VALUE.Name = "INDEX_NAME_VALUE"
-        Me.INDEX_NAME_VALUE.ReadOnly = True
-        Me.INDEX_NAME_VALUE.Size = New System.Drawing.Size(51, 16)
-        Me.INDEX_NAME_VALUE.TabIndex = 17
-        Me.INDEX_NAME_VALUE.TabStop = False
-        '
-        'rbVektor
-        '
-        Me.rbVektor.AutoSize = True
-        Me.rbVektor.Enabled = False
-        Me.rbVektor.Location = New System.Drawing.Point(174, 52)
-        Me.rbVektor.Name = "rbVektor"
-        Me.rbVektor.Size = New System.Drawing.Size(225, 20)
-        Me.rbVektor.TabIndex = 15
-        Me.rbVektor.TabStop = True
-        Me.rbVektor.Text = "Benutze Vektor-Feld für Metadaten"
-        Me.rbVektor.UseVisualStyleBackColor = True
-        Me.rbVektor.Visible = False
-        '
-        'rbIndex
-        '
-        Me.rbIndex.AutoSize = True
-        Me.rbIndex.Enabled = False
-        Me.rbIndex.Location = New System.Drawing.Point(9, 52)
-        Me.rbIndex.Name = "rbIndex"
-        Me.rbIndex.Size = New System.Drawing.Size(159, 20)
-        Me.rbIndex.TabIndex = 14
-        Me.rbIndex.TabStop = True
-        Me.rbIndex.Text = "Beschreibe Index direkt"
-        Me.rbIndex.UseVisualStyleBackColor = True
-        Me.rbIndex.Visible = False
-        '
-        'lblCtrlName
-        '
-        Me.lblCtrlName.AutoSize = True
-        Me.lblCtrlName.Enabled = False
-        Me.lblCtrlName.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.lblCtrlName.Location = New System.Drawing.Point(6, 3)
-        Me.lblCtrlName.Name = "lblCtrlName"
-        Me.lblCtrlName.Size = New System.Drawing.Size(46, 16)
-        Me.lblCtrlName.TabIndex = 0
-        Me.lblCtrlName.Text = "Name:"
-        '
-        'CHOICE_LISTTextBox
-        '
-        Me.CHOICE_LISTTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPM_PROFILE_CONTROLSBindingSource, "CHOICE_LIST", True))
-        Me.CHOICE_LISTTextBox.Enabled = False
-        Me.CHOICE_LISTTextBox.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.CHOICE_LISTTextBox.Location = New System.Drawing.Point(174, 185)
-        Me.CHOICE_LISTTextBox.Name = "CHOICE_LISTTextBox"
-        Me.CHOICE_LISTTextBox.Size = New System.Drawing.Size(178, 23)
-        Me.CHOICE_LISTTextBox.TabIndex = 13
-        '
-        'lblBeschriftung
-        '
-        Me.lblBeschriftung.AutoSize = True
-        Me.lblBeschriftung.Enabled = False
-        Me.lblBeschriftung.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.lblBeschriftung.Location = New System.Drawing.Point(132, 4)
-        Me.lblBeschriftung.Name = "lblBeschriftung"
-        Me.lblBeschriftung.Size = New System.Drawing.Size(83, 16)
-        Me.lblBeschriftung.TabIndex = 2
-        Me.lblBeschriftung.Text = "Beschriftung:"
-        Me.lblBeschriftung.Visible = False
-        '
-        'VALIDATIONCheckBox
-        '
-        Me.VALIDATIONCheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBPM_PROFILE_CONTROLSBindingSource, "VALIDATION", True))
-        Me.VALIDATIONCheckBox.Enabled = False
-        Me.VALIDATIONCheckBox.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.VALIDATIONCheckBox.Location = New System.Drawing.Point(6, 143)
-        Me.VALIDATIONCheckBox.Name = "VALIDATIONCheckBox"
-        Me.VALIDATIONCheckBox.Size = New System.Drawing.Size(144, 24)
-        Me.VALIDATIONCheckBox.TabIndex = 12
-        Me.VALIDATIONCheckBox.Text = "Eingabe zwingend"
-        Me.VALIDATIONCheckBox.UseVisualStyleBackColor = True
-        '
-        'lblIndex
-        '
-        Me.lblIndex.AutoSize = True
-        Me.lblIndex.Enabled = False
-        Me.lblIndex.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.lblIndex.Location = New System.Drawing.Point(3, 84)
-        Me.lblIndex.Name = "lblIndex"
-        Me.lblIndex.Size = New System.Drawing.Size(124, 16)
-        Me.lblIndex.TabIndex = 4
-        Me.lblIndex.Text = "zugeordneter Index:"
-        Me.lblIndex.Visible = False
-        '
-        'CTRL_TEXTTextBox
-        '
-        Me.CTRL_TEXTTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPM_PROFILE_CONTROLSBindingSource, "CTRL_TEXT", True))
-        Me.CTRL_TEXTTextBox.Enabled = False
-        Me.CTRL_TEXTTextBox.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.CTRL_TEXTTextBox.Location = New System.Drawing.Point(135, 23)
-        Me.CTRL_TEXTTextBox.Multiline = True
-        Me.CTRL_TEXTTextBox.Name = "CTRL_TEXTTextBox"
-        Me.CTRL_TEXTTextBox.Size = New System.Drawing.Size(298, 23)
-        Me.CTRL_TEXTTextBox.TabIndex = 11
-        '
-        'cmbIndex
-        '
-        Me.cmbIndex.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPM_PROFILE_CONTROLSBindingSource, "INDEX_NAME", True))
-        Me.cmbIndex.Enabled = False
-        Me.cmbIndex.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.cmbIndex.FormattingEnabled = True
-        Me.cmbIndex.Location = New System.Drawing.Point(6, 103)
-        Me.cmbIndex.Name = "cmbIndex"
-        Me.cmbIndex.Size = New System.Drawing.Size(178, 24)
-        Me.cmbIndex.TabIndex = 5
-        Me.cmbIndex.Visible = False
-        '
-        'NAMETextBox
-        '
-        Me.NAMETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPM_PROFILE_CONTROLSBindingSource, "NAME", True))
-        Me.NAMETextBox.Enabled = False
-        Me.NAMETextBox.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.NAMETextBox.Location = New System.Drawing.Point(9, 23)
-        Me.NAMETextBox.Name = "NAMETextBox"
-        Me.NAMETextBox.Size = New System.Drawing.Size(121, 23)
-        Me.NAMETextBox.TabIndex = 10
-        '
-        'CheckBoxAuswahlliste
-        '
-        Me.CheckBoxAuswahlliste.AutoSize = True
-        Me.CheckBoxAuswahlliste.Enabled = False
-        Me.CheckBoxAuswahlliste.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.CheckBoxAuswahlliste.Location = New System.Drawing.Point(174, 145)
-        Me.CheckBoxAuswahlliste.Name = "CheckBoxAuswahlliste"
-        Me.CheckBoxAuswahlliste.Size = New System.Drawing.Size(98, 20)
-        Me.CheckBoxAuswahlliste.TabIndex = 6
-        Me.CheckBoxAuswahlliste.Text = "Auswahlliste"
-        Me.CheckBoxAuswahlliste.UseVisualStyleBackColor = True
-        Me.CheckBoxAuswahlliste.Visible = False
-        '
-        'lblAuswahlliste
-        '
-        Me.lblAuswahlliste.AutoSize = True
-        Me.lblAuswahlliste.Enabled = False
-        Me.lblAuswahlliste.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.lblAuswahlliste.Location = New System.Drawing.Point(171, 167)
-        Me.lblAuswahlliste.Name = "lblAuswahlliste"
-        Me.lblAuswahlliste.Size = New System.Drawing.Size(186, 16)
-        Me.lblAuswahlliste.TabIndex = 7
-        Me.lblAuswahlliste.Text = "Auswahllistennamen eingeben:"
-        Me.lblAuswahlliste.Visible = False
-        '
-        'INDEX_NAMETextBox
-        '
-        Me.INDEX_NAMETextBox.Enabled = False
-        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
-        Me.INDEX_NAMETextBox.Visible = False
-        '
         'btndelete
         '
         Me.btndelete.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.btndelete.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.delete_12x12
         Me.btndelete.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.btndelete.Location = New System.Drawing.Point(13, 295)
+        Me.btndelete.Location = New System.Drawing.Point(507, 514)
         Me.btndelete.Name = "btndelete"
         Me.btndelete.Size = New System.Drawing.Size(178, 23)
         Me.btndelete.TabIndex = 1
@@ -780,29 +382,6 @@ Partial Class frmFormDesigner
         Me.btndelete.TextAlign = System.Drawing.ContentAlignment.MiddleRight
         Me.btndelete.UseVisualStyleBackColor = True
         '
-        'btnsave
-        '
-        Me.btnsave.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.btnsave.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.save
-        Me.btnsave.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.btnsave.Location = New System.Drawing.Point(279, 294)
-        Me.btnsave.Name = "btnsave"
-        Me.btnsave.Size = New System.Drawing.Size(188, 24)
-        Me.btnsave.TabIndex = 5
-        Me.btnsave.Text = "Änderungen Speichern"
-        Me.btnsave.TextAlign = System.Drawing.ContentAlignment.MiddleRight
-        Me.btnsave.UseVisualStyleBackColor = True
-        Me.btnsave.Visible = False
-        '
-        '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})
@@ -814,28 +393,19 @@ Partial Class frmFormDesigner
         '
         'tslblAenderungen
         '
-        Me.tslblAenderungen.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.flag_red
+        Me.tslblAenderungen.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.database_save
         Me.tslblAenderungen.Name = "tslblAenderungen"
-        Me.tslblAenderungen.Size = New System.Drawing.Size(153, 17)
+        Me.tslblAenderungen.Size = New System.Drawing.Size(152, 17)
-        Me.tslblAenderungen.Text = "Änderungen gespeichert"
+        Me.tslblAenderungen.Text = "Noch keine Änderungen"
-        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, 518)
-        Me.CHANGED_WHENTextBox.Name = "CHANGED_WHENTextBox"
-        Me.CHANGED_WHENTextBox.Size = New System.Drawing.Size(159, 23)
-        Me.CHANGED_WHENTextBox.TabIndex = 21
         '
         'btnrefresh
         '
+        Me.btnrefresh.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         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.Location = New System.Drawing.Point(828, 514)
         Me.btnrefresh.Name = "btnrefresh"
-        Me.btnrefresh.Size = New System.Drawing.Size(81, 23)
+        Me.btnrefresh.Size = New System.Drawing.Size(155, 23)
         Me.btnrefresh.TabIndex = 24
         Me.btnrefresh.Text = "Refresh"
         Me.btnrefresh.TextAlign = System.Drawing.ContentAlignment.MiddleRight
@@ -889,13 +459,9 @@ Partial Class frmFormDesigner
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.ClientSize = New System.Drawing.Size(995, 578)
         Me.Controls.Add(Me.btnrefresh)
-        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.btndelete)
-        Me.Controls.Add(Me.CHANGED_WHOTextBox)
+        Me.Controls.Add(Me.TabControlEigenschaften)
-        Me.Controls.Add(Me.gbxControl)
-        Me.Controls.Add(Me.Panel1)
         Me.Controls.Add(Me.GroupBox1)
         Me.Controls.Add(Me.pnldesigner)
         Me.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
@@ -905,24 +471,16 @@ Partial Class frmFormDesigner
         Me.MinimizeBox = False
         Me.Name = "frmFormDesigner"
         Me.Text = "Validation-Designer"
-        Me.Panel1.ResumeLayout(False)
-        Me.Panel1.PerformLayout()
         Me.GroupBox1.ResumeLayout(False)
         Me.pnldesigner.ResumeLayout(False)
         Me.pnldesigner.PerformLayout()
-        Me.gbxControl.ResumeLayout(False)
         Me.TabControlEigenschaften.ResumeLayout(False)
         Me.pageProperties.ResumeLayout(False)
         Me.pageFormat.ResumeLayout(False)
         Me.pageFormat.PerformLayout()
-        Me.pageSQL.ResumeLayout(False)
-        Me.pnlAuswahlliste.ResumeLayout(False)
-        Me.pnlAuswahlliste.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()
-        Me.pagePropertiesOld.ResumeLayout(False)
-        Me.pagePropertiesOld.PerformLayout()
         Me.StatusStrip1.ResumeLayout(False)
         Me.StatusStrip1.PerformLayout()
         CType(Me.TBWH_CHECK_PROFILE_CONTROLSBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
@@ -935,35 +493,18 @@ Partial Class frmFormDesigner
     Friend WithEvents TBPM_PROFILE_CONTROLSBindingSource As System.Windows.Forms.BindingSource
     Friend WithEvents TBPM_PROFILE_CONTROLSTableAdapter As DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILE_CONTROLSTableAdapter
     Friend WithEvents TableAdapterManager As DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TableAdapterManager
-    Friend WithEvents Panel1 As System.Windows.Forms.Panel
-    Friend WithEvents lblDesign As System.Windows.Forms.Label
     Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
     Friend WithEvents btnlabel As System.Windows.Forms.Button
     Friend WithEvents btntextbox As System.Windows.Forms.Button
     Friend WithEvents pnldesigner As System.Windows.Forms.Panel
     Friend WithEvents btndtp As System.Windows.Forms.Button
     Friend WithEvents btncmb As System.Windows.Forms.Button
-    Friend WithEvents gbxControl As System.Windows.Forms.GroupBox
-    Friend WithEvents lblBeschriftung As System.Windows.Forms.Label
-    Friend WithEvents lblCtrlName As System.Windows.Forms.Label
     Friend WithEvents lblhintergrund As System.Windows.Forms.Label
-    Friend WithEvents lblIndex As System.Windows.Forms.Label
-    Friend WithEvents cmbIndex As System.Windows.Forms.ComboBox
-    Friend WithEvents btnsave As System.Windows.Forms.Button
-    Friend WithEvents lblAuswahlliste As System.Windows.Forms.Label
-    Friend WithEvents CheckBoxAuswahlliste As System.Windows.Forms.CheckBox
     Friend WithEvents btndelete As System.Windows.Forms.Button
     Friend WithEvents Label1 As System.Windows.Forms.Label
-    Friend WithEvents CHOICE_LISTTextBox As System.Windows.Forms.TextBox
-    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 CHANGED_WHOTextBox As System.Windows.Forms.TextBox
     Friend WithEvents StatusStrip1 As System.Windows.Forms.StatusStrip
     Friend WithEvents tslblAenderungen As System.Windows.Forms.ToolStripStatusLabel
-    Friend WithEvents CHANGED_WHENTextBox As System.Windows.Forms.TextBox
     Friend WithEvents TabControlEigenschaften As System.Windows.Forms.TabControl
-    Friend WithEvents pagePropertiesOld As System.Windows.Forms.TabPage
     Friend WithEvents pageFormat As System.Windows.Forms.TabPage
     Friend WithEvents btnwidth_minus As System.Windows.Forms.Button
     Friend WithEvents btnwidth_plus As System.Windows.Forms.Button
@@ -972,30 +513,17 @@ Partial Class frmFormDesigner
     Friend WithEvents Label3 As System.Windows.Forms.Label
     Friend WithEvents Label2 As System.Windows.Forms.Label
     Friend WithEvents btnVektor As System.Windows.Forms.Button
-    Friend WithEvents pageSQL As System.Windows.Forms.TabPage
     Friend WithEvents TBPM_CONNECTIONBindingSource As System.Windows.Forms.BindingSource
     Friend WithEvents TBPM_CONNECTIONTableAdapter As DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_CONNECTIONTableAdapter
-    Friend WithEvents pnlAuswahlliste As System.Windows.Forms.Panel
-    Friend WithEvents Label4 As System.Windows.Forms.Label
-    Friend WithEvents cmbConnection As System.Windows.Forms.ComboBox
-    Friend WithEvents Label5 As System.Windows.Forms.Label
-    Friend WithEvents SQL_CommandTextBox As System.Windows.Forms.TextBox
     Friend WithEvents btnCheckbox As System.Windows.Forms.Button
-    Friend WithEvents rbVektor As System.Windows.Forms.RadioButton
-    Friend WithEvents rbIndex As System.Windows.Forms.RadioButton
-    Friend WithEvents INDEX_NAMETextBox As System.Windows.Forms.TextBox
-    Friend WithEvents INDEX_NAME_VALUE As System.Windows.Forms.TextBox
     Friend WithEvents TBWH_CHECK_PROFILE_CONTROLSBindingSource As System.Windows.Forms.BindingSource
     Friend WithEvents TBWH_CHECK_PROFILE_CONTROLSTableAdapter As DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBWH_CHECK_PROFILE_CONTROLSTableAdapter
-    Friend WithEvents LOAD_IDX_VALUECheckBox As System.Windows.Forms.CheckBox
-    Friend WithEvents READ_ONLYCheckBox As System.Windows.Forms.CheckBox
     Friend WithEvents ToolTip1 As System.Windows.Forms.ToolTip
     Friend WithEvents btnTabelle As System.Windows.Forms.Button
     Friend WithEvents TBPM_CONTROL_TABLEBindingSource As System.Windows.Forms.BindingSource
     Friend WithEvents TBPM_CONTROL_TABLETableAdapter As DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_CONTROL_TABLETableAdapter
     Friend WithEvents btnrefresh As System.Windows.Forms.Button
-    Friend WithEvents btnShowConnections As System.Windows.Forms.Button
-    Friend WithEvents btnEditor As Button
     Friend WithEvents pageProperties As TabPage
     Friend WithEvents pgControls As PropertyGrid
+    Friend WithEvents btnLine As Button
 End Class

app/DD_PM_WINDREAM/frmFormDesigner.resx

@@ -117,29 +117,18 @@
   <resheader name="writer">
     <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </resheader>
-  <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>
   <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
-  <data name="btnEditor.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+  <data name="btnLine.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
-        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
+        iVBORw0KGgoAAAANSUhEUgAAABYAAAAWCAYAAADEtGw7AAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
-        wwAADsMBx2+oZAAAANtJREFUOE+tkzsSgjAURbMEl+TQswDWg8M2LKSWggW4DrWhUBuKaAGUTw5DMASU
+        wwAADsMBx2+oZAAAABl0RVh0U29mdHdhcmUAcGFpbnQubmV0IDQuMC4xMzQDW3oAAAA0SURBVEhLYxgF
-        z5iZw0zeu/cmmRDljqqqtmVZJjW6Rhx0URR7NK38M7TWm7p5yrJMoiiSIAjE87we1OihQYuntStFIU1T
+        o2AUEAe8gDiICpgbiFHACyD+TwWsCMQoIA2IC6iA+YF4FIyCUTAAgIEBAJUPH6VVzyeQAAAAAElFTkSu
-        8X1f4kMsl/NVnvrVgxo9NGjxNGaS8jxvGvfbY2B0QcOOONZ/AhhMKM49wteAJTQBfKYYMwO9yZVnB7jn
+        QmCC
-        BSOyTTaDgOSYdM1VAVxPGO66uREZg8sggCsihJ2sCnAxIttk6H7lXyuA3R99TAgW4Dxnpd6OS61yelZ6
-        QAAAAABJRU5ErkJggg==
 </value>
   </data>
   <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>
-  <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>
   <metadata name="DD_DMSLiteDataSet.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>17, 17</value>
   </metadata>
@@ -149,12 +138,6 @@
   <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="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="ToolTip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>898, 56</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>

app/DD_PM_WINDREAM/frmProfileDesigner.vb

@@ -221,7 +221,12 @@ Public Class frmProfileDesigner
             My.Settings.Save()
             CURRENT_OBJECTTYPE = cmbObjekttypen.Text
             CURRENT_ProfilName = NAMETextBox.Text
+
+            frmFormDesigner.ProfileId = CURRENT_ProfilGUID
+            frmFormDesigner.ProfileName = CURRENT_ProfilName
+            frmFormDesigner.ProfileObjectType = cmbObjekttypen.Text
             frmFormDesigner.ShowDialog()
+
         Else
             MsgBox("Eindeutiges Profil konnte nicht an den FormDesigner weitergegeben werden:", MsgBoxStyle.Exclamation)
         End If

app/DD_PM_WINDREAM/frmValidator.Designer.vb

@@ -396,6 +396,7 @@ Partial Class frmValidator
         'TableAdapterManager
         '
         Me.TableAdapterManager.BackupDataSetBeforeUpdate = False
+        Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing
         Me.TableAdapterManager.TBPM_CONNECTIONTableAdapter = Me.TBPM_CONNECTIONTableAdapter
         Me.TableAdapterManager.TBPM_CONTROL_TABLETableAdapter = Me.TBPM_CONTROL_TABLETableAdapter
         Me.TableAdapterManager.TBPM_ERROR_LOGTableAdapter = Nothing
@@ -406,7 +407,6 @@ Partial Class frmValidator
         Me.TableAdapterManager.TBPM_PROFILE_FINAL_INDEXINGTableAdapter = Me.TBPM_PROFILE_FINAL_INDEXINGTableAdapter
         Me.TableAdapterManager.TBPM_PROFILETableAdapter = Me.TBPM_PROFILETableAdapter
         Me.TableAdapterManager.TBPM_TYPETableAdapter = Nothing
-        Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing
         Me.TableAdapterManager.UpdateOrder = DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete
         '
         'TBPM_CONNECTIONTableAdapter
@@ -966,6 +966,7 @@ Partial Class frmValidator
         Me.SplitContainer1.Size = New System.Drawing.Size(962, 593)
         Me.SplitContainer1.SplitterDistance = 477
         Me.SplitContainer1.TabIndex = 37
+        Me.SplitContainer1.TabStop = False
         '
         'grpbxMailBody
         '

app/DD_PM_WINDREAM/frmValidator.vb

@@ -655,7 +655,7 @@ Public Class frmValidator
                         If LogErrorsOnly = False Then ClassLogger.Add(" >> Versuch DTP zu laden", False)
                         ctrl = ClassControlCreator.CreateExistingDatepicker(dr, False)
 
-                        add_DTP(dr.Item("GUID"), dr.Item("CTRL_NAME"), CInt(dr.Item("X_LOC")), CInt(dr.Item("Y_LOC")), CInt(dr.Item("WIDTH")), CInt(dr.Item("HEIGHT")), dr.Item("READ_ONLY"), dr.Item("LOAD_IDX_VALUE")) 'dr.Item("INDEX_NAME"), 
+                        'add_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")), dr.Item("READ_ONLY"), dr.Item("LOAD_IDX_VALUE")) 'dr.Item("INDEX_NAME"), 
                     Case "DGV"
                         If LogErrorsOnly = False Then ClassLogger.Add(" >> Versuch DGV zu laden", False)
                         Dim dgv = ClassControlCreator.CreateExistingDataGridView(dr, False)
@@ -679,6 +679,10 @@ Public Class frmValidator
 
                         ctrl = ClassControlCreator.CreateExistingTable(dr, columns, False)
                         'add_TABLE(dr.Item("GUID"), dr.Item("CTRL_NAME"), CInt(dr.Item("X_LOC")), CInt(dr.Item("Y_LOC")), dr.Item("WIDTH"), CInt(dr.Item("HEIGHT")), dr.Item("READ_ONLY"))
+                    Case "LINE"
+                        If LogErrorsOnly = False Then ClassLogger.Add(" >> Versuch Linie zu laden", False)
+
+                        ctrl = ClassControlCreator.CreateExistingLine(dr, False)
                 End Select
 
                 If first_control Is Nothing Then