02.08.2023

EnvelopeGenerator.Form/frmEnvelopeEditor.vb

@@ -117,4 +117,19 @@ Partial Public Class frmEnvelopeEditor
     Private Sub RibbonControl1_Click(sender As Object, e As EventArgs) Handles RibbonControl1.Click
 
     End Sub
+
+    Private Sub btnDeleteReceiver_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnDeleteReceiver.ItemClick
+        If ViewReceivers.SelectedRowsCount = 0 Then
+            Exit Sub
+        End If
+
+        ' TODO: Delete receivers for ALL documents
+
+        Dim oMessage2 = "Es gibt für diesen Empfänger bereits Elemente. Wollen Sie den Empfänger trotzdem löschen?"
+        Dim oMessage = "Wollen Sie den ausgewählten Empfänger löschen?"
+        If MsgBox(oMessage, MsgBoxStyle.Question Or MsgBoxStyle.YesNo, Text) = MsgBoxResult.No Then
+            Exit Sub
+        End If
+
+    End Sub
 End Class