diff --git a/app/DD_Clipboard_Searcher/ApplicationEvents.vb b/app/DD_Clipboard_Searcher/ApplicationEvents.vb
new file mode 100644
index 0000000..bc254e2
--- /dev/null
+++ b/app/DD_Clipboard_Searcher/ApplicationEvents.vb
@@ -0,0 +1,10 @@
+Namespace My
+ ' Für MyApplication sind folgende Ereignisse verfügbar:
+ ' Startup: Wird beim Starten der Anwendung noch vor dem Erstellen des Startformulars ausgelöst.
+ ' Shutdown: Wird nach dem Schließen aller Anwendungsformulare ausgelöst. Dieses Ereignis wird nicht ausgelöst, wenn die Anwendung mit einem Fehler beendet wird.
+ ' UnhandledException: Wird bei einem Ausnahmefehler ausgelöst.
+ ' StartupNextInstance: Wird beim Starten einer Einzelinstanzanwendung ausgelöst, wenn die Anwendung bereits aktiv ist.
+ ' NetworkAvailabilityChanged: Wird beim Herstellen oder Trennen der Netzwerkverbindung ausgelöst.
+ Partial Friend Class MyApplication
+ End Class
+End Namespace
diff --git a/app/DD_Clipboard_Searcher/ClassInit.vb b/app/DD_Clipboard_Searcher/ClassInit.vb
index 96b727f..f637fdc 100644
--- a/app/DD_Clipboard_Searcher/ClassInit.vb
+++ b/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
diff --git a/app/DD_Clipboard_Searcher/DD_Clipboard_Watcher.vbproj b/app/DD_Clipboard_Searcher/DD_Clipboard_Watcher.vbproj
index 4c7ae24..d07ea4d 100644
--- a/app/DD_Clipboard_Searcher/DD_Clipboard_Watcher.vbproj
+++ b/app/DD_Clipboard_Searcher/DD_Clipboard_Watcher.vbproj
@@ -12,7 +12,7 @@
512
WindowsForms
v4.6.1
- true
+ false
publish\
true
@@ -180,6 +180,7 @@
+
diff --git a/app/DD_Clipboard_Searcher/Strings/frmMain_Strings.Designer.vb b/app/DD_Clipboard_Searcher/Strings/frmMain_Strings.Designer.vb
index 9aa4c01..afc6303 100644
--- a/app/DD_Clipboard_Searcher/Strings/frmMain_Strings.Designer.vb
+++ b/app/DD_Clipboard_Searcher/Strings/frmMain_Strings.Designer.vb
@@ -73,6 +73,15 @@ Namespace My.Resources
End Get
End Property
+ '''
+ ''' Sucht eine lokalisierte Zeichenfolge, die Aktualisierung erfolgreich. ähnelt.
+ '''
+ Friend Shared ReadOnly Property Aktualisierung_erfolgreich_() As String
+ Get
+ Return ResourceManager.GetString("Aktualisierung erfolgreich.", resourceCulture)
+ End Get
+ End Property
+
'''
''' Sucht eine lokalisierte Zeichenfolge, die Clipboard-Watcher starten ähnelt.
'''
@@ -137,6 +146,15 @@ Namespace My.Resources
End Get
End Property
+ '''
+ ''' Sucht eine lokalisierte Zeichenfolge, die Es wurden noch keine Profile für den aktuellen Benutzer konfiguriert. ähnelt.
+ '''
+ Friend Shared ReadOnly Property Es_wurden_noch_keine_Profile_für_den_aktuellen_Benutzer_konfiguriert_() As String
+ Get
+ Return ResourceManager.GetString("Es wurden noch keine Profile für den aktuellen Benutzer konfiguriert.", resourceCulture)
+ End Get
+ End Property
+
'''
''' Sucht eine lokalisierte Zeichenfolge, die Es wurden weder Dokumente noch Daten gefunden für die Suche nach '{0}'! ähnelt.
'''
@@ -146,6 +164,15 @@ Namespace My.Resources
End Get
End Property
+ '''
+ ''' Sucht eine lokalisierte Zeichenfolge, die Fehler bei der Aktualisierung. ähnelt.
+ '''
+ Friend Shared ReadOnly Property Fehler_bei_der_Aktualisierung_() As String
+ Get
+ Return ResourceManager.GetString("Fehler bei der Aktualisierung.", resourceCulture)
+ End Get
+ End Property
+
'''
''' Sucht eine lokalisierte Zeichenfolge, die Fehler beim Auswerten der Profile. Mehr Informationen im Log. ähnelt.
'''
diff --git a/app/DD_Clipboard_Searcher/Strings/frmMain_Strings.en.resx b/app/DD_Clipboard_Searcher/Strings/frmMain_Strings.en.resx
index 7427a15..d6cce06 100644
--- a/app/DD_Clipboard_Searcher/Strings/frmMain_Strings.en.resx
+++ b/app/DD_Clipboard_Searcher/Strings/frmMain_Strings.en.resx
@@ -120,6 +120,9 @@
Refreshed: {0}
+
+ Refresh successful.
+
Start Clipboard-Watcher
@@ -141,9 +144,15 @@
No matching profiles could be found for the search term '{0}'!
+
+ No profiles are configured for this user yet.
+
No matching documents or records could be found for the search term '{0}'!
+
+ Error while refreshing!
+
Error while evaluating the profiles. Check the log for more information.
diff --git a/app/DD_Clipboard_Searcher/Strings/frmMain_Strings.fr.resx b/app/DD_Clipboard_Searcher/Strings/frmMain_Strings.fr.resx
index 365699e..96acc32 100644
--- a/app/DD_Clipboard_Searcher/Strings/frmMain_Strings.fr.resx
+++ b/app/DD_Clipboard_Searcher/Strings/frmMain_Strings.fr.resx
@@ -120,6 +120,9 @@
Rafraîchis: {0}
+
+ Mise à jour réussie.
+
Démarrer Clipboard-Watcher
@@ -141,9 +144,15 @@
Aucun profil correspondant n'a pu être trouvé pour le terme de recherche '{0}' !
+
+ Aucun profil n'a encore été configuré pour l'utilisateur actuel.
+
Aucun document ou enregistrement correspondant n'a pu être trouvé pour le terme de recherche '{0}' !
+
+ Erreur lors de la mise à jour.
+
Erreur lors de l'évaluation des profils. Vérifiez le journal pour plus d'informations.
diff --git a/app/DD_Clipboard_Searcher/Strings/frmMain_Strings.resx b/app/DD_Clipboard_Searcher/Strings/frmMain_Strings.resx
index c4c9bf2..39d4bc2 100644
--- a/app/DD_Clipboard_Searcher/Strings/frmMain_Strings.resx
+++ b/app/DD_Clipboard_Searcher/Strings/frmMain_Strings.resx
@@ -120,6 +120,9 @@
Aktualisiert: {0}
+
+ Aktualisierung erfolgreich.
+
Clipboard-Watcher starten
@@ -141,9 +144,15 @@
Es wurden keine passenden Profile gefunden für die Suche nach '{0}'!
+
+ Es wurden noch keine Profile für den aktuellen Benutzer konfiguriert.
+
Es wurden weder Dokumente noch Daten gefunden für die Suche nach '{0}'!
+
+ Fehler bei der Aktualisierung.
+
Fehler beim Auswerten der Profile. Mehr Informationen im Log.
diff --git a/app/DD_Clipboard_Searcher/frmMain.Designer.vb b/app/DD_Clipboard_Searcher/frmMain.Designer.vb
index d2021da..0c1f927 100644
--- a/app/DD_Clipboard_Searcher/frmMain.Designer.vb
+++ b/app/DD_Clipboard_Searcher/frmMain.Designer.vb
@@ -82,6 +82,7 @@ Partial Class frmMain
Me.lblUser.Id = 1
Me.lblUser.ImageOptions.SvgImage = CType(resources.GetObject("lblUser.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.lblUser.Name = "lblUser"
+ Me.lblUser.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph
'
'lblVersion
'
diff --git a/app/DD_Clipboard_Searcher/frmMain.resx b/app/DD_Clipboard_Searcher/frmMain.resx
index f40c062..f2c84b0 100644
--- a/app/DD_Clipboard_Searcher/frmMain.resx
+++ b/app/DD_Clipboard_Searcher/frmMain.resx
@@ -5111,7 +5111,7 @@
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAABU
- CwAAAk1TRnQBSQFMAgEBBQEAATwBAQE8AQEBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
+ CwAAAk1TRnQBSQFMAgEBBQEAAUQBAQFEAQEBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
AwABQAMAASADAAEBAQABCAYAAQgYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA
@@ -5171,6 +5171,9 @@
Segoe UI, 9.75pt
+
+ fr
+
True
diff --git a/app/DD_Clipboard_Searcher/frmMain.vb b/app/DD_Clipboard_Searcher/frmMain.vb
index a608e98..6e0342e 100644
--- a/app/DD_Clipboard_Searcher/frmMain.vb
+++ b/app/DD_Clipboard_Searcher/frmMain.vb
@@ -26,13 +26,36 @@ Public Class frmMain
Public Sub New()
- ' Dieser Aufruf ist für den Designer erforderlich.
- InitializeComponent()
-
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
Dim splash As New frmSplash()
splash.ShowDialog()
+ Try
+ If USER_LANGUAGE <> "" Then
+ Dim cultureInfo As New System.Globalization.CultureInfo(USER_LANGUAGE)
+ cultureInfo.DateTimeFormat.ShortDatePattern = USER_DATE_FORMAT
+ Thread.CurrentThread.CurrentCulture = cultureInfo
+ Thread.CurrentThread.CurrentUICulture = cultureInfo
+ CultureInfo.DefaultThreadCurrentCulture = cultureInfo
+ CultureInfo.DefaultThreadCurrentUICulture = cultureInfo
+ End If
+ Catch ex As Exception
+ Logger.Error(ex)
+ End Try
+
+ ' Dieser Aufruf ist für den Designer erforderlich.
+ InitializeComponent()
+
+ _DataASorDB = New ClassDataASorDB(modCurrent.LogConfig)
+ End Sub
+
+ Private Sub frmMain_Load(sender As Object, e As EventArgs) Handles Me.Load
+ ClassWindowLocation.LoadFormLocationSize(Me)
+ If ERROR_INIT = "FAILED DBCONNECTION" Or ERROR_INIT = "DATABASE" Then
+ frmConfig_Basic.ShowDialog()
+ End If
+ lblUser.Caption = USER_USERNAME
+
If ERROR_INIT <> "INVALID USER" Then
'Dim Culture = CultureInfo.CreateSpecificCulture(USER_LANGUAGE)
@@ -52,16 +75,6 @@ Public Class frmMain
End If
- _DataASorDB = New ClassDataASorDB(modCurrent.LogConfig)
- End Sub
-
- Private Sub frmMain_Load(sender As Object, e As EventArgs) Handles Me.Load
- ClassWindowLocation.LoadFormLocationSize(Me)
- If ERROR_INIT = "FAILED DBCONNECTION" Or ERROR_INIT = "DATABASE" Then
- frmConfig_Basic.ShowDialog()
- End If
- lblUser.Caption = USER_USERNAME
-
If Database.DBInitialized = True Then
If ERROR_INIT <> "" Then
If ERROR_INIT = "NO CLIENT" Then
@@ -122,8 +135,8 @@ Public Class frmMain
RefreshUI()
- Dim resources = New System.ComponentModel.ComponentResourceManager(Me.[GetType]())
- GetChildren(Me).ToList().ForEach(Sub(c) resources.ApplyResources(c, c.Name))
+ 'Dim resources = New System.ComponentModel.ComponentResourceManager(Me.[GetType]())
+ 'GetChildren(Me).ToList().ForEach(Sub(c) resources.ApplyResources(c, c.Name))
End Sub
Private Function GetChildren(pControl As Control) As IEnumerable(Of Control)