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.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
|
||||
|
||||
@ -94,10 +94,10 @@
|
||||
<Compile Include="ClipboardWatcher\State.vb" />
|
||||
<Compile Include="Events\OnFlowFormInteractionEvent.vb" />
|
||||
<Compile Include="Events\OnFlowFormStateChangedEvent.vb" />
|
||||
<Compile Include="frmFlowForm_Test1.Designer.vb">
|
||||
<DependentUpon>frmFlowForm_Test1.vb</DependentUpon>
|
||||
<Compile Include="frmFlowForm.Designer.vb">
|
||||
<DependentUpon>frmFlowForm.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="frmFlowForm_Test1.vb">
|
||||
<Compile Include="frmFlowForm.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="frmSearchStart.Designer.vb">
|
||||
@ -125,10 +125,10 @@
|
||||
<Compile Include="frmAdmin.Designer.vb">
|
||||
<DependentUpon>frmAdmin.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="frmFlowForm.Designer.vb">
|
||||
<DependentUpon>frmFlowForm.vb</DependentUpon>
|
||||
<Compile Include="frmFlowForm_Layered.Designer.vb">
|
||||
<DependentUpon>frmFlowForm_Layered.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="frmFlowForm.vb">
|
||||
<Compile Include="frmFlowForm_Layered.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="frmSettings.Designer.vb">
|
||||
@ -156,12 +156,12 @@
|
||||
<EmbeddedResource Include="frmAdmin.resx">
|
||||
<DependentUpon>frmAdmin.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="frmFlowForm_Layered.resx">
|
||||
<DependentUpon>frmFlowForm_Layered.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="frmFlowForm.resx">
|
||||
<DependentUpon>frmFlowForm.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="frmFlowForm_Test1.resx">
|
||||
<DependentUpon>frmFlowForm_Test1.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="frmSearchStart.resx">
|
||||
<DependentUpon>frmSearchStart.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
|
||||
@ -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()
|
||||
|
||||
|
||||
165
GUIs.ZooFlow/frmFlowForm.Designer.vb
generated
165
GUIs.ZooFlow/frmFlowForm.Designer.vb
generated
@ -1,6 +1,6 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
|
||||
Partial Class frmFlowForm
|
||||
Inherits Form
|
||||
Inherits System.Windows.Forms.Form
|
||||
|
||||
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
|
||||
<System.Diagnostics.DebuggerNonUserCode()>
|
||||
@ -22,45 +22,158 @@ Partial Class frmFlowForm
|
||||
'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()
|
||||
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
|
||||
|
||||
@ -117,7 +117,149 @@
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 17</value>
|
||||
</metadata>
|
||||
<assembly alias="DevExpress.Data.v19.2" name="DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
|
||||
<data name="SvgImageBox1.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<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>
|
||||
@ -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
|
||||
|
||||
'''' <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
|
||||
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">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<assembly alias="DevExpress.Data.v19.2" name="DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
|
||||
<data name="SimpleButton1.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
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>
|
||||
<metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 17</value>
|
||||
</metadata>
|
||||
</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