Version .20, Grundkonfigurationen Checken, speichern der CONFIG.Variante Preview etc

Global_Indexer/frmConfig_Basic.vb

@@ -277,10 +277,8 @@ Public Class frmConfig_Basic
                 ClassDatabase.Execute_non_Query("DELETE FROM TBGI_FOLDERWATCH_USER WHERE USER_ID = " & USER_ID & " AND FOLDER_TYPE = '" & FOLDER_TYPE & "'", True)
                 If FOLDER_TYPE = "SCAN" Then
                     CURRENT_SCAN_FOLDERWATCH = ""
-                    'SaveConfigValue("FWSCAN_started", "False")
                     CONFIG.Config.FolderWatchScanStarted = False
                     CONFIG.Save()
-                    FWSCAN_started = False
                 Else
                     FW_started = False
                     'SaveConfigValue("FW_started", "False")
@@ -328,7 +326,7 @@ Public Class frmConfig_Basic
             If FW_started = True And FOLDER_TYPE = "DEFAULT" Then
                 ClassFolderWatcher.Restart_FolderWatch()
             End If
-            If FWSCAN_started = True And FOLDER_TYPE = "SCAN" Then
+            If CONFIG.Config.FolderWatchScanStarted = True And FOLDER_TYPE = "SCAN" Then
                 ClassFolderWatcher.Restart_FolderWatchSCAN()
             End If
         Catch ex As Exception
@@ -461,6 +459,7 @@ Public Class frmConfig_Basic
     End Sub
 
     Private Sub CheckBox2_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox2.CheckedChanged
+
         My.Settings.Save()
     End Sub
 
@@ -480,8 +479,9 @@ Public Class frmConfig_Basic
         End If
     End Sub
 
-    Private Sub CheckBox3_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox3.CheckedChanged
-        My.Settings.Save()
+    Private Sub CheckBox3_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBoxPreviewDocs.CheckedChanged
+        CONFIG.Config.FilePreview = CheckBoxPreviewDocs.Checked
+        CONFIG.Save()
     End Sub
 
     Private Sub txtScanFolderWatch_TextChanged(sender As Object, e As EventArgs) Handles txtScanFolderWatch.TextChanged