MS Config Popup
This commit is contained in:
parent
6df2b640ae
commit
039145c088
@ -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
|
||||
|
||||
@ -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
|
||||
|
||||
@ -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
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user