From 525ea7e2210ed5b1b4c724fdb27cf91d0d70059d Mon Sep 17 00:00:00 2001
From: Digital Data - Marlon Schreiber <m.schreiber@digitaldata.works>
Date: Wed, 30 Dec 2020 14:11:48 +0100
Subject: [PATCH] MS

---
 app/DD_Clipboard_Searcher/ClassInit.vb |  2 +-
 app/DD_Clipboard_Searcher/frmMain.vb   | 19 ++++++++++++++-----
 2 files changed, 15 insertions(+), 6 deletions(-)

diff --git a/app/DD_Clipboard_Searcher/ClassInit.vb b/app/DD_Clipboard_Searcher/ClassInit.vb
index 25c139b..b417899 100644
--- a/app/DD_Clipboard_Searcher/ClassInit.vb
+++ b/app/DD_Clipboard_Searcher/ClassInit.vb
@@ -134,7 +134,7 @@ Public Class ClassInit
 
         If ConfigManager.Config.AppServerConfig <> String.Empty Then
             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 oAppServerPort As Integer = 9000
                 If oSplit.Length = 2 Then
diff --git a/app/DD_Clipboard_Searcher/frmMain.vb b/app/DD_Clipboard_Searcher/frmMain.vb
index e1a280d..080ad7a 100644
--- a/app/DD_Clipboard_Searcher/frmMain.vb
+++ b/app/DD_Clipboard_Searcher/frmMain.vb
@@ -19,11 +19,16 @@ Public Class frmMain
         Dim splash As New frmSplash()
         splash.ShowDialog()
         If ERROR_INIT <> "INVALID USER" Then
-            Dim cultureInfo As New CultureInfo(USER_LANGUAGE)
-            Thread.CurrentThread.CurrentCulture = cultureInfo
-            Thread.CurrentThread.CurrentUICulture = cultureInfo
-            CultureInfo.DefaultThreadCurrentCulture = cultureInfo
-            CultureInfo.DefaultThreadCurrentUICulture = cultureInfo
+            Dim Culture = CultureInfo.CreateSpecificCulture(USER_LANGUAGE)
+            ' The following line provides localization for the application's user interface.
+            Thread.CurrentThread.CurrentUICulture = Culture
+            ' The following line provides localization for data formats.
+            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
         _DataASorDB = New ClassDataASorDB(modCurrent.LogConfig)
     End Sub
@@ -34,6 +39,8 @@ Public Class frmMain
             frmConfig_Basic.ShowDialog()
         End If
         lblUser.Caption = USER_USERNAME
+
+
         If Database.DBInitialized = True Then
             If ERROR_INIT <> "" Then
                 If ERROR_INIT = "NO CLIENT" Then
@@ -216,6 +223,7 @@ Public Class frmMain
             If CURRENT_CLIPBOARD_CONTENTS IsNot Nothing Then
                 If MONITORING_ACTIVE = True Then
                     If CURRENT_MATCHING_PROFILES.Count = 0 Then
+                        Logger.Info("ReceiveHotKey - No profiles matched the Clipboard-Content!")
                         If NOMATCH_INFO = False Then
                             NotifyIconMain.BalloonTipTitle = "Clipboard Watcher"
                             NotifyIconMain.BalloonTipText = "Es wurden keine passenden Profile gefunden."
@@ -224,6 +232,7 @@ Public Class frmMain
                         End If
 
                     ElseIf CURRENT_PROFILES_WITH_RESULTS.Count = 0 Then
+                        Logger.Info("ReceiveHotKey - No documents or data found for Clipboard-Content!")
                         If NOMATCH_INFO = False Then
                             NotifyIconMain.BalloonTipTitle = "Clipboard Watcher"
                             NotifyIconMain.BalloonTipText = "Es wurden weder Dokumente noch Daten gefunden!"