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

MS

Browse Source
This commit is contained in:
SchreiberM 2020-12-30 14:11:48 +01:00
parent 01db5a2bcf
commit 525ea7e221
2 changed files with 15 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
app/DD_Clipboard_Searcher/ClassInit.vb
View File

@ -134,7 +134,7 @@ Public Class ClassInit
If ConfigManager.Config.AppServerConfig <> String.Empty Then If ConfigManager.Config.AppServerConfig <> String.Empty Then
Try Try
Dim oSplit() As String = ConfigManager.Config.AppServerConfig.ToString.Split(";") Dim oSplit() As String = ConfigManager.Config.AppServerConfig.ToString.Split(":")
Dim oAppServerAddress As String = oSplit(0) Dim oAppServerAddress As String = oSplit(0)
Dim oAppServerPort As Integer = 9000 Dim oAppServerPort As Integer = 9000
If oSplit.Length = 2 Then If oSplit.Length = 2 Then

19
app/DD_Clipboard_Searcher/frmMain.vb
View File

@ -19,11 +19,16 @@ Public Class frmMain
Dim splash As New frmSplash() Dim splash As New frmSplash()
splash.ShowDialog() splash.ShowDialog()
If ERROR_INIT <> "INVALID USER" Then If ERROR_INIT <> "INVALID USER" Then
Dim cultureInfo As New CultureInfo(USER_LANGUAGE) Dim Culture = CultureInfo.CreateSpecificCulture(USER_LANGUAGE)
Thread.CurrentThread.CurrentCulture = cultureInfo ' The following line provides localization for the application's user interface.
Thread.CurrentThread.CurrentUICulture = cultureInfo Thread.CurrentThread.CurrentUICulture = Culture
CultureInfo.DefaultThreadCurrentCulture = cultureInfo ' The following line provides localization for data formats.
CultureInfo.DefaultThreadCurrentUICulture = cultureInfo Thread.CurrentThread.CurrentCulture = Culture
' Set this culture as the default culture for all threads in this application.
' Note: The following properties are supported in the .NET Framework 4.5+
CultureInfo.DefaultThreadCurrentCulture = Culture
CultureInfo.DefaultThreadCurrentUICulture = Culture
Culture.DateTimeFormat.ShortDatePattern = USER_DATE_FORMAT
End If End If
_DataASorDB = New ClassDataASorDB(modCurrent.LogConfig) _DataASorDB = New ClassDataASorDB(modCurrent.LogConfig)
End Sub End Sub
@ -34,6 +39,8 @@ Public Class frmMain
frmConfig_Basic.ShowDialog() frmConfig_Basic.ShowDialog()
End If End If
lblUser.Caption = USER_USERNAME lblUser.Caption = USER_USERNAME
If Database.DBInitialized = True Then If Database.DBInitialized = True Then
If ERROR_INIT <> "" Then If ERROR_INIT <> "" Then
If ERROR_INIT = "NO CLIENT" Then If ERROR_INIT = "NO CLIENT" Then
@ -216,6 +223,7 @@ Public Class frmMain
If CURRENT_CLIPBOARD_CONTENTS IsNot Nothing Then If CURRENT_CLIPBOARD_CONTENTS IsNot Nothing Then
If MONITORING_ACTIVE = True Then If MONITORING_ACTIVE = True Then
If CURRENT_MATCHING_PROFILES.Count = 0 Then If CURRENT_MATCHING_PROFILES.Count = 0 Then
Logger.Info("ReceiveHotKey - No profiles matched the Clipboard-Content!")
If NOMATCH_INFO = False Then If NOMATCH_INFO = False Then
NotifyIconMain.BalloonTipTitle = "Clipboard Watcher" NotifyIconMain.BalloonTipTitle = "Clipboard Watcher"
NotifyIconMain.BalloonTipText = "Es wurden keine passenden Profile gefunden." NotifyIconMain.BalloonTipText = "Es wurden keine passenden Profile gefunden."
@ -224,6 +232,7 @@ Public Class frmMain
End If End If
ElseIf CURRENT_PROFILES_WITH_RESULTS.Count = 0 Then ElseIf CURRENT_PROFILES_WITH_RESULTS.Count = 0 Then
Logger.Info("ReceiveHotKey - No documents or data found for Clipboard-Content!")
If NOMATCH_INFO = False Then If NOMATCH_INFO = False Then
NotifyIconMain.BalloonTipTitle = "Clipboard Watcher" NotifyIconMain.BalloonTipTitle = "Clipboard Watcher"
NotifyIconMain.BalloonTipText = "Es wurden weder Dokumente noch Daten gefunden!" NotifyIconMain.BalloonTipText = "Es wurden weder Dokumente noch Daten gefunden!"