diff --git a/app/DD_PM_WINDREAM/ClassInit.vb b/app/DD_PM_WINDREAM/ClassInit.vb index 4c19896..f930db2 100644 --- a/app/DD_PM_WINDREAM/ClassInit.vb +++ b/app/DD_PM_WINDREAM/ClassInit.vb @@ -14,10 +14,14 @@ Public Class ClassInit Public Sub InitLogger() - LOGCONFIG = New LogConfig(LogConfig.PathType.AppData) + LOGCONFIG = New LogConfig(LogConfig.PathType.CustomPath, + Application.UserAppDataPath & "\Log", + Nothing, + My.Application.Info.CompanyName, + My.Application.Info.ProductName) LOGGER = LOGCONFIG.GetLogger("ProcessManager") - LOGGER.Info("## ProcessManager für Windream gestartet - {0}", Now) + LOGGER.Info("## ProcessManager started - {0}", Now) End Sub diff --git a/app/DD_PM_WINDREAM/frmAdmin2.Designer.vb b/app/DD_PM_WINDREAM/frmAdmin2.Designer.vb index 6d7bccb..ec34ab5 100644 --- a/app/DD_PM_WINDREAM/frmAdmin2.Designer.vb +++ b/app/DD_PM_WINDREAM/frmAdmin2.Designer.vb @@ -231,6 +231,7 @@ Partial Class frmAdmin2 Me.RibbonControl1.MaxItemId = 14 Me.RibbonControl1.Name = "RibbonControl1" Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1}) + Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False] Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1 ' 'BbitemplateAdd diff --git a/app/DD_PM_WINDREAM/frmAdmin2.resx b/app/DD_PM_WINDREAM/frmAdmin2.resx index ee577bf..247e57f 100644 --- a/app/DD_PM_WINDREAM/frmAdmin2.resx +++ b/app/DD_PM_WINDREAM/frmAdmin2.resx @@ -623,6 +623,9 @@ False + + Segoe UI, 9pt + 50, 23 @@ -1589,6 +1592,9 @@ False + + Segoe UI, 9pt + 50, 23 diff --git a/app/DD_PM_WINDREAM/frmFormDesigner.Designer.vb b/app/DD_PM_WINDREAM/frmFormDesigner.Designer.vb index e30baee..444ae13 100644 --- a/app/DD_PM_WINDREAM/frmFormDesigner.Designer.vb +++ b/app/DD_PM_WINDREAM/frmFormDesigner.Designer.vb @@ -24,25 +24,7 @@ Partial Class frmFormDesigner Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container() Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmFormDesigner)) - Me.GroupBox1 = New System.Windows.Forms.GroupBox() - Me.btnButton = New System.Windows.Forms.Button() - Me.btnLine = New System.Windows.Forms.Button() - Me.btnTabelle = New System.Windows.Forms.Button() - Me.btnCheckbox = New System.Windows.Forms.Button() - Me.btnVektor = New System.Windows.Forms.Button() - Me.btndtp = New System.Windows.Forms.Button() - Me.btntextbox = New System.Windows.Forms.Button() - Me.btnlabel = New System.Windows.Forms.Button() - Me.TabControlEigenschaften = New System.Windows.Forms.TabControl() - Me.pageProperties = New System.Windows.Forms.TabPage() Me.pgControls = New System.Windows.Forms.PropertyGrid() - Me.pageFormat = 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.Label2 = New System.Windows.Forms.Label() - Me.btnwidth_minus = New System.Windows.Forms.Button() - Me.btnwidth_plus = New System.Windows.Forms.Button() Me.TBPM_PROFILE_CONTROLSBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.DD_DMSLiteDataSet = New DD_ProcessManager.DD_DMSLiteDataSet() Me.TBDD_CONNECTIONBindingSource = New System.Windows.Forms.BindingSource(Me.components) @@ -60,9 +42,8 @@ Partial Class frmFormDesigner Me.MenuItemAddColumn = New System.Windows.Forms.ToolStripMenuItem() Me.SplitContainerDesigner = New System.Windows.Forms.SplitContainer() Me.pnldesigner = New DD_ProcessManager.ClassSnapPanel() - Me.Label1 = New System.Windows.Forms.Label() - Me.lblhintergrund = New System.Windows.Forms.Label() Me.Panel1 = New System.Windows.Forms.Panel() + Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar() Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl() Me.bbtnItemFinishSQL = New DevExpress.XtraBars.BarButtonItem() Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem() @@ -71,16 +52,29 @@ Partial Class frmFormDesigner Me.BarStaticItem1 = New DevExpress.XtraBars.BarStaticItem() Me.BarButtonItem4 = New DevExpress.XtraBars.BarButtonItem() Me.BarButtonItem5 = New DevExpress.XtraBars.BarButtonItem() + Me.bbtnitLabel = New DevExpress.XtraBars.BarButtonItem() + Me.bbtnitTextBox = New DevExpress.XtraBars.BarButtonItem() + Me.bbtnitLU = New DevExpress.XtraBars.BarButtonItem() + Me.bbtnitTable = New DevExpress.XtraBars.BarButtonItem() + Me.bbtnitDatePicker = New DevExpress.XtraBars.BarButtonItem() + Me.bbtnitCheckBox = New DevExpress.XtraBars.BarButtonItem() + Me.bbtnitButton = New DevExpress.XtraBars.BarButtonItem() + Me.bbtnitLine = New DevExpress.XtraBars.BarButtonItem() + Me.bbtniwidth_plus = New DevExpress.XtraBars.BarButtonItem() + Me.bbtniwidth_min = New DevExpress.XtraBars.BarButtonItem() + Me.bbtniheight_plus = New DevExpress.XtraBars.BarButtonItem() + Me.bbtniheight_min = New DevExpress.XtraBars.BarButtonItem() + Me.RibbonPageCategory1 = New DevExpress.XtraBars.Ribbon.RibbonPageCategory() Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage() Me.RibbonPageGroup3 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() - Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar() + Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RibPGCtrlWidth = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RibPGCtrlheight = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage() Me.RPGControlFunction = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() - Me.GroupBox1.SuspendLayout() - Me.TabControlEigenschaften.SuspendLayout() - Me.pageProperties.SuspendLayout() - Me.pageFormat.SuspendLayout() + Me.RibbonPage3 = New DevExpress.XtraBars.Ribbon.RibbonPage() + Me.RibbonPageGroup4 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() CType(Me.TBPM_PROFILE_CONTROLSBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.DD_DMSLiteDataSet, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBDD_CONNECTIONBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() @@ -92,271 +86,20 @@ Partial Class frmFormDesigner Me.SplitContainerDesigner.Panel1.SuspendLayout() Me.SplitContainerDesigner.Panel2.SuspendLayout() Me.SplitContainerDesigner.SuspendLayout() - Me.pnldesigner.SuspendLayout() Me.Panel1.SuspendLayout() CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' - 'GroupBox1 - ' - Me.GroupBox1.Controls.Add(Me.btnButton) - Me.GroupBox1.Controls.Add(Me.btnLine) - Me.GroupBox1.Controls.Add(Me.btnTabelle) - Me.GroupBox1.Controls.Add(Me.btnCheckbox) - Me.GroupBox1.Controls.Add(Me.btnVektor) - Me.GroupBox1.Controls.Add(Me.btndtp) - Me.GroupBox1.Controls.Add(Me.btntextbox) - Me.GroupBox1.Controls.Add(Me.btnlabel) - Me.GroupBox1.Dock = System.Windows.Forms.DockStyle.Top - Me.GroupBox1.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.GroupBox1.Location = New System.Drawing.Point(0, 0) - Me.GroupBox1.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) - Me.GroupBox1.Name = "GroupBox1" - Me.GroupBox1.Padding = New System.Windows.Forms.Padding(3, 2, 3, 2) - Me.GroupBox1.Size = New System.Drawing.Size(373, 133) - Me.GroupBox1.TabIndex = 2 - Me.GroupBox1.TabStop = False - Me.GroupBox1.Text = "Control-Typ (Drag and Drop)" - ' - 'btnButton - ' - Me.btnButton.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.btnButton.Image = CType(resources.GetObject("btnButton.Image"), System.Drawing.Image) - Me.btnButton.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnButton.Location = New System.Drawing.Point(228, 28) - Me.btnButton.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) - Me.btnButton.Name = "btnButton" - Me.btnButton.Size = New System.Drawing.Size(100, 25) - Me.btnButton.TabIndex = 8 - Me.btnButton.Text = "Button" - Me.btnButton.TextAlign = System.Drawing.ContentAlignment.MiddleRight - Me.btnButton.UseVisualStyleBackColor = True - ' - 'btnLine - ' - Me.btnLine.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.btnLine.Image = CType(resources.GetObject("btnLine.Image"), System.Drawing.Image) - Me.btnLine.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnLine.Location = New System.Drawing.Point(228, 87) - Me.btnLine.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) - Me.btnLine.Name = "btnLine" - Me.btnLine.Size = New System.Drawing.Size(100, 25) - Me.btnLine.TabIndex = 7 - Me.btnLine.Text = "Linie" - Me.btnLine.TextAlign = System.Drawing.ContentAlignment.MiddleRight - Me.btnLine.UseVisualStyleBackColor = True - ' - 'btnTabelle - ' - Me.btnTabelle.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.btnTabelle.Image = Global.DD_ProcessManager.My.Resources.Resources.table_add - Me.btnTabelle.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnTabelle.Location = New System.Drawing.Point(122, 29) - Me.btnTabelle.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) - Me.btnTabelle.Name = "btnTabelle" - Me.btnTabelle.Size = New System.Drawing.Size(100, 25) - 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_ProcessManager.My.Resources.Resources.checkbox_16xLG - Me.btnCheckbox.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnCheckbox.Location = New System.Drawing.Point(122, 87) - Me.btnCheckbox.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) - Me.btnCheckbox.Name = "btnCheckbox" - Me.btnCheckbox.Size = New System.Drawing.Size(100, 25) - 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_ProcessManager.My.Resources.Resources.ComboBox_16xLG - Me.btnVektor.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnVektor.Location = New System.Drawing.Point(16, 87) - Me.btnVektor.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) - Me.btnVektor.Name = "btnVektor" - Me.btnVektor.Size = New System.Drawing.Size(100, 25) - Me.btnVektor.TabIndex = 4 - Me.btnVektor.Text = "LookupControl" - 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_ProcessManager.My.Resources.Resources.DateOrTimePicker_675 - Me.btndtp.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btndtp.Location = New System.Drawing.Point(122, 58) - Me.btndtp.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) - Me.btndtp.Name = "btndtp" - Me.btndtp.Size = New System.Drawing.Size(100, 25) - Me.btndtp.TabIndex = 3 - Me.btndtp.Text = "DatePicker" - Me.btndtp.TextAlign = System.Drawing.ContentAlignment.MiddleRight - Me.btndtp.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_ProcessManager.My.Resources.Resources.TextBox_708 - Me.btntextbox.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btntextbox.Location = New System.Drawing.Point(16, 58) - Me.btntextbox.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) - Me.btntextbox.Name = "btntextbox" - Me.btntextbox.Size = New System.Drawing.Size(100, 25) - 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_ProcessManager.My.Resources.Resources.Label_684 - Me.btnlabel.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnlabel.Location = New System.Drawing.Point(16, 28) - Me.btnlabel.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) - Me.btnlabel.Name = "btnlabel" - Me.btnlabel.Size = New System.Drawing.Size(100, 25) - Me.btnlabel.TabIndex = 0 - Me.btnlabel.Text = "Label" - Me.btnlabel.TextAlign = System.Drawing.ContentAlignment.MiddleRight - Me.btnlabel.UseVisualStyleBackColor = True - ' - 'TabControlEigenschaften - ' - Me.TabControlEigenschaften.Controls.Add(Me.pageProperties) - Me.TabControlEigenschaften.Controls.Add(Me.pageFormat) - Me.TabControlEigenschaften.Dock = System.Windows.Forms.DockStyle.Fill - Me.TabControlEigenschaften.Enabled = False - Me.TabControlEigenschaften.Location = New System.Drawing.Point(0, 0) - Me.TabControlEigenschaften.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) - Me.TabControlEigenschaften.Name = "TabControlEigenschaften" - Me.TabControlEigenschaften.SelectedIndex = 0 - Me.TabControlEigenschaften.Size = New System.Drawing.Size(373, 287) - Me.TabControlEigenschaften.TabIndex = 22 - ' - 'pageProperties - ' - Me.pageProperties.Controls.Add(Me.pgControls) - Me.pageProperties.Location = New System.Drawing.Point(4, 25) - Me.pageProperties.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) - Me.pageProperties.Name = "pageProperties" - Me.pageProperties.Padding = New System.Windows.Forms.Padding(3, 2, 3, 2) - Me.pageProperties.Size = New System.Drawing.Size(365, 258) - Me.pageProperties.TabIndex = 3 - Me.pageProperties.Text = "Eigenschaften" - Me.pageProperties.UseVisualStyleBackColor = True - ' 'pgControls ' Me.pgControls.Dock = System.Windows.Forms.DockStyle.Fill Me.pgControls.HelpVisible = False - Me.pgControls.Location = New System.Drawing.Point(3, 2) + Me.pgControls.Location = New System.Drawing.Point(0, 0) Me.pgControls.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) Me.pgControls.Name = "pgControls" - Me.pgControls.Size = New System.Drawing.Size(359, 254) + Me.pgControls.Size = New System.Drawing.Size(373, 420) Me.pgControls.TabIndex = 0 ' - 'pageFormat - ' - Me.pageFormat.Controls.Add(Me.btnheight_minus) - Me.pageFormat.Controls.Add(Me.btnheight_plus) - Me.pageFormat.Controls.Add(Me.Label3) - Me.pageFormat.Controls.Add(Me.Label2) - Me.pageFormat.Controls.Add(Me.btnwidth_minus) - Me.pageFormat.Controls.Add(Me.btnwidth_plus) - Me.pageFormat.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.pageFormat.Location = New System.Drawing.Point(4, 25) - Me.pageFormat.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) - Me.pageFormat.Name = "pageFormat" - Me.pageFormat.Padding = New System.Windows.Forms.Padding(3, 2, 3, 2) - Me.pageFormat.Size = New System.Drawing.Size(365, 258) - Me.pageFormat.TabIndex = 1 - Me.pageFormat.Text = "Format" - Me.pageFormat.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_ProcessManager.My.Resources.Resources.zoom_out - Me.btnheight_minus.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnheight_minus.Location = New System.Drawing.Point(118, 74) - Me.btnheight_minus.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) - Me.btnheight_minus.Name = "btnheight_minus" - Me.btnheight_minus.Size = New System.Drawing.Size(100, 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_ProcessManager.My.Resources.Resources.zoom_in - Me.btnheight_plus.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnheight_plus.Location = New System.Drawing.Point(12, 74) - Me.btnheight_plus.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) - Me.btnheight_plus.Name = "btnheight_plus" - Me.btnheight_plus.Size = New System.Drawing.Size(100, 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 - Me.Label3.Location = New System.Drawing.Point(13, 56) - Me.Label3.Name = "Label3" - Me.Label3.Size = New System.Drawing.Size(42, 16) - Me.Label3.TabIndex = 5 - Me.Label3.Text = "Höhe:" - ' - 'Label2 - ' - Me.Label2.AutoSize = True - Me.Label2.Location = New System.Drawing.Point(9, 11) - Me.Label2.Name = "Label2" - Me.Label2.Size = New System.Drawing.Size(46, 16) - Me.Label2.TabIndex = 4 - Me.Label2.Text = "Breite:" - ' - '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_ProcessManager.My.Resources.Resources.zoom_out - Me.btnwidth_minus.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnwidth_minus.Location = New System.Drawing.Point(118, 29) - Me.btnwidth_minus.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) - Me.btnwidth_minus.Name = "btnwidth_minus" - Me.btnwidth_minus.Size = New System.Drawing.Size(100, 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_ProcessManager.My.Resources.Resources.zoom_in - Me.btnwidth_plus.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnwidth_plus.Location = New System.Drawing.Point(12, 29) - Me.btnwidth_plus.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) - Me.btnwidth_plus.Name = "btnwidth_plus" - Me.btnwidth_plus.Size = New System.Drawing.Size(100, 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 - ' 'TBPM_PROFILE_CONTROLSBindingSource ' Me.TBPM_PROFILE_CONTROLSBindingSource.DataMember = "TBPM_PROFILE_CONTROLS" @@ -456,7 +199,6 @@ Partial Class frmFormDesigner 'SplitContainerDesigner.Panel2 ' Me.SplitContainerDesigner.Panel2.Controls.Add(Me.Panel1) - Me.SplitContainerDesigner.Panel2.Controls.Add(Me.GroupBox1) Me.SplitContainerDesigner.Size = New System.Drawing.Size(1199, 420) Me.SplitContainerDesigner.SplitterDistance = 822 Me.SplitContainerDesigner.TabIndex = 25 @@ -467,8 +209,6 @@ Partial Class frmFormDesigner Me.pnldesigner.AutoScroll = True Me.pnldesigner.BackColor = System.Drawing.Color.Transparent Me.pnldesigner.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.pnldesigner.Controls.Add(Me.Label1) - Me.pnldesigner.Controls.Add(Me.lblhintergrund) Me.pnldesigner.Dock = System.Windows.Forms.DockStyle.Fill Me.pnldesigner.GridSize = 10 Me.pnldesigner.Location = New System.Drawing.Point(0, 0) @@ -478,45 +218,33 @@ Partial Class frmFormDesigner Me.pnldesigner.Size = New System.Drawing.Size(822, 420) Me.pnldesigner.TabIndex = 3 ' - 'Label1 - ' - Me.Label1.AutoSize = True - Me.Label1.ForeColor = System.Drawing.SystemColors.InactiveCaption - Me.Label1.Location = New System.Drawing.Point(30, 20) - Me.Label1.Name = "Label1" - Me.Label1.Size = New System.Drawing.Size(347, 16) - Me.Label1.TabIndex = 6 - Me.Label1.Text = "Gestalten sie in diesem Bereich Ihre Validierungsoberfläche" - ' - 'lblhintergrund - ' - Me.lblhintergrund.AutoSize = True - Me.lblhintergrund.Font = New System.Drawing.Font("Tahoma", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lblhintergrund.ForeColor = System.Drawing.SystemColors.InactiveCaption - Me.lblhintergrund.Location = New System.Drawing.Point(30, 20) - Me.lblhintergrund.Name = "lblhintergrund" - Me.lblhintergrund.Size = New System.Drawing.Size(248, 29) - Me.lblhintergrund.TabIndex = 1 - Me.lblhintergrund.Text = "Validierungsbereich" - ' 'Panel1 ' - Me.Panel1.Controls.Add(Me.TabControlEigenschaften) + Me.Panel1.Controls.Add(Me.pgControls) Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill - Me.Panel1.Location = New System.Drawing.Point(0, 133) + Me.Panel1.Location = New System.Drawing.Point(0, 0) Me.Panel1.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) Me.Panel1.Name = "Panel1" - Me.Panel1.Size = New System.Drawing.Size(373, 287) + Me.Panel1.Size = New System.Drawing.Size(373, 420) Me.Panel1.TabIndex = 23 ' + 'RibbonStatusBar1 + ' + Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 588) + Me.RibbonStatusBar1.Name = "RibbonStatusBar1" + Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1 + Me.RibbonStatusBar1.Size = New System.Drawing.Size(1199, 21) + ' 'RibbonControl1 ' Me.RibbonControl1.ExpandCollapseItem.Id = 0 - Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.bbtnItemFinishSQL, Me.BarButtonItem1, Me.BarButtonItem2, Me.BarButtonItem3, Me.BarStaticItem1, Me.BarButtonItem4, Me.BarButtonItem5}) + Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.bbtnItemFinishSQL, Me.BarButtonItem1, Me.BarButtonItem2, Me.BarButtonItem3, Me.BarStaticItem1, Me.BarButtonItem4, Me.BarButtonItem5, Me.bbtnitLabel, Me.bbtnitTextBox, Me.bbtnitLU, Me.bbtnitTable, Me.bbtnitDatePicker, Me.bbtnitCheckBox, Me.bbtnitButton, Me.bbtnitLine, Me.bbtniwidth_plus, Me.bbtniwidth_min, Me.bbtniheight_plus, Me.bbtniheight_min}) Me.RibbonControl1.Location = New System.Drawing.Point(0, 0) - Me.RibbonControl1.MaxItemId = 8 + Me.RibbonControl1.MaxItemId = 20 Me.RibbonControl1.Name = "RibbonControl1" + Me.RibbonControl1.PageCategories.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageCategory() {Me.RibbonPageCategory1}) Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1}) + Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False] Me.RibbonControl1.Size = New System.Drawing.Size(1199, 146) Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1 ' @@ -576,11 +304,107 @@ Partial Class frmFormDesigner Me.BarButtonItem5.Id = 7 Me.BarButtonItem5.Name = "BarButtonItem5" ' + 'bbtnitLabel + ' + Me.bbtnitLabel.Caption = "Label" + Me.bbtnitLabel.Id = 8 + Me.bbtnitLabel.ImageOptions.Image = CType(resources.GetObject("bbtnitLabel.ImageOptions.Image"), System.Drawing.Image) + Me.bbtnitLabel.ImageOptions.LargeImage = CType(resources.GetObject("bbtnitLabel.ImageOptions.LargeImage"), System.Drawing.Image) + Me.bbtnitLabel.Name = "bbtnitLabel" + ' + 'bbtnitTextBox + ' + Me.bbtnitTextBox.Caption = "TextBox" + Me.bbtnitTextBox.Id = 9 + Me.bbtnitTextBox.ImageOptions.SvgImage = CType(resources.GetObject("bbtnitTextBox.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.bbtnitTextBox.Name = "bbtnitTextBox" + ' + 'bbtnitLU + ' + Me.bbtnitLU.Caption = "LookupControl" + Me.bbtnitLU.Id = 10 + Me.bbtnitLU.ImageOptions.Image = CType(resources.GetObject("bbtnitLU.ImageOptions.Image"), System.Drawing.Image) + Me.bbtnitLU.ImageOptions.LargeImage = CType(resources.GetObject("bbtnitLU.ImageOptions.LargeImage"), System.Drawing.Image) + Me.bbtnitLU.Name = "bbtnitLU" + ' + 'bbtnitTable + ' + Me.bbtnitTable.Caption = "Tabelle" + Me.bbtnitTable.Id = 11 + Me.bbtnitTable.ImageOptions.Image = CType(resources.GetObject("bbtnitTable.ImageOptions.Image"), System.Drawing.Image) + Me.bbtnitTable.ImageOptions.LargeImage = CType(resources.GetObject("bbtnitTable.ImageOptions.LargeImage"), System.Drawing.Image) + Me.bbtnitTable.Name = "bbtnitTable" + ' + 'bbtnitDatePicker + ' + Me.bbtnitDatePicker.Caption = "Datepicker" + Me.bbtnitDatePicker.Id = 12 + Me.bbtnitDatePicker.ImageOptions.Image = CType(resources.GetObject("bbtnitDatePicker.ImageOptions.Image"), System.Drawing.Image) + Me.bbtnitDatePicker.ImageOptions.LargeImage = CType(resources.GetObject("bbtnitDatePicker.ImageOptions.LargeImage"), System.Drawing.Image) + Me.bbtnitDatePicker.Name = "bbtnitDatePicker" + ' + 'bbtnitCheckBox + ' + Me.bbtnitCheckBox.Caption = "CheckBox" + Me.bbtnitCheckBox.Id = 13 + Me.bbtnitCheckBox.ImageOptions.Image = CType(resources.GetObject("bbtnitCheckBox.ImageOptions.Image"), System.Drawing.Image) + Me.bbtnitCheckBox.ImageOptions.LargeImage = CType(resources.GetObject("bbtnitCheckBox.ImageOptions.LargeImage"), System.Drawing.Image) + Me.bbtnitCheckBox.Name = "bbtnitCheckBox" + ' + 'bbtnitButton + ' + Me.bbtnitButton.Caption = "Button" + Me.bbtnitButton.Id = 14 + Me.bbtnitButton.ImageOptions.Image = CType(resources.GetObject("bbtnitButton.ImageOptions.Image"), System.Drawing.Image) + Me.bbtnitButton.ImageOptions.LargeImage = CType(resources.GetObject("bbtnitButton.ImageOptions.LargeImage"), System.Drawing.Image) + Me.bbtnitButton.Name = "bbtnitButton" + ' + 'bbtnitLine + ' + Me.bbtnitLine.Caption = "Linie" + Me.bbtnitLine.Id = 15 + Me.bbtnitLine.ImageOptions.Image = CType(resources.GetObject("bbtnitLine.ImageOptions.Image"), System.Drawing.Image) + Me.bbtnitLine.ImageOptions.LargeImage = CType(resources.GetObject("bbtnitLine.ImageOptions.LargeImage"), System.Drawing.Image) + Me.bbtnitLine.Name = "bbtnitLine" + ' + 'bbtniwidth_plus + ' + Me.bbtniwidth_plus.Caption = "Breiter" + Me.bbtniwidth_plus.Id = 16 + Me.bbtniwidth_plus.ImageOptions.SvgImage = CType(resources.GetObject("bbtniwidth_plus.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.bbtniwidth_plus.Name = "bbtniwidth_plus" + ' + 'bbtniwidth_min + ' + Me.bbtniwidth_min.Caption = "Schmaler" + Me.bbtniwidth_min.Id = 17 + Me.bbtniwidth_min.ImageOptions.SvgImage = CType(resources.GetObject("bbtniwidth_min.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.bbtniwidth_min.Name = "bbtniwidth_min" + ' + 'bbtniheight_plus + ' + Me.bbtniheight_plus.Caption = "Größer" + Me.bbtniheight_plus.Id = 18 + Me.bbtniheight_plus.ImageOptions.SvgImage = CType(resources.GetObject("bbtniheight_plus.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.bbtniheight_plus.Name = "bbtniheight_plus" + ' + 'bbtniheight_min + ' + Me.bbtniheight_min.Caption = "Kleiner" + Me.bbtniheight_min.Id = 19 + Me.bbtniheight_min.ImageOptions.SvgImage = CType(resources.GetObject("bbtniheight_min.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.bbtniheight_min.Name = "bbtniheight_min" + ' + 'RibbonPageCategory1 + ' + Me.RibbonPageCategory1.Name = "RibbonPageCategory1" + Me.RibbonPageCategory1.Text = "RibbonPageCategory1" + ' 'RibbonPage1 ' - Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup3, Me.RibbonPageGroup1}) + Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup3, Me.RibbonPageGroup1, Me.RibbonPageGroup2, Me.RibPGCtrlWidth, Me.RibPGCtrlheight}) Me.RibbonPage1.Name = "RibbonPage1" - Me.RibbonPage1.Text = "Hintergrundfunktionen" + Me.RibbonPage1.Text = "Start" ' 'RibbonPageGroup3 ' @@ -597,12 +421,32 @@ Partial Class frmFormDesigner Me.RibbonPageGroup1.Name = "RibbonPageGroup1" Me.RibbonPageGroup1.Text = "Funktionen" ' - 'RibbonStatusBar1 + 'RibbonPageGroup2 ' - Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 588) - Me.RibbonStatusBar1.Name = "RibbonStatusBar1" - Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1 - Me.RibbonStatusBar1.Size = New System.Drawing.Size(1199, 21) + Me.RibbonPageGroup2.ItemLinks.Add(Me.bbtnitLabel) + Me.RibbonPageGroup2.ItemLinks.Add(Me.bbtnitTextBox) + Me.RibbonPageGroup2.ItemLinks.Add(Me.bbtnitLU) + Me.RibbonPageGroup2.ItemLinks.Add(Me.bbtnitTable) + Me.RibbonPageGroup2.ItemLinks.Add(Me.bbtnitDatePicker) + Me.RibbonPageGroup2.ItemLinks.Add(Me.bbtnitCheckBox) + Me.RibbonPageGroup2.ItemLinks.Add(Me.bbtnitButton) + Me.RibbonPageGroup2.ItemLinks.Add(Me.bbtnitLine) + Me.RibbonPageGroup2.Name = "RibbonPageGroup2" + Me.RibbonPageGroup2.Text = "Controls einfügen" + ' + 'RibPGCtrlWidth + ' + Me.RibPGCtrlWidth.ItemLinks.Add(Me.bbtniwidth_plus) + Me.RibPGCtrlWidth.ItemLinks.Add(Me.bbtniwidth_min) + Me.RibPGCtrlWidth.Name = "RibPGCtrlWidth" + Me.RibPGCtrlWidth.Text = "Control - Breite" + ' + 'RibPGCtrlheight + ' + Me.RibPGCtrlheight.ItemLinks.Add(Me.bbtniheight_plus) + Me.RibPGCtrlheight.ItemLinks.Add(Me.bbtniheight_min) + Me.RibPGCtrlheight.Name = "RibPGCtrlheight" + Me.RibPGCtrlheight.Text = "Control - Höhe" ' 'RibbonPage2 ' @@ -614,6 +458,16 @@ Partial Class frmFormDesigner Me.RPGControlFunction.Name = "RPGControlFunction" Me.RPGControlFunction.Text = "Control-Funktionen" ' + 'RibbonPage3 + ' + Me.RibbonPage3.Name = "RibbonPage3" + Me.RibbonPage3.Text = "RibbonPage3" + ' + 'RibbonPageGroup4 + ' + Me.RibbonPageGroup4.Name = "RibbonPageGroup4" + Me.RibbonPageGroup4.Text = "RibbonPageGroup4" + ' 'frmFormDesigner ' Me.Appearance.Options.UseFont = True @@ -632,11 +486,7 @@ Partial Class frmFormDesigner Me.Ribbon = Me.RibbonControl1 Me.StatusBar = Me.RibbonStatusBar1 Me.Text = "Validation-Designer" - Me.GroupBox1.ResumeLayout(False) - Me.TabControlEigenschaften.ResumeLayout(False) - Me.pageProperties.ResumeLayout(False) - Me.pageFormat.ResumeLayout(False) - Me.pageFormat.PerformLayout() + Me.WindowState = System.Windows.Forms.FormWindowState.Maximized CType(Me.TBPM_PROFILE_CONTROLSBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.DD_DMSLiteDataSet, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TBDD_CONNECTIONBindingSource, System.ComponentModel.ISupportInitialize).EndInit() @@ -649,8 +499,6 @@ Partial Class frmFormDesigner Me.SplitContainerDesigner.Panel2.ResumeLayout(False) CType(Me.SplitContainerDesigner, System.ComponentModel.ISupportInitialize).EndInit() Me.SplitContainerDesigner.ResumeLayout(False) - Me.pnldesigner.ResumeLayout(False) - Me.pnldesigner.PerformLayout() Me.Panel1.ResumeLayout(False) CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) @@ -661,53 +509,51 @@ Partial Class frmFormDesigner Friend WithEvents TBPM_PROFILE_CONTROLSBindingSource As System.Windows.Forms.BindingSource Friend WithEvents TBPM_PROFILE_CONTROLSTableAdapter As DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILE_CONTROLSTableAdapter Friend WithEvents TableAdapterManager As DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TableAdapterManager - Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox - Friend WithEvents btnlabel As System.Windows.Forms.Button - Friend WithEvents btntextbox As System.Windows.Forms.Button Friend WithEvents pnldesigner As DD_ProcessManager.ClassSnapPanel - Friend WithEvents btndtp As System.Windows.Forms.Button - Friend WithEvents lblhintergrund As System.Windows.Forms.Label - Friend WithEvents Label1 As System.Windows.Forms.Label Friend WithEvents StatusStrip1 As System.Windows.Forms.StatusStrip Friend WithEvents tslblAenderungen As System.Windows.Forms.ToolStripStatusLabel - Friend WithEvents TabControlEigenschaften As System.Windows.Forms.TabControl - Friend WithEvents pageFormat As System.Windows.Forms.TabPage - Friend WithEvents btnwidth_minus As System.Windows.Forms.Button - Friend WithEvents btnwidth_plus As System.Windows.Forms.Button - Friend WithEvents btnheight_minus As System.Windows.Forms.Button - 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 btnVektor As System.Windows.Forms.Button Friend WithEvents TBDD_CONNECTIONBindingSource As System.Windows.Forms.BindingSource Friend WithEvents TBDD_CONNECTIONTableAdapter As DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBDD_CONNECTIONTableAdapter - Friend WithEvents btnCheckbox As System.Windows.Forms.Button Friend WithEvents TBWH_CHECK_PROFILE_CONTROLSBindingSource As System.Windows.Forms.BindingSource Friend WithEvents TBWH_CHECK_PROFILE_CONTROLSTableAdapter As DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBWH_CHECK_PROFILE_CONTROLSTableAdapter Friend WithEvents ToolTip1 As System.Windows.Forms.ToolTip - Friend WithEvents btnTabelle As System.Windows.Forms.Button Friend WithEvents TBPM_CONTROL_TABLEBindingSource As System.Windows.Forms.BindingSource Friend WithEvents TBPM_CONTROL_TABLETableAdapter As DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBPM_CONTROL_TABLETableAdapter - Friend WithEvents pageProperties As TabPage Friend WithEvents pgControls As PropertyGrid - Friend WithEvents btnLine As Button Friend WithEvents GridControlContextMenu As ContextMenuStrip Friend WithEvents MenuItemAddColumn As ToolStripMenuItem Friend WithEvents SplitContainerDesigner As SplitContainer - Friend WithEvents btnButton As Button - Friend WithEvents RibbonControl1 As DevExpress.XtraBars.Ribbon.RibbonControl - Friend WithEvents RibbonPage1 As DevExpress.XtraBars.Ribbon.RibbonPage - Friend WithEvents RibbonPageGroup1 As DevExpress.XtraBars.Ribbon.RibbonPageGroup Friend WithEvents RibbonStatusBar1 As DevExpress.XtraBars.Ribbon.RibbonStatusBar Friend WithEvents RibbonPage2 As DevExpress.XtraBars.Ribbon.RibbonPage + Friend WithEvents Panel1 As Panel + Friend WithEvents RPGControlFunction As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents RibbonControl1 As DevExpress.XtraBars.Ribbon.RibbonControl Friend WithEvents bbtnItemFinishSQL As DevExpress.XtraBars.BarButtonItem Friend WithEvents BarButtonItem1 As DevExpress.XtraBars.BarButtonItem Friend WithEvents BarButtonItem2 As DevExpress.XtraBars.BarButtonItem Friend WithEvents BarButtonItem3 As DevExpress.XtraBars.BarButtonItem - Friend WithEvents Panel1 As Panel Friend WithEvents BarStaticItem1 As DevExpress.XtraBars.BarStaticItem - Friend WithEvents RPGControlFunction As DevExpress.XtraBars.Ribbon.RibbonPageGroup Friend WithEvents BarButtonItem4 As DevExpress.XtraBars.BarButtonItem Friend WithEvents BarButtonItem5 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents bbtnitLabel As DevExpress.XtraBars.BarButtonItem + Friend WithEvents bbtnitTextBox As DevExpress.XtraBars.BarButtonItem + Friend WithEvents bbtnitLU As DevExpress.XtraBars.BarButtonItem + Friend WithEvents bbtnitTable As DevExpress.XtraBars.BarButtonItem + Friend WithEvents bbtnitDatePicker As DevExpress.XtraBars.BarButtonItem + Friend WithEvents bbtnitCheckBox As DevExpress.XtraBars.BarButtonItem + Friend WithEvents bbtnitButton As DevExpress.XtraBars.BarButtonItem + Friend WithEvents bbtnitLine As DevExpress.XtraBars.BarButtonItem + Friend WithEvents RibbonPageCategory1 As DevExpress.XtraBars.Ribbon.RibbonPageCategory + Friend WithEvents RibbonPage1 As DevExpress.XtraBars.Ribbon.RibbonPage Friend WithEvents RibbonPageGroup3 As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents RibbonPageGroup1 As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents RibbonPageGroup2 As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents RibbonPage3 As DevExpress.XtraBars.Ribbon.RibbonPage + Friend WithEvents RibbonPageGroup4 As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents bbtniwidth_plus As DevExpress.XtraBars.BarButtonItem + Friend WithEvents bbtniwidth_min As DevExpress.XtraBars.BarButtonItem + Friend WithEvents bbtniheight_plus As DevExpress.XtraBars.BarButtonItem + Friend WithEvents bbtniheight_min As DevExpress.XtraBars.BarButtonItem + Friend WithEvents RibPGCtrlWidth As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents RibPGCtrlheight As DevExpress.XtraBars.Ribbon.RibbonPageGroup End Class diff --git a/app/DD_PM_WINDREAM/frmFormDesigner.resx b/app/DD_PM_WINDREAM/frmFormDesigner.resx index 9f5238d..3224d36 100644 --- a/app/DD_PM_WINDREAM/frmFormDesigner.resx +++ b/app/DD_PM_WINDREAM/frmFormDesigner.resx @@ -117,23 +117,6 @@ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - xAAADsQBlSsOGwAAAIpJREFUOE+lk90NgCAMhBmJGRiOcWQ09IXX2qIlFZXyQ3KGlrsvTUADAEu6PrhS - ShYVUdAh8tkcJAAV1PTeg3NOFfkK5AZ0h1kMYUA5CFuAPR6/onP2Uu4F+ArVfRUg961anYBrNsuae80J - ZD0MqANDAGmq9ypg9hqXH9LaU6bFEFQeTdHzZ5oXmBPS2sxhLqehfwAAAABJRU5ErkJggg== - - - - - iVBORw0KGgoAAAANSUhEUgAAABYAAAAWCAYAAADEtGw7AAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - wwAADsMBx2+oZAAAABl0RVh0U29mdHdhcmUAcGFpbnQubmV0IDQuMC4xMzQDW3oAAAA0SURBVEhLYxgF - o2AUEAe8gDiICpgbiFHACyD+TwWsCMQoIA2IC6iA+YF4FIyCUTAAgIEBAJUPH6VVzyeQAAAAAElFTkSu - QmCC - - 368, 17 @@ -287,6 +270,427 @@ MC40LDAuNC0wLjQsMSwwLDEuNGwxLjQsMS40YzAuNCwwLjQsMSwwLjQsMS40LDBsNi45LTYuOWw2Ljks Ni45ICAgIGMwLjQsMC40LDEsMC40LDEuNCwwbDEuNC0xLjRjMC40LTAuNCwwLjQtMSwwLTEuNEwxOC44 LDE2eiIgY2xhc3M9IlJlZCIgLz4NCiAgICA8L2c+DQogIDwvZz4NCjwvc3ZnPgs= + + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAMdEVYdFRpdGxlAExhYmVsO8It7eEAAAJ3SURBVDhP + Y/j//z9FGEPAKGsBg1H2QgYgYAJiFihm1IqbzqARN4VBI2oSg3rURLh6FM0grJc6B6zZLH9BiGXJqv+6 + CdNf8soZcqpHTWBQC5/AoBrWy6AS3AVXj6IZhLUTZoAMYDHPX7zRonjlf720uf8V/BqiQIYqB3UxKPm3 + Myj6tcHVo2gGC4AUeuWIm+Qt/m5WsPyPcfai/0p+7buA4mwKvi0Mcl5NDLIeDQj1yJrBAgwMzNqxE3O0 + 4qZcM8qYu904d8l/1dC+PyLGkeogw2VdahiknasQ6kGEalgfg0pID9BvPSAD2NRCeo/Ke9d2akd1xhtl + LfqvHTv9v6RdYRdQjlXKvpxB0q4U1QClwE6wv0A2KPuUasp7N/8XM0s05xCSETBIm/dWP3nufxmX6hes + vJJ8QDWMYpb5qAYoeDczyHo1gAxgATq/DRjKN4BsYSAW1I7qm68HNEDBt+2/oF50NEiNiEkmqgGybnXg + gAECTpWg7rtK/p1ADR3/FXza/uskzPqvkzjrv0bE5P9CRik7gWq4BPVTUQ2QdKwAaWZW9q5wlLAr/c+n + 6m4B5POCMAuXoIRm9LSX2jEz/otbF/3llLLQBKlFMUDcthhkALuiT9McEZOMq0A2t5BRBoOQQSpYXDWg + fbpG1LT/Cl6t/3lVAiYAxThQDAACFnGjIHXV4L4PwkZJC4B8HiBmhGJ2aZvUAPWIKf9Vgif+F7MqesXC + q6iGbgCHtHPdfynHmv/CRhlAWwLDgWLMIAP4lN0lxa1K/4tZFv0XNS/6L2KS959L3u8TugEgxSBb+YEY + 5Hc2IIa5AJSZQGKCQCwEpflQDCAf/2cAAGhHrgv9cdiDAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAMdEVYdFRpdGxlAExhYmVsO8It7eEAAAg+SURBVFhH + xZZZUJTZFccvbrgA3TQ2S7MITdPddNPN0rIjKGERHESQHbvZZFcZFFRAxY1BVBTZBEccGY0z4+g4S1I1 + lYekKpVKKpOahzwllVRSlaq8Zh7yEOaBqpP/uV/jmKaxKnnJrfrV15x7v/M/595z7ocgov8rXo0b4TF8 + PPivh/TpKfI2EjuX+D0W2wS2gK1uNrPN2roorK3zwtI8JzE7p4X52AyYFqaGe8LYcEfE1YHaO1j+PwSA + IcUzBp6dzB7+jLKHPqOMc5+SvePBp7BzQD6WpjkR75oVJhZuZOG7wlh/RxghbKidFIbqWyL26E32pfj0 + FHkbLAC2ZA29+GXepS9o/+UvKW/0K0ruWf5XZH5XMOZ4J3xMjci2npmE8KSIq5kUsW7h2MobYJx9KT49 + Rd4Gxiabazwqe+jlat4oxBFELkjtf0bmxls9mOfj8JHCMlu3cOVNoa+cAONCf2RMRJePsS/Fp6fIRrBj + sCW1b/l09vAriH9OuReZLyjr3EvCmf8K875gU1z1bSmsR8b6ihsi5ohb+PB1seeda2LPoSvsT/HrKbQR + 7Bhsyxj46Nf7RiB84XPad+EV7Rt5RTnA1r5EUQV9VqyRtRBTMQ7h9wALj7mFL4uoUnBwlP0pfj2FNgJj + s9V5Iy5j8PlqJgqPycFO5HAxDr+kvaeekKFq/D2sk7sQU35dyfjQNUUURBZfAhdFRNEI+1P8egptBMZW + R++js6l9zyipe+lve0988HXW2ReUff4FjuAFZQx8Qqj4v2LdTiCLMap0VESVjIrIEggXsfCwiCgYFuEH + zrM/xa+nkDcwePt90/qf/iax+xHFVY1PWZ23O9PPfEwcRNZZ7Mjgc0ponqfIooFSrN0GfGTGLFz4g7Bu + /1kRljfIPhXfb4gIi4svjxn0MPq3cUqY6u+ymYtvs7n6oint3Wdkcc1SROHpg1p7sc5xYnklc+A5ZZxh + PqHk3mWKLrv6FOt38DvhhUMivAAcOCd0eSw8IMJyz4jQnH72uz4ARRhA2IjbyoD+xeAAtiZ3LQ4r5zzx + na86XAXbLnv74k/S0ILp/R+DjygVAcZWTvxzV0RyCOZlMeqQrS53UISycHa/CMnuEyFZpzDlJQAjC0NU + 6V9cGlUTbObt34Fsv0nseEjRh67yrccZbjfXTbQ7Tj4h3pk01EbqqR9T/LFZ0uX2Hed5fjd0H2fMosxJ + EZwJ0vnK8BKAFIaoHiATNsneN5QNxu89+ZRM9VMUkX+6ETau9K1qY05wYsf7KyzM8w6Q2P4I7Tjyc8z7 + gc3BEGZRbWav0GZ0C21qF+jElJcAWFiPq1KPmyoGLYQhe9/eNncpuecxobVW/CIdfOXy9nKl77Q4732V + 0vMhOXqfkAPPlO4PUQfXV1VxRWZ+F/ho07vF7rQuEQTh3Y4OEeTgDfISQAwLl6F/y67xn7L4wM6kzqVv + E1oWKKpw5Gf8t9vOwW03lF8+zlkndy9TStcyJXU9JnPtFAWnd11eWxu0txOi7SIopV1okluFJrEZZi8B + sHD0O1fRu/yuUnwxxX2WpM7HZKyapLCcE9w/u9juZrtfuD3c6pxb4TVJHR/II0hoeUBhuYN/wrzavc5H + k9wmhTX2JqGxNcHkJYA9fHEU4+JA/2LIDK3H7l5LQVamuqlVbeKRVNg0gLuACQRh5rrJn9rbHpL9+COy + ty2RrRXXcvEVUpnLCzEvizEQwoEQVtucQmXlMvISQGQRXxzymlzbfj9b68LveVuTsb221ofIbhEXzgOy + Ni+StWmBrK4FsrW8T3aI2loeyt9M3NE7tNvRxv/B+LMvdYJTqCGsiq8XKnM9TF4CiJCXxhD/lNsfld/j + 4MxM9dO05+AViioaRR1cpIiCCxT+oxEKzx8irKfo0jGyNMzJwBKaEJzrAVmO3aeQzHf/sWmbH98JshhV + 8XVCZaoVAaY61lgfAF+TfHFgyN431dy8noAsdQfOr+4IS4yHjbefz5Xh7WeCQFh06ZUvLY33yeJcgLhC + ZMElCjCWt2Ce64Z9+gQYqwTDY10AYbkD/JC9D/wtzpk/GGtQ0Rm93+BvFpX9755n+Ddn56/L7m0x185Q + PIIwN86TuWGeYituk8bm/BrzHKi8Gf0NlYLhsS6A0Gx5RXIAvhG5nekW133aU3KFgpKc/JnlLORXTpPU + gmpuRlHJdpLrd2hNkbHlt74318/jyOZQtHNkrpklbdqJ7301Jt49WYx++iNil76c31sfQHDGSX7I3jdU + jN2wHJunsH3nKMBQkg8bO/DR2Fsg7BKBCS6htqCwLLKieSfUUUWXfmGsniFT7SwZa2Yk4TgG/9gy7mvu + GrkLu6IP4eElAAw+J95mjan23l/isY3B6adWUEihbvsmKWxVhNXmBpheH5kqNLNnwFBxlzgIY/U0PtvT + pD98mwITmv+I+TDA3xBZC2BdAGzkTFTRxec7zfWzFA90+UN/h00H+G6XGaggrFIqmd9ZC1obkupyxh6Z + JMNRiB+9R4ZKBd2BC6QyVfI3WAvkUQAfzwDk1scdnfytiYup4T6Yp7iaaQrfP/xntbVuGPOvXw4wVuMh + A+D3/KNLxr6NOXzzO4MUnlKomEIhKkQWj5G/oep3WPv6KLwGEJLVT8GZIKOftOl9OIITKMLjFBBX9Qjz + rwOAMzx+CECDNYH2NtBCalsrwDOhmdTWJjcu2hFRzEIbBsDOZEsB7nfu791uuI24C+SLftxK+gr8/I8j + 4DblLyXXC583w0e3BtvZ74ZHwGMtI66FN2FhtvM88+ZYC4LXcAJrcFBvwjb2JcWBouslgLex0fC29m3I + QUTi39m1K1TIHniJAAAAAElFTkSuQmCC + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAOUEAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlllbGxvd3tmaWxsOiNGRkIxMTU7fQoJ + LlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuQmx1ZXtmaWxsOiMxMTc3 + RDc7fQoJLldoaXRle2ZpbGw6I0ZGRkZGRjt9CgkuR3JlZW57ZmlsbDojMDM5QzIzO30KCS5zdDB7b3Bh + Y2l0eTowLjc1O30KCS5zdDF7b3BhY2l0eTowLjU7fQoJLnN0MntvcGFjaXR5OjAuMjU7fQoJLnN0M3tm + aWxsOiNGRkIxMTU7fQo8L3N0eWxlPg0KICA8ZyBpZD0iVGV4dEJveCI+DQogICAgPHBhdGggZD0iTTIz + LjMsMTUuNGMtMC41LTAuNC0xLjEtMC43LTEuOC0wLjhjMC42LTAuMiwxLjEtMC41LDEuNS0wLjljMC40 + LTAuNCwwLjYtMC45LDAuNi0xLjQgICBjMC0wLjctMC4zLTEuMy0wLjktMS43Yy0wLjYtMC40LTEuNS0w + LjYtMi44LTAuNkgxNnY5LjlWMjBoNGMxLjIsMCwyLjItMC4yLDIuOS0wLjhDMjMuNywxOC42LDI0LDE4 + LDI0LDE3ICAgQzI0LDE2LjQsMjMuOCwxNS45LDIzLjMsMTUuNHogTTE4LjQsMTEuN2gwLjljMS4xLDAs + MS43LDAuNCwxLjcsMS4xYzAsMC40LTAuMSwwLjctMC40LDAuOUMyMC40LDEzLjksMjAsMTQsMTkuNSwx + NGgtMS4xVjExLjd6ICAgIE0yMSwxNy44Yy0wLjMsMC4yLTAuOCwwLjQtMS4zLDAuNGgtMS4zdi0yLjZo + MS4zYzAuNSwwLDAuOSwwLjEsMS4zLDAuM2MwLjMsMC4yLDAuNSwwLjYsMC41LDAuOUMyMS41LDE3LjMs + MjEuNCwxNy42LDIxLDE3Ljh6ICAgIE05LjQsMTBMNi4xLDIwaDIuMmwwLjYtMi4zaDMuMmwwLjYsMi4z + SDE1bC0zLjItMTBIOS40eiBNOS40LDE2bDEtMy4zYzAuMS0wLjMsMC4xLTAuNiwwLjEtMC45aDAuMWMw + LDAuMywwLjEsMC42LDAuMSwwLjlsMSwzLjMgICBIOS40eiBNMjcsMEgzQzIuNSwwLDIsMC41LDIsMXYy + OGMwLDAuNSwwLjUsMSwxLDFoMjRjMC41LDAsMS0wLjUsMS0xVjFDMjgsMC41LDI3LjUsMCwyNywweiBN + MjYsMjhINFYyaDIyVjI4eiIgY2xhc3M9IkJsYWNrIiAvPg0KICA8L2c+DQo8L3N2Zz4L + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAPdEVYdFRpdGxlAENvbWJvQm94O5zhLCAAAAIcSURB + VDhPjZNtT1JxGMaJVNTqE/mmLVuba+trtJogKhMrNQo5wnZ0U1AMtQddL/IhBXOmCCbqdPM7sPXCMOVR + CJAXV/d9czhmvvFsv133n3H//tu1cwz03CKMxG2NuhvCO7xrMHo/7UXHZ/fhm9uHl5LOGKvxcQ+WyYNr + WAMHadrlCw11vFQoVZBnitfp8B/i6KRwhSev1kG79SyoH/2wi/yfCtL5CyHDeV6d0/kyHveuIfwzizb7 + Ktp6vomAk3YbWNAwMrODHAvOy0hp6HOujEe2VaiROFo7g2jtCmLuKIGHNOsCNbAtgtpC8j8eWFegbMSh + fI/DRbw/PMZ981cWmFhgcvsjGGImtqCMM2G4fJsY9Ibh9G6i5fkiWp4tUTI8V8+6QPGFkS1UcJYtCacZ + ykxZy+r5NF3Cb4bmDPXTr0oHjSxodI5uSGHDMzEMT+8SnDGoU5w7kuoUZSCGXiWEdO4CL9whFjSJwDGy + Lq3LDcRJLVNFgrOEhDZzpkhgV1Z0QVOfuiate979gGdyW8ftZ6LCEDMRRffbZSnW5pQSm1nQ/NITEmsi + WcKvZPGSs3+SONbgnrreSIlVQY8SFKvLFyG2qH2iloSTc4wJwzKwIAV3vF5gwR0R2AaXyVqWxqtJ1M5X + uPzNPDCvC0ztfZ+jnY4lMFbHIqxk5xssDP1R6J+HmWiX/IKn9tko77KAP0se2Hb3BtzTkt4Bg/EvuFp6 + 6EAvx2cAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAPdEVYdFRpdGxlAENvbWJvQm94O5zhLCAAAAW4SURB + VFhHvZfpT5RXFMZta913u/wnrZqmpkts0jYmTZr+A22qtlgVFRdEZRdEBFSQUbBa6wq4sKjAgIJSEfvJ + pqlatCKCMs7AsMyG5vQ85y7zDjBfGtOb/HzOuaPnee77ju/MTBqzXovD668QM3PcwouTmTeZKWOY+grB + fBPELjSTXafamw+d7qAot6y6UJ9ijcOWY7/TZmbT0duUdOQ2bSzvoA1lHZRYdovWHW6nta6btKb0JiUc + uH6VvRAiJgASTcGgyOhLGmUiL1iZyOgLrhm9JxpR+2EH36Q10IOhMD0YDFMnc38wxATpvl9xbyBId5mv + Ui4Te03TnnahmVp6sp2HvZSBYqTrcAS9UnkdyoQc+vXOevqrP0jux35q7PJTQ9cA1T9SXPlngC4/7Kc7 + ngAtT76EANO1p11oppWcuBk1EMOXDhNVG4xxKKzAyTp6hqi200c1f/uomrl430cX7nmF83e9dIPDfbG5 + FgFmaE+70EwvPv6bMncaaIJQMRsVgqhlT9XLt9ZR9Z/PydXWRUu+O06LvwW/ii5iilsfUdUdD322scYE + eAPGZkmA/b+0aZOoIYZbQsoMBAD3AQ4A/XxTLR3reEp57i6q/UMZgWUbaqiGjXPdj6i8vZc+TaxGgJnM + uAAzin6+wSYwwOCxxjDSppoRQ3CUlq2vFoPtNZ2UfukhnbrdS58kXhRFj31X2xP6aM35CQOgmVF4pDXG + QODhAEbWVPoIDQcNo/TxugtiACMT4mRH1BwUt3bThwnnEGCW9rQLzcy9ZS1quAMMH9sPB7Qx6xBqZunq + c2JgzEwIZ1907TEtWVUVP0DeoWv6RMZAm7HCKIaRaD3IfPBjlRg4DceS39RFi1ZWIMBs7WkXmll5rmba + XdpMuZYm0ZyDrEzOQVXnlDTRrhI3A22ibK6XrKoUFoOVlbRoRSW9z4h+X8H1WXqP9cv18h6YOEBu6VU5 + zVAgTIN8Qj8DHRxWoPcPhxmoqgcsERoYYpx7/GQU+MnYD4ZClF5UjwBzGHzu2IUAs3EyMdbDDRiGvRgD + M5zpd2LM+FHss7Xu/WFKLZBH8VxmfICs4kZlisETGZlhqKUPSQ8jY+YT4xB5Te1XQaBeZke+PIonDDAn + Y1+DDDZm+462URHg54Oh0HDkOnODCqDlCtQFrHvLWxnWslZ5v3gHQvRcB0jJq0OAeUxMADRzcH98fJ/M + 5VOplSqiJzHIYBgYsCd1kDyOfY/0QUreLY/iCQPMTS24EjXgEDhBDIdbaQ/gOt/Uh1toz6EWygMucE3T + QrtZM/c3koc/Jfs0W3LkUTxfe9qFZh7uj5zAnsKkj57C9BbH8L7+kCa698zgU2zOvhg/AO6PunTq8uFU + OIVQqsgVrvJzgWHNYcXzYRerpQTwHrOzoJ6NA/TUy3CApEx5Dixg8K3ILgSYn5xba5N7zEn4HwmO2pzm + mdfUAamfSg8z1DDUxtz3soINGfJZsJAZHwD3x14u1l3FzZTN4CRQRRNlHTC4bZ3JdeZ+N2UwUKn3uSkl + /7I1730eoMS0+AEW4P7AHJcqegJ1Mie9ghpoa933YM8B+h7+KqbqEUpMrUSAt5iYAGgWJmWd1wNVAJwG + p1A0iqYXNQppog2UXoi6Qfq0Qlb0og2UymzNraMnHOCJZ0RYu0M+jEwA+81YAuD+ONNHGVEn0yeB4lTq + dPyaNkA9Vnv6UOsAXP+0/SwCvK09YwOsT6+yZubS4bKJykC1j4HKJKoYLia674Zij0HdDY0TAH+gWbAu + tUpMZAgbOwfGaB8MtQkjw6G6FlOHduPv6np1yhnnm9AGkA+jH7aeaF67s0Lu0xrhrNLtFZI8hhSlq1mF + beCMGCRAGWjCttOKZKUrko7ilxE+juFpbwG+lOI3IL4oIB0u0Tv/kXfjgNfw5oM5vGJ+FyAJNpAKl8b5 + w/RVgtn4Lw8ve3rnwub/gV6TJv0L5l1tL35cjlcAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAhdEVYdFRpdGxlAFRhYmxlO0dyaWQ7U3ByZWFkc2hl + ZXQ7Um93O8al9FAAAAJwSURBVDhPpZPrS9NhFMef7EVB9Vd1oSiiArMsTTKw2YUKsTZnTrbUtbuaMsnK + ytKwoi2dbrqtoe7mFgqGFr3zMi+7Z24z+Haepxn6QnrR4MM553ue8/1xDowB+C/4bxdR8A9270ABu2QK + OEtMAVwwBFCs9+Gc1osizTgK1WM40zSK0w2jOKXy4KTSgxP1bhxXuHGszoWjtU4ckQ+7WCkND31PYehr + EjZiYDaJ+30zsM4kYPmSwAfi/XQc1d3T6JuKo3cqht7JKHqIwzVOsIvGAAa/JaH3RKDzLEL7aRGX20LQ + uBagdi6gaWQejcPzKDb40eCYg4pQ2ufQHeYGI2C80U9f5sM6GuYGZWSgFgY0nDc4r/dDRYN8WDk0hxeh + VRySDZMB7a14O4sr5jDK20NiuKw1hNKWIEqa6TZGP33dRwY+FOl8OKv1oVDjxfXOSRyUOsAUJg/WMr8Q + T2URT+co5tDR8xkxymOkCSg3vw7/raNEam0DMq0LTK53I/1zI9/MIZrMov1VWEQB6atE28uQqFfzepIM + 7qppBenDEaTIgDdEM5HFo+cTlGewwjWqud7aFRA511YSGSTSWVQ9sINVNzrEQAs9aOkKitgsCML0LADT + 0038MHKe+GEgeH5bOQh2R2VH4kcOy/EMlsl5iaKh0/+n5sTWRdR3+qi3Lvo88jVuKmxgt+ptdLwsluhh + JEZNQvfYu62OUK7pGBd1JMr1dbHWtdp+sBt1A9uuy5219JgfbvNoHI15TOy+FUmNFazi3jtnpfwjJHIr + Kkng4tU8EhnFrUgtqJBaCR4tKK9646I/FNtD7CP278CBHaAe2/sbNQbMTHpxA20AAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAhdEVYdFRpdGxlAFRhYmxlO0dyaWQ7U3ByZWFkc2hl + ZXQ7Um93O8al9FAAAAWpSURBVFhHxZfZc1RFFMYjyL5v7n+N+qqviiKg5YIsISyTTAIVQUSDSFkWhCSz + L4lIoojKVgKikGQmkwVKHqzSQkGTkJBMMmHJinX8vtO379xQPqBV4lT9OKfP6e7v687k3lAgIv8r934e + ekBM+tjiFDDV4eF/wbT7hHOp5RqZsjnY+LQ/0Z7xJzvES0mi3RBvl2Lgi7UpW6OkVbZEQLhVNoczsikE + ghkpCraAtBQF0rKxxlBYnVI2VKVkfWVj6+t7Tz4LXR5UTUwtTXb0HLvcK+nfbxr+ANcMDZkuSSEq6Hnz + +nQn8iFpVm460fBZc6c0ISpX8zRkOmV1xZke6PI21MC00tqLukGy7bokSGsPMPm2uh81j3vqcYey2ktu + TmIkY2Jp8qLEmQPtab1bLvw2JKv3fMdv3wzAH0XBdBpohDt3E7sAUMTmJJrpdilNXJJoC3PUGVucPqI/ + 3iERjlGPePj+Sk5W7TlLAzOtgRk0cP7XnLPAbMKcC0oTFzWGHexG4XS3imgdeQgwhtNdyLukJNautVAK + 4xT7pn72l0HcgBqY5Rrww8A5ONNN7GQuRKRIUHNu1o08T0m0XWOguUsCmBNoRs4IiiNtpg5qlE6paeqS + 0z8P2huYDfhFLJjJG0j+cBWu8c0nUYJvPyi2RDAG3NjiI2HkSqv4Qq0mgq3IffjNIMwNGQmdviKrKtTA + HGtg1gcHzsjY+J+SuzUmgw65m4zjEjmUlkHmFtQGnDlh9Aa8PQ+hT03PZYj1URkZuys7Pz5FA3Otgdm7 + 95+WMTTsYt0UAoxWRGsOmmPDkO0hVyBg8lEYSLnrbC0LRsYmZMe+kzQwzxqYs+uTb2UUBiZvZvAaYD1r + e4jBOiOShTA3z3rmsMeo89FzDYxOSPneE5MNvIsr4dVYcU7UjZHzJNxYBdj35F4Rg2MEBOqaJZsblX6O + c6bfj/Gd0buy/cPjNDAf8LFcMHfHPmPAbqxgkTklNtJxfnM7L1DLHnL2VMyIcG2gtilfpwHtw8DIhJRV + HKOBBdbAvPKPTsjxcz/piQzNEqxN6SkCGBuQQ9BSA4GaJCPwxiTqbr9Jqh20Do6euiz+97+mgYXWwHxe + CZ0Z93Sch5t5xy6D6EGwz8kZ+zSOaF6daDI1W3fm3B6ekOLdX9HAImtgQVnFN64BO1FzQNd2EyvEyD5P + ZjaHqGLmMa+iAeQ3nNoNZ86t4XHx7fqSBhYDvpAKFvJK6EyFHDELRczifI1jQhEK2LGXqnhjfjxgYh8i + DWzZeYQGllgDi0reO6oNPQUmeYWqE42TRA0YY54r4gj02hwcRK/XyS0cD90el007vqCBpdbA4q24klt3 + xs1EFc8vqoIBUzcb3Bgw4uRg/ILWrFBvNp9XxowBF/ZADk/SovLPaWCZNbBkM66k/tglPZGFJyD5/IIb + K2PIieaNOr6XA1Enchw9rxwAdUfapHB7PQ08Yg0s5ZXwalynnpg/5bD0ZIHm7A9D4DxqI6g5PU9eCQNu + zQPfB+u3HaaBR8F0Gli2sbxBr8Y7kQIU5SnyG5lIc8x5SkbONT3QT0ZkP05r53PMeB1jPknXlamBx1wD + hdsb9CXjLrAbIRoRs0Ee23NEKID5FOD4OvL9EWsgD+t8gq4tPUQDj7sGNmyrV2e6uW5mhLihPaUKWBFE + PSVEWNO5WjN9NRBGz7vO6fOxvMavBtwbWLzWf2gw1XHNPNf1lYroPO/j9RkZcJ7lAw76nkCMHm5xxubB + 5IVvUYrdW29quypv+Gpz0HV/Dec+t/ydFa8VxfpeLYrL6o0xl1WFJCorN5CIvLLeYV1YVoCX15KQ8tLb + QZfla0hAefEtLzXywptV/c8871sJXfd1zOcx/zqhI17LE/fBk/+ApzxwzF8/ivP0+v8C/kMnLPBnwr/X + /yu4P6EeddUAP3bwIDGfv/sv84NDCv4CUNpuTu8bCaEAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAUdEVYdFRpdGxlAERhdGU7Q2FsZW5kYXI73zjYpgAA + AqNJREFUOE91kolLVFEUh6ey3G37U0LSEKkQqWyIKI02yxomralEsDQ1SyoTsww1hKjQTHMhXCaXisol + IygSN8gc2xxNZ9PRefNm3tivc27jEtTAxz3n3fP73ntzn4p+ywgfYtUSfP+DnxeuVxKcVfl0xKrb38Sq + 0bknBu27d+DVrm14qY7G85gotG3fipbozdBHRaJpSwTqIzfhSUQ4HoeFdlCWb6by7Y5Tw1Z1B7bKElgq + imApL4TlwS2Y7uZjsvQ6JkuuYvx2DsYLsmHMy4IxNx114aGgrD8L/Lpid8JKwbFLOoxePInRjER8T9Pi + W+pxfE1JwMjZeBh0hzCcdABD2n0wpGhQGyYEAULAj26+X4Afmd7gOY0Ifkk+ghHdYQoexGftfgxp4vDp + 2F4Mn05AzcYNLAhkgX/xo4+Ym/sFyemBJBNOBQ6qZyXlbxwKnC6PoLD8PQuCWBBQWPYBHhI4JA79Cc4w + FLAL3JieVQg3zbBcQf69dywIZkHgDWoUz5wI1D0bRF3boAjU0lrTOiCC1c0DqHraL2R2yY1rpd2LgtzS + t3CTwE6DtRTg0NSMS4Sqm/ths7tEuFLfR9fdmKK5y0VdLAhhQVBOcSdcigc22rTZ3bBSgLFMy4QLZmZK + homwePcyb75mwWoWBGdRI7s9sNKgQUdHdioeJqormvpQ0diLSZuMh7QyXJtIfD7vBQvWsCAkjRr+Z820 + YaBjY8FCqKEXEzYnyhp6UFbfg59WJyasMlKutC0KuHHICg3KYpOH5hlfisWJMbMk1jPZLSxYKwTczNLR + iABtLiJhjDBSbaSgkXteiaQM/YIgQJNa05GUqaeLTUhkLszTiMR0WtMbcYJJYxqgJY4mV3ZSVnyJy1lC + 8PuwcZ51/2C9F67pK1St+A0xSHi5PIEXmAAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAUdEVYdFRpdGxlAERhdGU7Q2FsZW5kYXI73zjYpgAA + BwpJREFUWEedlllQVEcUhjHRqChxq0rykLckmpQPeUmVeXAX92j5koeogEuiKUXRQkMQWUKpKKCAohGC + uOCCqCwO+86wKkpMqixFZKnEBVBBGGCY0crJ+U/fOzOMQ1LJrfrqdN/bff6/7/TtM258jYpNqiiPS66i + uNOKo8mVQtxpLeKZgLZrYh1i7CmH+9w+klhWwTrvMG9BkIhs4Bodx4PMltc0AMxvcvO3P+39waHPwI07 + f7xxz5GYJCOU3Jm3IehsYEzMKaMM7O610stei8JkoW6T6l/MbOBn3Lc9t0ob99C+kHHb1h9Cj1XyHvml + AkrjGJcGxmIABurJEVUSJXQhEwJ6X39m53x6PYs5PGdhFS2c9xVFJ5RDaTzj0oB7dEKZegM8oUsSqcld + NoFbmoD+jAUE1U+5Vq/mYY4TfWwg8mQplDwYlwbGRfGAmtttIqSTonHu2i26fXw51ccvo/pjS+lG3GKq + i1lItYcXUE3UPKqOnEtVB2fT2as36cwVZ25Q+Y0WOnS8BErvMq4NHDpRQv3s1Nm98NJC5eEzyPokl8km + 62MDc52sjzLJImRQUeAX9KJnkLHQCx6POV0vuc/09VvpQHyxbmAkBJ0NjI/gAX0DrySBLozJelIIDDQe + I1PdJjLVatR8x3xL/XejKWfH5yIs4xFF3ELPGRMb2He0EEoTGJcGPDCgr5/fgOYadEkyBQQGfo+gnsqN + 1FO1gXqM67nNGNeRqSGUMjZP18Yq8ecO9HLe8NgCKE1kXBsIj82XV4UJKgm777YnhICpfg8TSL03f2QC + qLduN+NPvbX+lOYzTRvPohxtiAErhR3J+0cD72JAaU0TJafW0SmdSyomXaoVgcs+U+my91RK9WLWMmum + 0qXVn9DFbz4WEi/UUAI4j1htI6/sHoVE50BpEiMGnK8JwTwATvXX9ozdA72deLHGdu9Zt9khmmWlEHK8 + ZxvTNUg9fVbae8gAA1MYHMcjIOp4TdgbmS0GbCI80ZaEY+J5CJj5S3ktmxVgc8WeTCO/wFgKjUjiPjac + jlUDB5GVwqPOybhNfvuqWA/1QEfMTNxz0EC97FQX7oR4l25gkE6mVEm/b8BK9YG7qGTlIipesYi+94+k + 6oYHtGq1PxV95UnFyz2paPkCoXCZomDZ/CHj8pfMY+ZS3uJ5pZoJt0kBB7L47LdSJxvoZCEBRrT2z+eq + JPbyiopXLKSOmDBqjwmlhI1byPQXUeiSVdR+OEQRHUxPo0PsRAUPGfc0MoieMLkL5+BnkYNp0u59GWQo + vitCJ4RKxVnAfY7xZ4xU19DKq/NkkRBq899A0V97UfzZPPKdMYfadq4XWneuo7Yd66h1hw/D0c9nyLjW + 7d70OCKQcjxnw4Bsysn+4elS/TpemKmDVyqR6dT68Wcqqf3FAG+oQSpYOl9WgeRBs2bTyo8+o/XTp4sQ + koMWh9iyzZsCv5wp47ynfUotvmvp0f4Ayl4wCwZGwcCUnWHXpKh0sEh718AbRuKTjfT0ORswDcpv+Dhi + jy25XchL4etFzcJaat6qs8Yet7CB8F1kmD/TbsAv9KpUvnYWw0rFiLQVR5Mr2EA/l2kzoXBhw+K4tlVP + LdraUjEdohM9fRZC/WFtfJZuk7cHp/FgPn4FTNSjmpB6/Vf+3s38BswyEd92aV0rlYDaNhlTUttKxdwu + 5og+YhGoaZF+UXULt1upkONLNhBxXArUaBjw2ByQUua79zJt1UDbN0hFuReUKmQV3CEUrh7+YiCggyNY + iWmCfIQXau1CMTAowgXVzVRQxQZ4/v5jRTAwBgbwGvBnASfVe06878AHzIcoXEiA5Dq6QCELFLIAakgB + BKsg2CwG8ysfMs0C/nGFx0mFFAM4DPA9YkPAzHBgsBQufDHDFS57Xx3lapzW5vsAGz4sRgrUWEYuHIn/ + BkyOQeFCgnxemb4iJMcXIV/FNh8RyTM+pFxjE+VWPJR+TgXaTZRT3iTzQw7nwoD7kNI4HNqFNzUGhQsJ + RIBfKyKOazHg682fn7f0ISiwII73bI7Z5Q8EbErUH843zqWgM9oFA2MxEV8HVoPV6QItW/kMYJoZESxr + IgOLGcoeiKHrpdwubaTrZY3yxydQVcjxLgWd0S4YcEfhwqYbrnChZkifUbVEqy8Yq93DnkD94XweLgWd + 0S55A5iIjWbglSgeyH9BrDALKyxpFIEsjlkl9ykT/W4LR24XK/D8h/2Z/+sNjEbhwioglFV6X4TQhxDa + EJC+JpbB4FjPKFLtjKJ70kf94Xz/aRPKl4CJSOC4ItQLldwumM5C6ehDkJ+nF6KvQH/nT9eQeKRLQWcc + rhEoXKpIuS5cAPVjaBu1RUfdR/1BPpeCzjhePDHPL/QKJwBXyS/kCm1n/EKuSrSTpuFwj2uOjZC0PDc3 + N7e/AQoaPmZd4jDGAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABF0RVh0VGl0 + bGUAVGFzaztDaGVjaztd9Mx/AAAA20lEQVQ4T2P4//8/g2/TDnIwI4gGG9DS0vKfWAwCZ++8/l8678R/ + oAFCcAOIBSDNwW27QJpB+DhJBiBrDmoF054YBvz99w/KQgXoms/cfg1iI8IABJ6/+/o/Y+rh/5cevAXz + YQCbZhBAMeDn7z//UycfBCsKad8NNwSXZpAeDBccvfbifyDEb2BDVh6+i6IZZBgMYDUABI5dRxgCw+ia + QQCnASCAbAiIhjkbGeA1AARAhoR27P5/6tYrqAgqIGgACHz4+hPKwgREGYAPUMUAIEAYQA6GG0A+/s8A + AMvnIBD6K3W0AAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABF0RVh0VGl0 + bGUAVGFzaztDaGVjaztd9Mx/AAABb0lEQVRYR82UwUoDMRRFq1/gj6n1T0TBD5D0KxRcu3aj7gStbQU3 + QrVLN6IuBUWtTnw35IXJzMtMaNPYC4d27oQ5ty20o7X+V8QyJ2KZE7HMiVjmRCyZ9f3TlKyWr9nhCRml + lE4BZzh51SS9ItaiB6QK5Fu9cwwANzyCbhk8MZNqQEXO4JtYodvGVZODFAMC8i9ik3AuT8zMO6BNDuiY + wRMzoQGFfW2KJLfXTg7oqMETM9KAk9Gj7h3f6unPr23qCckHDy947+SAjhs8MVMdAPmGfaAKjGiSI5CW + ocrgiZnygIu7JydnqiPa5DazDXj/nOqdw2vv4YBHxMjxPOpnG4CERuwdDWI++fwDkNCIMpIcSTIAaRoB + +XBSlyPJBiAYsX3Q9+Rddab798/2RD1JByBvH99uBOSX47AcST4AwYhd+jna5MhCBiBFEfPnvMABsVmK + ARTRJZZLMSA1VQcjljkRy5yIZU7EMidimQ/d+QOFjkRKvckI+AAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAB90RVh0VGl0 + bGUAR3JvdXA7Qm94O0dyb3VwaW5nO0hpZXJhcujTa/cAAAHgSURBVDhPpZNZaxNRGIZjam0S1/8kgopb + br2WgCCUYut2Fyi0TSoq/gAVibYxexNKm5hF640lMU62ZnEjxEDT7DHGLLw938xk0pQKKX3hgeHMeb85 + Mw8jA3AkDlw8DJRjDPk+xv4D3aP9gyxYOJ/eFoHOGt0DhwVLRGLezGHOxGF2KeRnFRo0CG341urxZP72 + kG72kGp2kfzTRaLRRbzeQbTWBldpQ7PoozOPC00xs8thvmBPVWHdqsCcqMAUL8EYLWEpWsRbrgjD1x2s + /ajhpnadBpwQmmIevdxErNaBN9uA51cD7p91fvPq9ypcmSpW0lXYkxU2vIwb9500YEJoitHo37vVD11Q + P3Di+j0nrs04cHXagSt3CTsuT9lxacqGi5NWXLhj9LDK8CuwHGfQsRSMk4wzImcZ5/ZB6yqGkkEdsiJl + fO5d6MOoRrSGzxusM/Q6CtpAJvoWtiQLHd7Cl/I/BIstbBZafSN0YilKMpJodPD8Ux7PNn7j6cc8ngRy + eOzPYdGfhd6Xg86b5e2IRk4LVSEqMhJmT7EkyzDHyzDGSlgmlZEdprKA1+ECXoW28SK43TcyNGDi1vya + b1Qj52+/CbAOfUwp9EXJxCkGTSb6RvaaIeiayvID/7DRgWwXy2II2IRDjzwAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAAB90RVh0VGl0 + bGUAR3JvdXA7Qm94O0dyb3VwaW5nO0hpZXJhcujTa/cAAAYJSURBVFhHxZaJU1VlGMZVIvetfe9P6E9w + UlPLnGbKUjHNrMZSS9NxyQ1xQVBRQRYlAhTZRPZ9VZFFZL+ALKbIflkuyOYSNW/P891z6Eqn5jbj2Dvz + m+9wzznP837fd773ZZyI/K8Y/vg0MYrxT4jRMDLWUeGXXseBL00ADhrPjMHRgGcN4O98fzQJI2MdPSZ4 + xpXP9U2ru+GXWi++wCelDtSKN0m6KV7AMxEk1Mip+Go5GVctHrFV4hFjAlVyPNokx4BbZFnJHv/sBdBk + 0ioJI2MdBh9y8EqqNVe0D0rrgz8ULRrNw+R3aRoekUYyNCJ3wG0yOCK3QMPAiNSDuv7f5NqdPjkUWtIJ + zYmAK2porMNgAo4nMKMaCnTcl1zSfl+ualxpI8NyGeS02tAyLNktQ5LdPCRZIBOUdD+UfcHFVJ4KuBWG + xjoMZjnRNbxMSi0P5bIShyiFQRaheNOQZDQNWrk7KOkaaY2DkqoYkJQ7A5KH5Lf55VN5OrA7gUl7Aosw + 62GI9GviAxAfUMKpEKY47yXf7pck8mu/JJJb/ZIA4hvuSXRtn6TdHpANHleoPAPwOzA01mEwgck7/Qsl + E6bhpm6JMFkkqsYil272Smxd3yhx9RytRlG4F1XTK+FVFgkp75ag0i4JLO6UGDy3zj2byjOBXQlwmaZu + 9cmTVMzsPMTOl3fJuTIrwRAmQSWkU34hxWYJgJkab3TKzwqz+F83q8TXHs6g8mxgdwLTNnnmSgKWkSaB + Y4xoEAADjv5FVqOz4Awp7BA/cr1DfAs6JLSyR75wSafyc4A1wdBYh8EEpq8/fkVisKyckTIBNLEaaSYw + 8MVII9/8DvEB3rj2ziPt4gWCkfjKvSlUfh6oWmBkrMNQW/CNa0aHT04jvoEeCccswjByNiEVPXJBbUuP + nC/rxrZ0Y0s61ZYEcluKrWNAEUDybokNsmxnghmas4BdCahj+MnmwE/XuKR1fXkgA0tI0mX1/jRZ5Zwm + n4OV+9LECTNz2pMiK3aTZFn+U5Is35UsyzB+tjNRsXRbXPe81SedoDlF0x4tyf8UqhKCSYBHhx8Pl0/n + BRteGsPLNryijXxnGmBfoC6TsIV+f0uKP/Aml4zYNhxCMZZWJsmZscrp0GwsfIbPTtZG22vq0IN+j4We + mREOB0Ly57vHmIqPxVbLUeAeXSVuaD5HyMVKOQwOkcgKORhRLgfCy8UlrEz2h5aKc2iZOIeUyN6QUtkd + dL10o0fCImhyYuMNPwwdLZiAo2uUyVzQeE9u3XukaNCo73skteBm7yOpsVip6nkoJlCJvlAByrseSmnn + AynpvC/J1V2y3b+AzYqr5GBorKMFl2qiC2ZUiDofWd0rEVWogCZrFeQYprBIWKVFnZxQbbxQYQEcracp + BCcpC71kk7fqFfze7E5g8o6AItX1HhME1srJ49kjwdoxPVfKowpwHYQxEOjHNqmhX75yz6E4P3ZHQ2Md + LVSd2OiVK/HoAzzrwTz/mqC1crIPoA6gaipU5dRLNChCcUNB8ytoV3VmBY41NHla7E5g+jp0uItY8uM5 + LeJxuU08c9vlNCqgqoyoiKySLMtnCq1G3vm4D05da8PzrXI0u0Xcs5pVX1mK2gHNF4FdCfDIzFjrli1h + WPKjWS0Qa8b4FxTWcVM0qdE9E2Mm/lY0yZGMJqyMWT7ankBx1oxnDY11tGACs1YdzEAp7hoVtzU6ohnQ + iCY6rrbgvmvGXTlb2C6Lf4yj+KvA7gRmL0cpDsL+jjXRjQ6TdG2EkWv6Xfz9OIeAD7Zk4ffR/zmBmR/v + iDe7JjRgBuiQaq/b5Qz2mvvth7321fAB3nlt4g2j0zq5+Gau8rtplV0R1TL320jWAZZyu74BHsMpc1af + cFqyJaZ7ydZ4WbwFYBk/2Bwr72+KlUVg4Q+xsgAzW7AxWt7bEC3zN1ySed9Fybz1l2AYJe+uu6iY83V4 + zzsfOq+Bpt11gJWQq8Aaz6PDpvOaxus2vKHxpsZbNrytwWsuPf9dY3+xqxQzVD8Ato1pLHrT+Tf4HN/n + hKx9xshYZ0xYX3hyWMPI+Okh4/4ErbGwbB+fWvQAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAALdEVYdFRpdGxlAExpbmU7zNkjfQAAAeFJREFUOE+N + ks1O21AQhQdREEmkvkzDX5zEIaFxCE3s/IekQTFQYsnEVSp+0lbdVAXRInXVRVeFvkRfoX2BSiCxYuNV + 1UeYzlzb1wmbMtLnc+b46liyLtDMEI+IOR/2M4gID4Fn7s35d3x9doXj00s8+fCN0/la9whqz+9zDJzX + /T0oWBi9/Yo3d3/xmhiOv3AaqWy9AoNgFb4d7uxZg4Lo/ugz/vrt4o+ft7g7vOA0Vmq+hLLAEVpqeHgZ + 0XBkQaTaHWOlc4z61hGW24e4vmk6mzUbJNUJL7MDWTBLRInHzJq2PdL0fbdgDKyCYUFBZwahcmawDrwC + fuSf7cHTEhGqTeqSWpzlJ98FnpAF2WIfshvmPfp2rmi6uWLfyhZNyG3wmWlkgar1IJPvgUpkyAvlXevZ + 5P8QVvAuOKdq22FBKtcRJNdJiSTvodqkLuvUGUIWKGtNogUJQskQ7AP1sAl3Va0P6UdP3VhRsJKuw4ra + 8HWCtJ8Ri4rh7I0ucNf5hDvDj2genNPnYV4ULCWrRCUkxbsPe4JmofvivbyxrZ13XBARBXHFgMWER1zR + IZ7QyZMK7+U00Ur3RN7YcuuQC2Ki4Mlq+b/w15bVDi6n27iUahFNLoiKgodAM3VjiRgAzP4DCe5axIRY + 3gMAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAALdEVYdFRpdGxlAExpbmU7zNkjfQAABVZJREFUWEfF + V1tPXFUUPtU2BfV1v2hifPXBmFgplwJzgRlmmEvpwEBhyswAw1yZO7dWQShIuVhovf8D330z0acmmhqb + U47EJl7q5Y9s19qXs/ccwSdNJ/n41lrft9Ze2Sc5ORiU0mcK/scwzgHOAy5owPxcdLJuRCcbRoRxnXFk + qmFEAbLG61Czcx4zr6gpr9QaLQuc37n/BXUCFwlP1IwIAzbJmOdhrAnmkPWaEYZDpM4BNaHLWF/g4mx5 + h35vPaUPrd/ow+NfabqwjcLF8HjFCI9jA7IANIdwCNZtncch4UFWHvALME149QXaprOb9DvzF/rlN4/o + 19+e0KnZNRTaQ/GKMcxQNkIAyRKooUfFUlM13qNmSOgLtE+kb9EHP/xMv3pgAY7pWHKFhmIzr0av143g + 2AIAhjFujZFVXBYa8KjSeF35ZNxyA+6hFHX5U7Tfh0gyNNc/Oq7evEfC41UjMFpiCMYEMHaA6YL12K5B + H8tFv77Ac3gLgBcRb1zyvha8VjiprB7Sldufm5XVIxKGKwxcK8IQARk7axIteaHVI9heIDAChpE84yEw + c+RJaGzBqq4c0eWNz8zyyiEJxUtcEz7mhz7MsV/0abHwSj+D0KBmL+C/mteQ44AhkJPh0ZJVXj6kSxuf + mgvLdzEHDT3SCwMZZCw1Xmex7deRUwv4ojkNWQdyJBgrWgtLd+ni+idmaekA8oLUNJ/Mz5rj1LUFBiPz + rQgLQDyACGcJXKtVah7Q5trHZnFxn+BVDoaz4JGQPSIWvXrOIfOsWmAglDG84QwcJAD5KUyGRnJWsblP + G+9+aBaaewSvFnXs5f1wqDbLi7mIOXR9Xi3gxeLwLDCHBwF5C3id+K5mrUJ9j9bfuW/mGrvED1eLOutD + FpAzWIwMuazL2F7AMzxjuAGeIDAA2RNM2zW9DkzgCq18bZdWb90zc7U7ZDCa4TN0n7PXoSPsBVyBtECK + sRvjIMY81+tuiN3BNIErtXLVHQrvCHO+uoM562G9AirW+1WuLSAPQyTPyJ2cIt7wrAWH08rKoZmpvA/5 + nNCdM05DUi3QP5RkcDGeVrG/NXdh7sec14AJPE8rU9mm8I4w58rbBK+a66fAnofQFujz3wBMM2YH+HiO + MdewLj0afMyDh1pz5S1aWvrAnCttEXy+eg+bgzPBL/uQ7QV6fQkoJoBvCGDM875BURsED4u5xvwqJ65g + 2pot3abFxQMTGPKU6mHAHuFncUItcAUKvQMJxgwsnrLRO4CQGtYkC515EqQ/kLRmipu00Nw308VNzFu9 + OId7WWwv0OOd4oBiz8AkiJN2jIzm1ljAK3zIAOgjfUPTVrq4QfONPTOVf4/g8+bz0MP7rrC+SbVAt3eC + DUDuRtHDB7JY1KQHNV7nrHplfYLA87VS+XWaq++aqdw65AnuYXPRz3vUAp4JowuA3O0Zd+Q8lnkX6Cx3 + C12yqIuYwDO2krBEtnbHTGZhCXgUajZne4EuNzTbiDvyf0fnmbU4gedtJXNrNFPeehyKzb8MHzstn/z2 + Ap2uuAMwxFmDxf5ROxWiF/2wBFz3j9WbR5Rh9QjenIf44oKTjQv2ApddY4C4YBXjIFnrtDWuK03vc2pj + xutv9r8SSzTo4yd/UfPJn9T86Q86cr2GC1x0LDBqdIgm5A7M+2U+alyGmDHzIQuPjPs5o0/3wK8tEi/T + Rye/25/8oVgRF2i3F8Dm/wa4CF9GMh4UGMnBPztP7U9+fzSDC7zgWCBmdPQB92mMNVZHRo9eF7n0ME3T + BcOv7e2eKL3UHaVvdSEiDFhXC6D5fwL8Wj75AS+J/Hl7gWcHavwNb8IpDJUMXzYAAAAASUVORK5CYII= + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAALQCAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkdyZWVue2ZpbGw6IzAzOUMyMzt9Cgku + QmxhY2t7ZmlsbDojNzI3MjcyO30KCS5SZWR7ZmlsbDojRDExQzFDO30KCS5ZZWxsb3d7ZmlsbDojRkZC + MTE1O30KCS5CbHVle2ZpbGw6IzExNzdENzt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh + Y2l0eTowLjU7fQoJLnN0MXtvcGFjaXR5OjAuNzU7fQo8L3N0eWxlPg0KICA8ZyBpZD0iU3RyZXRjaCI+ + DQogICAgPHBhdGggZD0iTTIxLDMwSDExYy0wLjYsMC0xLTAuNS0xLTFWM2MwLTAuNSwwLjQtMSwxLTFo + MTBjMC41LDAsMSwwLjUsMSwxdjI2QzIyLDI5LjUsMjEuNSwzMCwyMSwzMHoiIGNsYXNzPSJHcmVlbiIg + Lz4NCiAgICA8cGF0aCBkPSJNNiwyMmwtNi02bDYtNlYyMnogTTI2LDIybDYtNmwtNi02VjIyeiIgY2xh + c3M9IkJsYWNrIiAvPg0KICA8L2c+DQo8L3N2Zz4L + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAALQCAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkdyZWVue2ZpbGw6IzAzOUMyMzt9Cgku + QmxhY2t7ZmlsbDojNzI3MjcyO30KCS5SZWR7ZmlsbDojRDExQzFDO30KCS5ZZWxsb3d7ZmlsbDojRkZC + MTE1O30KCS5CbHVle2ZpbGw6IzExNzdENzt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh + Y2l0eTowLjU7fQoJLnN0MXtvcGFjaXR5OjAuNzU7fQo8L3N0eWxlPg0KICA8ZyBpZD0iU3F1ZWV6ZSI+ + DQogICAgPHBhdGggZD0iTTIxLDMwSDExYy0wLjYsMC0xLTAuNS0xLTFWM2MwLTAuNSwwLjQtMSwxLTFo + MTBjMC41LDAsMSwwLjUsMSwxdjI2QzIyLDI5LjUsMjEuNSwzMCwyMSwzMHoiIGNsYXNzPSJHcmVlbiIg + Lz4NCiAgICA8cGF0aCBkPSJNMzAsMjJsLTYtNmw2LTZWMjJ6IE0yLDIybDYtNmwtNi02VjIyeiIgY2xh + c3M9IkJsYWNrIiAvPg0KICA8L2c+DQo8L3N2Zz4L + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAB4CAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iRmlsbF9VcCIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5C + bGFja3tmaWxsOiM3MjcyNzI7fQoJLnN0MHtvcGFjaXR5OjAuNTt9Cjwvc3R5bGU+DQogIDxnIGNsYXNz + PSJzdDAiPg0KICAgIDxwYXRoIGQ9Ik0yOCwydjIwSDE4di02aDQuN0wxNSw0LjRMNy4zLDE2SDEydjZI + MlYySDI4eiIgY2xhc3M9IkJsYWNrIiAvPg0KICA8L2c+DQogIDxwYXRoIGQ9Ik0yOCwzMEgydi02aDI2 + VjMweiBNMTYsMjJ2LThoM2wtNC02bC00LDZoM3Y4SDE2eiIgY2xhc3M9IkJsdWUiIC8+DQo8L3N2Zz4L + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAACECAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iRmlsbF9Eb3duIiBzdHlsZT0iZW5hYmxlLWJhY2tncm91bmQ6bmV3IDAg + MCAzMiAzMiI+DQogIDxzdHlsZSB0eXBlPSJ0ZXh0L2NzcyI+CgkuQmx1ZXtmaWxsOiMxMTc3RDc7fQoJ + LkJsYWNre2ZpbGw6IzcyNzI3Mjt9Cgkuc3Qwe29wYWNpdHk6MC41O30KPC9zdHlsZT4NCiAgPGcgY2xh + c3M9InN0MCI+DQogICAgPHBhdGggZD0iTTI4LDEwdjIwSDJWMTBoMTB2Nkg3LjNMMTUsMjcuNkwyMi43 + LDE2SDE4di02SDI4eiIgY2xhc3M9IkJsYWNrIiAvPg0KICA8L2c+DQogIDxwYXRoIGQ9Ik0yOCw4SDJW + MmgyNlY4eiBNMTQsMTB2OGgtM2w0LDZsNC02aC0zdi04SDE0eiIgY2xhc3M9IkJsdWUiIC8+DQo8L3N2 + Zz4L diff --git a/app/DD_PM_WINDREAM/frmFormDesigner.vb b/app/DD_PM_WINDREAM/frmFormDesigner.vb index b9f151b..0aa2dca 100644 --- a/app/DD_PM_WINDREAM/frmFormDesigner.vb +++ b/app/DD_PM_WINDREAM/frmFormDesigner.vb @@ -12,6 +12,7 @@ Public Class frmFormDesigner Public ProfileName As String Public ProfileObjectType As String Public Designer_Locked As Boolean = True + Public ControlSelected As String ' Control Variables Private CurrentControl As Control = Nothing @@ -38,6 +39,9 @@ Public Class frmFormDesigner BarButtonItem3.Caption = "Designer locked" BarButtonItem3.ItemAppearance.Normal.BackColor = Color.Red Designer_Locked = True + Mouse_IsPressed = False + RibPGCtrlheight.Enabled = False + RibPGCtrlWidth.Enabled = False ' Setzt den typ des SQL-Befehls für frmSQL_DESIGNER CURRENT_DESIGN_TYPE = "INPUT_INDEX" @@ -49,9 +53,9 @@ Public Class frmFormDesigner ' Windream initialisieren If IDB_ACTIVE = False Then clsWindream.Create_Session() - btnButton.Visible = False + bbtnitButton.Visibility = DevExpress.XtraBars.BarItemVisibility.Never Else - btnButton.Visible = True + bbtnitButton.Visibility = DevExpress.XtraBars.BarItemVisibility.Always End If @@ -294,215 +298,221 @@ Public Class frmFormDesigner End Try End Sub - Private Sub DragDropButtons_MouseDown(sender As Object, e As MouseEventArgs) Handles btnlabel.MouseDown, btntextbox.MouseDown, btndtp.MouseDown, btnVektor.MouseDown, btnTabelle.MouseDown, btnCheckbox.MouseDown, btnLine.MouseDown, btnButton.MouseDown - If Designer_Locked Then - Exit Sub - End If - Mouse_IsPressed = True + 'Private Sub DragDropButtons_MouseDown(sender As Object, e As MouseEventArgs) Handles btnlabel.MouseDown, btntextbox.MouseDown, btndtp.MouseDown, btnVektor.MouseDown, btnTabelle.MouseDown, btnCheckbox.MouseDown, btnLine.MouseDown, btnButton.MouseDown + ' If Designer_Locked Then + ' Exit Sub + ' End If + ' Mouse_IsPressed = True - CurrentControl = Nothing - Try - TBPM_PROFILE_CONTROLSBindingSource.Clear() - Catch ex As Exception - LOGGER.Error(ex) - End Try - End Sub + ' CurrentControl = Nothing + ' Try + ' TBPM_PROFILE_CONTROLSBindingSource.Clear() + ' Catch ex As Exception + ' LOGGER.Error(ex) + ' End Try + 'End Sub - Private Sub DragDropButtons_MouseMove(sender As Object, e As MouseEventArgs) Handles btnlabel.MouseMove, btntextbox.MouseMove, btndtp.MouseMove, btnVektor.MouseMove, btnTabelle.MouseMove, btnCheckbox.MouseMove, btnLine.MouseMove, btnButton.MouseMove - If Mouse_IsPressed Then - Dim btn As Button = sender - Dim dragDropData As String + 'Private Sub DragDropButtons_MouseMove(sender As Object, e As MouseEventArgs) Handles btnlabel.MouseMove, btntextbox.MouseMove, btndtp.MouseMove, btnVektor.MouseMove, btnTabelle.MouseMove, btnCheckbox.MouseMove, btnLine.MouseMove, btnButton.MouseMove + ' If Designer_Locked Then + ' Exit Sub + ' End If + ' If Mouse_IsPressed Then + ' Dim btn As Button = sender + ' Dim dragDropData As String - Select Case btn.Name - Case "btnlabel" - dragDropData = ClassControlCreator.PREFIX_LABEL - Case "btntextbox" - dragDropData = ClassControlCreator.PREFIX_TEXTBOX - Case "btncmb" - dragDropData = ClassControlCreator.PREFIX_COMBOBOX - Case "btndtp" - dragDropData = ClassControlCreator.PREFIX_DATETIMEPICKER - Case "btnVektor" - dragDropData = ClassControlCreator.PREFIX_DATAGRIDVIEW - Case "btnTabelle" - dragDropData = ClassControlCreator.PREFIX_TABLE - Case "btnCheckbox" - dragDropData = ClassControlCreator.PREFIX_CHECKBOX - Case "btnLine" - dragDropData = ClassControlCreator.PREFIX_LINE - Case "btnButton" - dragDropData = ClassControlCreator.PREFIX_BUTTON - End Select + ' Select Case btn.Name + ' Case "btnlabel" + ' dragDropData = ClassControlCreator.PREFIX_LABEL + ' Case "btntextbox" + ' dragDropData = ClassControlCreator.PREFIX_TEXTBOX + ' Case "btncmb" + ' dragDropData = ClassControlCreator.PREFIX_COMBOBOX + ' Case "btndtp" + ' dragDropData = ClassControlCreator.PREFIX_DATETIMEPICKER + ' Case "btnVektor" + ' dragDropData = ClassControlCreator.PREFIX_DATAGRIDVIEW + ' Case "btnTabelle" + ' dragDropData = ClassControlCreator.PREFIX_TABLE + ' Case "btnCheckbox" + ' dragDropData = ClassControlCreator.PREFIX_CHECKBOX + ' Case "btnLine" + ' dragDropData = ClassControlCreator.PREFIX_LINE + ' Case "btnButton" + ' dragDropData = ClassControlCreator.PREFIX_BUTTON + ' End Select - btn.DoDragDrop(dragDropData, DragDropEffects.Copy) - End If - End Sub + ' btn.DoDragDrop(dragDropData, DragDropEffects.Copy) + ' End If + 'End Sub - Private Sub DragDropButtons_MouseUp(sender As Object, e As MouseEventArgs) Handles btnlabel.MouseUp, btntextbox.MouseUp, btndtp.MouseUp, btnVektor.MouseUp, btnTabelle.MouseUp, btnCheckbox.MouseUp, btnLine.MouseUp, btnButton.MouseUp - Mouse_IsPressed = False - End Sub + 'Private Sub DragDropButtons_MouseUp(sender As Object, e As MouseEventArgs) Handles btnlabel.MouseUp, btntextbox.MouseUp, btndtp.MouseUp, btnVektor.MouseUp, btnTabelle.MouseUp, btnCheckbox.MouseUp, btnLine.MouseUp, btnButton.MouseUp + ' Mouse_IsPressed = False + 'End Sub - Private Sub pnlDesigner_DragDrop(sender As Object, e As DragEventArgs) Handles pnldesigner.DragDrop - Dim cursorPosition As Point = pnldesigner.PointToClient(Cursor.Position) + 'Private Sub pnlDesigner_DragDrop(sender As Object, e As DragEventArgs) Handles pnldesigner.DragDrop + ' If Designer_Locked Then + ' Exit Sub + ' End If + ' Dim cursorPosition As Point = pnldesigner.PointToClient(Cursor.Position) - Mouse_IsPressed = False + ' Mouse_IsPressed = False - Try - Select Case e.Data.GetData(DataFormats.Text) - Case ClassControlCreator.PREFIX_LABEL - Dim label = ClassControlCreator.CreateNewLabel(cursorPosition) - SetMovementHandlers(label) + ' Try + ' Select Case e.Data.GetData(DataFormats.Text) + ' Case ClassControlCreator.PREFIX_LABEL + ' Dim label = ClassControlCreator.CreateNewLabel(cursorPosition) + ' SetMovementHandlers(label) - TBPM_PROFILE_CONTROLSTableAdapter.cmdInsertAnlage(ProfileId, label.Name, "LBL", label.Text, label.Location.X, label.Location.Y, USER_USERNAME, label.Size.Height, label.Size.Width) - CHANGES_IN_ADMINISTRATION = True - CurrentControl = label - CurrentControl.Tag = New ClassControlCreator.ControlMetadata() With { - .Guid = GetLastID(), - .ReadOnly = False - } + ' TBPM_PROFILE_CONTROLSTableAdapter.cmdInsertAnlage(ProfileId, label.Name, "LBL", label.Text, label.Location.X, label.Location.Y, USER_USERNAME, label.Size.Height, label.Size.Width) + ' CHANGES_IN_ADMINISTRATION = True + ' CurrentControl = label + ' CurrentControl.Tag = New ClassControlCreator.ControlMetadata() With { + ' .Guid = GetLastID(), + ' .ReadOnly = False + ' } - pnldesigner.Controls.Add(label) + ' pnldesigner.Controls.Add(label) - Case ClassControlCreator.PREFIX_TEXTBOX - Dim txt = ClassControlCreator.CreateNewTextBox(cursorPosition) - SetMovementHandlers(txt) + ' Case ClassControlCreator.PREFIX_TEXTBOX + ' Dim txt = ClassControlCreator.CreateNewTextBox(cursorPosition) + ' SetMovementHandlers(txt) - TBPM_PROFILE_CONTROLSTableAdapter.cmdInsertAnlage(ProfileId, txt.Name, "TXT", txt.Name, txt.Location.X, txt.Location.Y, USER_USERNAME, txt.Size.Height, txt.Size.Width) - CHANGES_IN_ADMINISTRATION = True - CurrentControl = txt - CurrentControl.Tag = New ClassControlCreator.ControlMetadata() With { - .Guid = GetLastID(), - .ReadOnly = False - } + ' TBPM_PROFILE_CONTROLSTableAdapter.cmdInsertAnlage(ProfileId, txt.Name, "TXT", txt.Name, txt.Location.X, txt.Location.Y, USER_USERNAME, txt.Size.Height, txt.Size.Width) + ' CHANGES_IN_ADMINISTRATION = True + ' CurrentControl = txt + ' CurrentControl.Tag = New ClassControlCreator.ControlMetadata() With { + ' .Guid = GetLastID(), + ' .ReadOnly = False + ' } - pnldesigner.Controls.Add(txt) + ' pnldesigner.Controls.Add(txt) - Case ClassControlCreator.PREFIX_COMBOBOX - Dim cmb = ClassControlCreator.CreateNewCombobox(cursorPosition) - SetMovementHandlers(cmb) + ' Case ClassControlCreator.PREFIX_COMBOBOX + ' Dim cmb = ClassControlCreator.CreateNewCombobox(cursorPosition) + ' SetMovementHandlers(cmb) - TBPM_PROFILE_CONTROLSTableAdapter.cmdInsertAnlage(ProfileId, cmb.Name, "CMB", cmb.Name, cmb.Location.X, cmb.Location.Y, USER_USERNAME, cmb.Size.Height, cmb.Size.Width) - CHANGES_IN_ADMINISTRATION = True - CurrentControl = cmb - CurrentControl.Tag = New ClassControlCreator.ControlMetadata() With { - .Guid = GetLastID(), - .ReadOnly = False - } + ' TBPM_PROFILE_CONTROLSTableAdapter.cmdInsertAnlage(ProfileId, cmb.Name, "CMB", cmb.Name, cmb.Location.X, cmb.Location.Y, USER_USERNAME, cmb.Size.Height, cmb.Size.Width) + ' CHANGES_IN_ADMINISTRATION = True + ' CurrentControl = cmb + ' CurrentControl.Tag = New ClassControlCreator.ControlMetadata() With { + ' .Guid = GetLastID(), + ' .ReadOnly = False + ' } - pnldesigner.Controls.Add(cmb) + ' pnldesigner.Controls.Add(cmb) - Case ClassControlCreator.PREFIX_DATETIMEPICKER - Dim dtp = ClassControlCreator.CreateNewDatetimepicker(cursorPosition) - SetMovementHandlers(dtp) + ' Case ClassControlCreator.PREFIX_DATETIMEPICKER + ' Dim dtp = ClassControlCreator.CreateNewDatetimepicker(cursorPosition) + ' SetMovementHandlers(dtp) - TBPM_PROFILE_CONTROLSTableAdapter.cmdInsertAnlage(ProfileId, dtp.Name, "DTP", dtp.Name, dtp.Location.X, dtp.Location.Y, USER_USERNAME, dtp.Size.Height, dtp.Size.Width) - CHANGES_IN_ADMINISTRATION = True - CurrentControl = dtp - CurrentControl.Tag = New ClassControlCreator.ControlMetadata() With { - .Guid = GetLastID(), - .ReadOnly = False - } + ' TBPM_PROFILE_CONTROLSTableAdapter.cmdInsertAnlage(ProfileId, dtp.Name, "DTP", dtp.Name, dtp.Location.X, dtp.Location.Y, USER_USERNAME, dtp.Size.Height, dtp.Size.Width) + ' CHANGES_IN_ADMINISTRATION = True + ' CurrentControl = dtp + ' CurrentControl.Tag = New ClassControlCreator.ControlMetadata() With { + ' .Guid = GetLastID(), + ' .ReadOnly = False + ' } - pnldesigner.Controls.Add(dtp) + ' pnldesigner.Controls.Add(dtp) - Case ClassControlCreator.PREFIX_CHECKBOX - Dim chk = ClassControlCreator.CreateNewCheckbox(cursorPosition) - SetMovementHandlers(chk) + ' Case ClassControlCreator.PREFIX_CHECKBOX + ' Dim chk = ClassControlCreator.CreateNewCheckbox(cursorPosition) + ' SetMovementHandlers(chk) - TBPM_PROFILE_CONTROLSTableAdapter.cmdInsertAnlage(ProfileId, chk.Name, "CHK", chk.Text, chk.Location.X, chk.Location.Y, USER_USERNAME, chk.Size.Height, chk.Size.Width) - CHANGES_IN_ADMINISTRATION = True - CurrentControl = chk - CurrentControl.Tag = New ClassControlCreator.ControlMetadata() With { - .Guid = GetLastID(), - .ReadOnly = False - } + ' TBPM_PROFILE_CONTROLSTableAdapter.cmdInsertAnlage(ProfileId, chk.Name, "CHK", chk.Text, chk.Location.X, chk.Location.Y, USER_USERNAME, chk.Size.Height, chk.Size.Width) + ' CHANGES_IN_ADMINISTRATION = True + ' CurrentControl = chk + ' CurrentControl.Tag = New ClassControlCreator.ControlMetadata() With { + ' .Guid = GetLastID(), + ' .ReadOnly = False + ' } - pnldesigner.Controls.Add(chk) + ' pnldesigner.Controls.Add(chk) - Case ClassControlCreator.PREFIX_DATAGRIDVIEW - Dim lc As LookupControl2 = ClassControlCreator.CreateNewLookupControl(cursorPosition) + ' Case ClassControlCreator.PREFIX_DATAGRIDVIEW + ' Dim lc As LookupControl2 = ClassControlCreator.CreateNewLookupControl(cursorPosition) - SetMovementHandlers(lc) + ' SetMovementHandlers(lc) - TBPM_PROFILE_CONTROLSTableAdapter.cmdInsertAnlage(ProfileId, lc.Name, "LOOKUP", lc.Name, lc.Location.X, lc.Location.Y, USER_USERNAME, lc.Size.Height, lc.Size.Width) - CHANGES_IN_ADMINISTRATION = True - CurrentControl = lc - CurrentControl.Tag = New ClassControlCreator.ControlMetadata() With { - .Guid = GetLastID(), - .ReadOnly = False - } + ' TBPM_PROFILE_CONTROLSTableAdapter.cmdInsertAnlage(ProfileId, lc.Name, "LOOKUP", lc.Name, lc.Location.X, lc.Location.Y, USER_USERNAME, lc.Size.Height, lc.Size.Width) + ' CHANGES_IN_ADMINISTRATION = True + ' CurrentControl = lc + ' CurrentControl.Tag = New ClassControlCreator.ControlMetadata() With { + ' .Guid = GetLastID(), + ' .ReadOnly = False + ' } - pnldesigner.Controls.Add(lc) + ' pnldesigner.Controls.Add(lc) - Case ClassControlCreator.PREFIX_TABLE - Dim tb = ClassControlCreator.CreateNewTable(cursorPosition) + ' Case ClassControlCreator.PREFIX_TABLE + ' Dim tb = ClassControlCreator.CreateNewTable(cursorPosition) - SetMovementHandlers(tb) - AddHandler tb.MouseClick, AddressOf gridControl_MouseClick + ' SetMovementHandlers(tb) + ' AddHandler tb.MouseClick, AddressOf gridControl_MouseClick - TBPM_PROFILE_CONTROLSTableAdapter.cmdInsertAnlage(ProfileId, tb.Name, "TABLE", tb.Name, tb.Location.X, tb.Location.Y, USER_USERNAME, tb.Size.Height, tb.Size.Width) - CHANGES_IN_ADMINISTRATION = True - Dim oControlId = GetLastID() + ' TBPM_PROFILE_CONTROLSTableAdapter.cmdInsertAnlage(ProfileId, tb.Name, "TABLE", tb.Name, tb.Location.X, tb.Location.Y, USER_USERNAME, tb.Size.Height, tb.Size.Width) + ' CHANGES_IN_ADMINISTRATION = True + ' Dim oControlId = GetLastID() - CurrentControl = tb - CurrentControl.Tag = New ClassControlCreator.ControlMetadata() With { - .Guid = oControlId, - .ReadOnly = False - } + ' CurrentControl = tb + ' CurrentControl.Tag = New ClassControlCreator.ControlMetadata() With { + ' .Guid = oControlId, + ' .ReadOnly = False + ' } - TBPM_CONTROL_TABLETableAdapter.Insert(oControlId, "column1", "Column1", 95, USER_USERNAME) - TBPM_CONTROL_TABLETableAdapter.Insert(oControlId, "column2", "Column2", 95, USER_USERNAME) + ' TBPM_CONTROL_TABLETableAdapter.Insert(oControlId, "column1", "Column1", 95, USER_USERNAME) + ' TBPM_CONTROL_TABLETableAdapter.Insert(oControlId, "column2", "Column2", 95, USER_USERNAME) - pnldesigner.Controls.Add(tb) - Case ClassControlCreator.PREFIX_LINE - Dim line = ClassControlCreator.CreateNewLine(cursorPosition) + ' pnldesigner.Controls.Add(tb) + ' Case ClassControlCreator.PREFIX_LINE + ' Dim line = ClassControlCreator.CreateNewLine(cursorPosition) - SetMovementHandlers(line) + ' SetMovementHandlers(line) - TBPM_PROFILE_CONTROLSTableAdapter.cmdInsertAnlage(ProfileId, line.Name, "LINE", line.Name, line.Location.X, line.Location.Y, USER_USERNAME, line.Size.Height, line.Size.Width) - CHANGES_IN_ADMINISTRATION = True - CurrentControl = line - CurrentControl.Tag = New ClassControlCreator.ControlMetadata() With { - .Guid = GetLastID(), - .ReadOnly = False - } + ' TBPM_PROFILE_CONTROLSTableAdapter.cmdInsertAnlage(ProfileId, line.Name, "LINE", line.Name, line.Location.X, line.Location.Y, USER_USERNAME, line.Size.Height, line.Size.Width) + ' CHANGES_IN_ADMINISTRATION = True + ' CurrentControl = line + ' CurrentControl.Tag = New ClassControlCreator.ControlMetadata() With { + ' .Guid = GetLastID(), + ' .ReadOnly = False + ' } - pnldesigner.Controls.Add(line) - Case ClassControlCreator.PREFIX_BUTTON - Dim oButton = ClassControlCreator.CreateNewButton(cursorPosition) + ' pnldesigner.Controls.Add(line) + ' Case ClassControlCreator.PREFIX_BUTTON + ' Dim oButton = ClassControlCreator.CreateNewButton(cursorPosition) - SetMovementHandlers(oButton) + ' SetMovementHandlers(oButton) - TBPM_PROFILE_CONTROLSTableAdapter.cmdInsertAnlage(ProfileId, oButton.Name, "BUTTON", oButton.Name, oButton.Location.X, oButton.Location.Y, USER_USERNAME, oButton.Size.Height, oButton.Size.Width) - CHANGES_IN_ADMINISTRATION = True - CurrentControl = oButton - CurrentControl.Tag = New ClassControlCreator.ControlMetadata() With { - .Guid = GetLastID(), - .ReadOnly = False - } + ' TBPM_PROFILE_CONTROLSTableAdapter.cmdInsertAnlage(ProfileId, oButton.Name, "BUTTON", oButton.Name, oButton.Location.X, oButton.Location.Y, USER_USERNAME, oButton.Size.Height, oButton.Size.Width) + ' CHANGES_IN_ADMINISTRATION = True + ' CurrentControl = oButton + ' CurrentControl.Tag = New ClassControlCreator.ControlMetadata() With { + ' .Guid = GetLastID(), + ' .ReadOnly = False + ' } - pnldesigner.Controls.Add(oButton) - End Select - Catch ex As Exception - LOGGER.Error(ex) - LOGGER.Info($"Error while Adding new control {e.Data.GetData(DataFormats.Text)}:") - LOGGER.Info(ex) - End Try - End Sub + ' pnldesigner.Controls.Add(oButton) + ' End Select + ' Catch ex As Exception + ' LOGGER.Error(ex) + ' LOGGER.Info($"Error while Adding new control {e.Data.GetData(DataFormats.Text)}:") + ' LOGGER.Info(ex) + ' End Try + 'End Sub - Private Sub pnlDesigner_DragEnter(sender As System.Object, e As DragEventArgs) Handles pnldesigner.DragEnter - ' Check the format of the data being dropped. - If (e.Data.GetDataPresent(DataFormats.Text)) Then - ' Display the copy cursor. - e.Effect = DragDropEffects.Copy - Else - ' Display the no-drop cursor. - e.Effect = DragDropEffects.None - End If - End Sub + 'Private Sub pnlDesigner_DragEnter(sender As System.Object, e As DragEventArgs) Handles pnldesigner.DragEnter + ' ' Check the format of the data being dropped. + ' If (e.Data.GetDataPresent(DataFormats.Text)) Then + ' ' Display the copy cursor. + ' e.Effect = DragDropEffects.Copy + ' Else + ' ' Display the no-drop cursor. + ' e.Effect = DragDropEffects.None + ' End If + 'End Sub Private Function GetLastID() Dim sql = String.Format("SELECT MAX(GUID) FROM TBPM_PROFILE_CONTROLS WHERE PROFIL_ID = {0}", ProfileId) @@ -603,57 +613,6 @@ Public Class frmFormDesigner End Function - Private Sub btnwidth_plus_Click(sender As System.Object, e As EventArgs) Handles btnwidth_plus.Click - If CurrentControl Is Nothing = False Then - CurrentControl.Size = New Size(CurrentControl.Width + 5, CurrentControl.Height) - UpdateSingleValue("WIDTH", CurrentControl.Size.Width) - End If - End Sub - - Private Sub btnwidth_minus_Click(sender As System.Object, e As EventArgs) Handles btnwidth_minus.Click - If CurrentControl Is Nothing = False Then - Dim newWidth = CurrentControl.Width - 5 - - ' Verhindert, dass das Control unsichtbar wird - If newWidth < 1 Then - Exit Sub - End If - - CurrentControl.Size = New Size(newWidth, CurrentControl.Height) - UpdateSingleValue("WIDTH", CurrentControl.Size.Width) - End If - End Sub - - Private Sub btnheight_plus_Click(sender As System.Object, e As EventArgs) Handles btnheight_plus.Click - If CurrentControl Is Nothing = False Then - Dim newHeight As Integer = CurrentControl.Height + 5 - - If newHeight > 21 And TypeOf CurrentControl Is TextBox Then - DirectCast(CurrentControl, TextBox).Multiline = True - End If - - CurrentControl.Size = New Size(CurrentControl.Width, newHeight) - UpdateSingleValue("HEIGHT", newHeight) - End If - End Sub - - Private Sub btnheight_minus_Click(sender As System.Object, e As EventArgs) Handles btnheight_minus.Click - If CurrentControl Is Nothing = False Then - Dim newHeight As Integer = CurrentControl.Height - 5 - - If newHeight < 22 And TypeOf CurrentControl Is TextBox Then - DirectCast(CurrentControl, TextBox).Multiline = True - End If - - ' Verhindert, dass das Control unsichtbar wird - If newHeight < 1 Then - Exit Sub - End If - - CurrentControl.Size = New Size(CurrentControl.Width, newHeight) - UpdateSingleValue("HEIGHT", newHeight) - End If - End Sub ''' @@ -676,13 +635,17 @@ Public Class frmFormDesigner sender.BringToFront() RibbonPageGroup3.Enabled = True Mouse_IsPressed = True - + RibPGCtrlheight.Enabled = True + RibPGCtrlWidth.Enabled = True Console.WriteLine("CURRENT_CONTROL:" & CurrentControl.Name) End If End Sub Private Sub OnControl_MouseUp(sender As Control, e As MouseEventArgs) Try + If Designer_Locked Then + Exit Sub + End If Mouse_IsPressed = False ' Control Eigenschaften laden @@ -745,6 +708,9 @@ Public Class frmFormDesigner Private Sub OnControl_MouseMove(sender As Control, e As MouseEventArgs) Try + If Designer_Locked Then + Exit Sub + End If If CurrentControl Is Nothing Then Exit Sub End If @@ -823,7 +789,7 @@ Public Class frmFormDesigner Dim dt As DataTable = DD_DMSLiteDataSet.TBPM_PROFILE_CONTROLS Dim row As DataRow - TabControlEigenschaften.Enabled = True + pgControls.Enabled = True ' Beim Laden der Eigenschaften eines Controls muss die ganze Datatable neu geladen werden ' Nicht wirklich, aber gibt gerade keine bessere Möglichkeit, ohne alle SQL Abfragen selbst auszuführen @@ -1184,7 +1150,10 @@ Public Class frmFormDesigner Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick If CurrentControl Is Nothing = False Then DeleteControl(CurrentControl.Name) - TabControlEigenschaften.Enabled = False + pgControls.Enabled = False + CurrentControl = Nothing + RibPGCtrlheight.Enabled = False + RibPGCtrlWidth.Enabled = False End If End Sub @@ -1194,15 +1163,269 @@ Public Class frmFormDesigner Private Sub BarButtonItem3_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem3.ItemClick If BarButtonItem3.Caption = "Designer locked" Then - BarButtonItem3.Caption = "Designer active" BarButtonItem3.ItemAppearance.Normal.BackColor = Color.Lime Designer_Locked = False Else - BarButtonItem3.Caption = "Designer locked" BarButtonItem3.ItemAppearance.Normal.BackColor = Color.Red Designer_Locked = True + If Me.Cursor = Cursors.Cross Then + Mouse_IsPressed = False + Me.Cursor = Cursors.Default + End If + End If + End Sub + Private Sub ControlBarItem_Clicked(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbtnitLabel.ItemClick, bbtnitLine.ItemClick, bbtnitButton.ItemClick, + bbtnitCheckBox.ItemClick, bbtnitDatePicker.ItemClick, bbtnitLU.ItemClick, bbtnitTable.ItemClick, bbtnitTextBox.ItemClick + If Designer_Locked Then + Exit Sub + End If + Me.Cursor = Cursors.Cross + Mouse_IsPressed = True + CurrentControl = Nothing + + Select Case e.Item.Name + Case "bbtnitLabel" + ControlSelected = ClassControlCreator.PREFIX_LABEL + Case "bbtnitTextBox" + ControlSelected = ClassControlCreator.PREFIX_TEXTBOX + Case "btncmb" + ControlSelected = ClassControlCreator.PREFIX_COMBOBOX + Case "bbtnitDatePicker" + ControlSelected = ClassControlCreator.PREFIX_DATETIMEPICKER + Case "btnVektor" + ControlSelected = ClassControlCreator.PREFIX_DATAGRIDVIEW + Case "bbtnitTable" + ControlSelected = ClassControlCreator.PREFIX_TABLE + Case "bbtnitCheckBox" + ControlSelected = ClassControlCreator.PREFIX_CHECKBOX + Case "bbtnitLine" + ControlSelected = ClassControlCreator.PREFIX_LINE + Case "bbtnitButton" + ControlSelected = ClassControlCreator.PREFIX_BUTTON + End Select + + + End Sub + + Private Sub frmFormDesigner_KeyUp(sender As Object, e As KeyEventArgs) Handles MyBase.KeyUp + If e.KeyCode = Keys.Escape Then + If Me.Cursor = Cursors.Cross Then + Mouse_IsPressed = False + Me.Cursor = Cursors.Default + End If + + End If + End Sub + + Private Sub pnldesigner_MouseDown(sender As Object, e As MouseEventArgs) Handles pnldesigner.MouseDown + If Designer_Locked Then + Exit Sub + End If + If Me.Cursor = Cursors.Cross And Mouse_IsPressed = True Then + Dim cursorPosition As Point = pnldesigner.PointToClient(Cursor.Position) + Mouse_IsPressed = False + + Try + Select Case ControlSelected + Case ClassControlCreator.PREFIX_LABEL + Dim label = ClassControlCreator.CreateNewLabel(cursorPosition) + SetMovementHandlers(label) + + TBPM_PROFILE_CONTROLSTableAdapter.cmdInsertAnlage(ProfileId, label.Name, "LBL", label.Text, label.Location.X, label.Location.Y, USER_USERNAME, label.Size.Height, label.Size.Width) + CHANGES_IN_ADMINISTRATION = True + CurrentControl = label + CurrentControl.Tag = New ClassControlCreator.ControlMetadata() With { + .Guid = GetLastID(), + .ReadOnly = False + } + + + pnldesigner.Controls.Add(label) + + Case ClassControlCreator.PREFIX_TEXTBOX + Dim txt = ClassControlCreator.CreateNewTextBox(cursorPosition) + SetMovementHandlers(txt) + + TBPM_PROFILE_CONTROLSTableAdapter.cmdInsertAnlage(ProfileId, txt.Name, "TXT", txt.Name, txt.Location.X, txt.Location.Y, USER_USERNAME, txt.Size.Height, txt.Size.Width) + CHANGES_IN_ADMINISTRATION = True + CurrentControl = txt + CurrentControl.Tag = New ClassControlCreator.ControlMetadata() With { + .Guid = GetLastID(), + .ReadOnly = False + } + + pnldesigner.Controls.Add(txt) + + Case ClassControlCreator.PREFIX_COMBOBOX + Dim cmb = ClassControlCreator.CreateNewCombobox(cursorPosition) + SetMovementHandlers(cmb) + + TBPM_PROFILE_CONTROLSTableAdapter.cmdInsertAnlage(ProfileId, cmb.Name, "CMB", cmb.Name, cmb.Location.X, cmb.Location.Y, USER_USERNAME, cmb.Size.Height, cmb.Size.Width) + CHANGES_IN_ADMINISTRATION = True + CurrentControl = cmb + CurrentControl.Tag = New ClassControlCreator.ControlMetadata() With { + .Guid = GetLastID(), + .ReadOnly = False + } + + pnldesigner.Controls.Add(cmb) + + Case ClassControlCreator.PREFIX_DATETIMEPICKER + Dim dtp = ClassControlCreator.CreateNewDatetimepicker(cursorPosition) + SetMovementHandlers(dtp) + + TBPM_PROFILE_CONTROLSTableAdapter.cmdInsertAnlage(ProfileId, dtp.Name, "DTP", dtp.Name, dtp.Location.X, dtp.Location.Y, USER_USERNAME, dtp.Size.Height, dtp.Size.Width) + CHANGES_IN_ADMINISTRATION = True + CurrentControl = dtp + CurrentControl.Tag = New ClassControlCreator.ControlMetadata() With { + .Guid = GetLastID(), + .ReadOnly = False + } + + pnldesigner.Controls.Add(dtp) + + Case ClassControlCreator.PREFIX_CHECKBOX + Dim chk = ClassControlCreator.CreateNewCheckbox(cursorPosition) + SetMovementHandlers(chk) + + TBPM_PROFILE_CONTROLSTableAdapter.cmdInsertAnlage(ProfileId, chk.Name, "CHK", chk.Text, chk.Location.X, chk.Location.Y, USER_USERNAME, chk.Size.Height, chk.Size.Width) + CHANGES_IN_ADMINISTRATION = True + CurrentControl = chk + CurrentControl.Tag = New ClassControlCreator.ControlMetadata() With { + .Guid = GetLastID(), + .ReadOnly = False + } + + pnldesigner.Controls.Add(chk) + + Case ClassControlCreator.PREFIX_DATAGRIDVIEW + Dim lc As LookupControl2 = ClassControlCreator.CreateNewLookupControl(cursorPosition) + + SetMovementHandlers(lc) + + TBPM_PROFILE_CONTROLSTableAdapter.cmdInsertAnlage(ProfileId, lc.Name, "LOOKUP", lc.Name, lc.Location.X, lc.Location.Y, USER_USERNAME, lc.Size.Height, lc.Size.Width) + CHANGES_IN_ADMINISTRATION = True + CurrentControl = lc + CurrentControl.Tag = New ClassControlCreator.ControlMetadata() With { + .Guid = GetLastID(), + .ReadOnly = False + } + + pnldesigner.Controls.Add(lc) + + Case ClassControlCreator.PREFIX_TABLE + Dim tb = ClassControlCreator.CreateNewTable(cursorPosition) + + SetMovementHandlers(tb) + AddHandler tb.MouseClick, AddressOf gridControl_MouseClick + + TBPM_PROFILE_CONTROLSTableAdapter.cmdInsertAnlage(ProfileId, tb.Name, "TABLE", tb.Name, tb.Location.X, tb.Location.Y, USER_USERNAME, tb.Size.Height, tb.Size.Width) + CHANGES_IN_ADMINISTRATION = True + Dim oControlId = GetLastID() + + CurrentControl = tb + CurrentControl.Tag = New ClassControlCreator.ControlMetadata() With { + .Guid = oControlId, + .ReadOnly = False + } + + TBPM_CONTROL_TABLETableAdapter.Insert(oControlId, "column1", "Column1", 95, USER_USERNAME) + TBPM_CONTROL_TABLETableAdapter.Insert(oControlId, "column2", "Column2", 95, USER_USERNAME) + + pnldesigner.Controls.Add(tb) + Case ClassControlCreator.PREFIX_LINE + Dim line = ClassControlCreator.CreateNewLine(cursorPosition) + + SetMovementHandlers(line) + + TBPM_PROFILE_CONTROLSTableAdapter.cmdInsertAnlage(ProfileId, line.Name, "LINE", line.Name, line.Location.X, line.Location.Y, USER_USERNAME, line.Size.Height, line.Size.Width) + CHANGES_IN_ADMINISTRATION = True + CurrentControl = line + CurrentControl.Tag = New ClassControlCreator.ControlMetadata() With { + .Guid = GetLastID(), + .ReadOnly = False + } + + + pnldesigner.Controls.Add(line) + Case ClassControlCreator.PREFIX_BUTTON + Dim oButton = ClassControlCreator.CreateNewButton(cursorPosition) + + SetMovementHandlers(oButton) + + TBPM_PROFILE_CONTROLSTableAdapter.cmdInsertAnlage(ProfileId, oButton.Name, "BUTTON", oButton.Name, oButton.Location.X, oButton.Location.Y, USER_USERNAME, oButton.Size.Height, oButton.Size.Width) + CHANGES_IN_ADMINISTRATION = True + CurrentControl = oButton + CurrentControl.Tag = New ClassControlCreator.ControlMetadata() With { + .Guid = GetLastID(), + .ReadOnly = False + } + + + pnldesigner.Controls.Add(oButton) + End Select + If Not IsNothing(CurrentControl) Then + RibPGCtrlheight.Enabled = True + RibPGCtrlWidth.Enabled = True + End If + Catch ex As Exception + LOGGER.Error(ex) + LOGGER.Info($"Error while Adding new control {ControlSelected}:") + LOGGER.Info(ex) + End Try + Me.Cursor = Cursors.Default + End If + End Sub + + Private Sub bbtniwidth_plus_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbtniwidth_plus.ItemClick + If CurrentControl Is Nothing = False Then + CurrentControl.Size = New Size(CurrentControl.Width + 5, CurrentControl.Height) + UpdateSingleValue("WIDTH", CurrentControl.Size.Width) + End If + End Sub + + Private Sub bbtniwidth_min_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbtniwidth_min.ItemClick + If CurrentControl Is Nothing = False Then + Dim newWidth = CurrentControl.Width - 5 + ' Verhindert, dass das Control unsichtbar wird + If newWidth < 1 Then + Exit Sub + End If + CurrentControl.Size = New Size(newWidth, CurrentControl.Height) + UpdateSingleValue("WIDTH", CurrentControl.Size.Width) + End If + End Sub + + Private Sub bbtniheight_min_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbtniheight_min.ItemClick + If CurrentControl Is Nothing = False Then + Dim newHeight As Integer = CurrentControl.Height - 5 + + If newHeight < 22 And TypeOf CurrentControl Is TextBox Then + DirectCast(CurrentControl, TextBox).Multiline = True + End If + + ' Verhindert, dass das Control unsichtbar wird + If newHeight < 1 Then + Exit Sub + End If + + CurrentControl.Size = New Size(CurrentControl.Width, newHeight) + UpdateSingleValue("HEIGHT", newHeight) + End If + End Sub + + Private Sub bbtniheight_plus_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbtniheight_plus.ItemClick + If CurrentControl Is Nothing = False Then + Dim newHeight As Integer = CurrentControl.Height + 5 + + If newHeight > 21 And TypeOf CurrentControl Is TextBox Then + DirectCast(CurrentControl, TextBox).Multiline = True + End If + + CurrentControl.Size = New Size(CurrentControl.Width, newHeight) + UpdateSingleValue("HEIGHT", newHeight) End If End Sub End Class \ No newline at end of file diff --git a/app/DD_PM_WINDREAM/frmValidator.resx b/app/DD_PM_WINDREAM/frmValidator.resx index 98c2326..6f5cc6a 100644 --- a/app/DD_PM_WINDREAM/frmValidator.resx +++ b/app/DD_PM_WINDREAM/frmValidator.resx @@ -313,7 +313,7 @@ DocumentViewerValidator - DigitalData.Controls.DocumentViewer.DocumentViewer, DigitalData.Controls.DocumentViewer, Version=1.0.0.0, Culture=neutral, PublicKeyToken=null + DigitalData.Controls.DocumentViewer.DocumentViewer, DigitalData.Controls.DocumentViewer, Version=1.0.1.0, Culture=neutral, PublicKeyToken=null SplitContainer1.Panel2 @@ -868,7 +868,7 @@ Information - Menü + Start 1152, 146 diff --git a/app/DD_PM_WINDREAM/frmValidator.vb b/app/DD_PM_WINDREAM/frmValidator.vb index 22af81c..54275b3 100644 --- a/app/DD_PM_WINDREAM/frmValidator.vb +++ b/app/DD_PM_WINDREAM/frmValidator.vb @@ -47,7 +47,6 @@ Public Class frmValidator Dim _Indexe_Loaded As Boolean = False Public Shared idxerr_message As String = "" - Dim DocView Private _CURRENT_INDEX_ARRAY(100, 250) As String Private _frmValidatorSearch As frmValidatorSearch 'You need a reference to Form1 @@ -2705,9 +2704,11 @@ Public Class frmValidator Next Else If omytype = "System.String" Then - MsgBox($"IDB Fill Grid [{oControl.Name}] with String") + 'If USER_USERNAME.ToLower = "'marscheiber" Then MsgBox($"IDB Fill Grid [{oControl.Name}] with String") oColValuesfromSource = Split(oValueFromSource.ToString, PMDelimiter) Select Case oColValuesfromSource.Length + Case 1 + oDataSource.Rows.Add(New String() {oColValuesfromSource(0)}) Case 2 oDataSource.Rows.Add(New String() {oColValuesfromSource(0), oColValuesfromSource(1)}) Case 3 @@ -2717,11 +2718,11 @@ Public Class frmValidator End Select ElseIf omytype = "System.Data.DataTable" Then Dim oMyDatatable As DataTable = oValueFromSource - MsgBox($"IDB Fill Grid [{oControl.Name}] with Datatable - Rows: " & oMyDatatable.Rows.Count) + 'If USER_USERNAME.ToLower = "'marscheiber" Then MsgBox($"IDB Fill Grid [{oControl.Name}] with Datatable - Rows: " & oMyDatatable.Rows.Count) For Each oRow As DataRow In oMyDatatable.Rows LOGGER.Debug($"IDB ROW Vector {oRow.Item(0).ToString}...") oColValuesfromSource = Split(oRow.Item(0).ToString, PMDelimiter) - MsgBox($"IDB ROW Vector {oRow.Item(0).ToString}...") + 'If USER_USERNAME.ToLower = "'marscheiber" Then MsgBox($"IDB ROW Vector {oRow.Item(0).ToString}...") Select Case oColValuesfromSource.Length Case 1 @@ -3180,6 +3181,12 @@ Public Class frmValidator If result = MsgBoxResult.Yes Then Return True Else + Dim oLogString = $"Msgboxresult [{oQuestion}] = [No]" + If IDB_ACTIVE = False Then + WMIndexVectofield(oLogString, PROFIL_LOGINDEX) + Else + IDBData.SetVariableValue(PROFIL_LOGINDEX, oLogString) + End If Return False End If End If @@ -3210,7 +3217,6 @@ Public Class frmValidator If PROFIL_FINISH_SQL <> String.Empty Then If btnFinish_continue() = False Then Exit Sub - End If End If