Added "Disable sync event messages" setting and tweaked the Settings form

GBM/Managers/mgrSettings.vb

@@ -24,6 +24,7 @@ Public Class mgrSettings
     Private bAutoSaveLog As Boolean = False
     Private bBackupOnLaunch As Boolean = True
     Private bUseGameID As Boolean = False
+    Private bDisableSyncMessages As Boolean = True
 
     <Flags()> Public Enum eSupressMessages
         None = 0
@@ -285,6 +286,15 @@ Public Class mgrSettings
         End Set
     End Property
 
+    Property DisableSyncMessages As Boolean
+        Get
+            Return bDisableSyncMessages
+        End Get
+        Set(value As Boolean)
+            bDisableSyncMessages = value
+        End Set
+    End Property
+
     Sub New()
         'The GameIDsync message should be supressed on all new databases
         SupressMessages = SetMessageField(SupressMessages, eSupressMessages.GameIDSync)
@@ -295,13 +305,11 @@ Public Class mgrSettings
         Dim sSQL As String
         Dim hshParams As New Hashtable
 
-        sSQL = "DELETE FROM settings WHERE SettingsID = 1"
-        oDatabase.RunParamQuery(sSQL, New Hashtable)
-
-        sSQL = "INSERT INTO settings VALUES (1, @MonitorOnStartup, @StartToTray, @ShowDetectionToolTips, @DisableConfirmation, "
+        sSQL = "INSERT OR REPLACE INTO settings VALUES (1, @MonitorOnStartup, @StartToTray, @ShowDetectionToolTips, @DisableConfirmation, "
         sSQL &= "@CreateSubFolder, @ShowOverwriteWarning, @RestoreOnLaunch, @BackupFolder, @StartWithWindows, "
         sSQL &= "@TimeTracking, @SupressBackup, @SupressBackupThreshold, @CompressionLevel, @Custom7zArguments, @Custom7zLocation, "
-        sSQL &= "@SyncFields, @AutoSaveLog, @AutoRestore, @AutoMark, @SessionTracking, @SupressMessages, @BackupOnLaunch, @UseGameID)"
+        sSQL &= "@SyncFields, @AutoSaveLog, @AutoRestore, @AutoMark, @SessionTracking, @SupressMessages, @BackupOnLaunch, @UseGameID, "
+        sSQL &= "@DisableSyncMessages)"
 
         hshParams.Add("MonitorOnStartup", MonitorOnStartup)
         hshParams.Add("StartToTray", StartToTray)
@@ -326,6 +334,8 @@ Public Class mgrSettings
         hshParams.Add("SupressMessages", SupressMessages)
         hshParams.Add("BackupOnLaunch", BackupOnLaunch)
         hshParams.Add("UseGameID", UseGameID)
+        hshParams.Add("DisableSyncMessages", DisableSyncMessages)
+
         oDatabase.RunParamQuery(sSQL, hshParams)
     End Sub
 
@@ -363,6 +373,7 @@ Public Class mgrSettings
             SupressMessages = CInt(dr("SupressMessages"))
             BackupOnLaunch = CBool(dr("BackupOnLaunch"))
             UseGameID = CBool(dr("UseGameID"))
+            DisableSyncMessages = CBool(dr("DisableSyncMessages"))
         Next
 
         oDatabase.Disconnect()