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

jj Designer Update

Browse Source
This commit is contained in:
Jonathan Jenne
2018-03-08 16:25:09 +01:00
parent 55c7a7210b
commit 4dbf5f7f09
15 changed files with 932 additions and 954 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
app/DD_PM_WINDREAM/App.config
View File

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

40
app/DD_PM_WINDREAM/ClassControl.vb
View File

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

52
app/DD_PM_WINDREAM/ClassControls.vb
View File

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

1
app/DD_PM_WINDREAM/ClassPMWindream.vb
View File

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

30
app/DD_PM_WINDREAM/ClassSQLEditor.vb Normal file
View File

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

14
app/DD_PM_WINDREAM/DD_PM_WINDREAM.vbproj
View File

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

256
app/DD_PM_WINDREAM/ModuleControlProperties.vb
View File

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

50
app/DD_PM_WINDREAM/ModuleHelperMethods.vb Normal file
View File

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

6
app/DD_PM_WINDREAM/My Project/Application.Designer.vb generated
View File

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

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

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

21
app/DD_PM_WINDREAM/frmFormDesigner.resx
View File

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

716
app/DD_PM_WINDREAM/frmFormDesigner.vb
View File

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

1
app/DD_PM_WINDREAM/frmSQL_DESIGNER.Designer.vb generated
View File

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

16
app/DD_PM_WINDREAM/frmSQL_DESIGNER.resx
View File

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

28
app/DD_PM_WINDREAM/frmSQL_DESIGNER.vb
View File

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