timer, zeilen farben, unfertige envelopes löschen

EnvelopeGenerator.Form/frmMain.vb

@@ -21,6 +21,8 @@ Public Class frmMain
 
     Private GridBuilder As GridBuilder
 
+
+
     Private State As State
     Private Controller As EnvelopeListController
 
@@ -84,6 +86,7 @@ Public Class frmMain
         LoadCompletedEnvelopes()
 
         'LoadCharts()
+        txtRefreshLabel.Caption = String.Format(txtRefreshLabel.Tag, Now)
     End Sub
 
 
@@ -212,41 +215,31 @@ Public Class frmMain
 
         Dim oEnvelope As Envelope = ViewEnvelopes.GetRow(e.RowHandle)
         If oEnvelope.Status = Common.Constants.EnvelopeStatus.EnvelopePartlySigned Then
-            e.Appearance.BackColor = Color.LightGreen
+            e.Appearance.BackColor = ColorTranslator.FromHtml(Common.Constants.GREEN_300)
         End If
 
         If oEnvelope.Status = Common.Constants.EnvelopeStatus.EnvelopeQueued Or oEnvelope.Status = Common.Constants.EnvelopeStatus.EnvelopeSent Then
-            e.Appearance.BackColor = Color.LightGoldenrodYellow
+            e.Appearance.BackColor = ColorTranslator.FromHtml(Common.Constants.ORANGE_300)
         End If
     End Sub
 
     Private Sub ViewReceivers_CustomDrawCell(sender As Object, e As DevExpress.XtraGrid.Views.Base.RowCellCustomDrawEventArgs) Handles ViewReceivers.CustomDrawCell
-        'If e.RowHandle < 0 Then
-        '    Exit Sub
-        'End If
+        If e.RowHandle < 0 Then
+            Exit Sub
+        End If
 
-        'Dim oDetailView As GridView = ViewEnvelopes.GetDetailView(ViewEnvelopes.FocusedRowHandle, 0)
-        'Dim oRow = oDetailView.GetDataRow(e.RowHandle)
+        Dim oView As GridView = DirectCast(sender, GridView)
+        Dim oReceiver As EnvelopeReceiver = oView.GetRow(e.RowHandle)
 
+        If (oReceiver Is Nothing) Then
+            Exit Sub
+        End If
 
-        'Dim oReceiver As EnvelopeReceiver = ViewReceivers.GetRow(e.RowHandle)
-
-        'If e.Column.FieldName = "Status" Then
-
-        '    e.Appearance.BackColor = Color.LightSalmon
-        'End If
-
-        'Dim oReceiver As EnvelopeReceiver = ViewReceivers.GetRow(e.RowHandle)
-
-        'If (oReceiver Is Nothing) Then
-        '    Exit Sub
-        'End If
-
-        'If oReceiver.Status = Common.Constants.ReceiverStatus.Signed Then
-        '    e.Appearance.BackColor = Color.LightGreen
-        'Else
-        '    e.Appearance.BackColor = Color.LightSalmon
-        '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 GridEnvelopes_ViewRegistered(sender As Object, e As DevExpress.XtraGrid.ViewOperationEventArgs) Handles GridEnvelopes.ViewRegistered
@@ -256,4 +249,8 @@ Public Class frmMain
 
         AddHandler DirectCast(e.View, GridView).CustomDrawCell, AddressOf ViewReceivers_CustomDrawCell
     End Sub
+
+    Private Sub RefreshTimer_Tick(sender As Object, e As EventArgs) Handles RefreshTimer.Tick
+        LoadEnvelopeData()
+    End Sub
 End Class