MS Diverses Customizing

app/DD-Record-Organizer/frmFileRename.vb

@@ -2,6 +2,7 @@
 
 Public Class frmFileRename
     Private ReadOnly oRenameType As String
+    Private OldDisplayName As String
 
     Public Sub New(DocID As Integer, oldName As String, pRenameType As String)
 
@@ -17,15 +18,26 @@ Public Class frmFileRename
 
     Private Sub SimpleButton1_Click(sender As Object, e As EventArgs) Handles SimpleButton1.Click
         Dim result As MsgBoxResult
-        Dim oMSG = "Wollen Sie die Datei wirklich umbenennen?"
+        Dim oFilePattern As String
+        If oRenameType = "Displayname" Then
+            oFilePattern = "den Displaynamen"
+            If USER_LANGUAGE <> "de-DE" Then
+                oFilePattern = "the displayname"
+            End If
+        Else
+            oFilePattern = "die Datei"
+            If USER_LANGUAGE <> "de-DE" Then
+                oFilePattern = "the file"
+            End If
+        End If
+        Dim oMSG = "Wollen Sie " + oFilePattern + " wirklich umbenennen?"
         If USER_LANGUAGE <> "de-DE" Then
-            oMSG = "Do You really want to rename the file?"
+            oMSG = $"Do You really want to rename {oFilePattern} ?"
         End If
         result = MessageBox.Show(oMSG, CAPTION_CONFIRMATION, MessageBoxButtons.YesNo, MessageBoxIcon.Question)
         If result = MsgBoxResult.Yes Then
             If oRenameType = "Displayname" Then
                 Try
-                    ClassFileResult.DocID = ClassWindreamDocGrid.SELECTED_DOC_ID
                     If txtNewName.Text <> "" Then
                         If ClassFileResult.Set_Displayname(txtNewName.Text) Then
                             Me.Close()