06-12-23

EnvelopeGenerator.Form/frmMain.vb

@@ -10,6 +10,7 @@ Imports EnvelopeGenerator.Common
 Imports EnvelopeGenerator.Common.My
 Imports DevExpress.Charts.Native
 Imports DevExpress.XtraGrid.Views.Grid
+Imports DevExpress.XtraGrid
 
 Public Class frmMain
     Private LogConfig As LogConfig
@@ -18,10 +19,8 @@ Public Class frmMain
     Private ConfigManager As ConfigManager(Of Config)
     Private TempFiles As TempFiles
     Private FormHelper As FormHelper
-
     Private GridBuilder As GridBuilder
-
-
+    Private RefreshHelper As RefreshHelper
 
     Private State As State
     Private Controller As EnvelopeListController
@@ -33,6 +32,7 @@ Public Class frmMain
         FormHelper = New FormHelper(LogConfig, Me)
         TempFiles = New TempFiles(LogConfig)
         TempFiles.Create()
+        RefreshHelper = New RefreshHelper(ViewEnvelopes, "Id")
 
         Try
             ConfigManager = New ConfigManager(Of Config)(LogConfig, Application.UserAppDataPath)
@@ -82,8 +82,10 @@ Public Class frmMain
     End Sub
 
     Private Sub LoadEnvelopeData()
+        RefreshHelper.SaveViewInfo()
         LoadEnvelopes()
         LoadCompletedEnvelopes()
+        RefreshHelper.LoadViewInfo()
 
         'LoadCharts()
         txtRefreshLabel.Caption = String.Format(txtRefreshLabel.Tag, Now)
@@ -242,15 +244,18 @@ Public Class frmMain
         End If
     End Sub
 
-    Private Sub GridEnvelopes_ViewRegistered(sender As Object, e As DevExpress.XtraGrid.ViewOperationEventArgs) Handles GridEnvelopes.ViewRegistered
-        If (e.View.IsDetailView = False) Then
-            Exit Sub
-        End If
-
-        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
+
+    Private Sub btnContactReceiver_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnContactReceiver.ItemClick
+        Dim oView As GridView = GridEnvelopes.FocusedView
+        If oView.Name = ViewReceivers.Name Then
+            Console.Write("")
+            Dim oReceiver As EnvelopeReceiver = oView.GetRow(oView.FocusedRowHandle)
+            Process.Start($"mailto:{oReceiver.Email}")
+        Else
+            MsgBox("Bitte wählen Sie einen Empfänger aus dem Reiter Empfänger aus.", MsgBoxStyle.Information, Text)
+        End If
+    End Sub
 End Class