AppStd/Modules
8
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

jj

Browse Source
This commit is contained in:
Jonathan Jenne 2020-09-07 17:31:07 +02:00
parent b34c66c93f
commit 0066a779d3
9 changed files with 115 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
GUIs.ZooFlow/My Project/Resources.Designer.vb generated
View File

@ -60,6 +60,36 @@ Namespace My.Resources
End Set
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property _0_ZOO_FLOW_Hintergrund() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("0_ZOO_FLOW_Hintergrund", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property _1_ZOO_FLOW_Person() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("1_ZOO_FLOW_Person", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property _1_ZOO_FLOW_Search() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("1_ZOO_FLOW_Search", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>

21
GUIs.ZooFlow/My Project/Resources.resx
View File

@ -118,17 +118,26 @@
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="GLOBIX_GEFUNDEN_klein" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\GLOBIX_GEFUNDEN_klein.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ZOOFLOW_Home_klein" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ZOOFLOW_Home_klein.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="CW_GEFUNDEN_klein" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\CW_GEFUNDEN_klein.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ZOOFLOW_Home_klein_Eckig" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ZOOFLOW_Home_klein_Eckig.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="GLOBIX_GEFUNDEN_klein" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\GLOBIX_GEFUNDEN_klein.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="1_ZOO_FLOW_Person" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\1_ZOO_FLOW_Person.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ZOOFLOW_Home_klein" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ZOOFLOW_Home_klein.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="Find_5650" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Find_5650.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="1_ZOO_FLOW_Search" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\1_ZOO_FLOW_Search.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="CW_klein" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\CW_klein.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@ -139,7 +148,7 @@
<data name="ZOOFLOW_Home_klein_Cropped" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ZOOFLOW_Home_klein_Cropped.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Find_5650" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Find_5650.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="0_ZOO_FLOW_Hintergrund" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\0_ZOO_FLOW_Hintergrund.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
</root>

BIN
GUIs.ZooFlow/Resources/0_ZOO_FLOW_Hintergrund.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 12 KiB

BIN
GUIs.ZooFlow/Resources/1_ZOO_FLOW_Person.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 2.1 KiB

BIN
GUIs.ZooFlow/Resources/1_ZOO_FLOW_Search.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 2.0 KiB

3
GUIs.ZooFlow/ZooFlow.vbproj
View File

@ -245,6 +245,9 @@
<ItemGroup>
<None Include="Resources\ZOOFLOW_Home_klein_Cropped.png" />
<None Include="Resources\Find_5650.png" />
<None Include="Resources\1_ZOO_FLOW_Search.png" />
<None Include="Resources\1_ZOO_FLOW_Person.png" />
<None Include="Resources\0_ZOO_FLOW_Hintergrund.png" />
<Content Include="Resources\ZOOFLOW_Home_klein_Eckig.png" />
</ItemGroup>
<ItemGroup>

2
GUIs.ZooFlow/frmFlowForm.vb
View File

@ -128,7 +128,7 @@ Public Class frmFlowForm
Case OnFlowFormStateChangedEvent.FlowFormState.HasFileDropped
SetBitmap(My.Resources.GLOBIX_GEFUNDEN_klein)
Case Else
SetBitmap(My.Resources.ZOOFLOW_Home_klein_Eckig)
SetBitmap(My.Resources.ZOOFLOW_Home_klein)
End Select
End Sub

59
GUIs.ZooFlow/frmFlowForm_Test1.Designer.vb generated
View File

@ -23,34 +23,77 @@ Partial Class frmFlowForm_Test1
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Me.SimpleButton1 = New DevExpress.XtraEditors.SimpleButton()
Me.SimpleButton2 = New DevExpress.XtraEditors.SimpleButton()
Me.SuspendLayout()
'
'SimpleButton1
'
Me.SimpleButton1.Appearance.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer))
Me.SimpleButton1.Appearance.BackColor = System.Drawing.Color.Transparent
Me.SimpleButton1.Appearance.BorderColor = System.Drawing.Color.Transparent
Me.SimpleButton1.Appearance.Options.UseBackColor = True
Me.SimpleButton1.Location = New System.Drawing.Point(171, 12)
Me.SimpleButton1.Appearance.Options.UseBorderColor = True
Me.SimpleButton1.AppearanceDisabled.BackColor = System.Drawing.Color.Transparent
Me.SimpleButton1.AppearanceDisabled.Options.UseBackColor = True
Me.SimpleButton1.AppearanceHovered.BackColor = System.Drawing.Color.Transparent
Me.SimpleButton1.AppearanceHovered.BorderColor = System.Drawing.Color.Transparent
Me.SimpleButton1.AppearanceHovered.Options.UseBackColor = True
Me.SimpleButton1.AppearanceHovered.Options.UseBorderColor = True
Me.SimpleButton1.AppearancePressed.BackColor = System.Drawing.Color.Transparent
Me.SimpleButton1.AppearancePressed.BorderColor = System.Drawing.Color.Transparent
Me.SimpleButton1.AppearancePressed.Options.UseBackColor = True
Me.SimpleButton1.AppearancePressed.Options.UseBorderColor = True
Me.SimpleButton1.ImageOptions.Image = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources._1_ZOO_FLOW_Search
Me.SimpleButton1.ImageOptions.Location = DevExpress.XtraEditors.ImageLocation.MiddleCenter
Me.SimpleButton1.Location = New System.Drawing.Point(69, 12)
Me.SimpleButton1.LookAndFeel.Style = DevExpress.LookAndFeel.LookAndFeelStyle.UltraFlat
Me.SimpleButton1.LookAndFeel.UseDefaultLookAndFeel = False
Me.SimpleButton1.Name = "SimpleButton1"
Me.SimpleButton1.Size = New System.Drawing.Size(75, 41)
Me.SimpleButton1.PaintStyle = DevExpress.XtraEditors.Controls.PaintStyles.Light
Me.SimpleButton1.ShowFocusRectangle = DevExpress.Utils.DefaultBoolean.[False]
Me.SimpleButton1.ShowToolTips = False
Me.SimpleButton1.Size = New System.Drawing.Size(65, 61)
Me.SimpleButton1.TabIndex = 0
Me.SimpleButton1.Text = "SimpleButton1"
'
'SimpleButton2
'
Me.SimpleButton2.Appearance.BackColor = System.Drawing.Color.Transparent
Me.SimpleButton2.Appearance.Options.UseBackColor = True
Me.SimpleButton2.AppearanceDisabled.BackColor = System.Drawing.Color.Transparent
Me.SimpleButton2.AppearanceDisabled.Options.UseBackColor = True
Me.SimpleButton2.AppearanceHovered.BackColor = System.Drawing.Color.Transparent
Me.SimpleButton2.AppearanceHovered.Options.UseBackColor = True
Me.SimpleButton2.AppearancePressed.BackColor = System.Drawing.Color.Transparent
Me.SimpleButton2.AppearancePressed.Options.UseBackColor = True
Me.SimpleButton2.ImageOptions.Image = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources._1_ZOO_FLOW_Person
Me.SimpleButton2.ImageOptions.Location = DevExpress.XtraEditors.ImageLocation.MiddleCenter
Me.SimpleButton2.Location = New System.Drawing.Point(69, 119)
Me.SimpleButton2.Name = "SimpleButton2"
Me.SimpleButton2.PaintStyle = DevExpress.XtraEditors.Controls.PaintStyles.Light
Me.SimpleButton2.ShowFocusRectangle = DevExpress.Utils.DefaultBoolean.[False]
Me.SimpleButton2.ShowToolTips = False
Me.SimpleButton2.Size = New System.Drawing.Size(65, 69)
Me.SimpleButton2.TabIndex = 0
'
'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.ZOOFLOW_Home_klein
Me.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None
Me.ClientSize = New System.Drawing.Size(250, 250)
Me.BackColor = System.Drawing.SystemColors.Control
Me.BackgroundImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources._0_ZOO_FLOW_Hintergrund
Me.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
Me.ClientSize = New System.Drawing.Size(200, 200)
Me.Controls.Add(Me.SimpleButton2)
Me.Controls.Add(Me.SimpleButton1)
Me.DoubleBuffered = True
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.TransparencyKey = System.Drawing.Color.Fuchsia
Me.ResumeLayout(False)
End Sub
Friend WithEvents SimpleButton1 As DevExpress.XtraEditors.SimpleButton
Friend WithEvents SimpleButton2 As DevExpress.XtraEditors.SimpleButton
End Class

18
GUIs.ZooFlow/frmFlowForm_Test1.vb
View File

@ -19,11 +19,23 @@ Public Class frmFlowForm_Test1
TopMost = True
AllowDrop = True
ShowInTaskbar = False
Opacity = OPACITY_HIDDEN
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()
@ -31,11 +43,11 @@ Public Class frmFlowForm_Test1
End Sub
Private Sub frmFlowForm_MouseLeave(sender As Object, e As EventArgs) Handles Me.MouseLeave
Opacity = OPACITY_HIDDEN
'Opacity = OPACITY_HIDDEN
End Sub
Private Sub frmFlowForm_MouseHover(sender As Object, e As EventArgs) Handles Me.MouseHover
Opacity = OPACITY_SHOWN
' Opacity = OPACITY_SHOWN
End Sub
Private Sub frmFlowForm_MouseMove(ByVal sender As Object, ByVal e As MouseEventArgs) Handles Me.MouseMove