AppStd/TaskFlow
8
1
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

jj: Neues Control Linie, form Designer entschlacken

Browse Source
This commit is contained in:
Jonathan Jenne 2018-04-03 14:51:35 +02:00
parent d56367db07
commit f83d5aea45
8 changed files with 386 additions and 1458 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

80
app/DD_PM_WINDREAM/ClassControlCreator.vb
View File

@ -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"
Private Const PREFIX_LABEL = "LBL"
Private Const PREFIX_CHECKBOX = "CHK"
Private Const PREFIX_COMBOBOX = "CMB"
Private Const PREFIX_DATETIMEPICKER = "DTP"
Private Const PREFIX_DATAGRIDVIEW = "DGV"
Private Const PREFIX_TABLE = "TB"
Public Const PREFIX_TEXTBOX = "TXT"
Public Const PREFIX_LABEL = "LBL"
Public Const PREFIX_CHECKBOX = "CHK"
Public Const PREFIX_COMBOBOX = "CMB"
Public Const PREFIX_DATETIMEPICKER = "DTP"
Public Const PREFIX_DATAGRIDVIEW = "DGV"
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

23
app/DD_PM_WINDREAM/ModuleControlProperties.vb
View File

@ -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

556
app/DD_PM_WINDREAM/frmFormDesigner.Designer.vb generated
View File

@ -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.Location = New System.Drawing.Point(507, 70)
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, 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.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, 518)
Me.CHANGED_WHENTextBox.Name = "CHANGED_WHENTextBox"
Me.CHANGED_WHENTextBox.Size = New System.Drawing.Size(159, 23)
Me.CHANGED_WHENTextBox.TabIndex = 21
Me.tslblAenderungen.Size = New System.Drawing.Size(152, 17)
Me.tslblAenderungen.Text = "Noch keine Änderungen"
'
'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.CHANGED_WHOTextBox)
Me.Controls.Add(Me.gbxControl)
Me.Controls.Add(Me.Panel1)
Me.Controls.Add(Me.btndelete)
Me.Controls.Add(Me.TabControlEigenschaften)
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

27
app/DD_PM_WINDREAM/frmFormDesigner.resx
View File

@ -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
wwAADsMBx2+oZAAAANtJREFUOE+tkzsSgjAURbMEl+TQswDWg8M2LKSWggW4DrWhUBuKaAGUTw5DMASU
z5iZw0zeu/cmmRDljqqqtmVZJjW6Rhx0URR7NK38M7TWm7p5yrJMoiiSIAjE87we1OihQYuntStFIU1T
8X1f4kMsl/NVnvrVgxo9NGjxNGaS8jxvGvfbY2B0QcOOONZ/AhhMKM49wteAJTQBfKYYMwO9yZVnB7jn
BSOyTTaDgOSYdM1VAVxPGO66uREZg8sggCsihJ2sCnAxIttk6H7lXyuA3R99TAgW4Dxnpd6OS61yelZ6
QAAAAABJRU5ErkJggg==
iVBORw0KGgoAAAANSUhEUgAAABYAAAAWCAYAAADEtGw7AAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
wwAADsMBx2+oZAAAABl0RVh0U29mdHdhcmUAcGFpbnQubmV0IDQuMC4xMzQDW3oAAAA0SURBVEhLYxgF
o2AUEAe8gDiICpgbiFHACyD+TwWsCMQoIA2IC6iA+YF4FIyCUTAAgIEBAJUPH6VVzyeQAAAAAElFTkSu
QmCC
</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>

1144
app/DD_PM_WINDREAM/frmFormDesigner.vb
View File

File diff suppressed because it is too large Load Diff

5
app/DD_PM_WINDREAM/frmProfileDesigner.vb
View File

@ -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

3
app/DD_PM_WINDREAM/frmValidator.Designer.vb generated
View File

@ -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
'

6
app/DD_PM_WINDREAM/frmValidator.vb
View File

@ -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