06-12-23 Abfrage wenn Dokument gelöscht wird

EnvelopeGenerator.Form/frmEnvelopeEditor.vb

@@ -88,20 +88,14 @@ Partial Public Class frmEnvelopeEditor
         SetFormTitle(Controller.Envelope.Title)
     End Sub
 
-    Private Sub SetFormReadonly()
-        RibbonPageGroup1.Enabled = False
-        RibbonPageGroup2.Enabled = False
-        RibbonPageGroup3.Enabled = False
-        RibbonPageGroupReceiver.Enabled = False
-        btnEditFields.Enabled = False
-        txtSubject.Properties.ReadOnly = True
-        txtMessage.Properties.ReadOnly = True
-        ViewReceivers.OptionsBehavior.ReadOnly = True
-        ViewDocuments.OptionsBehavior.ReadOnly = True
-    End Sub
-
     Private Sub btnDeleteFile_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnDeleteFile.ItemClick
         If ViewDocuments.GetSelectedRows().Count > 0 Then
+
+            Dim oMessage = Resources.Envelope.Do_you_really_want_to_remove_this_document
+            If MsgBox(oMessage, MsgBoxStyle.Question Or MsgBoxStyle.YesNo, Text) = MsgBoxResult.No Then
+                Exit Sub
+            End If
+
             Dim oDocument As EnvelopeDocument = DirectCast(ViewDocuments.GetFocusedRow(), EnvelopeDocument)
             If Controller.DeleteDocument(oDocument) Then
                 Documents.Remove(oDocument)
@@ -363,6 +357,7 @@ Partial Public Class frmEnvelopeEditor
     Private Sub frmEnvelopeEditor_Shown(sender As Object, e As EventArgs) Handles Me.Shown
         RibbonPageGroupAddSignature_Enabled()
         RibbonPageGroupReceiver_Enable()
+        SendEnvelopeButton_Enable()
     End Sub
     Private Sub RibbonPageGroupAddSignature_Enabled()
         If ViewDocuments.GetSelectedRows().Count = 0 Then
@@ -381,13 +376,24 @@ Partial Public Class frmEnvelopeEditor
     End Sub
 
     Private Sub DocumentButtons_Enable()
-        If ViewDocuments.SelectedRowsCount = 0 Then
+        If ViewDocuments.RowCount = 0 Then
             btnNewFile.Enabled = True
             btnDeleteFile.Enabled = False
         Else
             btnNewFile.Enabled = False
             btnDeleteFile.Enabled = True
         End If
+
+        RibbonPageGroupAddSignature_Enabled()
+    End Sub
+
+    Private Sub SendEnvelopeButton_Enable()
+        If ViewDocuments.RowCount > 0 And
+            ViewReceivers.SelectedRowsCount > 0 Then
+            btnSendEnvelope.Enabled = True
+        Else
+            btnSendEnvelope.Enabled = False
+        End If
     End Sub
 
     Private Sub SetFormTitle(pTitle As String)
@@ -407,10 +413,12 @@ Partial Public Class frmEnvelopeEditor
 
     Private Sub ViewReceivers_RowCountChanged(sender As Object, e As EventArgs) Handles ViewReceivers.RowCountChanged
         RibbonPageGroupReceiver_Enable()
+        SendEnvelopeButton_Enable()
     End Sub
 
     Private Sub ViewDocuments_RowCountChanged(sender As Object, e As EventArgs) Handles ViewDocuments.RowCountChanged
         DocumentButtons_Enable()
+        SendEnvelopeButton_Enable()
     End Sub
 
 End Class