AppStd/Monorepo
8
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

ZooFlow: Include new icons

Browse Source
This commit is contained in:
Jonathan Jenne
2021-06-14 14:46:47 +02:00
parent ab1cb2c847
commit ca8f94810e
12 changed files with 426 additions and 246 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
GUIs.ZooFlow/frmFlowForm.vb
View File

@@ -206,12 +206,12 @@ Public Class frmFlowForm
Dim oSQL = My.Queries.Common.FNIDB_GET_SEARCH_PROFILES(My.Application.User.UserId, My.Application.User.Language)
Dim oDatatable As DataTable = My.DatabaseIDB.GetDatatable(oSQL)
PictureBoxSearch.Visible = False
PictureBoxSearch1.Visible = False
If Not IsNothing(oDatatable) OrElse oDatatable.Rows.Count > 0 Then
IDBSearchActive = True
DTIDB_SEARCHES = oDatatable
PictureBoxSearch.Visible = True
PictureBoxSearch1.Visible = True
End If
If My.Application.ModulesActive.Contains(MODULE_CLIPBOARDWATCHER) Then
@@ -430,7 +430,7 @@ Public Class frmFlowForm
Cursor = Cursors.Default
End Sub
Private Sub PictureBoxSearch_Click(sender As Object, e As EventArgs) Handles PictureBoxSearch.Click
Private Sub PictureBoxSearch1_Click(sender As Object, e As EventArgs) Handles PictureBoxSearch1.Click
Open_FlowSearch()
'Cursor = Cursors.WaitCursor
'If TheFormIsAlreadyLoaded("frmSearchStart") Then
@@ -446,25 +446,7 @@ Public Class frmFlowForm
' TimerCheckActiveForms.Enabled = True
'End If
End Sub
Private Sub PictureBoxSearch_MouseEnter(sender As Object, e As EventArgs) Handles PictureBoxSearch.MouseEnter
PictureBoxSearch.Image = My.Resources._2_LUPE_AKTIV_ZOO
End Sub
Private Sub PictureBoxSearch_MouseLeave(sender As Object, e As EventArgs) Handles PictureBoxSearch.MouseLeave
PictureBoxSearch.Image = My.Resources._2_LUPE_INAKTIV_ZOO
End Sub
Private Sub PictureBoxPM_MouseEnter(sender As Object, e As EventArgs) Handles PictureBoxPM.MouseEnter
PictureBoxPM.Image = My.Resources._3_PERSON_AKTIV_ZOO
End Sub
Private Sub PictureBoxPM_MouseLeave(sender As Object, e As EventArgs) Handles PictureBoxPM.MouseLeave
PictureBoxPM.Image = My.Resources._3_PERSON_INAKTIV_ZOO
End Sub
Private Sub PictureBoxGlobix_MouseEnter(sender As Object, e As EventArgs) Handles PictureBoxGlobix.MouseEnter
PictureBoxGlobix.Image = My.Resources._4_GLOBIX_AKTIV_ZOO
End Sub
Private Sub PictureBoxGlobix_MouseLeave(sender As Object, e As EventArgs) Handles PictureBoxGlobix.MouseLeave
PictureBoxGlobix.Image = My.Resources._4_GLOBIX_INAKTIV_ZOO
End Sub
Private Sub ZooFlowBeendenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ZooFlowBeendenToolStripMenuItem.Click
ExitZooflow()
End Sub
@@ -1004,7 +986,7 @@ Public Class frmFlowForm
End Select
End Sub
Private Sub PictureBoxPM_Click(sender As Object, e As EventArgs) Handles PictureBoxPM.Click
Private Sub PictureBoxPM1_Click(sender As Object, e As EventArgs) Handles PictureBoxPM1.Click
ToastNotificationsManager1.ShowNotification(ToastNotificationsManager1.Notifications(1))
End Sub