Added AutoHideLog and ThemeSelection to SQL settings database and wired to settings UI

GBM/Forms/frmSettings.Designer.vb

@@ -77,9 +77,9 @@ Partial Class frmSettings
         Me.chkMonitorOnStartup = New System.Windows.Forms.CheckBox()
         Me.pnlInterface = New System.Windows.Forms.Panel()
         Me.grpInterfaceOptions = New System.Windows.Forms.GroupBox()
+        Me.chkAutoHideLog = New System.Windows.Forms.CheckBox()
+        Me.cboThemeSelection = New System.Windows.Forms.ComboBox()
         Me.lblThemeSelection = New System.Windows.Forms.Label()
-        Me.cmbThemeSelection = New System.Windows.Forms.ComboBox()
-        Me.chkAutoHideOutput = New System.Windows.Forms.CheckBox()
         Me.grpFolderOptions.SuspendLayout()
         Me.grp7zGeneral.SuspendLayout()
         Me.pnlBackup.SuspendLayout()
@@ -639,8 +639,8 @@ Partial Class frmSettings
         '
         'grpInterfaceOptions
         '
-        Me.grpInterfaceOptions.Controls.Add(Me.chkAutoHideOutput)
-        Me.grpInterfaceOptions.Controls.Add(Me.cmbThemeSelection)
+        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"
@@ -649,6 +649,25 @@ Partial Class frmSettings
         Me.grpInterfaceOptions.TabStop = False
         Me.grpInterfaceOptions.Text = "Interface Options"
         '
+        'chkAutoHideLog
+        '
+        Me.chkAutoHideLog.AutoSize = True
+        Me.chkAutoHideLog.Location = New System.Drawing.Point(12, 56)
+        Me.chkAutoHideLog.Name = "chkAutoHideLog"
+        Me.chkAutoHideLog.Size = New System.Drawing.Size(167, 17)
+        Me.chkAutoHideLog.TabIndex = 3
+        Me.chkAutoHideLog.Text = "Automatically hide backup log"
+        Me.chkAutoHideLog.UseVisualStyleBackColor = True
+        '
+        'cboThemeSelection
+        '
+        Me.cboThemeSelection.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.cboThemeSelection.FormattingEnabled = True
+        Me.cboThemeSelection.Location = New System.Drawing.Point(100, 23)
+        Me.cboThemeSelection.Name = "cboThemeSelection"
+        Me.cboThemeSelection.Size = New System.Drawing.Size(121, 21)
+        Me.cboThemeSelection.TabIndex = 1
+        '
         'lblThemeSelection
         '
         Me.lblThemeSelection.AutoSize = True
@@ -658,25 +677,6 @@ Partial Class frmSettings
         Me.lblThemeSelection.TabIndex = 0
         Me.lblThemeSelection.Text = "Theme Selection:"
         '
-        'cmbThemeSelection
-        '
-        Me.cmbThemeSelection.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
-        Me.cmbThemeSelection.FormattingEnabled = True
-        Me.cmbThemeSelection.Location = New System.Drawing.Point(100, 23)
-        Me.cmbThemeSelection.Name = "cmbThemeSelection"
-        Me.cmbThemeSelection.Size = New System.Drawing.Size(121, 21)
-        Me.cmbThemeSelection.TabIndex = 1
-        '
-        'chkAutoHideOutput
-        '
-        Me.chkAutoHideOutput.AutoSize = True
-        Me.chkAutoHideOutput.Location = New System.Drawing.Point(12, 56)
-        Me.chkAutoHideOutput.Name = "chkAutoHideOutput"
-        Me.chkAutoHideOutput.Size = New System.Drawing.Size(183, 17)
-        Me.chkAutoHideOutput.TabIndex = 3
-        Me.chkAutoHideOutput.Text = "Automatically hide output window"
-        Me.chkAutoHideOutput.UseVisualStyleBackColor = True
-        '
         'frmSettings
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -785,7 +785,7 @@ Partial Class frmSettings
     Friend WithEvents chkDisableDiskSpaceCheck As CheckBox
     Friend WithEvents pnlInterface As Panel
     Friend WithEvents grpInterfaceOptions As GroupBox
-    Friend WithEvents chkAutoHideOutput As CheckBox
-    Friend WithEvents cmbThemeSelection As ComboBox
+    Friend WithEvents chkAutoHideLog As CheckBox
+    Friend WithEvents cboThemeSelection As ComboBox
     Friend WithEvents lblThemeSelection As Label
 End Class

GBM/Forms/frmSettings.vb

@@ -99,6 +99,7 @@ Public Class frmSettings
         oSettings.SuppressBackup = chkSuppressBackup.Checked
         oSettings.SuppressBackupThreshold = nudSuppressBackupThreshold.Value
         oSettings.CompressionLevel = cboCompression.SelectedValue
+        oSettings.ThemeSelection = cboThemeSelection.SelectedValue
 
         If oSettings.Custom7zArguments <> txt7zArguments.Text.Trim And txt7zArguments.Text.Trim <> String.Empty Then
             mgrCommon.ShowMessage(frmSettings_WarningArguments, MsgBoxStyle.Exclamation)
@@ -234,6 +235,8 @@ Public Class frmSettings
         txt7zArguments.Text = oSettings.Custom7zArguments
         txt7zLocation.Text = oSettings.Custom7zLocation
         eCurrentSyncFields = oSettings.SyncFields
+        cboThemeSelection.SelectedIndex = oSettings.ThemeSelection
+        chkAutoHideLog.Checked = oSettings.AutoHideLog
 
         'Retrieve 7z Info
         GetUtilityInfo(oSettings.Custom7zLocation)
@@ -243,6 +246,7 @@ Public Class frmSettings
     Private Sub LoadCombos()
         Dim oComboItems As New List(Of KeyValuePair(Of Integer, String))
         Dim oSettingsItems As New List(Of KeyValuePair(Of Integer, String))
+        Dim oThemeItems As New List(Of KeyValuePair(Of Integer, String))
 
         'cboCompression
         cboCompression.ValueMember = "Key"
@@ -257,6 +261,15 @@ Public Class frmSettings
 
         cboCompression.DataSource = oComboItems
 
+        'cboThemes
+        cboThemeSelection.ValueMember = "Key"
+        cboThemeSelection.DisplayMember = "Value"
+
+        oThemeItems.Add(New KeyValuePair(Of Integer, String)(0, frmSettings_cboThemeSelection_Light))
+        oThemeItems.Add(New KeyValuePair(Of Integer, String)(1, frmSettings_cboThemeSelection_Dark))
+
+        cboThemeSelection.DataSource = oThemeItems
+
         'lstSettings
         lstSettings.ValueMember = "Key"
         lstSettings.DisplayMember = "Value"
@@ -437,4 +450,8 @@ 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
+        'Todo
+    End Sub
 End Class