Übersetzungen ergänzt

This commit is contained in:
2023-12-07 14:00:59 +01:00
parent 2d49e4704d
commit cd7af973a1
18 changed files with 1975 additions and 1414 deletions

View File

@@ -257,7 +257,7 @@ Partial Public Class frmEnvelopeEditor
Dim oMessage = Resources.Envelope.Do_you_want_to_delete_the_selected_recipient
If Controller.ElementsExist(oReceiver.Id) Then
oMessage = "Es gibt für diesen Empfänger bereits Elemente. Wollen Sie den Empfänger trotzdem löschen?"
oMessage = Resources.Envelope.There_are_already_elements_for_this_recipient
End If
If MsgBox(oMessage, MsgBoxStyle.Question Or MsgBoxStyle.YesNo, Text) = MsgBoxResult.No Then
@@ -399,7 +399,7 @@ Partial Public Class frmEnvelopeEditor
End Sub
Private Sub SetFormTitle(pTitle As String)
Dim oFormTitle As String = State.DbConfig.ExternalProgramName + " - Umschlag-Editor"
Dim oFormTitle As String = State.DbConfig.ExternalProgramName + " - " + Resources.Envelope.Envelope_Editor
If String.IsNullOrEmpty(pTitle) = False Then
oFormTitle += " - " + Controller.Envelope.Title.Truncate(30)
End If
@@ -432,9 +432,6 @@ Partial Public Class frmEnvelopeEditor
Dim oEmailAdress As String = DirectCast(e.Value, String)
Dim oLastName As String = Controller.GetLastNameByEmailAdress(oEmailAdress)
ViewReceivers.SetRowCellValue(e.RowHandle, ViewReceivers.Columns("Name"), oLastName)
'ViewReceivers.SetRowCellValue(e.RowHandle, ViewReceivers.Columns("Color"), Color.Red)
End If
End If
End Sub