ms

Global_Indexer/frmConfig_Basic.vb

@@ -173,6 +173,7 @@ Public Class frmConfig_Basic
                 Else
                     cmbLanguage.SelectedIndex = 1
                 End If
+                chkdelete_origin.Checked = CURR_DELETE_ORIGIN
             Case 2
                If ERROR_STATE = "NO DB-CONNECTION" Then
                     MsgBox("Configurations only editable after Application started completely!", MsgBoxStyle.Exclamation)
@@ -538,4 +539,11 @@ Public Class frmConfig_Basic
         ' Navigate to a URL.
         System.Diagnostics.Process.Start("http://www.didalog.de/Support")
     End Sub
+
+    Private Sub chkdelete_origin_CheckedChanged(sender As Object, e As EventArgs) Handles chkdelete_origin.CheckedChanged
+        If CURR_DELETE_ORIGIN <> chkdelete_origin.Checked Then
+            CURR_DELETE_ORIGIN = chkdelete_origin.Checked
+            SaveConfigValue("Delete_OriginFile", CURR_DELETE_ORIGIN)
+        End If
+    End Sub
 End Class