06-12-23 HistoryView ergänzt

EnvelopeGenerator.Form/frmMain.vb

@@ -250,6 +250,40 @@ Public Class frmMain
         End If
     End Sub
 
+    Private Sub ViewCompleted_CustomDrawCell(sender As Object, e As Views.Base.RowCellCustomDrawEventArgs) Handles ViewCompleted.CustomDrawCell
+        If e.RowHandle < 0 Then
+            Exit Sub
+        End If
+
+        Dim oEnvelope As Envelope = ViewCompleted.GetRow(e.RowHandle)
+        If oEnvelope.Status = Common.Constants.EnvelopeStatus.EnvelopeCompletelySigned Then
+            e.Appearance.BackColor = ColorTranslator.FromHtml(Common.Constants.GREEN_300)
+        End If
+
+        If oEnvelope.Status = Common.Constants.EnvelopeStatus.EnvelopeDeleted Then
+            e.Appearance.BackColor = ColorTranslator.FromHtml(Common.Constants.RED_300)
+        End If
+    End Sub
+
+    Private Sub ViewReceiversCompleted_CustomDrawCell(sender As Object, e As Views.Base.RowCellCustomDrawEventArgs) Handles ViewReceiversCompleted.CustomDrawCell
+        If e.RowHandle < 0 Then
+            Exit Sub
+        End If
+
+        Dim oView As GridView = DirectCast(sender, GridView)
+        Dim oReceiver As EnvelopeReceiver = oView.GetRow(e.RowHandle)
+
+        If (oReceiver Is Nothing) Then
+            Exit Sub
+        End If
+
+        If oReceiver.Status = Common.Constants.ReceiverStatus.Signed Then
+            e.Appearance.BackColor = ColorTranslator.FromHtml(Common.Constants.GREEN_300)
+        Else
+            e.Appearance.BackColor = ColorTranslator.FromHtml(Common.Constants.RED_300)
+        End If
+    End Sub
+
     Private Sub RefreshTimer_Tick(sender As Object, e As EventArgs) Handles RefreshTimer.Tick
         If Application.OpenForms.OfType(Of frmEnvelopeEditor).Any = False Then
             LoadEnvelopeData()
@@ -286,4 +320,5 @@ Public Class frmMain
             Logger.Error(ex)
         End Try
     End Sub
+
 End Class