Added file name option to settings

GBM/Managers/mgrSettings.vb

@@ -23,6 +23,7 @@ Public Class mgrSettings
     Private eMessages As eSupressMessages = eSupressMessages.None
     Private bAutoSaveLog As Boolean = False
     Private bBackupOnLaunch As Boolean = True
+    Private bUseNames As Boolean = False
 
     <Flags()> Public Enum eSupressMessages
         None = 0
@@ -275,6 +276,15 @@ Public Class mgrSettings
         End Set
     End Property
 
+    Property UseNames As Boolean
+        Get
+            Return bUseNames
+        End Get
+        Set(value As Boolean)
+            bUseNames = value
+        End Set
+    End Property
+
     Sub New()
         'The GameIDsync message should be supressed on all new databases
         SupressMessages = SetMessageField(SupressMessages, eSupressMessages.GameIDSync)
@@ -291,7 +301,7 @@ Public Class mgrSettings
         sSQL = "INSERT 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)"
+        sSQL &= "@SyncFields, @AutoSaveLog, @AutoRestore, @AutoMark, @SessionTracking, @SupressMessages, @BackupOnLaunch, @UseNames)"
 
         hshParams.Add("MonitorOnStartup", MonitorOnStartup)
         hshParams.Add("StartToTray", StartToTray)
@@ -315,6 +325,7 @@ Public Class mgrSettings
         hshParams.Add("SessionTracking", SessionTracking)
         hshParams.Add("SupressMessages", SupressMessages)
         hshParams.Add("BackupOnLaunch", BackupOnLaunch)
+        hshParams.Add("UseNames", UseNames)
         oDatabase.RunParamQuery(sSQL, hshParams)
     End Sub
 
@@ -351,6 +362,7 @@ Public Class mgrSettings
             SessionTracking = CBool(dr("SessionTracking"))
             SupressMessages = CInt(dr("SupressMessages"))
             BackupOnLaunch = CBool(dr("BackupOnLaunch"))
+            UseNames = CBool(dr("UseNames"))
         Next
 
         oDatabase.Disconnect()