Added backend for new Settings

GBM/Forms/frmSettings.Designer.vb

@@ -55,10 +55,10 @@ Partial Class frmSettings
         Me.cboCompression = New System.Windows.Forms.ComboBox()
         Me.lblCompression = New System.Windows.Forms.Label()
         Me.grpSync = New System.Windows.Forms.GroupBox()
-        Me.grpSyncOptions = New System.Windows.Forms.GroupBox()
+        Me.grpSyncData = New System.Windows.Forms.GroupBox()
         Me.chkSyncTags = New System.Windows.Forms.CheckBox()
-        Me.chkSyncAllData = New System.Windows.Forms.CheckBox()
+        Me.chkSyncAll = New System.Windows.Forms.CheckBox()
-        Me.chkSyncConfig = New System.Windows.Forms.CheckBox()
+        Me.chkSyncGameConfigs = New System.Windows.Forms.CheckBox()
         Me.chkSyncGameInfo = New System.Windows.Forms.CheckBox()
         Me.chkSyncHours = New System.Windows.Forms.CheckBox()
         Me.btnDefaults = New System.Windows.Forms.Button()
@@ -68,7 +68,7 @@ Partial Class frmSettings
         CType(Me.nudSupressBackupThreshold, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.grp7z.SuspendLayout()
         Me.grpSync.SuspendLayout()
-        Me.grpSyncOptions.SuspendLayout()
+        Me.grpSyncData.SuspendLayout()
         Me.SuspendLayout()
         '
         'chkMonitorOnStartup
@@ -100,7 +100,7 @@ Partial Class frmSettings
         Me.grpGeneral.Controls.Add(Me.chkMonitorOnStartup)
         Me.grpGeneral.Location = New System.Drawing.Point(12, 12)
         Me.grpGeneral.Name = "grpGeneral"
-        Me.grpGeneral.Size = New System.Drawing.Size(360, 165)
+        Me.grpGeneral.Size = New System.Drawing.Size(215, 165)
         Me.grpGeneral.TabIndex = 0
         Me.grpGeneral.TabStop = False
         Me.grpGeneral.Text = "General"
@@ -160,7 +160,7 @@ Partial Class frmSettings
         Me.grpPaths.Controls.Add(Me.btnBackupFolder)
         Me.grpPaths.Controls.Add(Me.lblBackupFolder)
         Me.grpPaths.Controls.Add(Me.txtBackupFolder)
-        Me.grpPaths.Location = New System.Drawing.Point(377, 326)
+        Me.grpPaths.Location = New System.Drawing.Point(233, 326)
         Me.grpPaths.Name = "grpPaths"
         Me.grpPaths.Size = New System.Drawing.Size(360, 60)
         Me.grpPaths.TabIndex = 3
@@ -195,7 +195,7 @@ Partial Class frmSettings
         'btnSave
         '
         Me.btnSave.DialogResult = System.Windows.Forms.DialogResult.OK
-        Me.btnSave.Location = New System.Drawing.Point(581, 392)
+        Me.btnSave.Location = New System.Drawing.Point(437, 392)
         Me.btnSave.Name = "btnSave"
         Me.btnSave.Size = New System.Drawing.Size(75, 23)
         Me.btnSave.TabIndex = 5
@@ -205,7 +205,7 @@ Partial Class frmSettings
         'btnCancel
         '
         Me.btnCancel.DialogResult = System.Windows.Forms.DialogResult.Cancel
-        Me.btnCancel.Location = New System.Drawing.Point(662, 392)
+        Me.btnCancel.Location = New System.Drawing.Point(518, 392)
         Me.btnCancel.Name = "btnCancel"
         Me.btnCancel.Size = New System.Drawing.Size(75, 23)
         Me.btnCancel.TabIndex = 6
@@ -222,7 +222,7 @@ Partial Class frmSettings
         Me.grpBackup.Controls.Add(Me.chkOverwriteWarning)
         Me.grpBackup.Controls.Add(Me.chkCreateFolder)
         Me.grpBackup.Controls.Add(Me.chkBackupConfirm)
-        Me.grpBackup.Location = New System.Drawing.Point(378, 12)
+        Me.grpBackup.Location = New System.Drawing.Point(233, 12)
         Me.grpBackup.Name = "grpBackup"
         Me.grpBackup.Size = New System.Drawing.Size(360, 165)
         Me.grpBackup.TabIndex = 2
@@ -307,7 +307,7 @@ Partial Class frmSettings
         Me.grp7z.Controls.Add(Me.lbl7zProduct)
         Me.grp7z.Controls.Add(Me.cboCompression)
         Me.grp7z.Controls.Add(Me.lblCompression)
-        Me.grp7z.Location = New System.Drawing.Point(377, 183)
+        Me.grp7z.Location = New System.Drawing.Point(233, 183)
         Me.grp7z.Name = "grp7z"
         Me.grp7z.Size = New System.Drawing.Size(360, 137)
         Me.grp7z.TabIndex = 3
@@ -325,9 +325,9 @@ Partial Class frmSettings
         '
         'txt7zLocation
         '
-        Me.txt7zLocation.Location = New System.Drawing.Point(88, 70)
+        Me.txt7zLocation.Location = New System.Drawing.Point(110, 70)
         Me.txt7zLocation.Name = "txt7zLocation"
-        Me.txt7zLocation.Size = New System.Drawing.Size(233, 20)
+        Me.txt7zLocation.Size = New System.Drawing.Size(211, 20)
         Me.txt7zLocation.TabIndex = 5
         '
         'lblLocation
@@ -335,15 +335,15 @@ Partial Class frmSettings
         Me.lblLocation.AutoSize = True
         Me.lblLocation.Location = New System.Drawing.Point(6, 73)
         Me.lblLocation.Name = "lblLocation"
-        Me.lblLocation.Size = New System.Drawing.Size(51, 13)
+        Me.lblLocation.Size = New System.Drawing.Size(89, 13)
         Me.lblLocation.TabIndex = 4
-        Me.lblLocation.Text = "Location:"
+        Me.lblLocation.Text = "Custom Location:"
         '
         'txt7zArguments
         '
-        Me.txt7zArguments.Location = New System.Drawing.Point(88, 44)
+        Me.txt7zArguments.Location = New System.Drawing.Point(110, 44)
         Me.txt7zArguments.Name = "txt7zArguments"
-        Me.txt7zArguments.Size = New System.Drawing.Size(266, 20)
+        Me.txt7zArguments.Size = New System.Drawing.Size(244, 20)
         Me.txt7zArguments.TabIndex = 3
         '
         'lblArguments
@@ -351,9 +351,9 @@ Partial Class frmSettings
         Me.lblArguments.AutoSize = True
         Me.lblArguments.Location = New System.Drawing.Point(6, 47)
         Me.lblArguments.Name = "lblArguments"
-        Me.lblArguments.Size = New System.Drawing.Size(60, 13)
+        Me.lblArguments.Size = New System.Drawing.Size(98, 13)
         Me.lblArguments.TabIndex = 2
-        Me.lblArguments.Text = "Arguments:"
+        Me.lblArguments.Text = "Custom Arguments:"
         '
         'lbl7zCopyright
         '
@@ -375,9 +375,9 @@ Partial Class frmSettings
         '
         Me.cboCompression.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
         Me.cboCompression.FormattingEnabled = True
-        Me.cboCompression.Location = New System.Drawing.Point(88, 17)
+        Me.cboCompression.Location = New System.Drawing.Point(110, 17)
         Me.cboCompression.Name = "cboCompression"
-        Me.cboCompression.Size = New System.Drawing.Size(266, 21)
+        Me.cboCompression.Size = New System.Drawing.Size(244, 21)
         Me.cboCompression.TabIndex = 1
         '
         'lblCompression
@@ -391,28 +391,28 @@ Partial Class frmSettings
         '
         'grpSync
         '
-        Me.grpSync.Controls.Add(Me.grpSyncOptions)
+        Me.grpSync.Controls.Add(Me.grpSyncData)
         Me.grpSync.Controls.Add(Me.chkSync)
         Me.grpSync.Location = New System.Drawing.Point(12, 183)
         Me.grpSync.Name = "grpSync"
-        Me.grpSync.Size = New System.Drawing.Size(359, 203)
+        Me.grpSync.Size = New System.Drawing.Size(215, 203)
         Me.grpSync.TabIndex = 1
         Me.grpSync.TabStop = False
-        Me.grpSync.Text = "Sync Game Data"
+        Me.grpSync.Text = "Sync Options"
         '
-        'grpSyncOptions
+        'grpSyncData
         '
-        Me.grpSyncOptions.Controls.Add(Me.chkSyncTags)
+        Me.grpSyncData.Controls.Add(Me.chkSyncTags)
-        Me.grpSyncOptions.Controls.Add(Me.chkSyncAllData)
+        Me.grpSyncData.Controls.Add(Me.chkSyncAll)
-        Me.grpSyncOptions.Controls.Add(Me.chkSyncConfig)
+        Me.grpSyncData.Controls.Add(Me.chkSyncGameConfigs)
-        Me.grpSyncOptions.Controls.Add(Me.chkSyncGameInfo)
+        Me.grpSyncData.Controls.Add(Me.chkSyncGameInfo)
-        Me.grpSyncOptions.Controls.Add(Me.chkSyncHours)
+        Me.grpSyncData.Controls.Add(Me.chkSyncHours)
-        Me.grpSyncOptions.Location = New System.Drawing.Point(6, 47)
+        Me.grpSyncData.Location = New System.Drawing.Point(6, 47)
-        Me.grpSyncOptions.Name = "grpSyncOptions"
+        Me.grpSyncData.Name = "grpSyncData"
-        Me.grpSyncOptions.Size = New System.Drawing.Size(347, 140)
+        Me.grpSyncData.Size = New System.Drawing.Size(194, 140)
-        Me.grpSyncOptions.TabIndex = 1
+        Me.grpSyncData.TabIndex = 1
-        Me.grpSyncOptions.TabStop = False
+        Me.grpSyncData.TabStop = False
-        Me.grpSyncOptions.Text = "Sync Options"
+        Me.grpSyncData.Text = "Sync Data"
         '
         'chkSyncTags
         '
@@ -424,25 +424,25 @@ Partial Class frmSettings
         Me.chkSyncTags.Text = "Tags"
         Me.chkSyncTags.UseVisualStyleBackColor = True
         '
-        'chkSyncAllData
+        'chkSyncAll
         '
-        Me.chkSyncAllData.AutoSize = True
+        Me.chkSyncAll.AutoSize = True
-        Me.chkSyncAllData.Location = New System.Drawing.Point(6, 111)
+        Me.chkSyncAll.Location = New System.Drawing.Point(6, 111)
-        Me.chkSyncAllData.Name = "chkSyncAllData"
+        Me.chkSyncAll.Name = "chkSyncAll"
-        Me.chkSyncAllData.Size = New System.Drawing.Size(164, 17)
+        Me.chkSyncAll.Size = New System.Drawing.Size(164, 17)
-        Me.chkSyncAllData.TabIndex = 4
+        Me.chkSyncAll.TabIndex = 4
-        Me.chkSyncAllData.Text = "All Data (Not Recommended)"
+        Me.chkSyncAll.Text = "All Data (Not Recommended)"
-        Me.chkSyncAllData.UseVisualStyleBackColor = True
+        Me.chkSyncAll.UseVisualStyleBackColor = True
         '
-        'chkSyncConfig
+        'chkSyncGameConfigs
         '
-        Me.chkSyncConfig.AutoSize = True
+        Me.chkSyncGameConfigs.AutoSize = True
-        Me.chkSyncConfig.Location = New System.Drawing.Point(6, 19)
+        Me.chkSyncGameConfigs.Location = New System.Drawing.Point(6, 19)
-        Me.chkSyncConfig.Name = "chkSyncConfig"
+        Me.chkSyncGameConfigs.Name = "chkSyncGameConfigs"
-        Me.chkSyncConfig.Size = New System.Drawing.Size(88, 17)
+        Me.chkSyncGameConfigs.Size = New System.Drawing.Size(124, 17)
-        Me.chkSyncConfig.TabIndex = 0
+        Me.chkSyncGameConfigs.TabIndex = 0
-        Me.chkSyncConfig.Text = "Configuration"
+        Me.chkSyncGameConfigs.Text = "Game Configurations"
-        Me.chkSyncConfig.UseVisualStyleBackColor = True
+        Me.chkSyncGameConfigs.UseVisualStyleBackColor = True
         '
         'chkSyncGameInfo
         '
@@ -470,14 +470,14 @@ Partial Class frmSettings
         Me.btnDefaults.Name = "btnDefaults"
         Me.btnDefaults.Size = New System.Drawing.Size(110, 23)
         Me.btnDefaults.TabIndex = 4
-        Me.btnDefaults.Text = "Use &Defaults"
+        Me.btnDefaults.Text = "Set &Defaults"
         Me.btnDefaults.UseVisualStyleBackColor = True
         '
         'frmSettings
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(749, 426)
+        Me.ClientSize = New System.Drawing.Size(604, 426)
         Me.Controls.Add(Me.grpSync)
         Me.Controls.Add(Me.btnDefaults)
         Me.Controls.Add(Me.grp7z)
@@ -505,8 +505,8 @@ Partial Class frmSettings
         Me.grp7z.PerformLayout()
         Me.grpSync.ResumeLayout(False)
         Me.grpSync.PerformLayout()
-        Me.grpSyncOptions.ResumeLayout(False)
+        Me.grpSyncData.ResumeLayout(False)
-        Me.grpSyncOptions.PerformLayout()
+        Me.grpSyncData.PerformLayout()
         Me.ResumeLayout(False)
 
     End Sub
@@ -538,7 +538,7 @@ Partial Class frmSettings
     Friend WithEvents lbl7zProduct As Label
     Friend WithEvents lbl7zCopyright As Label
     Friend WithEvents grpSync As GroupBox
-    Friend WithEvents chkSyncConfig As CheckBox
+    Friend WithEvents chkSyncGameConfigs As CheckBox
     Friend WithEvents btn7zLocation As Button
     Friend WithEvents txt7zLocation As TextBox
     Friend WithEvents lblLocation As Label
@@ -547,7 +547,7 @@ Partial Class frmSettings
     Friend WithEvents chkSyncHours As CheckBox
     Friend WithEvents chkSyncGameInfo As CheckBox
     Friend WithEvents btnDefaults As Button
-    Friend WithEvents grpSyncOptions As GroupBox
+    Friend WithEvents grpSyncData As GroupBox
-    Friend WithEvents chkSyncAllData As CheckBox
+    Friend WithEvents chkSyncAll As CheckBox
     Friend WithEvents chkSyncTags As CheckBox
 End Class

GBM/Forms/frmSettings.vb

@@ -42,23 +42,22 @@ Public Class frmSettings
 
     Private Sub HandleSyncState()
         If chkSync.Checked Then
-            grpSyncOptions.Enabled = True
+            grpSyncData.Enabled = True
         Else
-            grpSyncOptions.Enabled = False
+            grpSyncData.Enabled = False
         End If
     End Sub
 
     Private Sub HandleSyncAllDataState()
-        If chkSyncAllData.Checked Then
+        If chkSyncAll.Checked Then
-            For Each chk As CheckBox In grpSyncOptions.Controls
+            For Each chk As CheckBox In grpSyncData.Controls
-                If Not chk Is chkSyncAllData Then
+                If Not chk Is chkSyncAll Then
-                    chk.Checked = False
                     chk.Enabled = False
                 End If
             Next
         Else
-            For Each chk As CheckBox In grpSyncOptions.Controls
+            For Each chk As CheckBox In grpSyncData.Controls
-                If Not chk Is chkSyncAllData Then
+                If Not chk Is chkSyncAll Then
                     chk.Enabled = True
                 End If
             Next
@@ -84,6 +83,10 @@ Public Class frmSettings
         oSettings.SupressBackup = chkSupressBackup.Checked
         oSettings.SupressBackupThreshold = nudSupressBackupThreshold.Value
         oSettings.CompressionLevel = cboCompression.SelectedValue
+        oSettings.Custom7zArguments = txt7zArguments.Text
+
+        'TODO: Add Custom Location Validation!
+        oSettings.Custom7zLocation = txt7zLocation.Text
 
         'We need to clear all checksums its turned off
         If chkCheckSum.Checked = False And oSettings.CheckSum = True Then
@@ -96,6 +99,11 @@ Public Class frmSettings
             bBackupLocationChanged = True
         End If
         oSettings.Sync = chkSync.Checked
+        oSettings.SyncGameConfigs = chkSyncGameConfigs.Checked
+        oSettings.SyncGameInfo = chkSyncGameInfo.Checked
+        oSettings.SyncHours = chkSyncHours.Checked
+        oSettings.SyncTags = chkSyncTags.Checked
+        oSettings.SyncAll = chkSyncAll.Checked
 
         If IO.Directory.Exists(txtBackupFolder.Text) Then
             If oSettings.BackupFolder <> txtBackupFolder.Text Then
@@ -107,6 +115,10 @@ Public Class frmSettings
             Return False
         End If
 
+        If oSettings.Custom7zArguments <> String.Empty Then
+            mgrCommon.ShowMessage(frmSettings_WarningArguments, MsgBoxStyle.Exclamation)
+        End If
+
         Return True
     End Function
 
@@ -121,9 +133,15 @@ Public Class frmSettings
         End If
     End Function
 
-    Private Sub Get7zInfo()
+    Private Sub Get7zInfo(ByVal sLocation As String)
         Try
-            Dim oFileInfo As FileVersionInfo = FileVersionInfo.GetVersionInfo(mgrPath.Utility7zLocation)
+            'Use default when no custom location is set
+            If sLocation = String.Empty Then
+                sLocation = mgrPath.Utility7zLocation
+            End If
+
+            'Get info
+            Dim oFileInfo As FileVersionInfo = FileVersionInfo.GetVersionInfo(sLocation)
             lbl7zProduct.Text = oFileInfo.FileDescription & " " & oFileInfo.ProductVersion
             lbl7zCopyright.Text = oFileInfo.LegalCopyright
         Catch ex As Exception
@@ -142,12 +160,19 @@ Public Class frmSettings
         chkRestoreOnLaunch.Checked = oSettings.RestoreOnLaunch
         txtBackupFolder.Text = oSettings.BackupFolder
         chkSync.Checked = oSettings.Sync
+        chkSyncGameConfigs.Checked = oSettings.SyncGameConfigs
+        chkSyncGameInfo.Checked = oSettings.SyncGameInfo
+        chkSyncHours.Checked = oSettings.SyncHours
+        chkSyncTags.Checked = oSettings.SyncTags
+        chkSyncAll.Checked = oSettings.SyncAll
         chkCheckSum.Checked = oSettings.CheckSum
         chkTimeTracking.Checked = oSettings.TimeTracking
         chkSupressBackup.Checked = oSettings.SupressBackup
         nudSupressBackupThreshold.Value = oSettings.SupressBackupThreshold
         nudSupressBackupThreshold.Enabled = chkSupressBackup.Checked
         cboCompression.SelectedValue = oSettings.CompressionLevel
+        txt7zArguments.Text = oSettings.Custom7zArguments
+        txt7zLocation.Text = oSettings.Custom7zLocation
 
         'Unix Handler
         If mgrCommon.IsUnix Then
@@ -156,7 +181,7 @@ Public Class frmSettings
         End If
 
         'Retrieve 7z Info
-        Get7zInfo()
+        Get7zInfo(oSettings.Custom7zLocation)
     End Sub
 
     Private Sub LoadCombos()
@@ -204,18 +229,18 @@ Public Class frmSettings
         grp7z.Text = frmSettings_grp7z
         lblCompression.Text = frmSettings_lblCompression
         grpSync.Text = frmSettings_grpSync
-        grpSyncOptions.Text = frmSettings_grpSyncOptions
+        grpSyncData.Text = frmSettings_grpSyncOptions
-        chkSyncConfig.Text = frmSettings_chkSyncConfig
+        chkSyncGameConfigs.Text = frmSettings_chkSyncGameConfigs
         chkSyncGameInfo.Text = frmSettings_chkSyncGameInfo
         chkSyncHours.Text = frmSettings_chkSyncHours
         chkSyncTags.Text = frmSettings_chkSyncTags
-        chkSyncAllData.Text = frmSettings_chkSyncAllData
+        chkSyncAll.Text = frmSettings_chkSyncAll
         btnDefaults.Text = frmSettings_btnDefaults
         lblArguments.Text = frmSettings_lblArguments
         lblLocation.Text = frmSettings_lblLocation
 
         'Unix Handler
-        If mgrCommon.IsUnix Then                       
+        If mgrCommon.IsUnix Then
             chkStartToTray.Enabled = False
             chkStartWindows.Enabled = False
         End If
@@ -254,7 +279,10 @@ Public Class frmSettings
     Private Sub btn7zLocation_Click(sender As Object, e As EventArgs) Handles btn7zLocation.Click
         Dim sNewLocation As String
         sNewLocation = mgrCommon.OpenFileBrowser(frmSettings_Browse7za, "exe", frmSettings_7zaFileType, Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments), False)
-        If sNewLocation <> String.Empty Then txt7zLocation.Text = sNewLocation
+        If sNewLocation <> String.Empty Then
+            txt7zLocation.Text = sNewLocation
+            Get7zInfo(txt7zLocation.Text)
+        End If
     End Sub
 
     Private Sub chkSupressBackup_CheckedChanged(sender As Object, e As EventArgs) Handles chkSupressBackup.CheckedChanged
@@ -265,8 +293,11 @@ Public Class frmSettings
         HandleSyncState()
     End Sub
 
-    Private Sub chkSyncAllData_CheckedChanged(sender As Object, e As EventArgs) Handles chkSyncAllData.CheckedChanged
+    Private Sub chkSyncAllData_CheckedChanged(sender As Object, e As EventArgs) Handles chkSyncAll.CheckedChanged
         HandleSyncAllDataState()
     End Sub
 
+    Private Sub txt7zLocation_Leave(sender As Object, e As EventArgs) Handles txt7zLocation.Leave
+        Get7zInfo(txt7zLocation.Text)
+    End Sub
 End Class

GBM/Managers/mgrSQLite.vb

@@ -73,7 +73,9 @@ Public Class mgrSQLite
             sSql = "CREATE TABLE settings (SettingsID INTEGER NOT NULL PRIMARY KEY, MonitorOnStartup BOOLEAN NOT NULL, StartToTray BOOLEAN NOT NULL, ShowDetectionToolTips BOOLEAN NOT NULL, " &
                    "DisableConfirmation BOOLEAN NOT NULL, CreateSubFolder BOOLEAN NOT NULL, ShowOverwriteWarning BOOLEAN NOT NULL, RestoreOnLaunch BOOLEAN NOT NULL, " &
                    "BackupFolder TEXT NOT NULL, Sync BOOLEAN NOT NULL, CheckSum BOOLEAN NOT NULL, StartWithWindows BOOLEAN NOT NULL, TimeTracking BOOLEAN NOT NULL, " &
-                   "SupressBackup BOOLEAN NOT NULL, SupressBackupThreshold INTEGER NOT NULL, CompressionLevel INTEGER NOT NULL);"
+                   "SupressBackup BOOLEAN NOT NULL, SupressBackupThreshold INTEGER NOT NULL, CompressionLevel INTEGER NOT NULL, Custom7zArguments TEXT, " &
+                   "Custom7zLocation TEXT, SyncGameConfigs BOOLEAN NOT NULL, SyncGameInfo BOOLEAN NOT NULL, SyncHours BOOLEAN NOT NULL, SyncTags BOOLEAN NOT NULL, " &
+                   "SyncAll BOOLEAN NOT NULL);"
 
             'Add Tables (Monitor List)
             sSql &= "CREATE TABLE monitorlist (MonitorID TEXT NOT NULL UNIQUE, Name TEXT NOT NULL, Process TEXT NOT NULL, Path TEXT, " &
@@ -530,6 +532,34 @@ Public Class mgrSQLite
             End If
         End If
 
+        '0.97 Upgrade
+        If GetDatabaseVersion() < 97 Then
+            If eDatabase = Database.Local Then
+                'Backup DB before starting
+                BackupDB("v96")
+
+                'Add new setting                
+                sSQL = "ALTER TABLE settings ADD COLUMN Custom7zArguments TEXT;"
+                sSQL &= "ALTER TABLE settings ADD COLUMN Custom7zLocation TEXT;"
+                sSQL &= "ALTER TABLE settings ADD COLUMN SyncGameConfigs BOOLEAN NOT NULL DEFAULT 1;"
+                sSQL &= "ALTER TABLE settings ADD COLUMN SyncGameInfo BOOLEAN NOT NULL DEFAULT 0;"
+                sSQL &= "ALTER TABLE settings ADD COLUMN SyncHours BOOLEAN NOT NULL DEFAULT 1;"
+                sSQL &= "ALTER TABLE settings ADD COLUMN SyncTags BOOLEAN NOT NULL DEFAULT 1;"
+                sSQL &= "ALTER TABLE settings ADD COLUMN SyncAll BOOLEAN NOT NULL DEFAULT 0;"
+                sSQL &= "PRAGMA user_version=97"
+
+                RunParamQuery(sSQL, New Hashtable)
+            End If
+            If eDatabase = Database.Remote Then
+                'Backup DB before starting
+                BackupDB("v96")
+
+                sSQL = "PRAGMA user_version=97"
+
+                RunParamQuery(sSQL, New Hashtable)
+            End If
+        End If
+
     End Sub
 
     Public Function GetDBSize() As Long

GBM/Managers/mgrSettings.vb

@@ -10,11 +10,18 @@ Public Class mgrSettings
     Private bShowOverwriteWarning As Boolean = True
     Private bRestoreOnLaunch As Boolean = False
     Private bSync As Boolean = True
+    Private bSyncGameConfigs As Boolean = True
+    Private bSyncGameInfo As Boolean = False
+    Private bSyncHours As Boolean = True
+    Private bSyncTags As Boolean = True
+    Private bSyncAll As Boolean = False
     Private bCheckSum As Boolean = True
     Private bTimeTracking As Boolean = True
     Private bSupressBackup As Boolean = False
     Private iSupressBackupThreshold As Integer = 10
     Private iCompressionLevel As Integer = 5
+    Private s7zArguments As String = String.Empty
+    Private s7zLocation As String = String.Empty
     Private sBackupFolder As String = Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments).TrimEnd(New Char() {"\", "/"})
 
     Property StartWithWindows As Boolean
@@ -98,6 +105,51 @@ Public Class mgrSettings
         End Set
     End Property
 
+    Property SyncGameConfigs As Boolean
+        Get
+            Return bSyncGameConfigs
+        End Get
+        Set(value As Boolean)
+            bSyncGameConfigs = value
+        End Set
+    End Property
+
+    Property SyncGameInfo As Boolean
+        Get
+            Return bSyncGameInfo
+        End Get
+        Set(value As Boolean)
+            bSyncGameInfo = value
+        End Set
+    End Property
+
+    Property SyncHours As Boolean
+        Get
+            Return bSyncHours
+        End Get
+        Set(value As Boolean)
+            bSyncHours = value
+        End Set
+    End Property
+
+    Property SyncTags As Boolean
+        Get
+            Return bSyncTags
+        End Get
+        Set(value As Boolean)
+            bSyncTags = value
+        End Set
+    End Property
+
+    Property SyncAll As Boolean
+        Get
+            Return bSyncAll
+        End Get
+        Set(value As Boolean)
+            bSyncAll = value
+        End Set
+    End Property
+
     Property CheckSum As Boolean
         Get
             Return bCheckSum
@@ -143,6 +195,24 @@ Public Class mgrSettings
         End Set
     End Property
 
+    Property Custom7zArguments As String
+        Get
+            Return s7zArguments
+        End Get
+        Set(value As String)
+            s7zArguments = value
+        End Set
+    End Property
+
+    Property Custom7zLocation As String
+        Get
+            Return s7zLocation
+        End Get
+        Set(value As String)
+            s7zLocation = value
+        End Set
+    End Property
+
     Property BackupFolder As String
         Get
             Return sBackupFolder
@@ -162,7 +232,8 @@ Public Class mgrSettings
 
         sSQL = "INSERT INTO settings VALUES (1, @MonitorOnStartup, @StartToTray, @ShowDetectionToolTips, @DisableConfirmation, "
         sSQL &= "@CreateSubFolder, @ShowOverwriteWarning, @RestoreOnLaunch, @BackupFolder, @Sync, @CheckSum, @StartWithWindows, "
-        sSQL &= "@TimeTracking, @SupressBackup, @SupressBackupThreshold, @CompressionLevel)"
+        sSQL &= "@TimeTracking, @SupressBackup, @SupressBackupThreshold, @CompressionLevel, @Custom7zArguments, @Custom7zLocation, "
+        sSQL &= "@SyncGameConfigs, @SyncGameInfo, @SyncHours, @SyncTags, @SyncAll)"
 
         hshParams.Add("MonitorOnStartup", MonitorOnStartup)
         hshParams.Add("StartToTray", StartToTray)
@@ -179,6 +250,13 @@ Public Class mgrSettings
         hshParams.Add("SupressBackup", SupressBackup)
         hshParams.Add("SupressBackupThreshold", SupressBackupThreshold)
         hshParams.Add("CompressionLevel", CompressionLevel)
+        hshParams.Add("Custom7zArguments", Custom7zArguments)
+        hshParams.Add("Custom7zLocation", Custom7zLocation)
+        hshParams.Add("SyncGameConfigs", SyncGameConfigs)
+        hshParams.Add("SyncGameInfo", SyncGameInfo)
+        hshParams.Add("SyncHours", SyncHours)
+        hshParams.Add("SyncTags", SyncTags)
+        hshParams.Add("SyncAll", SyncAll)
 
         oDatabase.RunParamQuery(sSQL, hshParams)
     End Sub
@@ -209,6 +287,13 @@ Public Class mgrSettings
             SupressBackup = CBool(dr("SupressBackup"))
             SupressBackupThreshold = CInt(dr("SupressBackupThreshold"))
             CompressionLevel = CInt(dr("CompressionLevel"))
+            If Not IsDBNull(dr("Custom7zArguments")) Then Custom7zArguments = CStr(dr("Custom7zArguments"))
+            If Not IsDBNull(dr("Custom7zLocation")) Then Custom7zLocation = CStr(dr("Custom7zLocation"))
+            SyncGameConfigs = CBool(dr("SyncGameConfigs"))
+            SyncGameInfo = CBool(dr("SyncGameInfo"))
+            SyncHours = CBool(dr("SyncHours"))
+            SyncTags = CBool(dr("SyncTags"))
+            SyncAll = CBool(dr("SyncAll"))
         Next
 
         oDatabase.Disconnect()

GBM/My Project/AssemblyInfo.vb

@@ -13,14 +13,14 @@ Imports System.Runtime.InteropServices
 <Assembly: AssemblyTitle("Game Backup Monitor")> 
 <Assembly: AssemblyDescription("Game Backup Monitor")> 
 <Assembly: AssemblyCompany("Michael J. Seiferling")> 
-<Assembly: AssemblyProduct("Game Backup Monitor")> 
+<Assembly: AssemblyProduct("Game Backup Monitor")>
-<Assembly: AssemblyCopyright("Copyright © 2015 Michael J. Seiferling")> 
+<Assembly: AssemblyCopyright("Copyright © 2016 Michael J. Seiferling")>
 <Assembly: AssemblyTrademark("")> 
 
 <Assembly: ComVisible(False)> 
 
 'The following GUID is for the ID of the typelib if this project is exposed to COM
-<Assembly: Guid("bc5c563d-71b2-47f4-a318-3313baf26540")> 
+<Assembly: Guid("bc5c563d-71b2-47f4-a318-3313baf26540")>
 
 ' Version information for an assembly consists of the following four values:
 '
@@ -33,7 +33,7 @@ Imports System.Runtime.InteropServices
 ' by using the '*' as shown below:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("0.96.*")> 
+<Assembly: AssemblyVersion("0.97.*")>
-<Assembly: AssemblyFileVersion("0.96.0.0")> 
+<Assembly: AssemblyFileVersion("0.97.0.0")>
 
 <Assembly: NeutralResourcesLanguageAttribute("en")> 

GBM/My Project/Resources.Designer.vb

@@ -3103,7 +3103,7 @@ Namespace My.Resources
         End Property
         
         '''<summary>
-        '''  Looks up a localized string similar to Use &amp;Defaults.
+        '''  Looks up a localized string similar to Set &amp;Defaults.
         '''</summary>
         Friend ReadOnly Property frmSettings_btnDefaults() As String
             Get
@@ -3276,18 +3276,18 @@ Namespace My.Resources
         '''<summary>
         '''  Looks up a localized string similar to All Data (Not Recommened).
         '''</summary>
-        Friend ReadOnly Property frmSettings_chkSyncAllData() As String
+        Friend ReadOnly Property frmSettings_chkSyncAll() As String
             Get
-                Return ResourceManager.GetString("frmSettings_chkSyncAllData", resourceCulture)
+                Return ResourceManager.GetString("frmSettings_chkSyncAll", resourceCulture)
             End Get
         End Property
         
         '''<summary>
-        '''  Looks up a localized string similar to Configuration.
+        '''  Looks up a localized string similar to Game Configurations.
         '''</summary>
-        Friend ReadOnly Property frmSettings_chkSyncConfig() As String
+        Friend ReadOnly Property frmSettings_chkSyncGameConfigs() As String
             Get
-                Return ResourceManager.GetString("frmSettings_chkSyncConfig", resourceCulture)
+                Return ResourceManager.GetString("frmSettings_chkSyncGameConfigs", resourceCulture)
             End Get
         End Property
         
@@ -3355,7 +3355,7 @@ Namespace My.Resources
         End Property
         
         '''<summary>
-        '''  Looks up a localized string similar to 7z Options.
+        '''  Looks up a localized string similar to 7-Zip Options.
         '''</summary>
         Friend ReadOnly Property frmSettings_grp7z() As String
             Get
@@ -3391,7 +3391,7 @@ Namespace My.Resources
         End Property
         
         '''<summary>
-        '''  Looks up a localized string similar to Sync Game Data.
+        '''  Looks up a localized string similar to Sync Options.
         '''</summary>
         Friend ReadOnly Property frmSettings_grpSync() As String
             Get
@@ -3400,7 +3400,7 @@ Namespace My.Resources
         End Property
         
         '''<summary>
-        '''  Looks up a localized string similar to Sync Options.
+        '''  Looks up a localized string similar to Sync Data.
         '''</summary>
         Friend ReadOnly Property frmSettings_grpSyncOptions() As String
             Get
@@ -3409,7 +3409,7 @@ Namespace My.Resources
         End Property
         
         '''<summary>
-        '''  Looks up a localized string similar to Arguments:.
+        '''  Looks up a localized string similar to Custom Arguments:.
         '''</summary>
         Friend ReadOnly Property frmSettings_lblArguments() As String
             Get
@@ -3436,7 +3436,7 @@ Namespace My.Resources
         End Property
         
         '''<summary>
-        '''  Looks up a localized string similar to Location:.
+        '''  Looks up a localized string similar to Custom Location:.
         '''</summary>
         Friend ReadOnly Property frmSettings_lblLocation() As String
             Get
@@ -3453,6 +3453,15 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  Looks up a localized string similar to Custom 7-Zip arguments can cause backup or restore operations to fail.[BR][BR]If problems occur, clear the arguments and refer to the GBM manual..
+        '''</summary>
+        Friend ReadOnly Property frmSettings_WarningArguments() As String
+            Get
+                Return ResourceManager.GetString("frmSettings_WarningArguments", resourceCulture)
+            End Get
+        End Property
+        
         '''<summary>
         '''  Looks up a localized string similar to Choose a backup folder:.
         '''</summary>

GBM/My Project/Resources.resx

@@ -1526,7 +1526,7 @@
     <value>Ultra</value>
   </data>
   <data name="frmSettings_grp7z" xml:space="preserve">
-    <value>7z Options</value>
+    <value>7-Zip Options</value>
   </data>
   <data name="frmSettings_lblCompression" xml:space="preserve">
     <value>Compression:</value>
@@ -1598,13 +1598,13 @@
     <value>Search Aborted!</value>
   </data>
   <data name="frmSettings_btnDefaults" xml:space="preserve">
-    <value>Use &amp;Defaults</value>
+    <value>Set &amp;Defaults</value>
   </data>
-  <data name="frmSettings_chkSyncAllData" xml:space="preserve">
+  <data name="frmSettings_chkSyncAll" xml:space="preserve">
     <value>All Data (Not Recommened)</value>
   </data>
-  <data name="frmSettings_chkSyncConfig" xml:space="preserve">
+  <data name="frmSettings_chkSyncGameConfigs" xml:space="preserve">
-    <value>Configuration</value>
+    <value>Game Configurations</value>
   </data>
   <data name="frmSettings_chkSyncGameInfo" xml:space="preserve">
     <value>Game Information</value>
@@ -1619,16 +1619,16 @@
     <value>Unable to retrieve 7z product information!</value>
   </data>
   <data name="frmSettings_grpSync" xml:space="preserve">
-    <value>Sync Game Data</value>
-  </data>
-  <data name="frmSettings_grpSyncOptions" xml:space="preserve">
     <value>Sync Options</value>
   </data>
+  <data name="frmSettings_grpSyncOptions" xml:space="preserve">
+    <value>Sync Data</value>
+  </data>
   <data name="frmSettings_lblArguments" xml:space="preserve">
-    <value>Arguments:</value>
+    <value>Custom Arguments:</value>
   </data>
   <data name="frmSettings_lblLocation" xml:space="preserve">
-    <value>Location:</value>
+    <value>Custom Location:</value>
   </data>
   <data name="frmSettings_7zaFileType" xml:space="preserve">
     <value>Executable</value>
@@ -1636,4 +1636,7 @@
   <data name="frmSettings_Browse7za" xml:space="preserve">
     <value>Locate 7-Zip Console (7za)</value>
   </data>
+  <data name="frmSettings_WarningArguments" xml:space="preserve">
+    <value>Custom 7-Zip arguments can cause backup or restore operations to fail.[BR][BR]If problems occur, clear the arguments and refer to the GBM manual.</value>
+  </data>
 </root>