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

MS Icons

Browse Source
This commit is contained in:
SchreiberM
2022-03-17 16:11:15 +01:00
parent da4573e18b
commit 97ebdb058a
9 changed files with 180 additions and 136 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
GUIs.ZooFlow/frmFlowForm.vb
View File

@@ -543,10 +543,10 @@ Public Class frmFlowForm
Private Sub frmFlowForm_DragEnter(sender As Object, e As DragEventArgs) Handles MyBase.DragEnter
If My.Application.GlobixDropAreaStyle = "PROGRESSIVE" Then
'PictureBoxDragDrop.Image = My.Resources._1_LOGO_ZOO_FLOW_DROP3
SvgImageBox1.SvgImage = My.Resources.ZooFlow_Sidebar_TOP_Drop
PictureEdit2.Image = My.Resources.ZooFlow_drop_drag
Else
'PictureBoxDragDrop.Image = My.Resources._1_LOGO_ZOO_FLOW_DROP2
SvgImageBox1.SvgImage = My.Resources.ZooFlow_Sidebar_TOP_Drop
PictureEdit2.Image = My.Resources.ZooFlow_drop_drag
End If
e.Effect = DragDropEffects.Copy
@@ -559,7 +559,7 @@ Public Class frmFlowForm
Private Sub frmFlowForm_DragLeave(sender As Object, e As EventArgs) Handles Me.DragLeave
'PictureBoxDragDrop.Image = My.Resources._1_LOGO_ZOO_FLOW1
SvgImageBox1.SvgImage = My.Resources.ZooFlow_Sidebar_TOP
PictureEdit2.Image = My.Resources.ZooFlow_drop
End Sub
Private Sub PictureBoxAbo_Click(sender As Object, e As EventArgs)
@@ -706,7 +706,7 @@ Public Class frmFlowForm
My.Application.Globix.DTACTUAL_FILES.Rows.Count > 0 Then
Globix_Open_IndexDialog()
SvgImageBox1.SvgImage = My.Resources.ZooFlow_Sidebar_TOP
PictureEdit2.Image = My.Resources.ZooFlow_drop_drag
End If
Next
Catch ex As Exception
@@ -1195,7 +1195,7 @@ Public Class frmFlowForm
End Try
End Function
Private Async Sub TextEdit1_KeyUp(sender As Object, e As KeyEventArgs) Handles TextEdit1.KeyUp
Private Async Sub TextEdit1_KeyUp(sender As Object, e As KeyEventArgs) Handles txtQuicksearch1.KeyUp
If e.KeyCode = Keys.Return Then
Await CheckRunSearch1()
End If
@@ -1203,7 +1203,7 @@ Public Class frmFlowForm
Async Function CheckRunSearch1() As Threading.Tasks.Task
Dim oSearchText = TextEdit1.Text
Dim oSearchText = txtQuicksearch1.Text
If oSearchText <> String.Empty Then
Dim oHandle = SplashScreenManager.ShowOverlayForm(Me)
@@ -1221,7 +1221,7 @@ Public Class frmFlowForm
End If
End Function
Private Async Function PictureEdit1_Click(sender As Object, e As EventArgs) As Task Handles PictureBoxSearch.Click
If TextEdit1.Text = String.Empty Then
If txtQuicksearch1.Text = String.Empty Then
Open_FlowSearch()
Return