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

Catch-All Profiles

Browse Source
This commit is contained in:
Jonathan Jenne 2020-12-18 14:29:14 +01:00
parent 97b8dcb9ae
commit fbc9a06764
3 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
app/DD_Clipboard_Searcher/ClassClipboardWatcher.vb
View File

@ -42,6 +42,7 @@ Public Class ClassClipboardWatcher : Inherits NativeWindow : Implements IDisposa
RaiseEvent Changed(Me, oText)
End Select
MyBase.WndProc(m)
End Sub

4
app/DD_Clipboard_Searcher/frmMain.vb
View File

@ -241,7 +241,7 @@ Public Class frmMain
End Sub
Sub OpenMatchForm()
Logger.Debug("...now CHECK_PROFILE_MATCH...")
Dim oProfiles = CURRENT_MATCHING_PROFILES
Dim oProfiles = CURRENT_PROFILES_WITH_RESULTS
Dim oEnv = GetEnvironment()
Dim oParams = New ClipboardWatcherParams() With {
@ -285,8 +285,8 @@ Public Class frmMain
Sub Change_Monitoring_State()
If MONITORING_ACTIVE = True Then
NotifyIconMain.ShowBalloonTip(30000, "Clipboard Watcher", "Clipboard-Watcher wurde deaktiviert!", ToolTipIcon.Info)
MONITORING_ACTIVE = False
NotifyIconMain.ShowBalloonTip(30000, "Clipboard Watcher", "Clipboard-Watcher wurde deaktiviert!", ToolTipIcon.Info)
Else
MONITORING_ACTIVE = True
NotifyIconMain.ShowBalloonTip(30000, "Clipboard Watcher", "Clipboard-Watcher wurde wieder aktiviert!", ToolTipIcon.Info)

5
app/DD_Clipboard_Searcher/frmStart.vb
View File

@ -105,13 +105,14 @@ Public Class frmStart
Private Sub WatcherChanged_New(ByVal sender As Object, ByVal e As String) Handles _Watcher2.Changed
If MONITORING_ACTIVE = False Then
Logger.Info("Clipboard Watcher is inactive!")
'NotifyIconMain.ShowBalloonTip(20000, "Clipboard Watcher", "Clipboard-watcher is inactive.", ToolTipIcon.Info)
Logger.Info("Clipboard Watcher ist gerade deaktiviert!")
NotifyIconMain.ShowBalloonTip(20000, "Clipboard Watcher", "Clipboard-watcher is inactive.", ToolTipIcon.Info)
Exit Sub
End If
If DT_USER_PROFILES Is Nothing OrElse DT_USER_PROFILES.Rows.Count = 0 Then
Logger.Warn("DT_USER_PROFILES is empty!")
NotifyIconMain.ShowBalloonTip(20000, "Clipboard Watcher", "Es wurden noch keine Profile für Sie hinterlegt.", ToolTipIcon.Info)
Exit Sub
End If