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

MS 2.4.7.0 Anpassung Resultprüfung mit Modules Clipboardwatcher, Namen easyFLOW

Browse Source
This commit is contained in:
Developer01
2025-01-28 15:26:09 +01:00
parent f33c903fa9
commit 81b0e44d45
10 changed files with 45 additions and 22 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
app/DD_Clipboard_Searcher/frmMain.vb
View File

@@ -11,7 +11,7 @@ Imports DevExpress.XtraBars.ToastNotifications
Imports DigitalData.GUIs.Common
Public Class frmMain
Private Const AppTitle = "easyFLOW"
Private WithEvents _Hotkey As New ClassHotkey(Me)
Private WithEvents _Watcher As ClasseasyFLOW = ClasseasyFLOW.Singleton
@@ -176,7 +176,7 @@ Public Class frmMain
Private Sub WatcherChanged_New(ByVal sender As Object, ByVal e As String) Handles _Watcher.Changed
If MONITORING_ACTIVE = False Then
Logger.Info("easyFLOW is inactive!")
Logger.Info($"{AppTitle} is inactive!")
'NotifyIconMain.ShowBalloonTip(20000, "easyFLOW", "Clipboard-watcher is inactive.", ToolTipIcon.Info)
Exit Sub
End If
@@ -273,7 +273,7 @@ Public Class frmMain
Dim oMessageTitle As String
Dim oMessageText As String
oMessageTitle = "easyFLOW"
oMessageTitle = AppTitle
oMessageText = String.Format(S.Es_wurden_keine_passenden_Profile_gefunden_für_die_Suche_nach___0___, CURRENT_CLIPBOARD_CONTENTS)
@@ -299,7 +299,7 @@ Public Class frmMain
Dim oMessageTitle As String
Dim oMessageText As String
oMessageTitle = "easyFLOW"
oMessageTitle = AppTitle
oMessageText = String.Format(S.Es_wurden_weder_Dokumente_noch_Daten_gefunden_für_die_Suche_nach___0___, CURRENT_CLIPBOARD_CONTENTS)
If NOTIFY_MODE.ToUpper = "MSGBOX" Then
@@ -385,10 +385,10 @@ Public Class frmMain
Sub Change_Monitoring_State()
If MONITORING_ACTIVE = True Then
MONITORING_ACTIVE = False
NotifyIconMain.ShowBalloonTip(30000, "easyFLOW", S.Clipboard_Watcher_wurde_deaktiviert_, ToolTipIcon.Info)
NotifyIconMain.ShowBalloonTip(30000, AppTitle, S.Clipboard_Watcher_wurde_deaktiviert_, ToolTipIcon.Info)
Else
MONITORING_ACTIVE = True
NotifyIconMain.ShowBalloonTip(30000, "easyFLOW", S.Clipboard_Watcher_wurde_wieder_aktiviert_, ToolTipIcon.Info)
NotifyIconMain.ShowBalloonTip(30000, AppTitle, S.Clipboard_Watcher_wurde_wieder_aktiviert_, ToolTipIcon.Info)
End If
End Sub
Private Sub frmMain_Shown(sender As Object, e As EventArgs) Handles Me.Shown