From af49fdba9c238fab54405042c040ffcc2a9f587b Mon Sep 17 00:00:00 2001
From: Michael Krisper <michael.krisper@tugraz.at>
Date: Fri, 11 Dec 2015 15:59:39 +0100
Subject: [PATCH] added message type
---
VECTO/GUI/F_MAINForm.vb | 10 ++++++++--
1 file changed, 8 insertions(+), 2 deletions(-)
diff --git a/VECTO/GUI/F_MAINForm.vb b/VECTO/GUI/F_MAINForm.vb
index e92ae1648f..d0359c5fee 100644
--- a/VECTO/GUI/F_MAINForm.vb
+++ b/VECTO/GUI/F_MAINForm.vb
@@ -1656,12 +1656,18 @@ Imports System.Text
Private Sub VectoWorkerV3_OnProgressChanged(sender As Object, e As ProgressChangedEventArgs)
ToolStripProgBarOverall.Value = e.ProgressPercentage
+
+ Dim MessageType As tMsgID = tMsgID.Normal
+ If Not e.UserState.GetType().GetProperty("MessageType") Is Nothing Then
+ MessageType = e.UserState.MessageType
+ End If
+
Select Case e.UserState.Target
Case "ListBox"
If e.UserState.GetType().GetProperty("Link") Is Nothing Then
- MSGtoForm(tMsgID.Normal, e.UserState.Message, "", "")
+ MSGtoForm(MessageType, e.UserState.Message, "", "")
Else
- MSGtoForm(tMsgID.Normal, e.UserState.Message, "", e.UserState.Link)
+ MSGtoForm(MessageType, e.UserState.Message, "", e.UserState.Link)
End If
Case "Status"
Status(e.UserState.Message)
--
GitLab