fix language loading

app/DD_Clipboard_Searcher/ClassInit.vb

@@ -14,6 +14,10 @@ Public Class ClassInit
     Public _database As MSSQLServer
     Private _DataASorDB As ClassDataASorDB
 
+    Private Class S
+        Inherits My.Resources.frmMain_Strings
+    End Class
+
     Public Sub InitLogger()
         LogConfig = New LogConfig(LogConfig.PathType.AppData, Nothing, Nothing, Application.CompanyName, Application.ProductName)
         Logger = LogConfig.GetLogger()
@@ -222,6 +226,11 @@ Public Class ClassInit
                 USER_IS_ADMIN = NotNull(DT_CHECKUSER_MODULE.Rows(0).Item("IS_ADMIN"), False)
                 ADDITIONAL_TITLE = NotNull(DT_CHECKUSER_MODULE.Rows(0).Item("ADDITIONAL_TITLE"), "")
 
+                Logger.Debug("User Id: [{0}]", USER_ID)
+                Logger.Debug("User Email: [{0}]", USER_EMAIL)
+                Logger.Debug("User Language: [{0}]", USER_LANGUAGE)
+                Logger.Debug("User Dateformat: [{0}]", USER_DATE_FORMAT)
+
                 If ADDITIONAL_TITLE = String.Empty Then
                     ADDITIONAL_TITLE = My.Application.Info.ProductName
                 End If
@@ -437,7 +446,7 @@ Public Class ClassInit
             DT_USER_PROFILES = Database.GetDatatable(ProfileSQL)
 
             If DT_USER_PROFILES Is Nothing OrElse DT_USER_PROFILES.Rows.Count = 0 Then
-                Return "Es wurden noch keine Profile für den aktuellen Benutzer konfiguriert."
+                Return S.Es_wurden_noch_keine_Profile_für_den_aktuellen_Benutzer_konfiguriert_
             End If
 
             DTPROFILE_REL_PROCESS = Database.GetDatatable(oProcessSQL)
@@ -446,9 +455,9 @@ Public Class ClassInit
         Catch ex As Exception
             Logger.Error(ex)
             MsgBox("Unexpected Error in Refresh_Profile_Links: " & ex.Message, MsgBoxStyle.Critical)
-            Return "Fehler bei Aktualisierung!"
+            Return S.Fehler_bei_der_Aktualisierung_
         End Try
 
-        Return "Aktualisierung erfolgreich."
+        Return S.Aktualisierung_erfolgreich_
     End Function
 End Class