diff --git a/GUIs.ZooFlow/My Project/licenses.licx b/GUIs.ZooFlow/My Project/licenses.licx index ed9f225a..69fa868d 100644 --- a/GUIs.ZooFlow/My Project/licenses.licx +++ b/GUIs.ZooFlow/My Project/licenses.licx @@ -1,11 +1,12 @@ DevExpress.XtraEditors.ProgressBarControl, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a -DevExpress.XtraEditors.PictureEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a -DevExpress.XtraEditors.CheckEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a -DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a -DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a DevExpress.XtraLayout.LayoutControl, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a -DevExpress.XtraEditors.DateEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraEditors.DateEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a DevExpress.XtraEditors.Repository.RepositoryItemComboBox, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraEditors.CheckEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a DevExpress.XtraBars.FormAssistant, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a DevExpress.XtraEditors.ComboBoxEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraEditors.ButtonEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraEditors.PictureEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a diff --git a/GUIs.ZooFlow/ZooFlow.vbproj b/GUIs.ZooFlow/ZooFlow.vbproj index ab4601fb..68e3e4f9 100644 --- a/GUIs.ZooFlow/ZooFlow.vbproj +++ b/GUIs.ZooFlow/ZooFlow.vbproj @@ -94,10 +94,10 @@ - - frmFlowForm_Test1.vb + + frmFlowForm.vb - + Form @@ -125,10 +125,10 @@ frmAdmin.vb - - frmFlowForm.vb + + frmFlowForm_Layered.vb - + Form @@ -156,12 +156,12 @@ frmAdmin.vb + + frmFlowForm_Layered.vb + frmFlowForm.vb - - frmFlowForm_Test1.vb - frmSearchStart.vb diff --git a/GUIs.ZooFlow/frmAdmin.vb b/GUIs.ZooFlow/frmAdmin.vb index 2c0ffada..40544713 100644 --- a/GUIs.ZooFlow/frmAdmin.vb +++ b/GUIs.ZooFlow/frmAdmin.vb @@ -49,7 +49,7 @@ Partial Public Class frmAdmin TimerRefreshData.Enabled = True ' === Setup Flow Form === - FlowForm = New frmFlowForm(My.Application.ModulesActive) + FlowForm = New frmFlowForm() FlowForm.Location = My.UIConfig.FlowForm.Location FlowForm.Show() diff --git a/GUIs.ZooFlow/frmFlowForm.Designer.vb b/GUIs.ZooFlow/frmFlowForm.Designer.vb index bfcd2739..1a2f1dfa 100644 --- a/GUIs.ZooFlow/frmFlowForm.Designer.vb +++ b/GUIs.ZooFlow/frmFlowForm.Designer.vb @@ -1,6 +1,6 @@  Partial Class frmFlowForm - Inherits Form + Inherits System.Windows.Forms.Form 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. @@ -22,45 +22,158 @@ Partial Class frmFlowForm 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. Private Sub InitializeComponent() - Me.components = New System.ComponentModel.Container() - Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components) - Me.FlowFormTest1ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() - Me.SucheToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() - Me.ContextMenuStrip1.SuspendLayout() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmFlowForm)) + Me.SvgImageBox1 = New DevExpress.XtraEditors.SvgImageBox() + Me.SvgImageBox2 = New DevExpress.XtraEditors.SvgImageBox() + Me.SvgImageBox3 = New DevExpress.XtraEditors.SvgImageBox() + Me.SvgImageBox4 = New DevExpress.XtraEditors.SvgImageBox() + Me.SvgImageBox5 = New DevExpress.XtraEditors.SvgImageBox() + Me.SvgImageBox6 = New DevExpress.XtraEditors.SvgImageBox() + Me.SvgImageBox7 = New DevExpress.XtraEditors.SvgImageBox() + CType(Me.SvgImageBox1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.SvgImageBox2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.SvgImageBox3, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.SvgImageBox4, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.SvgImageBox5, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.SvgImageBox6, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.SvgImageBox7, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' - 'ContextMenuStrip1 + 'SvgImageBox1 ' - Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.SucheToolStripMenuItem, Me.FlowFormTest1ToolStripMenuItem}) - Me.ContextMenuStrip1.Name = "ContextMenuStrip1" - Me.ContextMenuStrip1.Size = New System.Drawing.Size(161, 48) + Me.SvgImageBox1.Cursor = System.Windows.Forms.Cursors.Hand + Me.SvgImageBox1.ItemAppearance.Hovered.FillColor = System.Drawing.Color.FromArgb(CType(CType(165, Byte), Integer), CType(CType(36, Byte), Integer), CType(CType(49, Byte), Integer)) + Me.SvgImageBox1.ItemAppearance.Normal.FillColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer)) + Me.SvgImageBox1.ItemHitTestType = DevExpress.XtraEditors.ItemHitTestType.BoundingBox + Me.SvgImageBox1.Location = New System.Drawing.Point(260, 12) + Me.SvgImageBox1.Name = "SvgImageBox1" + Me.SvgImageBox1.Size = New System.Drawing.Size(42, 36) + Me.SvgImageBox1.SizeMode = DevExpress.XtraEditors.SvgImageSizeMode.Zoom + Me.SvgImageBox1.SvgImage = CType(resources.GetObject("SvgImageBox1.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.SvgImageBox1.TabIndex = 2 + Me.SvgImageBox1.Text = "SvgImageBox1" ' - 'FlowFormTest1ToolStripMenuItem + 'SvgImageBox2 ' - Me.FlowFormTest1ToolStripMenuItem.Name = "FlowFormTest1ToolStripMenuItem" - Me.FlowFormTest1ToolStripMenuItem.Size = New System.Drawing.Size(160, 22) - Me.FlowFormTest1ToolStripMenuItem.Text = "FlowForm Test 1" + Me.SvgImageBox2.Cursor = System.Windows.Forms.Cursors.Hand + Me.SvgImageBox2.ItemAppearance.Hovered.FillColor = System.Drawing.Color.FromArgb(CType(CType(165, Byte), Integer), CType(CType(36, Byte), Integer), CType(CType(49, Byte), Integer)) + Me.SvgImageBox2.ItemAppearance.Normal.FillColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer)) + Me.SvgImageBox2.ItemHitTestType = DevExpress.XtraEditors.ItemHitTestType.BoundingBox + Me.SvgImageBox2.Location = New System.Drawing.Point(260, 128) + Me.SvgImageBox2.Name = "SvgImageBox2" + Me.SvgImageBox2.Size = New System.Drawing.Size(42, 36) + Me.SvgImageBox2.SizeMode = DevExpress.XtraEditors.SvgImageSizeMode.Zoom + Me.SvgImageBox2.SvgImage = CType(resources.GetObject("SvgImageBox2.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.SvgImageBox2.TabIndex = 2 + Me.SvgImageBox2.Text = "SvgImageBox1" ' - 'SucheToolStripMenuItem + 'SvgImageBox3 ' - Me.SucheToolStripMenuItem.Image = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.Find_5650 - Me.SucheToolStripMenuItem.Name = "SucheToolStripMenuItem" - Me.SucheToolStripMenuItem.Size = New System.Drawing.Size(160, 22) - Me.SucheToolStripMenuItem.Text = "Suchen" + Me.SvgImageBox3.Cursor = System.Windows.Forms.Cursors.Hand + Me.SvgImageBox3.ItemAppearance.Hovered.FillColor = System.Drawing.Color.FromArgb(CType(CType(165, Byte), Integer), CType(CType(36, Byte), Integer), CType(CType(49, Byte), Integer)) + Me.SvgImageBox3.ItemAppearance.Normal.FillColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer)) + Me.SvgImageBox3.ItemHitTestType = DevExpress.XtraEditors.ItemHitTestType.BoundingBox + Me.SvgImageBox3.Location = New System.Drawing.Point(12, 12) + Me.SvgImageBox3.Name = "SvgImageBox3" + Me.SvgImageBox3.Size = New System.Drawing.Size(42, 36) + Me.SvgImageBox3.SizeMode = DevExpress.XtraEditors.SvgImageSizeMode.Zoom + Me.SvgImageBox3.SvgImage = CType(resources.GetObject("SvgImageBox3.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.SvgImageBox3.TabIndex = 2 + Me.SvgImageBox3.Text = "SvgImageBox1" + ' + 'SvgImageBox4 + ' + Me.SvgImageBox4.Cursor = System.Windows.Forms.Cursors.Hand + Me.SvgImageBox4.ItemAppearance.Hovered.FillColor = System.Drawing.Color.FromArgb(CType(CType(165, Byte), Integer), CType(CType(36, Byte), Integer), CType(CType(49, Byte), Integer)) + Me.SvgImageBox4.ItemAppearance.Normal.FillColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer)) + Me.SvgImageBox4.ItemHitTestType = DevExpress.XtraEditors.ItemHitTestType.BoundingBox + Me.SvgImageBox4.Location = New System.Drawing.Point(230, 12) + Me.SvgImageBox4.Name = "SvgImageBox4" + Me.SvgImageBox4.Size = New System.Drawing.Size(24, 18) + Me.SvgImageBox4.SizeMode = DevExpress.XtraEditors.SvgImageSizeMode.Zoom + Me.SvgImageBox4.SvgImage = CType(resources.GetObject("SvgImageBox4.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.SvgImageBox4.TabIndex = 2 + Me.SvgImageBox4.Text = "SvgImageBox1" + ' + 'SvgImageBox5 + ' + Me.SvgImageBox5.Cursor = System.Windows.Forms.Cursors.Hand + Me.SvgImageBox5.ItemAppearance.Hovered.FillColor = System.Drawing.Color.FromArgb(CType(CType(165, Byte), Integer), CType(CType(36, Byte), Integer), CType(CType(49, Byte), Integer)) + Me.SvgImageBox5.ItemAppearance.Normal.FillColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer)) + Me.SvgImageBox5.ItemHitTestType = DevExpress.XtraEditors.ItemHitTestType.BoundingBox + Me.SvgImageBox5.Location = New System.Drawing.Point(230, 31) + Me.SvgImageBox5.Name = "SvgImageBox5" + Me.SvgImageBox5.Size = New System.Drawing.Size(24, 18) + Me.SvgImageBox5.SizeMode = DevExpress.XtraEditors.SvgImageSizeMode.Zoom + Me.SvgImageBox5.SvgImage = CType(resources.GetObject("SvgImageBox5.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.SvgImageBox5.TabIndex = 2 + Me.SvgImageBox5.Text = "SvgImageBox1" + ' + 'SvgImageBox6 + ' + Me.SvgImageBox6.Cursor = System.Windows.Forms.Cursors.Hand + Me.SvgImageBox6.ItemAppearance.Hovered.FillColor = System.Drawing.Color.FromArgb(CType(CType(165, Byte), Integer), CType(CType(36, Byte), Integer), CType(CType(49, Byte), Integer)) + Me.SvgImageBox6.ItemAppearance.Normal.FillColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer)) + Me.SvgImageBox6.ItemHitTestType = DevExpress.XtraEditors.ItemHitTestType.BoundingBox + Me.SvgImageBox6.Location = New System.Drawing.Point(230, 128) + Me.SvgImageBox6.Name = "SvgImageBox6" + Me.SvgImageBox6.Size = New System.Drawing.Size(24, 18) + Me.SvgImageBox6.SizeMode = DevExpress.XtraEditors.SvgImageSizeMode.Zoom + Me.SvgImageBox6.SvgImage = CType(resources.GetObject("SvgImageBox6.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.SvgImageBox6.TabIndex = 2 + Me.SvgImageBox6.Text = "SvgImageBox1" + ' + 'SvgImageBox7 + ' + Me.SvgImageBox7.Cursor = System.Windows.Forms.Cursors.Hand + Me.SvgImageBox7.ItemAppearance.Hovered.FillColor = System.Drawing.Color.FromArgb(CType(CType(165, Byte), Integer), CType(CType(36, Byte), Integer), CType(CType(49, Byte), Integer)) + Me.SvgImageBox7.ItemAppearance.Normal.FillColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer)) + Me.SvgImageBox7.ItemHitTestType = DevExpress.XtraEditors.ItemHitTestType.BoundingBox + Me.SvgImageBox7.Location = New System.Drawing.Point(230, 147) + Me.SvgImageBox7.Name = "SvgImageBox7" + Me.SvgImageBox7.Size = New System.Drawing.Size(24, 18) + Me.SvgImageBox7.SizeMode = DevExpress.XtraEditors.SvgImageSizeMode.Zoom + Me.SvgImageBox7.SvgImage = CType(resources.GetObject("SvgImageBox7.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.SvgImageBox7.TabIndex = 2 + Me.SvgImageBox7.Text = "SvgImageBox1" ' 'frmFlowForm ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font - Me.ClientSize = New System.Drawing.Size(584, 487) + Me.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(214, Byte), Integer), CType(CType(49, Byte), Integer)) + Me.BackgroundImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.ZOO_FLOW_Hintergrund + Me.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.ClientSize = New System.Drawing.Size(314, 176) + Me.Controls.Add(Me.SvgImageBox3) + Me.Controls.Add(Me.SvgImageBox2) + Me.Controls.Add(Me.SvgImageBox7) + Me.Controls.Add(Me.SvgImageBox5) + Me.Controls.Add(Me.SvgImageBox6) + Me.Controls.Add(Me.SvgImageBox4) + Me.Controls.Add(Me.SvgImageBox1) + Me.DoubleBuffered = True + Me.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.ForeColor = System.Drawing.SystemColors.ControlText + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None Me.Name = "frmFlowForm" - Me.Text = "frmFlowForm" - Me.ContextMenuStrip1.ResumeLayout(False) + Me.Text = "frmFlowForm_Test1" + Me.TopMost = True + CType(Me.SvgImageBox1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.SvgImageBox2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.SvgImageBox3, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.SvgImageBox4, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.SvgImageBox5, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.SvgImageBox6, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.SvgImageBox7, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) End Sub - - Friend WithEvents ContextMenuStrip1 As ContextMenuStrip - Friend WithEvents SucheToolStripMenuItem As ToolStripMenuItem - Friend WithEvents FlowFormTest1ToolStripMenuItem As ToolStripMenuItem + Friend WithEvents SvgImageBox1 As DevExpress.XtraEditors.SvgImageBox + Friend WithEvents SvgImageBox2 As DevExpress.XtraEditors.SvgImageBox + Friend WithEvents SvgImageBox3 As DevExpress.XtraEditors.SvgImageBox + Friend WithEvents SvgImageBox4 As DevExpress.XtraEditors.SvgImageBox + Friend WithEvents SvgImageBox5 As DevExpress.XtraEditors.SvgImageBox + Friend WithEvents SvgImageBox6 As DevExpress.XtraEditors.SvgImageBox + Friend WithEvents SvgImageBox7 As DevExpress.XtraEditors.SvgImageBox End Class diff --git a/GUIs.ZooFlow/frmFlowForm.resx b/GUIs.ZooFlow/frmFlowForm.resx index 279a4474..fc627cfc 100644 --- a/GUIs.ZooFlow/frmFlowForm.resx +++ b/GUIs.ZooFlow/frmFlowForm.resx @@ -117,7 +117,149 @@ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - 17, 17 - + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAANoCAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5Z + ZWxsb3d7ZmlsbDojRkZCMTE1O30KCS5CbGFja3tmaWxsOiM3MjcyNzI7fQoJLkdyZWVue2ZpbGw6IzAz + OUMyMzt9CgkuUmVke2ZpbGw6I0QxMUMxQzt9Cgkuc3Qwe29wYWNpdHk6MC43NTt9Cgkuc3Qxe29wYWNp + dHk6MC41O30KPC9zdHlsZT4NCiAgPGcgaWQ9Ilpvb20iPg0KICAgIDxwYXRoIGQ9Ik0yNy43LDI1LjNM + MjAuNSwxOGMxLTEuNCwxLjUtMy4yLDEuNS01YzAtNS00LTktOS05cy05LDQtOSw5YzAsNSw0LDksOSw5 + YzEuOSwwLDMuNi0wLjYsNS0xLjVsNy4zLDcuMyAgIGMwLjMsMC4zLDAuOSwwLjMsMS4yLDBsMS4yLTEu + MkMyOC4xLDI2LjIsMjguMSwyNS42LDI3LjcsMjUuM3ogTTYsMTNjMC0zLjksMy4xLTcsNy03czcsMy4x + LDcsN2MwLDMuOS0zLjEsNy03LDdTNiwxNi45LDYsMTN6IiBjbGFzcz0iQmxhY2siIC8+DQogIDwvZz4N + Cjwvc3ZnPgs= + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAMwEAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5Z + ZWxsb3d7ZmlsbDojRkZCMTE1O30KCS5SZWR7ZmlsbDojRDExQzFDO30KCS5HcmVlbntmaWxsOiMwMzlD + MjM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh + Y2l0eTowLjU7fQoJLnN0MXtvcGFjaXR5OjAuNzU7fQoJLnN0MntkaXNwbGF5Om5vbmU7fQoJLnN0M3tk + aXNwbGF5OmlubGluZTtmaWxsOiNGRkIxMTU7fQoJLnN0NHtkaXNwbGF5OmlubGluZTt9Cgkuc3Q1e2Rp + c3BsYXk6aW5saW5lO29wYWNpdHk6MC43NTt9Cgkuc3Q2e2Rpc3BsYXk6aW5saW5lO29wYWNpdHk6MC41 + O30KCS5zdDd7ZGlzcGxheTppbmxpbmU7ZmlsbDojMDM5QzIzO30KCS5zdDh7ZGlzcGxheTppbmxpbmU7 + ZmlsbDojRDExQzFDO30KCS5zdDl7ZGlzcGxheTppbmxpbmU7ZmlsbDojMTE3N0Q3O30KCS5zdDEwe2Rp + c3BsYXk6aW5saW5lO2ZpbGw6I0ZGRkZGRjt9Cjwvc3R5bGU+DQogIDxnIGlkPSJMZWFkXzFfIj4NCiAg + ICA8cGF0aCBkPSJNMTAuNSw5LjZDOS40LDYsMTAsMiwxNC44LDJjNS4yLDAsNS41LDMsNS41LDNzMi45 + LTAuMiwxLjEsNC43YzAuMS0wLjEsMC40LTAuMSwwLjUsMC4zICAgYzAuMSwwLjUtMC4xLDAuOS0wLjMs + MS40Yy0wLjMsMC41LDAuMSwxLjctMC45LDEuNnYwLjFjLTAuNSwyLjMtMiw0LjktNC43LDQuOXMtNC4x + LTIuNi00LjctNC45YzAtMC4xLDAtMC4yLDAtMC4yICAgYy0xLDAuMS0wLjctMS4xLTAuOS0xLjZTOS45 + LDEwLjQsMTAsOS45QzEwLjEsOS43LDEwLjQsOS42LDEwLjUsOS42eiBNMjAsMThsLTIuNCw3LjlMMTcs + MjJsMC42LTJoLTMuMmwwLjYsMmwtMC42LDMuOUwxMiwxOCAgIGMtMi4zLDMuNS04LDEtOCw4LjVWMzBo + MTBoMWgyaDFoMTB2LTMuNUMyOCwxOS4xLDIyLjMsMjEuNCwyMCwxOHoiIGlkPSJMZWFkIiBjbGFzcz0i + QmxhY2siIC8+DQogIDwvZz4NCjwvc3ZnPgs= + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAN4CAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkdyZWVue2ZpbGw6IzAzOUMyMzt9Cgku + QmxhY2t7ZmlsbDojNzI3MjcyO30KCS5SZWR7ZmlsbDojRDExQzFDO30KCS5ZZWxsb3d7ZmlsbDojRkZC + MTE1O30KCS5CbHVle2ZpbGw6IzExNzdENzt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh + Y2l0eTowLjU7fQoJLnN0MXtvcGFjaXR5OjAuNzU7fQo8L3N0eWxlPg0KICA8ZyBpZD0iSW5zZXJ0TGlz + dEJveCI+DQogICAgPHBhdGggZD0iTTI3LDMwSDNjLTAuNSwwLTEtMC41LTEtMVYxYzAtMC42LDAuNS0x + LDEtMWgyNGMwLjUsMCwxLDAuNCwxLDF2MjhDMjgsMjkuNSwyNy41LDMwLDI3LDMweiBNMjYsMkg0djI2 + aDIyVjIgICB6IE0yMiw2SDh2MmgxNFY2eiBNMjIsMTBIOHYyaDE0VjEweiBNMjIsMTRIOHYyaDE0VjE0 + eiBNMjIsMThIOHYyaDE0VjE4eiBNMjIsMjJIOHYyaDE0VjIyeiIgY2xhc3M9IkJsYWNrIiAvPg0KICA8 + L2c+DQo8L3N2Zz4L + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAGQCAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9Cgku + UmVke2ZpbGw6I0QxMUMxQzt9CgkuWWVsbG93e2ZpbGw6I0ZGQjExNTt9CgkuR3JlZW57ZmlsbDojMDM5 + QzIzO30KPC9zdHlsZT4NCiAgPGcgaWQ9IlZpc2liaWxpdHkiPg0KICAgIDxjaXJjbGUgY3g9IjE2IiBj + eT0iMTYiIHI9IjQiIGNsYXNzPSJCbGFjayIgLz4NCiAgICA8cGF0aCBkPSJNMTYsOEM4LDgsMiwxNiwy + LDE2czYsOCwxNCw4czE0LTgsMTQtOFMyNCw4LDE2LDh6IE0xNiwyMmMtMy4zLDAtNi0yLjctNi02czIu + Ny02LDYtNnM2LDIuNyw2LDYgICBTMTkuMywyMiwxNiwyMnoiIGNsYXNzPSJCbGFjayIgLz4NCiAgPC9n + Pg0KPC9zdmc+Cw== + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAKQCAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9Cgku + WWVsbG93e2ZpbGw6I0ZGQjExNTt9CgkuQmx1ZXtmaWxsOiMxMTc3RDc7fQoJLlJlZHtmaWxsOiNEMTFD + MUM7fQoJLldoaXRle2ZpbGw6I0ZGRkZGRjt9CgkuR3JlZW57ZmlsbDojMDM5QzIzO30KCS5zdDB7Zmls + bDojNzI3MjcyO30KCS5zdDF7b3BhY2l0eTowLjU7fQoJLnN0MntvcGFjaXR5OjAuNzU7fQo8L3N0eWxl + Pg0KICA8ZyBpZD0iTWFpbCI+DQogICAgPHBhdGggZD0iTTE2LDE4LjNsMTQtOFYyNWMwLDAuNS0wLjUs + MS0xLDFIM2MtMC41LDAtMS0wLjUtMS0xVjEwLjNMMTYsMTguM3ogTTI5LDZIM0MyLjUsNiwyLDYuNSwy + LDd2MWwxNCw4bDE0LThWNyAgIEMzMCw2LjUsMjkuNSw2LDI5LDZ6IiBjbGFzcz0iQmxhY2siIC8+DQog + IDwvZz4NCjwvc3ZnPgs= + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAABIDAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlllbGxvd3tmaWxsOiNGRkIxMTU7fQoJ + LlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5HcmVlbntmaWxsOiMwMzlD + MjM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh + Y2l0eTowLjU7fQoJLnN0MXtkaXNwbGF5Om5vbmU7fQoJLnN0MntkaXNwbGF5OmlubGluZTtmaWxsOiMw + MzlDMjM7fQoJLnN0M3tkaXNwbGF5OmlubGluZTtmaWxsOiNEMTFDMUM7fQoJLnN0NHtkaXNwbGF5Omlu + bGluZTtmaWxsOiM3MjcyNzI7fQo8L3N0eWxlPg0KICA8ZyBpZD0iSGlnaEltcG9ydGFuY2UiPg0KICAg + IDxwYXRoIGQ9Ik0xNiwyQzguMywyLDIsOC4zLDIsMTZzNi4zLDE0LDE0LDE0czE0LTYuMywxNC0xNFMy + My43LDIsMTYsMnogTTE2LDI0Yy0xLjEsMC0yLTAuOS0yLTJzMC45LTIsMi0yczIsMC45LDIsMiAgIFMx + Ny4xLDI0LDE2LDI0eiBNMTgsMThoLTRWOGg0VjE4eiIgY2xhc3M9IlJlZCIgLz4NCiAgPC9nPg0KPC9z + dmc+Cw== + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAIQCAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9Cgku + WWVsbG93e2ZpbGw6I0ZGQjExNTt9CgkuQmx1ZXtmaWxsOiMxMTc3RDc7fQoJLlJlZHtmaWxsOiNEMTFD + MUM7fQoJLldoaXRle2ZpbGw6I0ZGRkZGRjt9CgkuR3JlZW57ZmlsbDojMDM5QzIzO30KCS5zdDB7Zmls + bDojNzI3MjcyO30KCS5zdDF7b3BhY2l0eTowLjU7fQoJLnN0MntvcGFjaXR5OjAuNzU7fQo8L3N0eWxl + Pg0KICA8ZyBpZD0iTWVzc2FnZSI+DQogICAgPHBhdGggZD0iTTI5LDZIM0MyLjUsNiwyLDYuNSwyLDd2 + MTZjMCwwLjUsMC41LDEsMSwxaDV2Nmw2LTZoMTVjMC41LDAsMS0wLjUsMS0xVjdDMzAsNi41LDI5LjUs + NiwyOSw2eiIgY2xhc3M9IkJsYWNrIiAvPg0KICA8L2c+DQo8L3N2Zz4L + + \ No newline at end of file diff --git a/GUIs.ZooFlow/frmFlowForm.vb b/GUIs.ZooFlow/frmFlowForm.vb index 18418fd1..0b997c6b 100644 --- a/GUIs.ZooFlow/frmFlowForm.vb +++ b/GUIs.ZooFlow/frmFlowForm.vb @@ -1,109 +1,65 @@ -Imports System.ComponentModel -Imports System.Drawing.Imaging -Imports DigitalData.Modules.Logging -Imports DigitalData.Modules.Messaging +Imports DigitalData.Modules.Logging Public Class frmFlowForm - Private WithEvents Watcher As ClassClipboardWatcher = ClassClipboardWatcher.Singleton + Private Const OPACITY_HIDDEN = 0.2 + Private Const OPACITY_SHOWN = 1 + Private ActiveModules As List(Of String) Private Logger As Logger Private ESCHitCount As Integer = 0 - Private CurrentState As OnFlowFormStateChangedEvent.FlowFormState = OnFlowFormStateChangedEvent.FlowFormState.Default - - Private DTIDB_SEARCHES As DataTable - Private IDBSearchActive As Boolean = False - - Const WS_EX_LAYERED As Int32 = &H80000 Public Event ClipboardChanged As EventHandler(Of IDataObject) - Public Sub New() - ' Dieser Aufruf ist für den Designer erforderlich. - InitializeComponent() - - ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. - ActiveModules = New List(Of String) + Private Sub frmFlowForm_Load(sender As Object, e As EventArgs) Handles Me.Load + ' === Initialize Logger === Logger = My.LogConfig.GetLogger() - End Sub - - Public Sub New(ActiveModules As List(Of String)) - ' Dieser Aufruf ist für den Designer erforderlich. - InitializeComponent() - - ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. - Me.ActiveModules = ActiveModules - Logger = My.LogConfig.GetLogger() - End Sub - - Private Sub frmFlowForm_Load(sender As Object, e As EventArgs) Handles MyBase.Load ' === Set Form Properties === TopMost = True AllowDrop = True ShowInTaskbar = False - + Opacity = OPACITY_SHOWN SetFormLocation() - SetFormState(OnFlowFormStateChangedEvent.FlowFormState.Default) - ' === Register Events === + AddHandler KeyDown, AddressOf frmFlowForm_KeyDown + AddHandler KeyUp, AddressOf frmFlowForm_KeyDown - AddHandler MouseClick, AddressOf Form_MouseClick - AddHandler MouseMove, AddressOf Form_MouseMove - AddHandler KeyDown, AddressOf Form_KeyDown - - ' === Register As Event Listener === - EventBus.Instance.Register(Me) - - ' === TESTING Actions === - - Dim oSQL = $"SELECT * FROM [dbo].[FNIDB_GET_SEARCH_PROFILES] ({My.Application.User.UserId},'{My.Application.User.Language}')" - Dim oDT As DataTable = My.Database_IDB.GetDatatable(oSQL) - SucheToolStripMenuItem.Visible = False - If Not IsNothing(oDT) Then - If oDT.Rows.Count > 0 Then - IDBSearchActive = True - DTIDB_SEARCHES = oDT - SucheToolStripMenuItem.Visible = True - End If - - End If - - My.DTAttributes = My.Database_IDB.GetDatatable("SELECT * FROM TBIDB_ATTRIBUTE") + For Each oControl As Control In Controls + AddHandler oControl.MouseHover, AddressOf frmFlowForm_MouseHover + AddHandler oControl.MouseLeave, AddressOf frmFlowForm_MouseLeave + Next End Sub - Private Sub frmFlowForm_Closed(sender As Object, e As EventArgs) Handles Me.Closed - Try - EventBus.Instance.Unregister(Me) - Catch ex As Exception - Logger.Error(ex) - End Try + Public Sub SetFormLocation() + Location = My.UIConfig.FlowForm.Location End Sub - Private Sub Form_MouseClick(sender As Object, ByVal e As MouseEventArgs) - If e.Button = MouseButtons.Right Then - ContextMenuStrip1.Show(Cursor.Position) - Else - If CurrentState = OnFlowFormStateChangedEvent.FlowFormState.HasSearchResults Then - SetFormState(OnFlowFormStateChangedEvent.FlowFormState.Default) - EventBus.Instance.PostEvent(New OnFlowFormInteractionEvent(OnFlowFormInteractionEvent.FlowFormInteraction.Click)) - End If - End If - + Private Sub frmFlowForm_MouseLeave(sender As Object, e As EventArgs) Handles Me.MouseLeave + 'Opacity = OPACITY_HIDDEN End Sub - Private Sub Form_MouseMove(ByVal sender As Object, ByVal e As MouseEventArgs) + Private Sub frmFlowForm_MouseHover(sender As Object, e As EventArgs) Handles Me.MouseHover + ' Opacity = OPACITY_SHOWN + End Sub + + Private Sub frmFlowForm_MouseMove(ByVal sender As Object, ByVal e As MouseEventArgs) Handles Me.MouseMove If e.Button = MouseButtons.Left Then ClassWin32.ReleaseCapture() ClassWin32.SendMessage(Handle, ClassWin32.WM_NCLBUTTONDOWN, ClassWin32.HTCAPTION, 0) End If End Sub - Private Sub Form_KeyDown(ByVal sender As Object, ByVal e As KeyEventArgs) + Private Sub frmFlowForm_KeyDown(ByVal sender As Object, ByVal e As KeyEventArgs) If e.KeyCode = Keys.Escape Then If ESCHitCount > 0 Then - Dim result As DialogResult = MessageBox.Show("Exit Zooflow", "Please Varify", MessageBoxButtons.YesNo) - If result = DialogResult.Yes Then + Dim oResult As DialogResult = MessageBox.Show("Exit Zooflow", "Please Varify", MessageBoxButtons.YesNo) + If oResult = DialogResult.Yes Then + ' Save Settings + My.UIConfig.FlowForm.Location = Location + My.UIConfigManager.Save() + + ' Exit Application.Exit() Else ESCHitCount = 0 @@ -117,135 +73,4 @@ Public Class frmFlowForm End If End If End Sub - - Public Sub OnEvent(e As OnFlowFormStateChangedEvent) - CurrentState = e.State - SetFormState(e.State) - End Sub - - Public Sub SetFormState(State As OnFlowFormStateChangedEvent.FlowFormState) - Select Case State - Case OnFlowFormStateChangedEvent.FlowFormState.HasSearchResults - SetBitmap(My.Resources.CW_GEFUNDEN_klein) - Case OnFlowFormStateChangedEvent.FlowFormState.HasFileDropped - SetBitmap(My.Resources.GLOBIX_GEFUNDEN_klein) - Case Else - SetBitmap(My.Resources.ZOO_FLOW_Hintergrund) - End Select - End Sub - - Public Sub SetFormLocation() - Me.Location = My.UIConfig.FlowForm.Location - End Sub - - Private Sub frmFlowForm_DragOver(sender As Object, e As DragEventArgs) Handles Me.DragOver - If Not ActiveModules.Contains(ClassConstants.MODULE_GLOBAL_INDEXER) Then - e.Effect = DragDropEffects.None - Else - If e.Data.GetDataPresent(DataFormats.FileDrop) Then - ' Handle file dragged from Windows - e.Effect = DragDropEffects.Copy - SetFormState(OnFlowFormStateChangedEvent.FlowFormState.HasFileDropped) - ElseIf e.Data.GetDataPresent("FileGroupDescriptor") Then - ' Handle a message dragged from Outlook - e.Effect = DragDropEffects.Copy - SetFormState(OnFlowFormStateChangedEvent.FlowFormState.HasFileDropped) - ElseIf e.Data.GetDataPresent("aryFileGroupDescriptor") AndAlso (e.Data.GetDataPresent("FileContents")) Then - ' Handle a message dragged from Thunderbird? - e.Effect = DragDropEffects.Copy - SetFormState(OnFlowFormStateChangedEvent.FlowFormState.HasFileDropped) - Else - ' Otherwise, do not handle - e.Effect = DragDropEffects.None - End If - End If - End Sub - - Private Sub frmFlowForm_DragLeave(sender As Object, e As EventArgs) Handles Me.DragLeave - SetFormState(OnFlowFormStateChangedEvent.FlowFormState.Default) - End Sub - - Private Sub Watcher_ClipboardChanged(sender As Object, e As IDataObject) Handles Watcher.ClipboardChanged - If ActiveModules.Contains(ClassConstants.MODULE_CLIPBOARDWATCHER) Then - RaiseEvent ClipboardChanged(sender, e) - End If - End Sub - - '''' - '''' DragDrop Support - '''' - 'Protected Overrides Sub WndProc(ByRef m As Message) - ' If m.Msg = &H84 Then - ' m.Result = CType(2, IntPtr) - ' Return - ' End If - - ' MyBase.WndProc(m) - 'End Sub - - Public Sub SetBitmap(ByVal bitmap As Bitmap) - SetBitmap(bitmap, 255, bitmap.Width, bitmap.Height) - End Sub - - Public Sub SetBitmap(ByVal Bitmap As Bitmap, ByVal Opacity As Byte, ByVal Width As Integer, ByVal Height As Integer) - If Bitmap.PixelFormat <> PixelFormat.Format32bppArgb Then - Throw New ApplicationException("The bitmap must be 32ppp with alpha-channel.") - End If - - Dim oScreenDeviceContext As IntPtr = ClassWin32.GetDC(IntPtr.Zero) - Dim oMemoryDeviceContext As IntPtr = ClassWin32.CreateCompatibleDC(oScreenDeviceContext) - Dim oBitmap As IntPtr = IntPtr.Zero - Dim oOldBitmap As IntPtr = IntPtr.Zero - - Try - oBitmap = Bitmap.GetHbitmap(Color.FromArgb(0)) - oOldBitmap = ClassWin32.SelectObject(oMemoryDeviceContext, oBitmap) - Dim oSize As ClassWin32.Size = New ClassWin32.Size(Width, Height) - Dim oPointSource As ClassWin32.Point = New ClassWin32.Point(0, 0) - Dim oTopPos As ClassWin32.Point = New ClassWin32.Point(Left, Top) - Dim oBlend As ClassWin32.BLENDFUNCTION = New ClassWin32.BLENDFUNCTION With { - .BlendOp = ClassWin32.AC_SRC_OVER, - .BlendFlags = 0, - .SourceConstantAlpha = Opacity, - .AlphaFormat = ClassWin32.AC_SRC_ALPHA - } - ClassWin32.UpdateLayeredWindow(Handle, oScreenDeviceContext, oTopPos, oSize, oMemoryDeviceContext, oPointSource, 0, oBlend, ClassWin32.ULW_ALPHA) - Finally - ClassWin32.ReleaseDC(IntPtr.Zero, oScreenDeviceContext) - - If oBitmap <> IntPtr.Zero Then - ClassWin32.SelectObject(oMemoryDeviceContext, oOldBitmap) - ClassWin32.DeleteObject(oBitmap) - End If - - ClassWin32.DeleteDC(oMemoryDeviceContext) - End Try - End Sub - - ''' - ''' More Info: https://docs.microsoft.com/en-us/windows/win32/winmsg/window-features#layered-windows - ''' - ''' - Protected Overrides ReadOnly Property CreateParams As CreateParams - Get - Dim oParams As CreateParams = MyBase.CreateParams - oParams.ExStyle = oParams.ExStyle Or WS_EX_LAYERED - Return oParams - End Get - End Property - - Private Sub FlowFormTest1ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles FlowFormTest1ToolStripMenuItem.Click - frmFlowForm_Test1.Show() - End Sub - - Private Sub ContextMenuStrip1_Opening(sender As Object, e As CancelEventArgs) Handles ContextMenuStrip1.Opening - - End Sub - - Private Sub SucheToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SucheToolStripMenuItem.Click - Dim oForm As New frmSearchStart(DTIDB_SEARCHES) - oForm.Show() - - - End Sub End Class \ No newline at end of file diff --git a/GUIs.ZooFlow/frmFlowForm_Layered.Designer.vb b/GUIs.ZooFlow/frmFlowForm_Layered.Designer.vb new file mode 100644 index 00000000..4991d0f5 --- /dev/null +++ b/GUIs.ZooFlow/frmFlowForm_Layered.Designer.vb @@ -0,0 +1,66 @@ + +Partial Class frmFlowForm_Layered + Inherits Form + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. + 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components) + Me.FlowFormTest1ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.SucheToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ContextMenuStrip1.SuspendLayout() + Me.SuspendLayout() + ' + 'ContextMenuStrip1 + ' + Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.SucheToolStripMenuItem, Me.FlowFormTest1ToolStripMenuItem}) + Me.ContextMenuStrip1.Name = "ContextMenuStrip1" + Me.ContextMenuStrip1.Size = New System.Drawing.Size(161, 48) + ' + 'FlowFormTest1ToolStripMenuItem + ' + Me.FlowFormTest1ToolStripMenuItem.Name = "FlowFormTest1ToolStripMenuItem" + Me.FlowFormTest1ToolStripMenuItem.Size = New System.Drawing.Size(160, 22) + Me.FlowFormTest1ToolStripMenuItem.Text = "FlowForm Test 1" + ' + 'SucheToolStripMenuItem + ' + Me.SucheToolStripMenuItem.Image = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.Find_5650 + Me.SucheToolStripMenuItem.Name = "SucheToolStripMenuItem" + Me.SucheToolStripMenuItem.Size = New System.Drawing.Size(160, 22) + Me.SucheToolStripMenuItem.Text = "Suchen" + ' + 'frmFlowForm + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(584, 487) + Me.Name = "frmFlowForm" + Me.Text = "frmFlowForm" + Me.ContextMenuStrip1.ResumeLayout(False) + Me.ResumeLayout(False) + + End Sub + + Friend WithEvents ContextMenuStrip1 As ContextMenuStrip + Friend WithEvents SucheToolStripMenuItem As ToolStripMenuItem + Friend WithEvents FlowFormTest1ToolStripMenuItem As ToolStripMenuItem +End Class diff --git a/GUIs.ZooFlow/frmFlowForm_Test1.resx b/GUIs.ZooFlow/frmFlowForm_Layered.resx similarity index 71% rename from GUIs.ZooFlow/frmFlowForm_Test1.resx rename to GUIs.ZooFlow/frmFlowForm_Layered.resx index cfb39d69..279a4474 100644 --- a/GUIs.ZooFlow/frmFlowForm_Test1.resx +++ b/GUIs.ZooFlow/frmFlowForm_Layered.resx @@ -117,31 +117,7 @@ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - - AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z - LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl - dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAFAEAAAC77u/ - PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi - IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv - MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh - Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg - MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5Z - ZWxsb3d7ZmlsbDojRkZCMTE1O30KCS5SZWR7ZmlsbDojRDExQzFDO30KCS5HcmVlbntmaWxsOiMwMzlD - MjM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh - Y2l0eTowLjU7fQoJLnN0MXtvcGFjaXR5OjAuNzU7fQoJLnN0MntkaXNwbGF5Om5vbmU7fQoJLnN0M3tk - aXNwbGF5OmlubGluZTtmaWxsOiNGRkIxMTU7fQoJLnN0NHtkaXNwbGF5OmlubGluZTt9Cgkuc3Q1e2Rp - c3BsYXk6aW5saW5lO29wYWNpdHk6MC43NTt9Cgkuc3Q2e2Rpc3BsYXk6aW5saW5lO29wYWNpdHk6MC41 - O30KCS5zdDd7ZGlzcGxheTppbmxpbmU7ZmlsbDojMDM5QzIzO30KCS5zdDh7ZGlzcGxheTppbmxpbmU7 - ZmlsbDojRDExQzFDO30KCS5zdDl7ZGlzcGxheTppbmxpbmU7ZmlsbDojMTE3N0Q3O30KCS5zdDEwe2Rp - c3BsYXk6aW5saW5lO2ZpbGw6I0ZGRkZGRjt9Cjwvc3R5bGU+DQogIDxnIGlkPSJBdWRpdF94NUZfQ2hh - bmdlSGlzdG9yeSI+DQogICAgPHBvbHlnb24gcG9pbnRzPSIxNiwxNiAxNiwxMCAxNCwxMCAxNCwxOCAy - MiwxOCAyMiwxNiAgIiBjbGFzcz0iQmxhY2siIC8+DQogICAgPHBhdGggZD0iTTE2LDJDMTEuNiwyLDcu - Nyw0LDUuMiw3LjJMMiw0djEwaDAuMmg0SDEybC00LTRjMS44LTIuNCw0LjctNCw4LTRjNS41LDAsMTAs - NC41LDEwLDEwYzAsNS41LTQuNSwxMC0xMCwxMCAgIGMtNC44LDAtOC45LTMuNC05LjgtOGgtNGMxLDYu - OCw2LjgsMTIsMTMuOCwxMmM3LjcsMCwxNC02LjMsMTQtMTRTMjMuNywyLDE2LDJ6IiBjbGFzcz0iQmx1 - ZSIgLz4NCiAgPC9nPg0KPC9zdmc+Cw== - - + + 17, 17 + \ No newline at end of file diff --git a/GUIs.ZooFlow/frmFlowForm_Layered.vb b/GUIs.ZooFlow/frmFlowForm_Layered.vb new file mode 100644 index 00000000..3cdffeec --- /dev/null +++ b/GUIs.ZooFlow/frmFlowForm_Layered.vb @@ -0,0 +1,251 @@ +Imports System.ComponentModel +Imports System.Drawing.Imaging +Imports DigitalData.Modules.Logging +Imports DigitalData.Modules.Messaging + +Public Class frmFlowForm_Layered + Private WithEvents Watcher As ClassClipboardWatcher = ClassClipboardWatcher.Singleton + Private ActiveModules As List(Of String) + Private Logger As Logger + + Private ESCHitCount As Integer = 0 + Private CurrentState As OnFlowFormStateChangedEvent.FlowFormState = OnFlowFormStateChangedEvent.FlowFormState.Default + + Private DTIDB_SEARCHES As DataTable + Private IDBSearchActive As Boolean = False + + Const WS_EX_LAYERED As Int32 = &H80000 + + Public Event ClipboardChanged As EventHandler(Of IDataObject) + + Public Sub New() + ' Dieser Aufruf ist für den Designer erforderlich. + InitializeComponent() + + ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. + ActiveModules = New List(Of String) + Logger = My.LogConfig.GetLogger() + End Sub + + + Public Sub New(ActiveModules As List(Of String)) + ' Dieser Aufruf ist für den Designer erforderlich. + InitializeComponent() + + ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. + Me.ActiveModules = ActiveModules + Logger = My.LogConfig.GetLogger() + End Sub + + Private Sub frmFlowForm_Load(sender As Object, e As EventArgs) Handles MyBase.Load + ' === Set Form Properties === + TopMost = True + AllowDrop = True + ShowInTaskbar = False + + SetFormLocation() + SetFormState(OnFlowFormStateChangedEvent.FlowFormState.Default) + + ' === Register Events === + + AddHandler MouseClick, AddressOf Form_MouseClick + AddHandler MouseMove, AddressOf Form_MouseMove + AddHandler KeyDown, AddressOf Form_KeyDown + + ' === Register As Event Listener === + EventBus.Instance.Register(Me) + + ' === TESTING Actions === + + Dim oSQL = $"SELECT * FROM [dbo].[FNIDB_GET_SEARCH_PROFILES] ({My.Application.User.UserId},'{My.Application.User.Language}')" + Dim oDT As DataTable = My.Database_IDB.GetDatatable(oSQL) + SucheToolStripMenuItem.Visible = False + If Not IsNothing(oDT) Then + If oDT.Rows.Count > 0 Then + IDBSearchActive = True + DTIDB_SEARCHES = oDT + SucheToolStripMenuItem.Visible = True + End If + + End If + + My.DTAttributes = My.Database_IDB.GetDatatable("SELECT * FROM TBIDB_ATTRIBUTE") + End Sub + + Private Sub frmFlowForm_Closed(sender As Object, e As EventArgs) Handles Me.Closed + Try + EventBus.Instance.Unregister(Me) + Catch ex As Exception + Logger.Error(ex) + End Try + End Sub + + Private Sub Form_MouseClick(sender As Object, ByVal e As MouseEventArgs) + If e.Button = MouseButtons.Right Then + ContextMenuStrip1.Show(Cursor.Position) + Else + If CurrentState = OnFlowFormStateChangedEvent.FlowFormState.HasSearchResults Then + SetFormState(OnFlowFormStateChangedEvent.FlowFormState.Default) + EventBus.Instance.PostEvent(New OnFlowFormInteractionEvent(OnFlowFormInteractionEvent.FlowFormInteraction.Click)) + End If + End If + + End Sub + + Private Sub Form_MouseMove(ByVal sender As Object, ByVal e As MouseEventArgs) + If e.Button = MouseButtons.Left Then + ClassWin32.ReleaseCapture() + ClassWin32.SendMessage(Handle, ClassWin32.WM_NCLBUTTONDOWN, ClassWin32.HTCAPTION, 0) + End If + End Sub + + Private Sub Form_KeyDown(ByVal sender As Object, ByVal e As KeyEventArgs) + If e.KeyCode = Keys.Escape Then + If ESCHitCount > 0 Then + Dim result As DialogResult = MessageBox.Show("Exit Zooflow", "Please Varify", MessageBoxButtons.YesNo) + If result = DialogResult.Yes Then + Application.Exit() + Else + ESCHitCount = 0 + End If + Else + ESCHitCount += 1 + End If + ElseIf e.KeyCode = Keys.D AndAlso (e.Control) Then + If ActiveModules.Contains(ClassConstants.MODULE_ZOOFLOW) Then + MsgBox("Search") + End If + End If + End Sub + + Public Sub OnEvent(e As OnFlowFormStateChangedEvent) + CurrentState = e.State + SetFormState(e.State) + End Sub + + Public Sub SetFormState(State As OnFlowFormStateChangedEvent.FlowFormState) + Select Case State + Case OnFlowFormStateChangedEvent.FlowFormState.HasSearchResults + SetBitmap(My.Resources.CW_GEFUNDEN_klein) + Case OnFlowFormStateChangedEvent.FlowFormState.HasFileDropped + SetBitmap(My.Resources.GLOBIX_GEFUNDEN_klein) + Case Else + SetBitmap(My.Resources.ZOO_FLOW_Hintergrund) + End Select + End Sub + + Public Sub SetFormLocation() + Me.Location = My.UIConfig.FlowForm.Location + End Sub + + Private Sub frmFlowForm_DragOver(sender As Object, e As DragEventArgs) Handles Me.DragOver + If Not ActiveModules.Contains(ClassConstants.MODULE_GLOBAL_INDEXER) Then + e.Effect = DragDropEffects.None + Else + If e.Data.GetDataPresent(DataFormats.FileDrop) Then + ' Handle file dragged from Windows + e.Effect = DragDropEffects.Copy + SetFormState(OnFlowFormStateChangedEvent.FlowFormState.HasFileDropped) + ElseIf e.Data.GetDataPresent("FileGroupDescriptor") Then + ' Handle a message dragged from Outlook + e.Effect = DragDropEffects.Copy + SetFormState(OnFlowFormStateChangedEvent.FlowFormState.HasFileDropped) + ElseIf e.Data.GetDataPresent("aryFileGroupDescriptor") AndAlso (e.Data.GetDataPresent("FileContents")) Then + ' Handle a message dragged from Thunderbird? + e.Effect = DragDropEffects.Copy + SetFormState(OnFlowFormStateChangedEvent.FlowFormState.HasFileDropped) + Else + ' Otherwise, do not handle + e.Effect = DragDropEffects.None + End If + End If + End Sub + + Private Sub frmFlowForm_DragLeave(sender As Object, e As EventArgs) Handles Me.DragLeave + SetFormState(OnFlowFormStateChangedEvent.FlowFormState.Default) + End Sub + + Private Sub Watcher_ClipboardChanged(sender As Object, e As IDataObject) Handles Watcher.ClipboardChanged + If ActiveModules.Contains(ClassConstants.MODULE_CLIPBOARDWATCHER) Then + RaiseEvent ClipboardChanged(sender, e) + End If + End Sub + + '''' + '''' DragDrop Support + '''' + 'Protected Overrides Sub WndProc(ByRef m As Message) + ' If m.Msg = &H84 Then + ' m.Result = CType(2, IntPtr) + ' Return + ' End If + + ' MyBase.WndProc(m) + 'End Sub + + Public Sub SetBitmap(ByVal bitmap As Bitmap) + SetBitmap(bitmap, 255, bitmap.Width, bitmap.Height) + End Sub + + Public Sub SetBitmap(ByVal Bitmap As Bitmap, ByVal Opacity As Byte, ByVal Width As Integer, ByVal Height As Integer) + If Bitmap.PixelFormat <> PixelFormat.Format32bppArgb Then + Throw New ApplicationException("The bitmap must be 32ppp with alpha-channel.") + End If + + Dim oScreenDeviceContext As IntPtr = ClassWin32.GetDC(IntPtr.Zero) + Dim oMemoryDeviceContext As IntPtr = ClassWin32.CreateCompatibleDC(oScreenDeviceContext) + Dim oBitmap As IntPtr = IntPtr.Zero + Dim oOldBitmap As IntPtr = IntPtr.Zero + + Try + oBitmap = Bitmap.GetHbitmap(Color.FromArgb(0)) + oOldBitmap = ClassWin32.SelectObject(oMemoryDeviceContext, oBitmap) + Dim oSize As ClassWin32.Size = New ClassWin32.Size(Width, Height) + Dim oPointSource As ClassWin32.Point = New ClassWin32.Point(0, 0) + Dim oTopPos As ClassWin32.Point = New ClassWin32.Point(Left, Top) + Dim oBlend As ClassWin32.BLENDFUNCTION = New ClassWin32.BLENDFUNCTION With { + .BlendOp = ClassWin32.AC_SRC_OVER, + .BlendFlags = 0, + .SourceConstantAlpha = Opacity, + .AlphaFormat = ClassWin32.AC_SRC_ALPHA + } + ClassWin32.UpdateLayeredWindow(Handle, oScreenDeviceContext, oTopPos, oSize, oMemoryDeviceContext, oPointSource, 0, oBlend, ClassWin32.ULW_ALPHA) + Finally + ClassWin32.ReleaseDC(IntPtr.Zero, oScreenDeviceContext) + + If oBitmap <> IntPtr.Zero Then + ClassWin32.SelectObject(oMemoryDeviceContext, oOldBitmap) + ClassWin32.DeleteObject(oBitmap) + End If + + ClassWin32.DeleteDC(oMemoryDeviceContext) + End Try + End Sub + + ''' + ''' More Info: https://docs.microsoft.com/en-us/windows/win32/winmsg/window-features#layered-windows + ''' + ''' + Protected Overrides ReadOnly Property CreateParams As CreateParams + Get + Dim oParams As CreateParams = MyBase.CreateParams + oParams.ExStyle = oParams.ExStyle Or WS_EX_LAYERED + Return oParams + End Get + End Property + + Private Sub FlowFormTest1ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles FlowFormTest1ToolStripMenuItem.Click + frmFlowForm.Show() + End Sub + + Private Sub ContextMenuStrip1_Opening(sender As Object, e As CancelEventArgs) Handles ContextMenuStrip1.Opening + + End Sub + + Private Sub SucheToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SucheToolStripMenuItem.Click + Dim oForm As New frmSearchStart(DTIDB_SEARCHES) + oForm.Show() + + + End Sub +End Class \ No newline at end of file diff --git a/GUIs.ZooFlow/frmFlowForm_Test1.Designer.vb b/GUIs.ZooFlow/frmFlowForm_Test1.Designer.vb deleted file mode 100644 index 302009b4..00000000 --- a/GUIs.ZooFlow/frmFlowForm_Test1.Designer.vb +++ /dev/null @@ -1,61 +0,0 @@ - -Partial Class frmFlowForm_Test1 - Inherits System.Windows.Forms.Form - - 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. - - Protected Overrides Sub Dispose(ByVal disposing As Boolean) - Try - If disposing AndAlso components IsNot Nothing Then - components.Dispose() - End If - Finally - MyBase.Dispose(disposing) - End Try - End Sub - - 'Wird vom Windows Form-Designer benötigt. - Private components As System.ComponentModel.IContainer - - 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. - 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. - 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. - - Private Sub InitializeComponent() - Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmFlowForm_Test1)) - Me.SimpleButton1 = New DevExpress.XtraEditors.SimpleButton() - Me.SuspendLayout() - ' - 'SimpleButton1 - ' - Me.SimpleButton1.Appearance.BackColor = System.Drawing.Color.Transparent - Me.SimpleButton1.Appearance.Options.UseBackColor = True - Me.SimpleButton1.ImageOptions.Image = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources._1_ZOO_FLOW_Search - Me.SimpleButton1.ImageOptions.SvgImage = CType(resources.GetObject("SimpleButton1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) - Me.SimpleButton1.Location = New System.Drawing.Point(126, 162) - Me.SimpleButton1.Name = "SimpleButton1" - Me.SimpleButton1.Size = New System.Drawing.Size(75, 23) - Me.SimpleButton1.TabIndex = 0 - Me.SimpleButton1.Text = "SimpleButton1" - ' - 'frmFlowForm_Test1 - ' - Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) - Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font - Me.BackgroundImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.ZOO_FLOW_Hintergrund - Me.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.ClientSize = New System.Drawing.Size(221, 235) - Me.Controls.Add(Me.SimpleButton1) - Me.DoubleBuffered = True - Me.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None - Me.Name = "frmFlowForm_Test1" - Me.Text = "frmFlowForm_Test1" - Me.TopMost = True - Me.TransparencyKey = System.Drawing.SystemColors.Control - Me.ResumeLayout(False) - - End Sub - - Friend WithEvents SimpleButton1 As DevExpress.XtraEditors.SimpleButton -End Class diff --git a/GUIs.ZooFlow/frmFlowForm_Test1.vb b/GUIs.ZooFlow/frmFlowForm_Test1.vb deleted file mode 100644 index d63a552c..00000000 --- a/GUIs.ZooFlow/frmFlowForm_Test1.vb +++ /dev/null @@ -1,83 +0,0 @@ -Imports DigitalData.Modules.Logging - -Public Class frmFlowForm_Test1 - Private Const OPACITY_HIDDEN = 0.2 - Private Const OPACITY_SHOWN = 1 - - Private ActiveModules As List(Of String) - Private Logger As Logger - - Private ESCHitCount As Integer = 0 - - Public Event ClipboardChanged As EventHandler(Of IDataObject) - - Private Sub frmFlowForm_Load(sender As Object, e As EventArgs) Handles Me.Load - ' === Initialize Logger === - Logger = My.LogConfig.GetLogger() - - ' === Set Form Properties === - TopMost = True - AllowDrop = True - ShowInTaskbar = False - Opacity = OPACITY_SHOWN - SetFormLocation() - - AddHandler KeyDown, AddressOf frmFlowForm_KeyDown - AddHandler KeyUp, AddressOf frmFlowForm_KeyDown - - For Each oControl As Control In Controls - AddHandler oControl.MouseHover, AddressOf frmFlowForm_MouseHover - AddHandler oControl.MouseLeave, AddressOf frmFlowForm_MouseLeave - Next - End Sub - - Protected Overrides Sub OnPaint(e As PaintEventArgs) - 'MyBase.OnPaint(e) - Dim oShape As New Drawing2D.GraphicsPath() - oShape.AddEllipse(0, 0, Width, Height) - Region = New Region(oShape) - End Sub - - Public Sub SetFormLocation() - Location = My.UIConfig.FlowForm.Location - End Sub - - Private Sub frmFlowForm_MouseLeave(sender As Object, e As EventArgs) Handles Me.MouseLeave - 'Opacity = OPACITY_HIDDEN - End Sub - - Private Sub frmFlowForm_MouseHover(sender As Object, e As EventArgs) Handles Me.MouseHover - ' Opacity = OPACITY_SHOWN - End Sub - - Private Sub frmFlowForm_MouseMove(ByVal sender As Object, ByVal e As MouseEventArgs) Handles Me.MouseMove - If e.Button = MouseButtons.Left Then - ClassWin32.ReleaseCapture() - ClassWin32.SendMessage(Handle, ClassWin32.WM_NCLBUTTONDOWN, ClassWin32.HTCAPTION, 0) - End If - End Sub - - Private Sub frmFlowForm_KeyDown(ByVal sender As Object, ByVal e As KeyEventArgs) - If e.KeyCode = Keys.Escape Then - If ESCHitCount > 0 Then - Dim oResult As DialogResult = MessageBox.Show("Exit Zooflow", "Please Varify", MessageBoxButtons.YesNo) - If oResult = DialogResult.Yes Then - ' Save Settings - My.UIConfig.FlowForm.Location = Location - My.UIConfigManager.Save() - - ' Exit - Application.Exit() - Else - ESCHitCount = 0 - End If - Else - ESCHitCount += 1 - End If - ElseIf e.KeyCode = Keys.D AndAlso (e.Control) Then - If ActiveModules.Contains(ClassConstants.MODULE_ZOOFLOW) Then - MsgBox("Search") - End If - End If - End Sub -End Class \ No newline at end of file