08-12-2023

EnvelopeGenerator.Form/frmFieldEditor.vb

@@ -25,7 +25,7 @@ Partial Public Class frmFieldEditor
 
     Private UnsavedChanges As Boolean = False
 
-    Private Const SIGNATURE_LABEL = "Signatur"
+    Private SIGNATURE_LABEL As String
     Private Const SIGNATURE_WIDTH As Single = 1
     Private Const SIGNATURE_HEIGHT As Single = 0.5
 
@@ -39,6 +39,7 @@ Partial Public Class frmFieldEditor
 
     Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
         Text = $"{State.DbConfig.ExternalProgramName} - {Resources.Envelope.Signature_Editor}"
+        SIGNATURE_LABEL = Resources.Envelope.Signature
 
         If Document Is Nothing Then
             Throw New ArgumentNullException("Document")
@@ -251,7 +252,7 @@ Partial Public Class frmFieldEditor
             Exit Sub
         End If
 
-        If MsgBox("Wollen Sie die Signatur löschen?", MsgBoxStyle.YesNo Or MsgBoxStyle.Question, Text) = DialogResult.Yes Then
+        If MsgBox(Resources.Envelope.Do_you_want_to_delete_the_signature, MsgBoxStyle.YesNo Or MsgBoxStyle.Question, Text) = DialogResult.Yes Then
             Dim oAnnotation = GDViewer.GetAnnotationFromIdx(oSelected)
             Dim oElement = Controller.GetElement(oAnnotation)
 
@@ -410,7 +411,7 @@ Partial Public Class frmFieldEditor
 
     Private Sub frmFieldEditor_FormClosing(sender As Object, e As FormClosingEventArgs) Handles MyBase.FormClosing
         If UnsavedChanges Then
-            Dim oResult = MsgBox("Es sind ungespeicherte Änderungen vorhanden. Wollen Sie diese Speichern?", MsgBoxStyle.Question Or MsgBoxStyle.YesNoCancel, Text)
+            Dim oResult = MsgBox(Resources.Envelope.There_are_unsaved_changes, MsgBoxStyle.Question Or MsgBoxStyle.YesNoCancel, Text)
 
             Select Case oResult
                 Case MsgBoxResult.Cancel