complete french translations
This commit is contained in:
Jonathan Jenne
@@ -20,6 +20,10 @@ Public Class frmMain
|
||||
Private _MatchForm As frmMatch = Nothing
|
||||
Private _DataASorDB As ClassDataASorDB
|
||||
|
||||
Private Class S
|
||||
Inherits My.Resources.frmMain_Strings
|
||||
End Class
|
||||
|
||||
Public Sub New()
|
||||
|
||||
' Dieser Aufruf ist für den Designer erforderlich.
|
||||
@@ -56,9 +60,11 @@ Public Class frmMain
|
||||
If Database.DBInitialized = True Then
|
||||
If ERROR_INIT <> "" Then
|
||||
If ERROR_INIT = "NO CLIENT" Then
|
||||
MsgBox("You are not related to a client!" & vbNewLine & "Please contact the system administrator!", MsgBoxStyle.Exclamation)
|
||||
|
||||
MsgBox(String.Format(S.Sie_sind_keinem_Mandanten_zugewiesen__0_Bitte_wenden_Sie_sich_an__Ihren_Administrator_, vbNewLine), MsgBoxStyle.Exclamation)
|
||||
Else
|
||||
MsgBox("Sorry Something went wrong in user configuration!" & vbNewLine & "Reason: " & ERROR_INIT & vbNewLine & "Please contact the system administrator!", MsgBoxStyle.Exclamation)
|
||||
MsgBox(String.Format(S.Die_Benutzerkonfiguration_konnte_nicht_erfolgreich_durchgeführt_werden__0_Grund___1__2_Bitte_kontaktieren_sie_Ihren_Administrator_, vbNewLine, ERROR_INIT, vbNewLine), MsgBoxStyle.Exclamation)
|
||||
'MsgBox("Sorry Something went wrong in user configuration!" & vbNewLine & "Reason: " & ERROR_INIT & vbNewLine & "Please contact the system administrator!", MsgBoxStyle.Exclamation)
|
||||
End If
|
||||
Exit Sub
|
||||
End If
|
||||
@@ -194,7 +200,8 @@ Public Class frmMain
|
||||
)
|
||||
Catch ex As Exception
|
||||
Logger.Error(ex)
|
||||
MsgBox("Fehler beim Laden der Profile. Möglicherweise liegt ein Konfigurationsfehler vor. Mehr Informationen im Log.", MsgBoxStyle.Critical, Text)
|
||||
MsgBox(S.Fehler_beim_Laden_der_Profile_, MsgBoxStyle.Critical, Text)
|
||||
'MsgBox("Fehler beim Laden der Profile. Möglicherweise liegt ein Konfigurationsfehler vor. Mehr Informationen im Log.", MsgBoxStyle.Critical, Text)
|
||||
Exit Sub
|
||||
End Try
|
||||
|
||||
@@ -225,7 +232,8 @@ Public Class frmMain
|
||||
CURRENT_PROFILES_WITH_RESULTS = oProfiles.ToList()
|
||||
CURRENT_CLIPBOARD_CONTENTS = ClipboardContents
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler beim Auswerten der Profile. Mehr Informationen im Log.", MsgBoxStyle.Critical, Text)
|
||||
MsgBox(S.Fehler_beim_Auswerten_der_Profile__Mehr_Informationen_im_Log_, MsgBoxStyle.Critical, Text)
|
||||
'MsgBox("Fehler beim Auswerten der Profile. Mehr Informationen im Log.", MsgBoxStyle.Critical, Text)
|
||||
Logger.Error(ex)
|
||||
End Try
|
||||
End Sub
|
||||
@@ -243,13 +251,9 @@ Public Class frmMain
|
||||
Dim oMessageTitle As String
|
||||
Dim oMessageText As String
|
||||
|
||||
If USER_LANGUAGE <> LANGUAGE_GERMAN Then
|
||||
oMessageTitle = "Search Flow"
|
||||
oMessageText = $"No matching profile were found for the term '{CURRENT_CLIPBOARD_CONTENTS}'!"
|
||||
Else
|
||||
oMessageTitle = "Search Flow"
|
||||
oMessageText = $"Es wurden keine passenden Profile gefunden für die Suche nach '{CURRENT_CLIPBOARD_CONTENTS}'!"
|
||||
End If
|
||||
oMessageTitle = "Search Flow"
|
||||
oMessageText = String.Format(S.Es_wurden_keine_passenden_Profile_gefunden_für_die_Suche_nach___0___, CURRENT_CLIPBOARD_CONTENTS)
|
||||
|
||||
|
||||
If NOTIFY_MODE.ToUpper = "MSGBOX" Then
|
||||
MsgBox(oMessageText, MsgBoxStyle.Exclamation, oMessageTitle)
|
||||
@@ -273,13 +277,8 @@ Public Class frmMain
|
||||
Dim oMessageTitle As String
|
||||
Dim oMessageText As String
|
||||
|
||||
If USER_LANGUAGE <> LANGUAGE_GERMAN Then
|
||||
oMessageTitle = "Search Flow"
|
||||
oMessageText = $"No documents or records were found for the term '{CURRENT_CLIPBOARD_CONTENTS}'!"
|
||||
Else
|
||||
oMessageTitle = "Search Flow"
|
||||
oMessageText = $"Es wurden weder Dokumente noch Daten gefunden für die Suche nach '{CURRENT_CLIPBOARD_CONTENTS}'!"
|
||||
End If
|
||||
oMessageTitle = "Search Flow"
|
||||
oMessageText = String.Format(S.Es_wurden_weder_Dokumente_noch_Daten_gefunden_für_die_Suche_nach___0___, CURRENT_CLIPBOARD_CONTENTS)
|
||||
|
||||
If NOTIFY_MODE.ToUpper = "MSGBOX" Then
|
||||
MsgBox(oMessageText, MsgBoxStyle.Exclamation, oMessageTitle)
|
||||
@@ -359,10 +358,10 @@ Public Class frmMain
|
||||
Sub Change_Monitoring_State()
|
||||
If MONITORING_ACTIVE = True Then
|
||||
MONITORING_ACTIVE = False
|
||||
NotifyIconMain.ShowBalloonTip(30000, "Search Flow", "Clipboard-Watcher wurde deaktiviert!", ToolTipIcon.Info)
|
||||
NotifyIconMain.ShowBalloonTip(30000, "Search Flow", S.Clipboard_Watcher_wurde_deaktiviert_, ToolTipIcon.Info)
|
||||
Else
|
||||
MONITORING_ACTIVE = True
|
||||
NotifyIconMain.ShowBalloonTip(30000, "Search Flow", "Clipboard-Watcher wurde wieder aktiviert!", ToolTipIcon.Info)
|
||||
NotifyIconMain.ShowBalloonTip(30000, "Search Flow", S.Clipboard_Watcher_wurde_wieder_aktiviert_, ToolTipIcon.Info)
|
||||
End If
|
||||
End Sub
|
||||
Private Sub frmMain_Shown(sender As Object, e As EventArgs) Handles Me.Shown
|
||||
@@ -420,7 +419,7 @@ Public Class frmMain
|
||||
Shut_Down()
|
||||
End Sub
|
||||
Sub Shut_Down()
|
||||
If MsgBox("Wollen Sie Clipboard-Watcher wirklich beenden?", MsgBoxStyle.Question Or MsgBoxStyle.YesNo, Text) = MsgBoxResult.Yes Then
|
||||
If MsgBox(S.Wollen_Sie_Clipboard_Watcher_wirklich_beenden_, MsgBoxStyle.Question Or MsgBoxStyle.YesNo, Text) = MsgBoxResult.Yes Then
|
||||
Close()
|
||||
End If
|
||||
End Sub
|
||||
@@ -434,8 +433,14 @@ Public Class frmMain
|
||||
_DataASorDB.CheckModuleData()
|
||||
'ClassInit.CheckModuleData()
|
||||
labelStatus.Text = oResultText
|
||||
labelRefresh.Text = $"Aktualisiert: {Now.ToShortTimeString}"
|
||||
lblRefresh.Caption = $"Eingeloggte Benutzer: {USERCOUNT_LOGGED_IN}"
|
||||
|
||||
|
||||
labelRefresh.Text = String.Format(S.Aktualisiert___0_, Now.ToShortTimeString)
|
||||
'labelRefresh.Text = $"Aktualisiert: {Now.ToShortTimeString}"
|
||||
|
||||
lblRefresh.Caption = String.Format(S.Eingeloggte_Benutzer___0_, USERCOUNT_LOGGED_IN)
|
||||
'lblRefresh.Caption = $"Eingeloggte Benutzer: {USERCOUNT_LOGGED_IN}"
|
||||
|
||||
lblVersion.Caption = My.Application.Info.Version.ToString
|
||||
lblUser.Caption = String.Format(lblUser.Caption, USER_USERNAME)
|
||||
labelHotkey.Text = String.Format(labelHotkey.Text, $"{HotkeyFunctionKey.ToUpper}+{HotkeySearchKey.ToUpper}")
|
||||
@@ -451,15 +456,15 @@ Public Class frmMain
|
||||
If tsmiChangeState.Tag = "stop" Then
|
||||
tsmiChangeState.Tag = "start"
|
||||
tsmiChangeState.Image = My.Resources.control_start_blue
|
||||
tsmiChangeState.Text = "Search Flow starten"
|
||||
tsmiChangeState.Text = S.Clipboard_Watcher_starten
|
||||
MONITORING_ACTIVE = False
|
||||
NotifyIconMain.ShowBalloonTip(30000, "Search Flow", "Clipboard-Watcher wurde deaktiviert!", ToolTipIcon.Info)
|
||||
NotifyIconMain.ShowBalloonTip(30000, "Search Flow", S.Clipboard_Watcher_wurde_deaktiviert_, ToolTipIcon.Info)
|
||||
Else
|
||||
tsmiChangeState.Image = My.Resources.StatusAnnotations_Stop_16xLG
|
||||
tsmiChangeState.Tag = "stop"
|
||||
tsmiChangeState.Text = "Search Flow stoppen"
|
||||
tsmiChangeState.Text = S.Clipboard_Watcher_stoppen
|
||||
MONITORING_ACTIVE = True
|
||||
NotifyIconMain.ShowBalloonTip(30000, "Search Flow", "Clipboard-Watcher wurde wieder aktiviert!", ToolTipIcon.Info)
|
||||
NotifyIconMain.ShowBalloonTip(30000, "Search Flow", S.Clipboard_Watcher_wurde_wieder_aktiviert_, ToolTipIcon.Info)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
Reference in New Issue
Block a user