Cleaned up code, also made output log fill window

This commit is contained in:
2019-03-15 12:04:52 +00:00
parent d89b4fd824
commit f29a58329e
5 changed files with 69 additions and 64 deletions
+20 -16
View File
@@ -1571,23 +1571,27 @@ Public Class frmMain
Private Sub InitThemeEngine()
Dim oThemeEngine As New mgrThemeEngine
oThemeEngine.SetTheme(mgrThemeEngine.eBaseTheme.Light) 'Will ultimately be changable via UI
oThemeEngine.SetTheme(mgrThemeEngine.eBaseTheme.Dark) 'Will ultimately be changable via UI
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
'Base Theme
BackColor = oThemeEngine.ColorBase
'Menu/Status Bars
gMonMainMenu.BackColor = oThemeEngine.ColorBase
gMonMainMenu.ForeColor = oThemeEngine.ColorHighlightSecondary
gMonStatusStrip.BackColor = oThemeEngine.ColorBase
gMonStripTxtStatus.ForeColor = oThemeEngine.ColorHighlight
gMonStripStatusButton.ForeColor = oThemeEngine.ColorHighlight
'Text Labels
lblGameTitle.ForeColor = oThemeEngine.ColorHighlight
lblStatus1.ForeColor = oThemeEngine.ColorHighlight
lblStatus2.ForeColor = oThemeEngine.ColorHighlight
lblStatus3.ForeColor = oThemeEngine.ColorHighlight
lblTimeSpent.ForeColor = oThemeEngine.ColorHighlight
lblLastActionTitle.ForeColor = oThemeEngine.ColorHighlight
lblLastAction.ForeColor = oThemeEngine.ColorHighlight
'Output Log
txtLog.BackColor = oThemeEngine.ColorBaseSecondary
txtLog.ForeColor = oThemeEngine.ColorHighlight
End Sub
Private Function BuildChildProcesses() As Integer