jj
This commit is contained in:
Jonathan Jenne
parent
11bf529b57
commit
fc72bf5ff1
@ -1,11 +1,12 @@
|
|||||||
DevExpress.XtraEditors.ProgressBarControl, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
|
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.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.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.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.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.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
|
||||||
|
|||||||
@ -94,10 +94,10 @@
|
|||||||
<Compile Include="ClipboardWatcher\State.vb" />
|
<Compile Include="ClipboardWatcher\State.vb" />
|
||||||
<Compile Include="Events\OnFlowFormInteractionEvent.vb" />
|
<Compile Include="Events\OnFlowFormInteractionEvent.vb" />
|
||||||
<Compile Include="Events\OnFlowFormStateChangedEvent.vb" />
|
<Compile Include="Events\OnFlowFormStateChangedEvent.vb" />
|
||||||
<Compile Include="frmFlowForm_Test1.Designer.vb">
|
<Compile Include="frmFlowForm.Designer.vb">
|
||||||
<DependentUpon>frmFlowForm_Test1.vb</DependentUpon>
|
<DependentUpon>frmFlowForm.vb</DependentUpon>
|
||||||
</Compile>
|
</Compile>
|
||||||
<Compile Include="frmFlowForm_Test1.vb">
|
<Compile Include="frmFlowForm.vb">
|
||||||
<SubType>Form</SubType>
|
<SubType>Form</SubType>
|
||||||
</Compile>
|
</Compile>
|
||||||
<Compile Include="frmSearchStart.Designer.vb">
|
<Compile Include="frmSearchStart.Designer.vb">
|
||||||
@ -125,10 +125,10 @@
|
|||||||
<Compile Include="frmAdmin.Designer.vb">
|
<Compile Include="frmAdmin.Designer.vb">
|
||||||
<DependentUpon>frmAdmin.vb</DependentUpon>
|
<DependentUpon>frmAdmin.vb</DependentUpon>
|
||||||
</Compile>
|
</Compile>
|
||||||
<Compile Include="frmFlowForm.Designer.vb">
|
<Compile Include="frmFlowForm_Layered.Designer.vb">
|
||||||
<DependentUpon>frmFlowForm.vb</DependentUpon>
|
<DependentUpon>frmFlowForm_Layered.vb</DependentUpon>
|
||||||
</Compile>
|
</Compile>
|
||||||
<Compile Include="frmFlowForm.vb">
|
<Compile Include="frmFlowForm_Layered.vb">
|
||||||
<SubType>Form</SubType>
|
<SubType>Form</SubType>
|
||||||
</Compile>
|
</Compile>
|
||||||
<Compile Include="frmSettings.Designer.vb">
|
<Compile Include="frmSettings.Designer.vb">
|
||||||
@ -156,12 +156,12 @@
|
|||||||
<EmbeddedResource Include="frmAdmin.resx">
|
<EmbeddedResource Include="frmAdmin.resx">
|
||||||
<DependentUpon>frmAdmin.vb</DependentUpon>
|
<DependentUpon>frmAdmin.vb</DependentUpon>
|
||||||
</EmbeddedResource>
|
</EmbeddedResource>
|
||||||
|
<EmbeddedResource Include="frmFlowForm_Layered.resx">
|
||||||
|
<DependentUpon>frmFlowForm_Layered.vb</DependentUpon>
|
||||||
|
</EmbeddedResource>
|
||||||
<EmbeddedResource Include="frmFlowForm.resx">
|
<EmbeddedResource Include="frmFlowForm.resx">
|
||||||
<DependentUpon>frmFlowForm.vb</DependentUpon>
|
<DependentUpon>frmFlowForm.vb</DependentUpon>
|
||||||
</EmbeddedResource>
|
</EmbeddedResource>
|
||||||
<EmbeddedResource Include="frmFlowForm_Test1.resx">
|
|
||||||
<DependentUpon>frmFlowForm_Test1.vb</DependentUpon>
|
|
||||||
</EmbeddedResource>
|
|
||||||
<EmbeddedResource Include="frmSearchStart.resx">
|
<EmbeddedResource Include="frmSearchStart.resx">
|
||||||
<DependentUpon>frmSearchStart.vb</DependentUpon>
|
<DependentUpon>frmSearchStart.vb</DependentUpon>
|
||||||
</EmbeddedResource>
|
</EmbeddedResource>
|
||||||
|
|||||||
@ -49,7 +49,7 @@ Partial Public Class frmAdmin
|
|||||||
TimerRefreshData.Enabled = True
|
TimerRefreshData.Enabled = True
|
||||||
|
|
||||||
' === Setup Flow Form ===
|
' === Setup Flow Form ===
|
||||||
FlowForm = New frmFlowForm(My.Application.ModulesActive)
|
FlowForm = New frmFlowForm()
|
||||||
FlowForm.Location = My.UIConfig.FlowForm.Location
|
FlowForm.Location = My.UIConfig.FlowForm.Location
|
||||||
FlowForm.Show()
|
FlowForm.Show()
|
||||||
|
|
||||||
|
|||||||
165
GUIs.ZooFlow/frmFlowForm.Designer.vb
generated
165
GUIs.ZooFlow/frmFlowForm.Designer.vb
generated
@ -1,6 +1,6 @@
|
|||||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
|
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
|
||||||
Partial Class frmFlowForm
|
Partial Class frmFlowForm
|
||||||
Inherits Form
|
Inherits System.Windows.Forms.Form
|
||||||
|
|
||||||
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
|
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
|
||||||
<System.Diagnostics.DebuggerNonUserCode()>
|
<System.Diagnostics.DebuggerNonUserCode()>
|
||||||
@ -22,45 +22,158 @@ Partial Class frmFlowForm
|
|||||||
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
|
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
|
||||||
<System.Diagnostics.DebuggerStepThrough()>
|
<System.Diagnostics.DebuggerStepThrough()>
|
||||||
Private Sub InitializeComponent()
|
Private Sub InitializeComponent()
|
||||||
Me.components = New System.ComponentModel.Container()
|
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmFlowForm))
|
||||||
Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
|
Me.SvgImageBox1 = New DevExpress.XtraEditors.SvgImageBox()
|
||||||
Me.FlowFormTest1ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
Me.SvgImageBox2 = New DevExpress.XtraEditors.SvgImageBox()
|
||||||
Me.SucheToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
Me.SvgImageBox3 = New DevExpress.XtraEditors.SvgImageBox()
|
||||||
Me.ContextMenuStrip1.SuspendLayout()
|
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()
|
Me.SuspendLayout()
|
||||||
'
|
'
|
||||||
'ContextMenuStrip1
|
'SvgImageBox1
|
||||||
'
|
'
|
||||||
Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.SucheToolStripMenuItem, Me.FlowFormTest1ToolStripMenuItem})
|
Me.SvgImageBox1.Cursor = System.Windows.Forms.Cursors.Hand
|
||||||
Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
|
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.ContextMenuStrip1.Size = New System.Drawing.Size(161, 48)
|
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.SvgImageBox2.Cursor = System.Windows.Forms.Cursors.Hand
|
||||||
Me.FlowFormTest1ToolStripMenuItem.Size = New System.Drawing.Size(160, 22)
|
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.FlowFormTest1ToolStripMenuItem.Text = "FlowForm Test 1"
|
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.SvgImageBox3.Cursor = System.Windows.Forms.Cursors.Hand
|
||||||
Me.SucheToolStripMenuItem.Name = "SucheToolStripMenuItem"
|
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.SucheToolStripMenuItem.Size = New System.Drawing.Size(160, 22)
|
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.SucheToolStripMenuItem.Text = "Suchen"
|
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
|
'frmFlowForm
|
||||||
'
|
'
|
||||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
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.Name = "frmFlowForm"
|
||||||
Me.Text = "frmFlowForm"
|
Me.Text = "frmFlowForm_Test1"
|
||||||
Me.ContextMenuStrip1.ResumeLayout(False)
|
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)
|
Me.ResumeLayout(False)
|
||||||
|
|
||||||
End Sub
|
End Sub
|
||||||
|
Friend WithEvents SvgImageBox1 As DevExpress.XtraEditors.SvgImageBox
|
||||||
Friend WithEvents ContextMenuStrip1 As ContextMenuStrip
|
Friend WithEvents SvgImageBox2 As DevExpress.XtraEditors.SvgImageBox
|
||||||
Friend WithEvents SucheToolStripMenuItem As ToolStripMenuItem
|
Friend WithEvents SvgImageBox3 As DevExpress.XtraEditors.SvgImageBox
|
||||||
Friend WithEvents FlowFormTest1ToolStripMenuItem As ToolStripMenuItem
|
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
|
End Class
|
||||||
|
|||||||
@ -117,7 +117,149 @@
|
|||||||
<resheader name="writer">
|
<resheader name="writer">
|
||||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||||
</resheader>
|
</resheader>
|
||||||
<metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
<assembly alias="DevExpress.Data.v19.2" name="DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
|
||||||
<value>17, 17</value>
|
<data name="SvgImageBox1.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
</metadata>
|
<value>
|
||||||
|
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
|
||||||
|
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
|
||||||
|
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAANoCAAAC77u/
|
||||||
|
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
|
||||||
|
IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
|
||||||
|
MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
|
||||||
|
Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
|
||||||
|
MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5Z
|
||||||
|
ZWxsb3d7ZmlsbDojRkZCMTE1O30KCS5CbGFja3tmaWxsOiM3MjcyNzI7fQoJLkdyZWVue2ZpbGw6IzAz
|
||||||
|
OUMyMzt9CgkuUmVke2ZpbGw6I0QxMUMxQzt9Cgkuc3Qwe29wYWNpdHk6MC43NTt9Cgkuc3Qxe29wYWNp
|
||||||
|
dHk6MC41O30KPC9zdHlsZT4NCiAgPGcgaWQ9Ilpvb20iPg0KICAgIDxwYXRoIGQ9Ik0yNy43LDI1LjNM
|
||||||
|
MjAuNSwxOGMxLTEuNCwxLjUtMy4yLDEuNS01YzAtNS00LTktOS05cy05LDQtOSw5YzAsNSw0LDksOSw5
|
||||||
|
YzEuOSwwLDMuNi0wLjYsNS0xLjVsNy4zLDcuMyAgIGMwLjMsMC4zLDAuOSwwLjMsMS4yLDBsMS4yLTEu
|
||||||
|
MkMyOC4xLDI2LjIsMjguMSwyNS42LDI3LjcsMjUuM3ogTTYsMTNjMC0zLjksMy4xLTcsNy03czcsMy4x
|
||||||
|
LDcsN2MwLDMuOS0zLjEsNy03LDdTNiwxNi45LDYsMTN6IiBjbGFzcz0iQmxhY2siIC8+DQogIDwvZz4N
|
||||||
|
Cjwvc3ZnPgs=
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="SvgImageBox2.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
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=
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="SvgImageBox3.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
|
||||||
|
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
|
||||||
|
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAN4CAAAC77u/
|
||||||
|
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
|
||||||
|
IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
|
||||||
|
MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
|
||||||
|
Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
|
||||||
|
MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkdyZWVue2ZpbGw6IzAzOUMyMzt9Cgku
|
||||||
|
QmxhY2t7ZmlsbDojNzI3MjcyO30KCS5SZWR7ZmlsbDojRDExQzFDO30KCS5ZZWxsb3d7ZmlsbDojRkZC
|
||||||
|
MTE1O30KCS5CbHVle2ZpbGw6IzExNzdENzt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh
|
||||||
|
Y2l0eTowLjU7fQoJLnN0MXtvcGFjaXR5OjAuNzU7fQo8L3N0eWxlPg0KICA8ZyBpZD0iSW5zZXJ0TGlz
|
||||||
|
dEJveCI+DQogICAgPHBhdGggZD0iTTI3LDMwSDNjLTAuNSwwLTEtMC41LTEtMVYxYzAtMC42LDAuNS0x
|
||||||
|
LDEtMWgyNGMwLjUsMCwxLDAuNCwxLDF2MjhDMjgsMjkuNSwyNy41LDMwLDI3LDMweiBNMjYsMkg0djI2
|
||||||
|
aDIyVjIgICB6IE0yMiw2SDh2MmgxNFY2eiBNMjIsMTBIOHYyaDE0VjEweiBNMjIsMTRIOHYyaDE0VjE0
|
||||||
|
eiBNMjIsMThIOHYyaDE0VjE4eiBNMjIsMjJIOHYyaDE0VjIyeiIgY2xhc3M9IkJsYWNrIiAvPg0KICA8
|
||||||
|
L2c+DQo8L3N2Zz4L
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="SvgImageBox4.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
|
||||||
|
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
|
||||||
|
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAGQCAAAC77u/
|
||||||
|
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
|
||||||
|
IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
|
||||||
|
MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
|
||||||
|
Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
|
||||||
|
MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9Cgku
|
||||||
|
UmVke2ZpbGw6I0QxMUMxQzt9CgkuWWVsbG93e2ZpbGw6I0ZGQjExNTt9CgkuR3JlZW57ZmlsbDojMDM5
|
||||||
|
QzIzO30KPC9zdHlsZT4NCiAgPGcgaWQ9IlZpc2liaWxpdHkiPg0KICAgIDxjaXJjbGUgY3g9IjE2IiBj
|
||||||
|
eT0iMTYiIHI9IjQiIGNsYXNzPSJCbGFjayIgLz4NCiAgICA8cGF0aCBkPSJNMTYsOEM4LDgsMiwxNiwy
|
||||||
|
LDE2czYsOCwxNCw4czE0LTgsMTQtOFMyNCw4LDE2LDh6IE0xNiwyMmMtMy4zLDAtNi0yLjctNi02czIu
|
||||||
|
Ny02LDYtNnM2LDIuNyw2LDYgICBTMTkuMywyMiwxNiwyMnoiIGNsYXNzPSJCbGFjayIgLz4NCiAgPC9n
|
||||||
|
Pg0KPC9zdmc+Cw==
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="SvgImageBox5.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
|
||||||
|
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
|
||||||
|
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAKQCAAAC77u/
|
||||||
|
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
|
||||||
|
IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
|
||||||
|
MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
|
||||||
|
Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
|
||||||
|
MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9Cgku
|
||||||
|
WWVsbG93e2ZpbGw6I0ZGQjExNTt9CgkuQmx1ZXtmaWxsOiMxMTc3RDc7fQoJLlJlZHtmaWxsOiNEMTFD
|
||||||
|
MUM7fQoJLldoaXRle2ZpbGw6I0ZGRkZGRjt9CgkuR3JlZW57ZmlsbDojMDM5QzIzO30KCS5zdDB7Zmls
|
||||||
|
bDojNzI3MjcyO30KCS5zdDF7b3BhY2l0eTowLjU7fQoJLnN0MntvcGFjaXR5OjAuNzU7fQo8L3N0eWxl
|
||||||
|
Pg0KICA8ZyBpZD0iTWFpbCI+DQogICAgPHBhdGggZD0iTTE2LDE4LjNsMTQtOFYyNWMwLDAuNS0wLjUs
|
||||||
|
MS0xLDFIM2MtMC41LDAtMS0wLjUtMS0xVjEwLjNMMTYsMTguM3ogTTI5LDZIM0MyLjUsNiwyLDYuNSwy
|
||||||
|
LDd2MWwxNCw4bDE0LThWNyAgIEMzMCw2LjUsMjkuNSw2LDI5LDZ6IiBjbGFzcz0iQmxhY2siIC8+DQog
|
||||||
|
IDwvZz4NCjwvc3ZnPgs=
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="SvgImageBox6.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
|
||||||
|
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
|
||||||
|
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAABIDAAAC77u/
|
||||||
|
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
|
||||||
|
IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
|
||||||
|
MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
|
||||||
|
Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
|
||||||
|
MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlllbGxvd3tmaWxsOiNGRkIxMTU7fQoJ
|
||||||
|
LlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5HcmVlbntmaWxsOiMwMzlD
|
||||||
|
MjM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh
|
||||||
|
Y2l0eTowLjU7fQoJLnN0MXtkaXNwbGF5Om5vbmU7fQoJLnN0MntkaXNwbGF5OmlubGluZTtmaWxsOiMw
|
||||||
|
MzlDMjM7fQoJLnN0M3tkaXNwbGF5OmlubGluZTtmaWxsOiNEMTFDMUM7fQoJLnN0NHtkaXNwbGF5Omlu
|
||||||
|
bGluZTtmaWxsOiM3MjcyNzI7fQo8L3N0eWxlPg0KICA8ZyBpZD0iSGlnaEltcG9ydGFuY2UiPg0KICAg
|
||||||
|
IDxwYXRoIGQ9Ik0xNiwyQzguMywyLDIsOC4zLDIsMTZzNi4zLDE0LDE0LDE0czE0LTYuMywxNC0xNFMy
|
||||||
|
My43LDIsMTYsMnogTTE2LDI0Yy0xLjEsMC0yLTAuOS0yLTJzMC45LTIsMi0yczIsMC45LDIsMiAgIFMx
|
||||||
|
Ny4xLDI0LDE2LDI0eiBNMTgsMThoLTRWOGg0VjE4eiIgY2xhc3M9IlJlZCIgLz4NCiAgPC9nPg0KPC9z
|
||||||
|
dmc+Cw==
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="SvgImageBox7.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
|
||||||
|
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
|
||||||
|
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAIQCAAAC77u/
|
||||||
|
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
|
||||||
|
IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
|
||||||
|
MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
|
||||||
|
Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
|
||||||
|
MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9Cgku
|
||||||
|
WWVsbG93e2ZpbGw6I0ZGQjExNTt9CgkuQmx1ZXtmaWxsOiMxMTc3RDc7fQoJLlJlZHtmaWxsOiNEMTFD
|
||||||
|
MUM7fQoJLldoaXRle2ZpbGw6I0ZGRkZGRjt9CgkuR3JlZW57ZmlsbDojMDM5QzIzO30KCS5zdDB7Zmls
|
||||||
|
bDojNzI3MjcyO30KCS5zdDF7b3BhY2l0eTowLjU7fQoJLnN0MntvcGFjaXR5OjAuNzU7fQo8L3N0eWxl
|
||||||
|
Pg0KICA8ZyBpZD0iTWVzc2FnZSI+DQogICAgPHBhdGggZD0iTTI5LDZIM0MyLjUsNiwyLDYuNSwyLDd2
|
||||||
|
MTZjMCwwLjUsMC41LDEsMSwxaDV2Nmw2LTZoMTVjMC41LDAsMS0wLjUsMS0xVjdDMzAsNi41LDI5LjUs
|
||||||
|
NiwyOSw2eiIgY2xhc3M9IkJsYWNrIiAvPg0KICA8L2c+DQo8L3N2Zz4L
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
</root>
|
</root>
|
||||||
@ -1,109 +1,65 @@
|
|||||||
Imports System.ComponentModel
|
Imports DigitalData.Modules.Logging
|
||||||
Imports System.Drawing.Imaging
|
|
||||||
Imports DigitalData.Modules.Logging
|
|
||||||
Imports DigitalData.Modules.Messaging
|
|
||||||
|
|
||||||
Public Class frmFlowForm
|
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 ActiveModules As List(Of String)
|
||||||
Private Logger As Logger
|
Private Logger As Logger
|
||||||
|
|
||||||
Private ESCHitCount As Integer = 0
|
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 Event ClipboardChanged As EventHandler(Of IDataObject)
|
||||||
|
|
||||||
Public Sub New()
|
Private Sub frmFlowForm_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||||||
' Dieser Aufruf ist für den Designer erforderlich.
|
' === Initialize Logger ===
|
||||||
InitializeComponent()
|
|
||||||
|
|
||||||
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
|
||||||
ActiveModules = New List(Of String)
|
|
||||||
Logger = My.LogConfig.GetLogger()
|
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 ===
|
' === Set Form Properties ===
|
||||||
TopMost = True
|
TopMost = True
|
||||||
AllowDrop = True
|
AllowDrop = True
|
||||||
ShowInTaskbar = False
|
ShowInTaskbar = False
|
||||||
|
Opacity = OPACITY_SHOWN
|
||||||
SetFormLocation()
|
SetFormLocation()
|
||||||
SetFormState(OnFlowFormStateChangedEvent.FlowFormState.Default)
|
|
||||||
|
|
||||||
' === Register Events ===
|
AddHandler KeyDown, AddressOf frmFlowForm_KeyDown
|
||||||
|
AddHandler KeyUp, AddressOf frmFlowForm_KeyDown
|
||||||
|
|
||||||
AddHandler MouseClick, AddressOf Form_MouseClick
|
For Each oControl As Control In Controls
|
||||||
AddHandler MouseMove, AddressOf Form_MouseMove
|
AddHandler oControl.MouseHover, AddressOf frmFlowForm_MouseHover
|
||||||
AddHandler KeyDown, AddressOf Form_KeyDown
|
AddHandler oControl.MouseLeave, AddressOf frmFlowForm_MouseLeave
|
||||||
|
Next
|
||||||
' === 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
|
End Sub
|
||||||
|
|
||||||
Private Sub frmFlowForm_Closed(sender As Object, e As EventArgs) Handles Me.Closed
|
Public Sub SetFormLocation()
|
||||||
Try
|
Location = My.UIConfig.FlowForm.Location
|
||||||
EventBus.Instance.Unregister(Me)
|
|
||||||
Catch ex As Exception
|
|
||||||
Logger.Error(ex)
|
|
||||||
End Try
|
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Private Sub Form_MouseClick(sender As Object, ByVal e As MouseEventArgs)
|
Private Sub frmFlowForm_MouseLeave(sender As Object, e As EventArgs) Handles Me.MouseLeave
|
||||||
If e.Button = MouseButtons.Right Then
|
'Opacity = OPACITY_HIDDEN
|
||||||
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
|
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
|
If e.Button = MouseButtons.Left Then
|
||||||
ClassWin32.ReleaseCapture()
|
ClassWin32.ReleaseCapture()
|
||||||
ClassWin32.SendMessage(Handle, ClassWin32.WM_NCLBUTTONDOWN, ClassWin32.HTCAPTION, 0)
|
ClassWin32.SendMessage(Handle, ClassWin32.WM_NCLBUTTONDOWN, ClassWin32.HTCAPTION, 0)
|
||||||
End If
|
End If
|
||||||
End Sub
|
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 e.KeyCode = Keys.Escape Then
|
||||||
If ESCHitCount > 0 Then
|
If ESCHitCount > 0 Then
|
||||||
Dim result As DialogResult = MessageBox.Show("Exit Zooflow", "Please Varify", MessageBoxButtons.YesNo)
|
Dim oResult As DialogResult = MessageBox.Show("Exit Zooflow", "Please Varify", MessageBoxButtons.YesNo)
|
||||||
If result = DialogResult.Yes Then
|
If oResult = DialogResult.Yes Then
|
||||||
|
' Save Settings
|
||||||
|
My.UIConfig.FlowForm.Location = Location
|
||||||
|
My.UIConfigManager.Save()
|
||||||
|
|
||||||
|
' Exit
|
||||||
Application.Exit()
|
Application.Exit()
|
||||||
Else
|
Else
|
||||||
ESCHitCount = 0
|
ESCHitCount = 0
|
||||||
@ -117,135 +73,4 @@ Public Class frmFlowForm
|
|||||||
End If
|
End If
|
||||||
End If
|
End If
|
||||||
End Sub
|
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
|
|
||||||
|
|
||||||
'''' <summary>
|
|
||||||
'''' DragDrop Support
|
|
||||||
'''' </summary>
|
|
||||||
'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
|
|
||||||
|
|
||||||
''' <summary>
|
|
||||||
''' More Info: https://docs.microsoft.com/en-us/windows/win32/winmsg/window-features#layered-windows
|
|
||||||
''' </summary>
|
|
||||||
''' <returns></returns>
|
|
||||||
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
|
End Class
|
||||||
66
GUIs.ZooFlow/frmFlowForm_Layered.Designer.vb
generated
Normal file
66
GUIs.ZooFlow/frmFlowForm_Layered.Designer.vb
generated
Normal file
@ -0,0 +1,66 @@
|
|||||||
|
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
|
||||||
|
Partial Class frmFlowForm_Layered
|
||||||
|
Inherits Form
|
||||||
|
|
||||||
|
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
|
||||||
|
<System.Diagnostics.DebuggerNonUserCode()>
|
||||||
|
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.
|
||||||
|
<System.Diagnostics.DebuggerStepThrough()>
|
||||||
|
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
|
||||||
@ -117,31 +117,7 @@
|
|||||||
<resheader name="writer">
|
<resheader name="writer">
|
||||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||||
</resheader>
|
</resheader>
|
||||||
<assembly alias="DevExpress.Data.v19.2" name="DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
|
<metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||||
<data name="SimpleButton1.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
<value>17, 17</value>
|
||||||
<value>
|
</metadata>
|
||||||
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==
|
|
||||||
</value>
|
|
||||||
</data>
|
|
||||||
</root>
|
</root>
|
||||||
251
GUIs.ZooFlow/frmFlowForm_Layered.vb
Normal file
251
GUIs.ZooFlow/frmFlowForm_Layered.vb
Normal file
@ -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
|
||||||
|
|
||||||
|
'''' <summary>
|
||||||
|
'''' DragDrop Support
|
||||||
|
'''' </summary>
|
||||||
|
'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
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' More Info: https://docs.microsoft.com/en-us/windows/win32/winmsg/window-features#layered-windows
|
||||||
|
''' </summary>
|
||||||
|
''' <returns></returns>
|
||||||
|
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
|
||||||
61
GUIs.ZooFlow/frmFlowForm_Test1.Designer.vb
generated
61
GUIs.ZooFlow/frmFlowForm_Test1.Designer.vb
generated
@ -1,61 +0,0 @@
|
|||||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
|
|
||||||
Partial Class frmFlowForm_Test1
|
|
||||||
Inherits System.Windows.Forms.Form
|
|
||||||
|
|
||||||
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
|
|
||||||
<System.Diagnostics.DebuggerNonUserCode()>
|
|
||||||
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.
|
|
||||||
<System.Diagnostics.DebuggerStepThrough()>
|
|
||||||
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
|
|
||||||
@ -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
|
|
||||||
Loading…
x
Reference in New Issue
Block a user