MS Config Popup

This commit is contained in:
SchreiberM 2020-10-09 13:23:44 +02:00
parent 6df2b640ae
commit 039145c088
3 changed files with 5 additions and 2 deletions

View File

@ -65,6 +65,8 @@
RIBBON_COLOR_SCHEME = oColorScheme.ToUpper
ElseIf oMode.StartsWith("PM.NO_DETAIL_PROFILES") Then
NO_DETAIL_PROFILES = True
ElseIf oMode = "PM.NO_POPUP" Then
POPUP_REMINDER_ACTIVE = False
ElseIf oMode.StartsWith("PM.CONV_IDENTIFICATION") Then
Dim oIdent = oMode.Replace("PM.CONV_IDENTIFICATION=", "")
CONV_IDENTIFICATION = oIdent

View File

@ -71,6 +71,7 @@ Module ModuleRuntimeVariables
Public RIBBON_COLOR_SCHEME As String = "Blue"
Public ADDITIONAL_TITLE As String = ""
Public CONV_IDENTIFICATION As String = "Username"
Public POPUP_REMINDER_ACTIVE As Boolean = True
Public LICENSE_COUNT As Integer = 0
Public LICENSE_EXPIRED As Boolean = False

View File

@ -989,12 +989,12 @@ Public Class frmMain
Exit Sub
End If
If CURR_DT_OVERVIEW.Rows.Count > 0 Then
If CURR_DT_OVERVIEW.Rows.Count > 0 And POPUP_REMINDER_ACTIVE = True Then
Dim oMessage As String = ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("App.ReminderPipeline")
NotifyIcon1.ShowBalloonTip(30000, $"Reminder {ADDITIONAL_TITLE}", oMessage, ToolTipIcon.Info)
End If
Catch ex As Exception
LOGGER.Warn($"Unexpected errin in TimerReminder: {ex.Message}")
LOGGER.Warn($"Unexpected errin in TimerReminderTick: {ex.Message}")
End Try
End Sub