AppStd/TaskFlow
8
1
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

MS Config Popup

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
app/DD_PM_WINDREAM/ClassParamRefresh.vb
View File

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

1
app/DD_PM_WINDREAM/ModuleRuntimeVariables.vb
View File

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

4
app/DD_PM_WINDREAM/frmMain.vb
View File

@ -989,12 +989,12 @@ Public Class frmMain
Exit Sub Exit Sub
End If 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") Dim oMessage As String = ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("App.ReminderPipeline")
NotifyIcon1.ShowBalloonTip(30000, $"Reminder {ADDITIONAL_TITLE}", oMessage, ToolTipIcon.Info) NotifyIcon1.ShowBalloonTip(30000, $"Reminder {ADDITIONAL_TITLE}", oMessage, ToolTipIcon.Info)
End If End If
Catch ex As Exception Catch ex As Exception
LOGGER.Warn($"Unexpected errin in TimerReminder: {ex.Message}") LOGGER.Warn($"Unexpected errin in TimerReminderTick: {ex.Message}")
End Try End Try
End Sub End Sub