Implemented basic theme engine as well as a dark theme. For time being, dark theme is the default theme.

2019-03-14 18:57:13 +00:00
parent edfcd5ebe9
commit c557b2554b
6 changed files with 111 additions and 16 deletions
@@ -1564,6 +1564,25 @@ Public Class frmMain
        pbTime.Image = Icon_Clock
        AddHandler mgrMonitorList.UpdateLog, AddressOf UpdateLog
        ResetGameInfo()
+
+        'Initialise theme engine
+        Dim oThemeEngine As New mgrThemeEngine
+        oThemeEngine.SetTheme(mgrThemeEngine.eTheme.Dark)
+        BackColor = oThemeEngine.colBase
+        gMonMainMenu.BackColor = oThemeEngine.colBase
+        gMonMainMenu.ForeColor = oThemeEngine.colHighlightAlt
+        gMonStatusStrip.BackColor = oThemeEngine.colBase
+        gMonStripTxtStatus.ForeColor = oThemeEngine.colHightlight
+        gMonStripStatusButton.ForeColor = oThemeEngine.colHightlight
+        lblGameTitle.ForeColor = oThemeEngine.colHightlight
+        lblStatus1.ForeColor = oThemeEngine.colHightlight
+        lblStatus2.ForeColor = oThemeEngine.colHightlight
+        lblStatus3.ForeColor = oThemeEngine.colHightlight
+        lblTimeSpent.ForeColor = oThemeEngine.colHightlight
+        lblLastActionTitle.ForeColor = oThemeEngine.colHightlight
+        lblLastAction.ForeColor = oThemeEngine.colHightlight
+        txtLog.BackColor = oThemeEngine.colBaseAlt
+        txtLog.ForeColor = oThemeEngine.colHightlight
    End Sub

    Private Function BuildChildProcesses() As Integer