Changeset 1280

Timestamp:

1/31/2010 6:14:32 AM (7 weeks ago)

Author:

vessper

Message:

31/01/2010 (1.14.0.1280)

---

- Core: Created events for remote evemail download

Location:

trunk/EveHQ/Forms

Files:

• frmEveHQ.vb (modified) (4 diffs)
• frmMail.vb (modified) (3 diffs)

trunk/EveHQ/Forms/frmEveHQ.vb

@@ -51 +51 @@
     Dim EveHQMLF As New frmMarketPrices
     Private EveHQTrayForm As Form = Nothing
+    Public Event MailUpdateStarted()
+    Public Event MailUpdateCompleted()
     Friend Structure RECT
         Friend Left As Int32
@@ -2705 +2707 @@
 
     Private Sub UpdateMailNotifications()
-        Threading.ThreadPool.QueueUserWorkItem(AddressOf MailUpdateThread)
-    End Sub
-
-    Private Sub MailUpdateThread(ByVal state As Object)
+        OpenEveHQMailForm()
+        Threading.ThreadPool.QueueUserWorkItem(AddressOf MailUpdateThread, frmMail.IsHandleCreated)
+    End Sub
+
+    Private Sub MailUpdateThread(ByVal MailFormOpen As Object)
         ' Check for the AutoMailAPI flag
         Dim requiresAutoDisable As Boolean = False
@@ -2718 +2721 @@
             EveHQ.Core.HQ.EveHQSettings.AutoMailAPI = False
         End If
-        frmMail.btnDownloadMail.Enabled = False
+
+        RaiseEvent MailUpdateStarted()
 
         ' Call the main routines!
@@ -2724 +2728 @@
         Call myMail.GetMail()
 
-        ' Update the display with EveMail
-        If frmMail.IsHandleCreated = True Then
-            Call frmMail.UpdateMailInfo()
-        End If
-
-        frmMail.btnDownloadMail.Enabled = True
+        RaiseEvent MailUpdateCompleted()
+
+        ' Update the main EveMail button
+        Call Me.UpdateEveMailButton()
+
         ' Set the AutoMailAPI flag if required
         If requiresAutoDisable = True Then
             EveHQ.Core.HQ.EveHQSettings.AutoMailAPI = True
         End If
-        ' Update the main EveMail button
-        Call Me.UpdateEveMailButton()
+
     End Sub
 

trunk/EveHQ/Forms/frmMail.vb

@@ -22 +22 @@
 
     Private Sub frmMail_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
+        ' Adds handlers for the external mail events
+        AddHandler frmEveHQ.MailUpdateStarted, AddressOf MailUpdateStarted
+        AddHandler frmEveHQ.MailUpdateCompleted, AddressOf MailUpdateCompleted
         ' Check for the existence of our 2 required tables
         Call EveHQ.Core.DataFunctions.CheckForEveMailTable()
@@ -83 +86 @@
         Dim myMail As New EveHQ.Core.EveMail
         AddHandler myMail.MailProgress, AddressOf DisplayMailProgress
-        btnDownloadMail.Enabled = False
+        Me.Invoke(New MethodInvoker(AddressOf MailUpdateStarted))
         Call myMail.GetMail()
         Me.Invoke(New MethodInvoker(AddressOf MailUpdateCompleted))
@@ -97 +100 @@
     End Sub
 
-    Private Sub MailUpdateCompleted()
+    Public Sub MailUpdateStarted()
+        lblDownloadMailStatus.Text = "Processing EveMails and Notifications..."
+        btnDownloadMail.Enabled = False
+    End Sub
+
+    Public Sub MailUpdateCompleted()
         ' Update the display with EveMail
         Call Me.UpdateMailInfo()