ZooFlow: Add Working Sidebar code, inital WIP Config for Sidebar
This commit is contained in:
Jonathan Jenne
parent
0bcb3680b1
commit
eb019db60c
@ -2,6 +2,10 @@
|
||||
Public Property FlowForm As New FlowFormConfig
|
||||
Public Property SearchForm As New SearchFormConfig
|
||||
Public Property Globix As New GlobixConfig
|
||||
|
||||
Public Property SidebarScreen As String
|
||||
Public Property SidebarOrientation As String
|
||||
|
||||
Public Class FlowFormConfig
|
||||
Public Property Location As New Point(0, 0)
|
||||
End Class
|
||||
|
||||
@ -0,0 +1,5 @@
|
||||
DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
|
||||
DevExpress.XtraEditors.ComboBoxEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
|
||||
DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
|
||||
DevExpress.XtraLayout.LayoutControl, DevExpress.XtraLayout.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
|
||||
DevExpress.XtraEditors.CheckEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
|
||||
@ -432,6 +432,9 @@
|
||||
<EmbeddedResource Include="Administration\frmSQLDesigner.resx">
|
||||
<DependentUpon>frmSQLDesigner.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="frmConfigBasic.resx">
|
||||
<DependentUpon>frmConfigBasic.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="frmServiceConfig.resx">
|
||||
<DependentUpon>frmServiceConfig.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
|
||||
128
GUIs.ZooFlow/frmConfigBasic.Designer.vb
generated
128
GUIs.ZooFlow/frmConfigBasic.Designer.vb
generated
@ -1,6 +1,6 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class frmConfigBasic
|
||||
Inherits System.Windows.Forms.Form
|
||||
Inherits DevExpress.XtraBars.Ribbon.RibbonForm
|
||||
|
||||
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
@ -22,9 +22,133 @@ Partial Class frmConfigBasic
|
||||
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
components = New System.ComponentModel.Container
|
||||
Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl()
|
||||
Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage()
|
||||
Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
|
||||
Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
|
||||
Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
|
||||
Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage()
|
||||
Me.LayoutControl1 = New DevExpress.XtraLayout.LayoutControl()
|
||||
Me.Root = New DevExpress.XtraLayout.LayoutControlGroup()
|
||||
Me.cmbScreens = New DevExpress.XtraEditors.ComboBoxEdit()
|
||||
Me.LayoutControlItem1 = New DevExpress.XtraLayout.LayoutControlItem()
|
||||
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.LayoutControl1.SuspendLayout()
|
||||
CType(Me.Root, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.cmbScreens.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'RibbonControl1
|
||||
'
|
||||
Me.RibbonControl1.ExpandCollapseItem.Id = 0
|
||||
Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem})
|
||||
Me.RibbonControl1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.RibbonControl1.MaxItemId = 1
|
||||
Me.RibbonControl1.Name = "RibbonControl1"
|
||||
Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1})
|
||||
Me.RibbonControl1.Size = New System.Drawing.Size(800, 160)
|
||||
Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1
|
||||
'
|
||||
'RibbonPage1
|
||||
'
|
||||
Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1, Me.RibbonPageGroup2})
|
||||
Me.RibbonPage1.Name = "RibbonPage1"
|
||||
Me.RibbonPage1.Text = "RibbonPage1"
|
||||
'
|
||||
'RibbonPageGroup1
|
||||
'
|
||||
Me.RibbonPageGroup1.Name = "RibbonPageGroup1"
|
||||
Me.RibbonPageGroup1.Text = "RibbonPageGroup1"
|
||||
'
|
||||
'RibbonPageGroup2
|
||||
'
|
||||
Me.RibbonPageGroup2.Name = "RibbonPageGroup2"
|
||||
Me.RibbonPageGroup2.Text = "RibbonPageGroup2"
|
||||
'
|
||||
'RibbonStatusBar1
|
||||
'
|
||||
Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 428)
|
||||
Me.RibbonStatusBar1.Name = "RibbonStatusBar1"
|
||||
Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1
|
||||
Me.RibbonStatusBar1.Size = New System.Drawing.Size(800, 22)
|
||||
'
|
||||
'RibbonPage2
|
||||
'
|
||||
Me.RibbonPage2.Name = "RibbonPage2"
|
||||
Me.RibbonPage2.Text = "RibbonPage2"
|
||||
'
|
||||
'LayoutControl1
|
||||
'
|
||||
Me.LayoutControl1.Controls.Add(Me.cmbScreens)
|
||||
Me.LayoutControl1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.LayoutControl1.Location = New System.Drawing.Point(0, 160)
|
||||
Me.LayoutControl1.Name = "LayoutControl1"
|
||||
Me.LayoutControl1.OptionsCustomizationForm.DesignTimeCustomizationFormPositionAndSize = New System.Drawing.Rectangle(848, 135, 650, 400)
|
||||
Me.LayoutControl1.Root = Me.Root
|
||||
Me.LayoutControl1.Size = New System.Drawing.Size(800, 268)
|
||||
Me.LayoutControl1.TabIndex = 2
|
||||
Me.LayoutControl1.Text = "LayoutControl1"
|
||||
'
|
||||
'Root
|
||||
'
|
||||
Me.Root.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True]
|
||||
Me.Root.GroupBordersVisible = False
|
||||
Me.Root.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem1})
|
||||
Me.Root.Name = "Root"
|
||||
Me.Root.Size = New System.Drawing.Size(800, 268)
|
||||
Me.Root.TextVisible = False
|
||||
'
|
||||
'cmbScreens
|
||||
'
|
||||
Me.cmbScreens.Location = New System.Drawing.Point(125, 12)
|
||||
Me.cmbScreens.MenuManager = Me.RibbonControl1
|
||||
Me.cmbScreens.Name = "cmbScreens"
|
||||
Me.cmbScreens.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)})
|
||||
Me.cmbScreens.Size = New System.Drawing.Size(663, 20)
|
||||
Me.cmbScreens.StyleController = Me.LayoutControl1
|
||||
Me.cmbScreens.TabIndex = 4
|
||||
'
|
||||
'LayoutControlItem1
|
||||
'
|
||||
Me.LayoutControlItem1.Control = Me.cmbScreens
|
||||
Me.LayoutControlItem1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.LayoutControlItem1.Name = "LayoutControlItem1"
|
||||
Me.LayoutControlItem1.Size = New System.Drawing.Size(780, 248)
|
||||
Me.LayoutControlItem1.TextSize = New System.Drawing.Size(101, 13)
|
||||
'
|
||||
'frmConfigBasic
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.ClientSize = New System.Drawing.Size(800, 450)
|
||||
Me.Controls.Add(Me.LayoutControl1)
|
||||
Me.Controls.Add(Me.RibbonStatusBar1)
|
||||
Me.Controls.Add(Me.RibbonControl1)
|
||||
Me.Name = "frmConfigBasic"
|
||||
Me.Ribbon = Me.RibbonControl1
|
||||
Me.StatusBar = Me.RibbonStatusBar1
|
||||
Me.Text = "frmConfigBasic"
|
||||
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.LayoutControl1.ResumeLayout(False)
|
||||
CType(Me.Root, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.cmbScreens.Properties, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
Me.PerformLayout()
|
||||
|
||||
End Sub
|
||||
|
||||
Friend WithEvents RibbonControl1 As DevExpress.XtraBars.Ribbon.RibbonControl
|
||||
Friend WithEvents RibbonPage1 As DevExpress.XtraBars.Ribbon.RibbonPage
|
||||
Friend WithEvents RibbonPageGroup1 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
|
||||
Friend WithEvents RibbonPageGroup2 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
|
||||
Friend WithEvents RibbonStatusBar1 As DevExpress.XtraBars.Ribbon.RibbonStatusBar
|
||||
Friend WithEvents RibbonPage2 As DevExpress.XtraBars.Ribbon.RibbonPage
|
||||
Friend WithEvents LayoutControl1 As DevExpress.XtraLayout.LayoutControl
|
||||
Friend WithEvents cmbScreens As DevExpress.XtraEditors.ComboBoxEdit
|
||||
Friend WithEvents Root As DevExpress.XtraLayout.LayoutControlGroup
|
||||
Friend WithEvents LayoutControlItem1 As DevExpress.XtraLayout.LayoutControlItem
|
||||
End Class
|
||||
|
||||
120
GUIs.ZooFlow/frmConfigBasic.resx
Normal file
120
GUIs.ZooFlow/frmConfigBasic.resx
Normal file
@ -0,0 +1,120 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 2.0
|
||||
|
||||
The primary goals of this format is to allow a simple XML format
|
||||
that is mostly human readable. The generation and parsing of the
|
||||
various data types are done through the TypeConverter classes
|
||||
associated with the data types.
|
||||
|
||||
Example:
|
||||
|
||||
... ado.net/XML headers & schema ...
|
||||
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||
<resheader name="version">2.0</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||
<comment>This is a comment</comment>
|
||||
</data>
|
||||
|
||||
There are any number of "resheader" rows that contain simple
|
||||
name/value pairs.
|
||||
|
||||
Each data row contains a name, and value. The row also contains a
|
||||
type or mimetype. Type corresponds to a .NET class that support
|
||||
text/value conversion through the TypeConverter architecture.
|
||||
Classes that don't support this are serialized and stored with the
|
||||
mimetype set.
|
||||
|
||||
The mimetype is used for serialized objects, and tells the
|
||||
ResXResourceReader how to depersist the object. This is currently not
|
||||
extensible. For a given mimetype the value must be set accordingly:
|
||||
|
||||
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||
that the ResXResourceWriter will generate, however the reader can
|
||||
read any of the formats listed below.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.binary.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.soap.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||
value : The object must be serialized into a byte array
|
||||
: using a System.ComponentModel.TypeConverter
|
||||
: and then encoded with base64 encoding.
|
||||
-->
|
||||
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
|
||||
<xsd:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<xsd:element name="metadata">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" use="required" type="xsd:string" />
|
||||
<xsd:attribute name="type" type="xsd:string" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="assembly">
|
||||
<xsd:complexType>
|
||||
<xsd:attribute name="alias" type="xsd:string" />
|
||||
<xsd:attribute name="name" type="xsd:string" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="data">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="resheader">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:choice>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
<resheader name="resmimetype">
|
||||
<value>text/microsoft-resx</value>
|
||||
</resheader>
|
||||
<resheader name="version">
|
||||
<value>2.0</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
</root>
|
||||
@ -1,3 +1,17 @@
|
||||
Public Class frmConfigBasic
|
||||
Private Sub frmConfigBasic_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||||
LoadScreens()
|
||||
End Sub
|
||||
|
||||
Private Sub LoadScreens()
|
||||
cmbScreens.Properties.Items.Clear()
|
||||
For Each oScreen In Screen.AllScreens
|
||||
cmbScreens.Properties.Items.Add(oScreen.DeviceName)
|
||||
Next
|
||||
End Sub
|
||||
|
||||
Private Sub cmbScreens_SelectedValueChanged(sender As Object, e As EventArgs) Handles cmbScreens.SelectedValueChanged
|
||||
My.UIConfig.SidebarScreen = cmbScreens.EditValue
|
||||
My.UIConfigManager.Save()
|
||||
End Sub
|
||||
End Class
|
||||
142
GUIs.ZooFlow/frmConfigDatabase.Designer.vb
generated
142
GUIs.ZooFlow/frmConfigDatabase.Designer.vb
generated
@ -23,39 +23,39 @@ Partial Class frmConfigDatabase
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
Me.LayoutControl1 = New DevExpress.XtraLayout.LayoutControl()
|
||||
Me.btnTestConnection = New DevExpress.XtraEditors.SimpleButton()
|
||||
Me.LayoutControlGroup1 = New DevExpress.XtraLayout.LayoutControlGroup()
|
||||
Me.LayoutControlItem5 = New DevExpress.XtraLayout.LayoutControlItem()
|
||||
Me.EmptySpaceItem2 = New DevExpress.XtraLayout.EmptySpaceItem()
|
||||
Me.txtServerName = New DevExpress.XtraEditors.TextEdit()
|
||||
Me.txtUserName = New DevExpress.XtraEditors.TextEdit()
|
||||
Me.txtPassword = New DevExpress.XtraEditors.TextEdit()
|
||||
Me.cmbDatabase = New DevExpress.XtraEditors.ComboBoxEdit()
|
||||
Me.btnTestConnection = New DevExpress.XtraEditors.SimpleButton()
|
||||
Me.txtConnectionString = New DevExpress.XtraEditors.TextEdit()
|
||||
Me.chkWinAuth = New DevExpress.XtraEditors.CheckEdit()
|
||||
Me.LayoutControlGroup1 = New DevExpress.XtraLayout.LayoutControlGroup()
|
||||
Me.LayoutControlItem1 = New DevExpress.XtraLayout.LayoutControlItem()
|
||||
Me.LayoutControlItem2 = New DevExpress.XtraLayout.LayoutControlItem()
|
||||
Me.LayoutControlItem4 = New DevExpress.XtraLayout.LayoutControlItem()
|
||||
Me.LayoutControlItem3 = New DevExpress.XtraLayout.LayoutControlItem()
|
||||
Me.LayoutControlItem7 = New DevExpress.XtraLayout.LayoutControlItem()
|
||||
Me.LayoutControlItem6 = New DevExpress.XtraLayout.LayoutControlItem()
|
||||
Me.LayoutControlItem5 = New DevExpress.XtraLayout.LayoutControlItem()
|
||||
Me.EmptySpaceItem2 = New DevExpress.XtraLayout.EmptySpaceItem()
|
||||
CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.LayoutControl1.SuspendLayout()
|
||||
CType(Me.LayoutControlGroup1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.LayoutControlItem5, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.EmptySpaceItem2, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.txtServerName.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.txtUserName.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.txtPassword.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.cmbDatabase.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.txtConnectionString.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.chkWinAuth.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.LayoutControlGroup1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.LayoutControlItem4, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.LayoutControlItem7, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.LayoutControlItem6, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.LayoutControlItem5, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.EmptySpaceItem2, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'LayoutControl1
|
||||
@ -75,39 +75,6 @@ Partial Class frmConfigDatabase
|
||||
Me.LayoutControl1.TabIndex = 0
|
||||
Me.LayoutControl1.Text = "LayoutControl1"
|
||||
'
|
||||
'txtServerName
|
||||
'
|
||||
Me.txtServerName.Location = New System.Drawing.Point(160, 15)
|
||||
Me.txtServerName.Name = "txtServerName"
|
||||
Me.txtServerName.Size = New System.Drawing.Size(427, 20)
|
||||
Me.txtServerName.StyleController = Me.LayoutControl1
|
||||
Me.txtServerName.TabIndex = 4
|
||||
'
|
||||
'txtUserName
|
||||
'
|
||||
Me.txtUserName.Location = New System.Drawing.Point(160, 45)
|
||||
Me.txtUserName.Name = "txtUserName"
|
||||
Me.txtUserName.Size = New System.Drawing.Size(136, 20)
|
||||
Me.txtUserName.StyleController = Me.LayoutControl1
|
||||
Me.txtUserName.TabIndex = 5
|
||||
'
|
||||
'txtPassword
|
||||
'
|
||||
Me.txtPassword.Location = New System.Drawing.Point(451, 45)
|
||||
Me.txtPassword.Name = "txtPassword"
|
||||
Me.txtPassword.Size = New System.Drawing.Size(136, 20)
|
||||
Me.txtPassword.StyleController = Me.LayoutControl1
|
||||
Me.txtPassword.TabIndex = 6
|
||||
'
|
||||
'cmbDatabase
|
||||
'
|
||||
Me.cmbDatabase.Location = New System.Drawing.Point(160, 75)
|
||||
Me.cmbDatabase.Name = "cmbDatabase"
|
||||
Me.cmbDatabase.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)})
|
||||
Me.cmbDatabase.Size = New System.Drawing.Size(427, 20)
|
||||
Me.cmbDatabase.StyleController = Me.LayoutControl1
|
||||
Me.cmbDatabase.TabIndex = 7
|
||||
'
|
||||
'btnTestConnection
|
||||
'
|
||||
Me.btnTestConnection.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.actions_check4
|
||||
@ -119,12 +86,71 @@ Partial Class frmConfigDatabase
|
||||
Me.btnTestConnection.TabIndex = 8
|
||||
Me.btnTestConnection.Text = "Verbindung zur Datenbank herstellen"
|
||||
'
|
||||
'LayoutControlGroup1
|
||||
'
|
||||
Me.LayoutControlGroup1.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True]
|
||||
Me.LayoutControlGroup1.GroupBordersVisible = False
|
||||
Me.LayoutControlGroup1.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem1, Me.LayoutControlItem2, Me.LayoutControlItem4, Me.LayoutControlItem3, Me.LayoutControlItem7, Me.LayoutControlItem6, Me.LayoutControlItem5, Me.EmptySpaceItem2})
|
||||
Me.LayoutControlGroup1.Name = "LayoutControlGroup1"
|
||||
Me.LayoutControlGroup1.Size = New System.Drawing.Size(602, 221)
|
||||
Me.LayoutControlGroup1.TextVisible = False
|
||||
'
|
||||
'LayoutControlItem5
|
||||
'
|
||||
Me.LayoutControlItem5.Control = Me.btnTestConnection
|
||||
Me.LayoutControlItem5.Location = New System.Drawing.Point(291, 152)
|
||||
Me.LayoutControlItem5.Name = "LayoutControlItem5"
|
||||
Me.LayoutControlItem5.Size = New System.Drawing.Size(291, 49)
|
||||
Me.LayoutControlItem5.TextSize = New System.Drawing.Size(0, 0)
|
||||
Me.LayoutControlItem5.TextVisible = False
|
||||
'
|
||||
'EmptySpaceItem2
|
||||
'
|
||||
Me.EmptySpaceItem2.AllowHotTrack = False
|
||||
Me.EmptySpaceItem2.Location = New System.Drawing.Point(0, 152)
|
||||
Me.EmptySpaceItem2.Name = "EmptySpaceItem2"
|
||||
Me.EmptySpaceItem2.Size = New System.Drawing.Size(291, 49)
|
||||
Me.EmptySpaceItem2.TextSize = New System.Drawing.Size(0, 0)
|
||||
'
|
||||
'txtServerName
|
||||
'
|
||||
Me.txtServerName.Location = New System.Drawing.Point(169, 15)
|
||||
Me.txtServerName.Name = "txtServerName"
|
||||
Me.txtServerName.Size = New System.Drawing.Size(418, 20)
|
||||
Me.txtServerName.StyleController = Me.LayoutControl1
|
||||
Me.txtServerName.TabIndex = 4
|
||||
'
|
||||
'txtUserName
|
||||
'
|
||||
Me.txtUserName.Location = New System.Drawing.Point(169, 45)
|
||||
Me.txtUserName.Name = "txtUserName"
|
||||
Me.txtUserName.Size = New System.Drawing.Size(127, 20)
|
||||
Me.txtUserName.StyleController = Me.LayoutControl1
|
||||
Me.txtUserName.TabIndex = 5
|
||||
'
|
||||
'txtPassword
|
||||
'
|
||||
Me.txtPassword.Location = New System.Drawing.Point(460, 45)
|
||||
Me.txtPassword.Name = "txtPassword"
|
||||
Me.txtPassword.Size = New System.Drawing.Size(127, 20)
|
||||
Me.txtPassword.StyleController = Me.LayoutControl1
|
||||
Me.txtPassword.TabIndex = 6
|
||||
'
|
||||
'cmbDatabase
|
||||
'
|
||||
Me.cmbDatabase.Location = New System.Drawing.Point(169, 75)
|
||||
Me.cmbDatabase.Name = "cmbDatabase"
|
||||
Me.cmbDatabase.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)})
|
||||
Me.cmbDatabase.Size = New System.Drawing.Size(418, 20)
|
||||
Me.cmbDatabase.StyleController = Me.LayoutControl1
|
||||
Me.cmbDatabase.TabIndex = 7
|
||||
'
|
||||
'txtConnectionString
|
||||
'
|
||||
Me.txtConnectionString.Location = New System.Drawing.Point(160, 137)
|
||||
Me.txtConnectionString.Location = New System.Drawing.Point(169, 137)
|
||||
Me.txtConnectionString.Name = "txtConnectionString"
|
||||
Me.txtConnectionString.Properties.ReadOnly = True
|
||||
Me.txtConnectionString.Size = New System.Drawing.Size(427, 20)
|
||||
Me.txtConnectionString.Size = New System.Drawing.Size(418, 20)
|
||||
Me.txtConnectionString.StyleController = Me.LayoutControl1
|
||||
Me.txtConnectionString.TabIndex = 9
|
||||
'
|
||||
@ -137,15 +163,6 @@ Partial Class frmConfigDatabase
|
||||
Me.chkWinAuth.StyleController = Me.LayoutControl1
|
||||
Me.chkWinAuth.TabIndex = 10
|
||||
'
|
||||
'LayoutControlGroup1
|
||||
'
|
||||
Me.LayoutControlGroup1.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True]
|
||||
Me.LayoutControlGroup1.GroupBordersVisible = False
|
||||
Me.LayoutControlGroup1.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem1, Me.LayoutControlItem2, Me.LayoutControlItem4, Me.LayoutControlItem3, Me.LayoutControlItem7, Me.LayoutControlItem6, Me.LayoutControlItem5, Me.EmptySpaceItem2})
|
||||
Me.LayoutControlGroup1.Name = "LayoutControlGroup1"
|
||||
Me.LayoutControlGroup1.Size = New System.Drawing.Size(602, 221)
|
||||
Me.LayoutControlGroup1.TextVisible = False
|
||||
'
|
||||
'LayoutControlItem1
|
||||
'
|
||||
Me.LayoutControlItem1.Control = Me.txtServerName
|
||||
@ -206,23 +223,6 @@ Partial Class frmConfigDatabase
|
||||
Me.LayoutControlItem6.Text = "Aktueller Connectionstring:"
|
||||
Me.LayoutControlItem6.TextSize = New System.Drawing.Size(142, 13)
|
||||
'
|
||||
'LayoutControlItem5
|
||||
'
|
||||
Me.LayoutControlItem5.Control = Me.btnTestConnection
|
||||
Me.LayoutControlItem5.Location = New System.Drawing.Point(291, 152)
|
||||
Me.LayoutControlItem5.Name = "LayoutControlItem5"
|
||||
Me.LayoutControlItem5.Size = New System.Drawing.Size(291, 49)
|
||||
Me.LayoutControlItem5.TextSize = New System.Drawing.Size(0, 0)
|
||||
Me.LayoutControlItem5.TextVisible = False
|
||||
'
|
||||
'EmptySpaceItem2
|
||||
'
|
||||
Me.EmptySpaceItem2.AllowHotTrack = False
|
||||
Me.EmptySpaceItem2.Location = New System.Drawing.Point(0, 152)
|
||||
Me.EmptySpaceItem2.Name = "EmptySpaceItem2"
|
||||
Me.EmptySpaceItem2.Size = New System.Drawing.Size(291, 49)
|
||||
Me.EmptySpaceItem2.TextSize = New System.Drawing.Size(0, 0)
|
||||
'
|
||||
'frmConfigDatabase
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
@ -233,21 +233,21 @@ Partial Class frmConfigDatabase
|
||||
Me.Text = "Datenbank Verbindung"
|
||||
CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.LayoutControl1.ResumeLayout(False)
|
||||
CType(Me.LayoutControlGroup1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.LayoutControlItem5, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.EmptySpaceItem2, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.txtServerName.Properties, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.txtUserName.Properties, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.txtPassword.Properties, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.cmbDatabase.Properties, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.txtConnectionString.Properties, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.chkWinAuth.Properties, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.LayoutControlGroup1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.LayoutControlItem4, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.LayoutControlItem7, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.LayoutControlItem6, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.LayoutControlItem5, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.EmptySpaceItem2, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
|
||||
184
GUIs.ZooFlow/frmFlowForm.Designer.vb
generated
184
GUIs.ZooFlow/frmFlowForm.Designer.vb
generated
@ -30,12 +30,9 @@ Partial Class frmFlowForm
|
||||
Dim SnapOptions1 As DevExpress.Utils.Controls.SnapOptions = New DevExpress.Utils.Controls.SnapOptions()
|
||||
Me.NotifyIcon = New System.Windows.Forms.NotifyIcon(Me.components)
|
||||
Me.ContextMenuSystray = New System.Windows.Forms.ContextMenuStrip(Me.components)
|
||||
Me.GlobixToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.TsiGlobixConfig = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.UserKonfigurationToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.DatenbankverbindungToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
|
||||
Me.VerwaltungToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.ToolStripSeparator3 = New System.Windows.Forms.ToolStripSeparator()
|
||||
Me.SucheTestToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.TestToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
@ -43,24 +40,28 @@ Partial Class frmFlowForm
|
||||
Me.ZooFlowBeendenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.TimerRefreshData = New System.Windows.Forms.Timer(Me.components)
|
||||
Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components)
|
||||
Me.PictureBoxAbo = New System.Windows.Forms.PictureBox()
|
||||
Me.PictureBoxDragDrop = New System.Windows.Forms.PictureBox()
|
||||
Me.PictureBoxPM1 = New DevExpress.XtraEditors.SvgImageBox()
|
||||
Me.TimerCheckActiveForms = New System.Windows.Forms.Timer(Me.components)
|
||||
Me.TimerCheckDroppedFiles = New System.Windows.Forms.Timer(Me.components)
|
||||
Me.TimerFolderwatch = New System.Windows.Forms.Timer(Me.components)
|
||||
Me.ToastNotificationsManager1 = New DevExpress.XtraBars.ToastNotifications.ToastNotificationsManager(Me.components)
|
||||
Me.PictureBoxGlobix1 = New DevExpress.XtraEditors.SvgImageBox()
|
||||
Me.PictureBoxSearch1 = New DevExpress.XtraEditors.SvgImageBox()
|
||||
Me.BehaviorManager1 = New DevExpress.Utils.Behaviors.BehaviorManager(Me.components)
|
||||
Me.PictureBoxGlobix1 = New DevExpress.XtraEditors.SvgImageBox()
|
||||
Me.PictureBoxPM1 = New DevExpress.XtraEditors.SvgImageBox()
|
||||
Me.PictureBoxAbo = New System.Windows.Forms.PictureBox()
|
||||
Me.PictureBoxSearch1 = New DevExpress.XtraEditors.SvgImageBox()
|
||||
Me.PictureBoxDragDrop = New System.Windows.Forms.PictureBox()
|
||||
Me.GlobixToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.TsiGlobixConfig = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.VerwaltungToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.BasisKonfigurationToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.ContextMenuSystray.SuspendLayout()
|
||||
CType(Me.PictureBoxAbo, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.PictureBoxDragDrop, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.PictureBoxPM1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.ToastNotificationsManager1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.PictureBoxGlobix1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.PictureBoxSearch1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.BehaviorManager1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.PictureBoxGlobix1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.PictureBoxPM1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.PictureBoxAbo, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.PictureBoxSearch1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.PictureBoxDragDrop, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'SplashScreenManager
|
||||
@ -78,28 +79,13 @@ Partial Class frmFlowForm
|
||||
'
|
||||
Me.ContextMenuSystray.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.GlobixToolStripMenuItem, Me.UserKonfigurationToolStripMenuItem, Me.ToolStripSeparator1, Me.VerwaltungToolStripMenuItem, Me.ToolStripSeparator3, Me.SucheTestToolStripMenuItem, Me.TestToolStripMenuItem, Me.ToolStripSeparator2, Me.ZooFlowBeendenToolStripMenuItem})
|
||||
Me.ContextMenuSystray.Name = "ContextMenuSystray"
|
||||
Me.ContextMenuSystray.Size = New System.Drawing.Size(174, 154)
|
||||
'
|
||||
'GlobixToolStripMenuItem
|
||||
'
|
||||
Me.GlobixToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.TsiGlobixConfig})
|
||||
Me.GlobixToolStripMenuItem.Image = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.GLOBIX_short
|
||||
Me.GlobixToolStripMenuItem.Name = "GlobixToolStripMenuItem"
|
||||
Me.GlobixToolStripMenuItem.Size = New System.Drawing.Size(173, 22)
|
||||
Me.GlobixToolStripMenuItem.Text = "Globix"
|
||||
Me.GlobixToolStripMenuItem.Visible = False
|
||||
'
|
||||
'TsiGlobixConfig
|
||||
'
|
||||
Me.TsiGlobixConfig.Name = "TsiGlobixConfig"
|
||||
Me.TsiGlobixConfig.Size = New System.Drawing.Size(178, 22)
|
||||
Me.TsiGlobixConfig.Text = "Grundeinstellungen"
|
||||
Me.ContextMenuSystray.Size = New System.Drawing.Size(181, 176)
|
||||
'
|
||||
'UserKonfigurationToolStripMenuItem
|
||||
'
|
||||
Me.UserKonfigurationToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DatenbankverbindungToolStripMenuItem})
|
||||
Me.UserKonfigurationToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DatenbankverbindungToolStripMenuItem, Me.BasisKonfigurationToolStripMenuItem})
|
||||
Me.UserKonfigurationToolStripMenuItem.Name = "UserKonfigurationToolStripMenuItem"
|
||||
Me.UserKonfigurationToolStripMenuItem.Size = New System.Drawing.Size(173, 22)
|
||||
Me.UserKonfigurationToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
|
||||
Me.UserKonfigurationToolStripMenuItem.Text = "User Konfiguration"
|
||||
'
|
||||
'DatenbankverbindungToolStripMenuItem
|
||||
@ -111,81 +97,36 @@ Partial Class frmFlowForm
|
||||
'ToolStripSeparator1
|
||||
'
|
||||
Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
|
||||
Me.ToolStripSeparator1.Size = New System.Drawing.Size(170, 6)
|
||||
'
|
||||
'VerwaltungToolStripMenuItem
|
||||
'
|
||||
Me.VerwaltungToolStripMenuItem.Image = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.gear_32xLG
|
||||
Me.VerwaltungToolStripMenuItem.Name = "VerwaltungToolStripMenuItem"
|
||||
Me.VerwaltungToolStripMenuItem.Size = New System.Drawing.Size(173, 22)
|
||||
Me.VerwaltungToolStripMenuItem.Text = "Verwaltung"
|
||||
Me.ToolStripSeparator1.Size = New System.Drawing.Size(177, 6)
|
||||
'
|
||||
'ToolStripSeparator3
|
||||
'
|
||||
Me.ToolStripSeparator3.Name = "ToolStripSeparator3"
|
||||
Me.ToolStripSeparator3.Size = New System.Drawing.Size(170, 6)
|
||||
Me.ToolStripSeparator3.Size = New System.Drawing.Size(177, 6)
|
||||
'
|
||||
'SucheTestToolStripMenuItem
|
||||
'
|
||||
Me.SucheTestToolStripMenuItem.Name = "SucheTestToolStripMenuItem"
|
||||
Me.SucheTestToolStripMenuItem.Size = New System.Drawing.Size(173, 22)
|
||||
Me.SucheTestToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
|
||||
Me.SucheTestToolStripMenuItem.Text = "Suche (Test)"
|
||||
'
|
||||
'TestToolStripMenuItem
|
||||
'
|
||||
Me.TestToolStripMenuItem.Name = "TestToolStripMenuItem"
|
||||
Me.TestToolStripMenuItem.Size = New System.Drawing.Size(173, 22)
|
||||
Me.TestToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
|
||||
Me.TestToolStripMenuItem.Text = "Test"
|
||||
'
|
||||
'ToolStripSeparator2
|
||||
'
|
||||
Me.ToolStripSeparator2.Name = "ToolStripSeparator2"
|
||||
Me.ToolStripSeparator2.Size = New System.Drawing.Size(170, 6)
|
||||
Me.ToolStripSeparator2.Size = New System.Drawing.Size(177, 6)
|
||||
'
|
||||
'ZooFlowBeendenToolStripMenuItem
|
||||
'
|
||||
Me.ZooFlowBeendenToolStripMenuItem.Name = "ZooFlowBeendenToolStripMenuItem"
|
||||
Me.ZooFlowBeendenToolStripMenuItem.Size = New System.Drawing.Size(173, 22)
|
||||
Me.ZooFlowBeendenToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
|
||||
Me.ZooFlowBeendenToolStripMenuItem.Text = "ZooFlow beenden"
|
||||
'
|
||||
'PictureBoxAbo
|
||||
'
|
||||
Me.PictureBoxAbo.Cursor = System.Windows.Forms.Cursors.Hand
|
||||
Me.PictureBoxAbo.Image = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources._2_ZOO_FLOW_Abo
|
||||
Me.PictureBoxAbo.Location = New System.Drawing.Point(97, 153)
|
||||
Me.PictureBoxAbo.Name = "PictureBoxAbo"
|
||||
Me.PictureBoxAbo.Size = New System.Drawing.Size(40, 36)
|
||||
Me.PictureBoxAbo.TabIndex = 11
|
||||
Me.PictureBoxAbo.TabStop = False
|
||||
Me.ToolTip1.SetToolTip(Me.PictureBoxAbo, "Abonnierte Suchen")
|
||||
'
|
||||
'PictureBoxDragDrop
|
||||
'
|
||||
Me.PictureBoxDragDrop.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||
Me.PictureBoxDragDrop.Dock = System.Windows.Forms.DockStyle.Top
|
||||
Me.PictureBoxDragDrop.Image = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources._1_LOGO_ZOO_FLOW
|
||||
Me.PictureBoxDragDrop.Location = New System.Drawing.Point(0, 0)
|
||||
Me.PictureBoxDragDrop.Name = "PictureBoxDragDrop"
|
||||
Me.PictureBoxDragDrop.Size = New System.Drawing.Size(200, 150)
|
||||
Me.PictureBoxDragDrop.TabIndex = 10
|
||||
Me.PictureBoxDragDrop.TabStop = False
|
||||
Me.ToolTip1.SetToolTip(Me.PictureBoxDragDrop, "Drag and Drop files here")
|
||||
'
|
||||
'PictureBoxPM1
|
||||
'
|
||||
Me.PictureBoxPM1.Cursor = System.Windows.Forms.Cursors.Hand
|
||||
Me.PictureBoxPM1.ItemAppearance.Hovered.FillColor = System.Drawing.Color.FromArgb(CType(CType(165, Byte), Integer), CType(CType(36, Byte), Integer), CType(CType(49, Byte), Integer))
|
||||
Me.PictureBoxPM1.ItemAppearance.Normal.FillColor = System.Drawing.SystemColors.ControlDark
|
||||
Me.PictureBoxPM1.ItemHitTestType = DevExpress.XtraEditors.ItemHitTestType.BoundingBox
|
||||
Me.PictureBoxPM1.Location = New System.Drawing.Point(47, 298)
|
||||
Me.PictureBoxPM1.Name = "PictureBoxPM1"
|
||||
Me.PictureBoxPM1.Size = New System.Drawing.Size(90, 90)
|
||||
Me.PictureBoxPM1.SizeMode = DevExpress.XtraEditors.SvgImageSizeMode.Zoom
|
||||
Me.PictureBoxPM1.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.ZooFlow_PM_DevExpress
|
||||
Me.PictureBoxPM1.TabIndex = 14
|
||||
Me.PictureBoxPM1.Text = "SvgImageBox1"
|
||||
Me.ToolTip1.SetToolTip(Me.PictureBoxPM1, "ProcessManager - Workflow")
|
||||
'
|
||||
'TimerCheckActiveForms
|
||||
'
|
||||
Me.TimerCheckActiveForms.Interval = 2000
|
||||
@ -219,6 +160,32 @@ Partial Class frmFlowForm
|
||||
Me.PictureBoxGlobix1.TabIndex = 15
|
||||
Me.PictureBoxGlobix1.Text = "SvgImageBox1"
|
||||
'
|
||||
'PictureBoxPM1
|
||||
'
|
||||
Me.PictureBoxPM1.Cursor = System.Windows.Forms.Cursors.Hand
|
||||
Me.PictureBoxPM1.ItemAppearance.Hovered.FillColor = System.Drawing.Color.FromArgb(CType(CType(165, Byte), Integer), CType(CType(36, Byte), Integer), CType(CType(49, Byte), Integer))
|
||||
Me.PictureBoxPM1.ItemAppearance.Normal.FillColor = System.Drawing.SystemColors.ControlDark
|
||||
Me.PictureBoxPM1.ItemHitTestType = DevExpress.XtraEditors.ItemHitTestType.BoundingBox
|
||||
Me.PictureBoxPM1.Location = New System.Drawing.Point(47, 298)
|
||||
Me.PictureBoxPM1.Name = "PictureBoxPM1"
|
||||
Me.PictureBoxPM1.Size = New System.Drawing.Size(90, 90)
|
||||
Me.PictureBoxPM1.SizeMode = DevExpress.XtraEditors.SvgImageSizeMode.Zoom
|
||||
Me.PictureBoxPM1.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.ZooFlow_PM_DevExpress
|
||||
Me.PictureBoxPM1.TabIndex = 14
|
||||
Me.PictureBoxPM1.Text = "SvgImageBox1"
|
||||
Me.ToolTip1.SetToolTip(Me.PictureBoxPM1, "ProcessManager - Workflow")
|
||||
'
|
||||
'PictureBoxAbo
|
||||
'
|
||||
Me.PictureBoxAbo.Cursor = System.Windows.Forms.Cursors.Hand
|
||||
Me.PictureBoxAbo.Image = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources._2_ZOO_FLOW_Abo
|
||||
Me.PictureBoxAbo.Location = New System.Drawing.Point(97, 153)
|
||||
Me.PictureBoxAbo.Name = "PictureBoxAbo"
|
||||
Me.PictureBoxAbo.Size = New System.Drawing.Size(40, 36)
|
||||
Me.PictureBoxAbo.TabIndex = 11
|
||||
Me.PictureBoxAbo.TabStop = False
|
||||
Me.ToolTip1.SetToolTip(Me.PictureBoxAbo, "Abonnierte Suchen")
|
||||
'
|
||||
'PictureBoxSearch1
|
||||
'
|
||||
Me.PictureBoxSearch1.Cursor = System.Windows.Forms.Cursors.Hand
|
||||
@ -233,6 +200,46 @@ Partial Class frmFlowForm
|
||||
Me.PictureBoxSearch1.TabIndex = 13
|
||||
Me.PictureBoxSearch1.Text = "SvgImageBox1"
|
||||
'
|
||||
'PictureBoxDragDrop
|
||||
'
|
||||
Me.PictureBoxDragDrop.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||
Me.PictureBoxDragDrop.Dock = System.Windows.Forms.DockStyle.Top
|
||||
Me.PictureBoxDragDrop.Image = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources._1_LOGO_ZOO_FLOW
|
||||
Me.PictureBoxDragDrop.Location = New System.Drawing.Point(0, 0)
|
||||
Me.PictureBoxDragDrop.Name = "PictureBoxDragDrop"
|
||||
Me.PictureBoxDragDrop.Size = New System.Drawing.Size(200, 150)
|
||||
Me.PictureBoxDragDrop.TabIndex = 10
|
||||
Me.PictureBoxDragDrop.TabStop = False
|
||||
Me.ToolTip1.SetToolTip(Me.PictureBoxDragDrop, "Drag and Drop files here")
|
||||
'
|
||||
'GlobixToolStripMenuItem
|
||||
'
|
||||
Me.GlobixToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.TsiGlobixConfig})
|
||||
Me.GlobixToolStripMenuItem.Image = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.GLOBIX_short
|
||||
Me.GlobixToolStripMenuItem.Name = "GlobixToolStripMenuItem"
|
||||
Me.GlobixToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
|
||||
Me.GlobixToolStripMenuItem.Text = "Globix"
|
||||
Me.GlobixToolStripMenuItem.Visible = False
|
||||
'
|
||||
'TsiGlobixConfig
|
||||
'
|
||||
Me.TsiGlobixConfig.Name = "TsiGlobixConfig"
|
||||
Me.TsiGlobixConfig.Size = New System.Drawing.Size(180, 22)
|
||||
Me.TsiGlobixConfig.Text = "Grundeinstellungen"
|
||||
'
|
||||
'VerwaltungToolStripMenuItem
|
||||
'
|
||||
Me.VerwaltungToolStripMenuItem.Image = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.gear_32xLG
|
||||
Me.VerwaltungToolStripMenuItem.Name = "VerwaltungToolStripMenuItem"
|
||||
Me.VerwaltungToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
|
||||
Me.VerwaltungToolStripMenuItem.Text = "Verwaltung"
|
||||
'
|
||||
'BasisKonfigurationToolStripMenuItem
|
||||
'
|
||||
Me.BasisKonfigurationToolStripMenuItem.Name = "BasisKonfigurationToolStripMenuItem"
|
||||
Me.BasisKonfigurationToolStripMenuItem.Size = New System.Drawing.Size(192, 22)
|
||||
Me.BasisKonfigurationToolStripMenuItem.Text = "Basis Konfiguration"
|
||||
'
|
||||
'frmFlowForm
|
||||
'
|
||||
Me.AllowDrop = True
|
||||
@ -251,19 +258,19 @@ Partial Class frmFlowForm
|
||||
Me.Controls.Add(Me.PictureBoxSearch1)
|
||||
Me.Controls.Add(Me.PictureBoxDragDrop)
|
||||
Me.DoubleBuffered = True
|
||||
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow
|
||||
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
|
||||
Me.IconOptions.Image = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.ZOO_FLOW__sysicon_256
|
||||
Me.Name = "frmFlowForm"
|
||||
Me.Text = "ZooFlow"
|
||||
Me.TopMost = True
|
||||
Me.ContextMenuSystray.ResumeLayout(False)
|
||||
CType(Me.PictureBoxAbo, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.PictureBoxDragDrop, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.PictureBoxPM1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.ToastNotificationsManager1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.PictureBoxGlobix1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.PictureBoxSearch1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.BehaviorManager1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.PictureBoxGlobix1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.PictureBoxPM1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.PictureBoxAbo, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.PictureBoxSearch1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.PictureBoxDragDrop, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
@ -292,4 +299,5 @@ Partial Class frmFlowForm
|
||||
Friend WithEvents ToolStripSeparator3 As ToolStripSeparator
|
||||
Friend WithEvents SucheTestToolStripMenuItem As ToolStripMenuItem
|
||||
Friend WithEvents BehaviorManager1 As DevExpress.Utils.Behaviors.BehaviorManager
|
||||
Friend WithEvents BasisKonfigurationToolStripMenuItem As ToolStripMenuItem
|
||||
End Class
|
||||
|
||||
@ -1972,9 +1972,9 @@
|
||||
<value>1079, 17</value>
|
||||
</metadata>
|
||||
<metadata name="ToastNotificationsManager1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 56</value>
|
||||
<value>1228, 17</value>
|
||||
</metadata>
|
||||
<metadata name="BehaviorManager1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>222, 56</value>
|
||||
<value>17, 56</value>
|
||||
</metadata>
|
||||
</root>
|
||||
@ -13,149 +13,60 @@ Imports DigitalData.Modules.Messaging
|
||||
Imports DigitalData.Modules.Windows
|
||||
|
||||
Public Class frmFlowForm
|
||||
#Region "Sidebar Variablen und Konstanten"
|
||||
Public AppDeskData As AppDeskBar
|
||||
Public fBarRegistered As Boolean = False
|
||||
Public ret, i, uCallBack As Integer
|
||||
#Region "Sidebar Declarations"
|
||||
Private Declare Function SetWindowPos Lib "user32" Alias "SetWindowPos" (ByVal hwnd As IntPtr, ByVal hWndInsertAfter As Integer, ByVal x As Integer, ByVal y As Integer, ByVal cx As Integer, ByVal cy As Integer, ByVal wFlags As Integer) As Integer
|
||||
Public Declare Auto Function MoveWindow Lib "user32.dll" (ByVal hWnd As IntPtr, ByVal X As Int32, ByVal Y As Int32, ByVal nWidth As Int32, ByVal nHeight As Int32, ByVal bRepaint As Boolean) As Boolean
|
||||
Declare Function SHAppBarMessage Lib "shell32.dll" Alias "SHAppBarMessage" (ByVal dwMessage As Integer, ByRef pData As APPBARDATA) As Integer
|
||||
Declare Function SetWindowPos Lib "user32.dll" (ByVal hwnd As Integer, ByVal hWndInsertAfter As Integer, ByVal X As Integer, ByVal Y As Integer, ByVal cX As Integer, ByVal cY As Integer, ByVal wFlags As Integer) As Integer
|
||||
|
||||
Structure APPBARDATA
|
||||
Dim cbSize As Integer
|
||||
Dim hwnd As Integer
|
||||
Dim uCallbackMessage As [Delegate]
|
||||
Dim uEdge As Integer
|
||||
Dim rc As RECT
|
||||
Dim lParam As Integer ' message specific
|
||||
End Structure
|
||||
|
||||
Structure RECT
|
||||
Public left As Integer
|
||||
Public top As Integer
|
||||
Public right As Integer
|
||||
Public bottom As Integer
|
||||
Dim Left As Integer
|
||||
Dim Top As Integer
|
||||
Dim Right As Integer
|
||||
Dim Bottom As Integer
|
||||
End Structure
|
||||
Structure AppDeskBar
|
||||
Public cbSize As Integer
|
||||
Public hWnd As IntPtr
|
||||
Public uCallbackMessage As Integer
|
||||
Public uEdge As Integer
|
||||
Public rc As RECT
|
||||
Public lParam As IntPtr
|
||||
End Structure
|
||||
Enum ABMsg
|
||||
ABM_NEW = 0
|
||||
ABM_REMOVE = 1
|
||||
ABM_QUERYPOS = 2
|
||||
ABM_SETPOS = 3
|
||||
ABM_GETSTATE = 4
|
||||
ABM_GETTASKBARPOS = 5
|
||||
ABM_ACTIVATE = 6
|
||||
ABM_GETAUTOHIDEBAR = 7
|
||||
ABM_SETAUTOHIDEBAR = 8
|
||||
ABM_WINDOWPOSCHANGED = 9
|
||||
ABM_SETSTATE = 10
|
||||
End Enum
|
||||
Enum ABEdge
|
||||
ABE_LEFT = 0
|
||||
ABE_TOP
|
||||
ABE_RIGHT
|
||||
ABE_BOTTOM
|
||||
End Enum
|
||||
Enum ABNotify
|
||||
ABN_STATECHANGE = 0
|
||||
ABN_POSCHANGED
|
||||
ABN_FULLSCREENAPP
|
||||
ABN_WINDOWARRANGE
|
||||
End Enum
|
||||
|
||||
Const ABE_LEFT As Integer = 0
|
||||
Const ABE_TOP As Integer = &H1
|
||||
Const ABE_RIGHT As Integer = 2
|
||||
Const ABE_BOTTOM As Integer = 3
|
||||
|
||||
Const ABM_NEW As Integer = 0
|
||||
Const ABM_REMOVE As Integer = 1
|
||||
Const ABM_QUERYPOS As Integer = 2
|
||||
Const ABM_SETPOS As Integer = &H3
|
||||
Const ABM_GETSTATE As Integer = 4
|
||||
Const ABM_GETTASKBARPOS As Integer = 5
|
||||
Const ABM_ACTIVATE As Integer = 6
|
||||
Const ABM_GETAUTOHIDEBAR As Integer = 7
|
||||
Const ABM_SETAUTOHIDEBAR As Integer = 8
|
||||
Const ABM_WINDOWPOSCHANGED As Integer = 9
|
||||
|
||||
Const ABS_AUTOHIDE As Integer = 1
|
||||
Const ABS_ALWAYSONTOP As Integer = 2
|
||||
|
||||
Const HWND_NOTTOPMOST As Integer = -2
|
||||
Const HWND_TOPMOST As Integer = -1
|
||||
Const HWND_TOP As Integer = 0
|
||||
Const SHOWNORMAL As Integer = 5
|
||||
|
||||
Const SWP_NOSIZE As Integer = &H1
|
||||
Const SWP_NOMOVE As Short = &H2
|
||||
Const SWP_NOZORDER As Integer = 4
|
||||
Const SWP_NOACTIVATE As Integer = &H10
|
||||
Const SWP_DRAWFRAME As Integer = &H20
|
||||
Const SWP_SHOWWINDOW As Integer = &H40
|
||||
#End Region
|
||||
#Region "Sidebar DllImport"
|
||||
<DllImport("SHELL32", CallingConvention:=CallingConvention.StdCall)>
|
||||
Private Shared Function SHAppBarMessage(ByVal dwMessage As Integer, ByRef BarrData As AppDeskBar) As Integer
|
||||
End Function
|
||||
<DllImport("User32.dll", CharSet:=CharSet.Auto)>
|
||||
Public Shared Function RegisterWindowMessage(ByVal msg As String) As Integer
|
||||
End Function
|
||||
#End Region
|
||||
#Region "Sidebar Enum Properties Register"
|
||||
Private Shared Function MoveWindow(ByVal hWnd As IntPtr, ByVal x As Integer, ByVal y As Integer, ByVal cx As Integer, ByVal cy As Integer, ByVal repaint As Boolean) As Boolean
|
||||
|
||||
End Function
|
||||
Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
|
||||
If m.Msg = uCallBack Then
|
||||
Select Case m.WParam.ToInt32()
|
||||
Case CInt(ABNotify.ABN_POSCHANGED)
|
||||
ABSetPos(ABEdge.ABE_RIGHT)
|
||||
End Select
|
||||
End If
|
||||
MyBase.WndProc(m)
|
||||
End Sub 'WndProc
|
||||
Protected Overrides ReadOnly Property CreateParams() As System.Windows.Forms.CreateParams
|
||||
Get
|
||||
Dim cp As CreateParams = MyBase.CreateParams
|
||||
cp.Style = cp.Style And Not &HC00000 ' WS_CAPTION
|
||||
cp.Style = cp.Style And Not &H800000 ' WS_BORDER
|
||||
cp.ExStyle = &H80 Or &H8 ' WS_EX_TOOLWINDOW | WS_EX_TOPMOST
|
||||
Return cp
|
||||
End Get
|
||||
End Property
|
||||
Public Sub RegisterBar(ByVal dockEdge As ABEdge)
|
||||
Dim abd As New AppDeskBar()
|
||||
abd.cbSize = Marshal.SizeOf(abd)
|
||||
abd.hWnd = Me.Handle
|
||||
If Not fBarRegistered Then
|
||||
uCallBack = RegisterWindowMessage("AppBarMessage")
|
||||
abd.uCallbackMessage = uCallBack
|
||||
Dim ret As System.UInt32 = SHAppBarMessage(CInt(ABMsg.ABM_NEW), abd) 'ToDo: Unsigned Integers not supported
|
||||
fBarRegistered = True
|
||||
ABSetPos(ABEdge.ABE_RIGHT)
|
||||
Else
|
||||
SHAppBarMessage(CInt(ABMsg.ABM_REMOVE), abd)
|
||||
fBarRegistered = False
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub ABSetPos(ByVal dockEdge As ABEdge)
|
||||
Dim abd As New AppDeskBar()
|
||||
abd.cbSize = Marshal.SizeOf(abd)
|
||||
abd.hWnd = Me.Handle
|
||||
abd.uEdge = CInt(dockEdge)
|
||||
If abd.uEdge = CInt(ABEdge.ABE_LEFT) Or abd.uEdge = CInt(ABEdge.ABE_RIGHT) Then
|
||||
abd.rc.top = 0
|
||||
abd.rc.bottom = SystemInformation.PrimaryMonitorSize.Height
|
||||
If abd.uEdge = CInt(ABEdge.ABE_LEFT) Then
|
||||
abd.rc.left = 0
|
||||
abd.rc.right = Size.Width
|
||||
Else
|
||||
abd.rc.right = SystemInformation.PrimaryMonitorSize.Width
|
||||
abd.rc.left = abd.rc.right - Size.Width
|
||||
End If
|
||||
Else
|
||||
abd.rc.left = 0
|
||||
abd.rc.right = SystemInformation.PrimaryMonitorSize.Width
|
||||
If abd.uEdge = CInt(ABEdge.ABE_TOP) Then
|
||||
abd.rc.top = 0
|
||||
abd.rc.bottom = Size.Height
|
||||
Else
|
||||
abd.rc.bottom = SystemInformation.PrimaryMonitorSize.Height
|
||||
abd.rc.top = abd.rc.bottom - Size.Height
|
||||
End If
|
||||
End If
|
||||
' Query the system for an approved size and position.
|
||||
SHAppBarMessage(CInt(ABMsg.ABM_QUERYPOS), abd)
|
||||
' Adjust the rectangle, depending on the edge to which the
|
||||
' appbar is anchored.
|
||||
Select Case abd.uEdge
|
||||
Case CInt(ABEdge.ABE_LEFT)
|
||||
abd.rc.right = abd.rc.left + Size.Width
|
||||
Case CInt(ABEdge.ABE_RIGHT)
|
||||
abd.rc.left = abd.rc.right - Size.Width
|
||||
Case CInt(ABEdge.ABE_TOP)
|
||||
abd.rc.bottom = abd.rc.top + Size.Height
|
||||
Case CInt(ABEdge.ABE_BOTTOM)
|
||||
abd.rc.top = abd.rc.bottom - Size.Height
|
||||
End Select
|
||||
' Pass the final bounding rectangle to the system.
|
||||
SHAppBarMessage(CInt(ABMsg.ABM_SETPOS), abd)
|
||||
' Move and size the appbar so that it conforms to the
|
||||
' bounding rectangle passed to the system.
|
||||
|
||||
Me.Location = New Point(abd.rc.left, abd.rc.top)
|
||||
Dim PSBH = System.Windows.Forms.Screen.PrimaryScreen.Bounds.Height
|
||||
Dim TaskBarHeight = PSBH - System.Windows.Forms.Screen.PrimaryScreen.WorkingArea.Height
|
||||
Me.Height = System.Windows.Forms.Screen.PrimaryScreen.Bounds.Height - TaskBarHeight
|
||||
|
||||
' MoveWindow(abd.hWnd, abd.rc.left, abd.rc.top, abd.rc.right - abd.rc.left, abd.rc.bottom - abd.rc.top, True)
|
||||
End Sub
|
||||
#End Region
|
||||
' Constants
|
||||
Private Const OPACITY_INITIAL = 0
|
||||
Private Const OPACITY_HIDDEN = 0.65
|
||||
@ -190,7 +101,7 @@ Public Class frmFlowForm
|
||||
Private ESCHitCount As Integer = 0
|
||||
Private IndexForm As frmGlobix_Index
|
||||
Private AdminForm As frmAdmin_Start
|
||||
Private Const mSnapOffset As Integer = 35
|
||||
Private Sidebar As APPBARDATA
|
||||
|
||||
' Events
|
||||
Public Event ClipboardChanged As EventHandler(Of IDataObject)
|
||||
@ -215,7 +126,10 @@ Public Class frmFlowForm
|
||||
Init = New ClassInit(My.LogConfig, Me)
|
||||
AddHandler Init.Completed, AddressOf Init_Completed
|
||||
Init.InitializeApplication()
|
||||
'RegisterBar(ABEdge.ABE_RIGHT)
|
||||
|
||||
' Register Form as Sidebar
|
||||
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
|
||||
RegisterSidebar(My.UIConfig.SidebarScreen)
|
||||
End Sub
|
||||
|
||||
Private Sub Init_Completed(sender As Object, e As EventArgs)
|
||||
@ -235,18 +149,13 @@ Public Class frmFlowForm
|
||||
TopMost = True
|
||||
AllowDrop = True
|
||||
ShowInTaskbar = False
|
||||
Opacity = OPACITY_HIDDEN
|
||||
Opacity = OPACITY_SHOWN
|
||||
Location = My.UIConfig.FlowForm.Location
|
||||
|
||||
' === Setup Event Handlers ===
|
||||
AddHandler KeyDown, AddressOf frmFlowForm_KeyDown
|
||||
AddHandler KeyUp, AddressOf frmFlowForm_KeyDown
|
||||
|
||||
For Each oControl As Control In Controls
|
||||
AddHandler oControl.MouseEnter, AddressOf frmFlowForm_MouseEnter
|
||||
AddHandler oControl.MouseLeave, AddressOf frmFlowForm_MouseLeave
|
||||
Next
|
||||
|
||||
AddHandler Watcher.ClipboardChanged, AddressOf Watcher_ClipboardChanged
|
||||
|
||||
Dim oSQL = My.Queries.Common.FNIDB_GET_SEARCH_PROFILES(My.Application.User.UserId, My.Application.User.Language)
|
||||
@ -399,20 +308,20 @@ Public Class frmFlowForm
|
||||
'TODO: Refresh Data
|
||||
End Sub
|
||||
|
||||
Private Sub frmFlowForm_MouseLeave(sender As Object, e As EventArgs) Handles MyBase.MouseLeave
|
||||
Opacity = OPACITY_HIDDEN
|
||||
End Sub
|
||||
'Private Sub frmFlowForm_MouseLeave(sender As Object, e As EventArgs) Handles MyBase.MouseLeave
|
||||
' Opacity = OPACITY_HIDDEN
|
||||
'End Sub
|
||||
|
||||
Private Sub frmFlowForm_MouseEnter(sender As Object, e As EventArgs) Handles Me.MouseEnter
|
||||
Opacity = OPACITY_SHOWN
|
||||
End Sub
|
||||
'Private Sub frmFlowForm_MouseEnter(sender As Object, e As EventArgs) Handles Me.MouseEnter
|
||||
' Opacity = OPACITY_SHOWN
|
||||
'End Sub
|
||||
|
||||
Private Sub frmFlowForm_MouseMove(ByVal sender As Object, ByVal e As MouseEventArgs) Handles Me.MouseMove, PictureBoxDragDrop.MouseMove
|
||||
If e.Button = MouseButtons.Left Then
|
||||
NativeMethods.ReleaseCapture()
|
||||
NativeMethods.SendMessage(Handle, NativeMethods.WM_NCLBUTTONDOWN, NativeMethods.HTCAPTION, 0)
|
||||
End If
|
||||
End Sub
|
||||
'Private Sub frmFlowForm_MouseMove(ByVal sender As Object, ByVal e As MouseEventArgs) Handles Me.MouseMove, PictureBoxDragDrop.MouseMove
|
||||
' If e.Button = MouseButtons.Left Then
|
||||
' NativeMethods.ReleaseCapture()
|
||||
' NativeMethods.SendMessage(Handle, NativeMethods.WM_NCLBUTTONDOWN, NativeMethods.HTCAPTION, 0)
|
||||
' End If
|
||||
'End Sub
|
||||
|
||||
Private Sub frmFlowForm_KeyDown(ByVal sender As Object, ByVal e As KeyEventArgs)
|
||||
If e.KeyCode = Keys.Escape Then
|
||||
@ -431,7 +340,7 @@ Public Class frmFlowForm
|
||||
Sub ExitZooflow()
|
||||
Dim oResult As DialogResult = MessageBox.Show("Exit Zooflow", "Are you sure you want to close ZooFlow?", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
|
||||
If oResult = DialogResult.Yes Then
|
||||
Application.Exit()
|
||||
Close()
|
||||
Else
|
||||
ESCHitCount = 0
|
||||
End If
|
||||
@ -542,7 +451,7 @@ Public Class frmFlowForm
|
||||
End If
|
||||
Next
|
||||
|
||||
TimerCheckActiveForms.Enabled = False
|
||||
'TimerCheckActiveForms.Enabled = False
|
||||
Return True
|
||||
End Function
|
||||
|
||||
@ -550,35 +459,40 @@ Public Class frmFlowForm
|
||||
frmConfigDatabase.ShowDialog()
|
||||
End Sub
|
||||
|
||||
Private Sub TimerCheckActiveForms_Tick(sender As Object, e As EventArgs) Handles TimerCheckActiveForms.Tick
|
||||
Visible = FormLoaded_Visible()
|
||||
If Visible = False Then Exit Sub
|
||||
End Sub
|
||||
|
||||
|
||||
'Private Sub TimerCheckActiveForms_Tick(sender As Object, e As EventArgs) Handles TimerCheckActiveForms.Tick
|
||||
' Visible = FormLoaded_Visible()
|
||||
' If Visible = False Then Exit Sub
|
||||
'End Sub
|
||||
|
||||
Private Sub NotifyIcon_DoubleClick(sender As Object, e As EventArgs) Handles NotifyIcon.DoubleClick
|
||||
If Visible = False Then
|
||||
Visible = True
|
||||
TimerCheckActiveForms.Enabled = False
|
||||
Else
|
||||
Visible = False
|
||||
'TimerCheckActiveForms.Enabled = False
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub PictureBox1_DragEnter(sender As Object, e As DragEventArgs) Handles PictureBoxDragDrop.DragEnter
|
||||
Drag_Enter(sender, e)
|
||||
End Sub
|
||||
|
||||
Sub Drag_Enter(sender As Object, e As DragEventArgs)
|
||||
If e.Data.GetDataPresent(DataFormats.FileDrop) Then
|
||||
e.Effect = DragDropEffects.All
|
||||
' Console.WriteLine("DragEnter ...DragDrop")
|
||||
ElseIf e.Data.GetDataPresent("FileGroupDescriptor") Then
|
||||
'handle a message dragged from Outlook
|
||||
|
||||
ElseIf e.Data.GetDataPresent("FileGroupDescriptor") Then 'handle a message dragged from Outlook
|
||||
e.Effect = DragDropEffects.Copy
|
||||
' Console.WriteLine("DragEnter ...OutlookMessage")
|
||||
|
||||
ElseIf e.Data.GetDataPresent("aryFileGroupDescriptor") AndAlso (e.Data.GetDataPresent("FileContents")) Then
|
||||
e.Effect = DragDropEffects.Copy
|
||||
' Console.WriteLine("DragEnter ...Attachment from Outlook")
|
||||
|
||||
Else
|
||||
'otherwise, do not handle
|
||||
e.Effect = DragDropEffects.None
|
||||
|
||||
End If
|
||||
End Sub
|
||||
Sub DragDropForm(e As DragEventArgs)
|
||||
@ -678,9 +592,10 @@ Public Class frmFlowForm
|
||||
AddHandler IndexForm.FormClosed, AddressOf GlobixClosed
|
||||
IndexForm.Show()
|
||||
Cursor = Cursors.Default
|
||||
If TimerCheckActiveForms.Enabled = False Then
|
||||
TimerCheckActiveForms.Enabled = True
|
||||
End If
|
||||
|
||||
'If TimerCheckActiveForms.Enabled = False Then
|
||||
' TimerCheckActiveForms.Enabled = True
|
||||
'End If
|
||||
Catch ex As Exception
|
||||
ShowErrorMessage(ex)
|
||||
End Try
|
||||
@ -1039,16 +954,43 @@ Public Class frmFlowForm
|
||||
End Sub
|
||||
|
||||
Private Sub frmFlowForm_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
|
||||
'If fBarRegistered Then
|
||||
' fBarRegistered = False
|
||||
UnregisterSidebar()
|
||||
End Sub
|
||||
|
||||
' '----NEW
|
||||
' Dim abd As New AppDeskBar()
|
||||
' abd.cbSize = Marshal.SizeOf(abd)
|
||||
' abd.hWnd = Me.Handle
|
||||
Private Sub RegisterSidebar(pScreenName As String)
|
||||
Sidebar.hwnd = Me.Handle.ToInt32
|
||||
Sidebar.cbSize = Len(Sidebar)
|
||||
|
||||
' ret = SHAppBarMessage(ABMsg.ABM_REMOVE, abd)
|
||||
Dim oSelectedScreen = System.Windows.Forms.Screen.PrimaryScreen
|
||||
|
||||
' TODO: Make Sidebar Screen configurable
|
||||
'If pScreenName <> "" Then
|
||||
' Dim oScreens = System.Windows.Forms.Screen.AllScreens
|
||||
' For Each oScreen In oScreens
|
||||
' If oScreen.DeviceName = pScreenName Then
|
||||
' oSelectedScreen = oScreen
|
||||
' End If
|
||||
' Next
|
||||
'End If
|
||||
|
||||
With Sidebar
|
||||
.uEdge = ABE_RIGHT
|
||||
.rc.Top = oSelectedScreen.WorkingArea.Top '0
|
||||
.rc.Right = oSelectedScreen.WorkingArea.Right ' right
|
||||
.rc.Left = oSelectedScreen.WorkingArea.Right - 200 ' width of our appbar
|
||||
.rc.Bottom = oSelectedScreen.WorkingArea.Height ' bottom
|
||||
SHAppBarMessage(ABM_NEW, Sidebar)
|
||||
SetWindowPos(Sidebar.hwnd, HWND_TOP, .rc.Left, .rc.Top, .rc.Right - .rc.Left, .rc.Bottom, SWP_SHOWWINDOW Or SWP_NOACTIVATE)
|
||||
SHAppBarMessage(ABM_SETPOS, Sidebar)
|
||||
End With
|
||||
End Sub
|
||||
|
||||
Private Sub UnregisterSidebar()
|
||||
SHAppBarMessage(ABM_REMOVE, Sidebar)
|
||||
End Sub
|
||||
|
||||
Private Sub BasisKonfigurationToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BasisKonfigurationToolStripMenuItem.Click
|
||||
frmConfigBasic.ShowDialog()
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user