Theme selector now shows preview, refactored ThemeEngine

GBM/Forms/frmMain.vb

@@ -60,7 +60,6 @@ Public Class frmMain
     Public WithEvents oRestore As New mgrRestore
     Public hshScanList As Hashtable
     Public oSettings As New mgrSettings
-    Public oThemeEngine As New mgrThemeEngine
 
     Delegate Sub UpdateNotifierCallBack(ByVal iCount As Integer)
     Delegate Sub UpdateLogCallBack(ByVal sLogUpdate As String, ByVal bTrayUpdate As Boolean, ByVal objIcon As System.Windows.Forms.ToolTipIcon, ByVal bTimeStamp As Boolean)
@@ -1642,6 +1641,7 @@ Public Class frmMain
 #End Region
 
 #Region "Set application theme"
+        Dim oThemeEngine As New mgrThemeEngine()
         oThemeEngine.SetTheme(oSettings.ThemeSelection)
 
         'Base Theme

GBM/Forms/frmSettings.Designer.vb

@@ -80,6 +80,10 @@ Partial Class frmSettings
         Me.chkAutoHideLog = New System.Windows.Forms.CheckBox()
         Me.cboThemeSelection = New System.Windows.Forms.ComboBox()
         Me.lblThemeSelection = New System.Windows.Forms.Label()
+        Me.btnPrevBase = New System.Windows.Forms.Button()
+        Me.btnPrevBaseSec = New System.Windows.Forms.Button()
+        Me.btnPrevHighlight = New System.Windows.Forms.Button()
+        Me.btnPrevHighlightSec = New System.Windows.Forms.Button()
         Me.grpFolderOptions.SuspendLayout()
         Me.grp7zGeneral.SuspendLayout()
         Me.pnlBackup.SuspendLayout()
@@ -639,12 +643,16 @@ Partial Class frmSettings
         '
         'grpInterfaceOptions
         '
+        Me.grpInterfaceOptions.Controls.Add(Me.btnPrevHighlightSec)
+        Me.grpInterfaceOptions.Controls.Add(Me.btnPrevHighlight)
+        Me.grpInterfaceOptions.Controls.Add(Me.btnPrevBaseSec)
+        Me.grpInterfaceOptions.Controls.Add(Me.btnPrevBase)
         Me.grpInterfaceOptions.Controls.Add(Me.chkAutoHideLog)
         Me.grpInterfaceOptions.Controls.Add(Me.cboThemeSelection)
         Me.grpInterfaceOptions.Controls.Add(Me.lblThemeSelection)
         Me.grpInterfaceOptions.Location = New System.Drawing.Point(6, 12)
         Me.grpInterfaceOptions.Name = "grpInterfaceOptions"
-        Me.grpInterfaceOptions.Size = New System.Drawing.Size(354, 97)
+        Me.grpInterfaceOptions.Size = New System.Drawing.Size(354, 82)
         Me.grpInterfaceOptions.TabIndex = 1
         Me.grpInterfaceOptions.TabStop = False
         Me.grpInterfaceOptions.Text = "Interface Options"
@@ -652,7 +660,7 @@ Partial Class frmSettings
         'chkAutoHideLog
         '
         Me.chkAutoHideLog.AutoSize = True
-        Me.chkAutoHideLog.Location = New System.Drawing.Point(12, 56)
+        Me.chkAutoHideLog.Location = New System.Drawing.Point(9, 56)
         Me.chkAutoHideLog.Name = "chkAutoHideLog"
         Me.chkAutoHideLog.Size = New System.Drawing.Size(167, 17)
         Me.chkAutoHideLog.TabIndex = 3
@@ -663,9 +671,9 @@ Partial Class frmSettings
         '
         Me.cboThemeSelection.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
         Me.cboThemeSelection.FormattingEnabled = True
-        Me.cboThemeSelection.Location = New System.Drawing.Point(100, 23)
+        Me.cboThemeSelection.Location = New System.Drawing.Point(110, 23)
         Me.cboThemeSelection.Name = "cboThemeSelection"
-        Me.cboThemeSelection.Size = New System.Drawing.Size(121, 21)
+        Me.cboThemeSelection.Size = New System.Drawing.Size(114, 21)
         Me.cboThemeSelection.TabIndex = 1
         '
         'lblThemeSelection
@@ -677,6 +685,46 @@ Partial Class frmSettings
         Me.lblThemeSelection.TabIndex = 0
         Me.lblThemeSelection.Text = "Theme Selection:"
         '
+        'btnPrevBase
+        '
+        Me.btnPrevBase.Enabled = False
+        Me.btnPrevBase.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnPrevBase.Location = New System.Drawing.Point(230, 23)
+        Me.btnPrevBase.Name = "btnPrevBase"
+        Me.btnPrevBase.Size = New System.Drawing.Size(21, 21)
+        Me.btnPrevBase.TabIndex = 4
+        Me.btnPrevBase.UseVisualStyleBackColor = True
+        '
+        'btnPrevBaseSec
+        '
+        Me.btnPrevBaseSec.Enabled = False
+        Me.btnPrevBaseSec.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnPrevBaseSec.Location = New System.Drawing.Point(258, 23)
+        Me.btnPrevBaseSec.Name = "btnPrevBaseSec"
+        Me.btnPrevBaseSec.Size = New System.Drawing.Size(21, 21)
+        Me.btnPrevBaseSec.TabIndex = 5
+        Me.btnPrevBaseSec.UseVisualStyleBackColor = True
+        '
+        'btnPrevHighlight
+        '
+        Me.btnPrevHighlight.Enabled = False
+        Me.btnPrevHighlight.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnPrevHighlight.Location = New System.Drawing.Point(285, 23)
+        Me.btnPrevHighlight.Name = "btnPrevHighlight"
+        Me.btnPrevHighlight.Size = New System.Drawing.Size(21, 21)
+        Me.btnPrevHighlight.TabIndex = 6
+        Me.btnPrevHighlight.UseVisualStyleBackColor = True
+        '
+        'btnPrevHighlightSec
+        '
+        Me.btnPrevHighlightSec.Enabled = False
+        Me.btnPrevHighlightSec.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnPrevHighlightSec.Location = New System.Drawing.Point(312, 23)
+        Me.btnPrevHighlightSec.Name = "btnPrevHighlightSec"
+        Me.btnPrevHighlightSec.Size = New System.Drawing.Size(21, 21)
+        Me.btnPrevHighlightSec.TabIndex = 7
+        Me.btnPrevHighlightSec.UseVisualStyleBackColor = True
+        '
         'frmSettings
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -788,4 +836,8 @@ Partial Class frmSettings
     Friend WithEvents chkAutoHideLog As CheckBox
     Friend WithEvents cboThemeSelection As ComboBox
     Friend WithEvents lblThemeSelection As Label
+    Friend WithEvents btnPrevBase As Button
+    Friend WithEvents btnPrevHighlightSec As Button
+    Friend WithEvents btnPrevHighlight As Button
+    Friend WithEvents btnPrevBaseSec As Button
 End Class

GBM/Forms/frmSettings.vb

@@ -5,6 +5,7 @@ Public Class frmSettings
     Dim bShutdown As Boolean = False
     Dim bSyncSettingsChanged As Boolean = False
     Dim eCurrentSyncFields As clsGame.eOptionalSyncFields
+
     Private oSettings As mgrSettings
 
     Property Settings As mgrSettings
@@ -451,4 +452,23 @@ Public Class frmSettings
     Private Sub lstSettings_SelectedValueChanged(sender As Object, e As EventArgs) Handles lstSettings.SelectedValueChanged
         ChangePanel()
     End Sub
+
+    Private Sub cboThemeSelection_SelectedValueChanged(sender As Object, e As EventArgs) Handles cboThemeSelection.SelectedValueChanged
+        'Previews theme based on current combo-box selection.
+        Dim oThemeEngine As New mgrThemeEngine()
+
+        If cboThemeSelection.SelectedIndex = 0 Then
+            oThemeEngine.SetTheme(cboThemeSelection.SelectedIndex)
+        ElseIf cboThemeSelection.SelectedIndex = 1 Then
+            oThemeEngine.SetTheme(cboThemeSelection.SelectedIndex)
+        End If
+
+        'Only set the theme once it has been defined.
+        If oThemeEngine.bThemeHasBeenDefined Then
+            btnPrevBase.BackColor = oThemeEngine.ColorBase
+            btnPrevBaseSec.BackColor = oThemeEngine.ColorBaseSecondary
+            btnPrevHighlight.BackColor = oThemeEngine.ColorHighlight
+            btnPrevHighlightSec.BackColor = oThemeEngine.ColorHighlightSecondary
+        End If
+    End Sub
 End Class