fix deleteoriginalfile not being saved

Global_Indexer/frmIndex.vb

@@ -1377,13 +1377,9 @@ Public Class frmIndex
         Try
             CURRENT_ISATTACHMENT = False
             DropType = ClassDatabase.Execute_Scalar("SELECT HANDLE_TYPE FROM TBGI_FILES_USER WHERE GUID = " & CURRENT_WORKFILE_GUID, MyConnectionString, True)
-            'chkdelete_origin.Visible = False
-            checkItemDeleteSource.Enabled = False
-            checkItemDeleteSource.Checked = False
 
             VIEWER_LICENSE = ClassDatabase.Execute_Scalar("SELECT LICENSE FROM TBDD_3RD_PARTY_MODULES WHERE NAME = 'GDPICTURE'", MyConnectionString)
 
-            'TODO: Load License from DB
             DocumentViewer1.Init(LOGCONFIG, VIEWER_LICENSE)
 
             If DropType Is Nothing Then
@@ -1394,11 +1390,6 @@ Public Class frmIndex
                 CURRENT_DROPTYPE = DropType.Replace("|", "")
 
                 If DropType = "|DROPFROMFSYSTEM|" Then
-                    checkItemDeleteSource.Enabled = True
-                    checkItemDeleteSource.Checked = CURR_DELETE_ORIGIN
-
-                    'chkdelete_origin.Visible = True
-                    'chkdelete_origin.Checked = CURR_DELETE_ORIGIN
                     If USER_LANGUAGE <> "de-DE" Then
                         Me.Text = "Indexing of dropped file"
                     Else
@@ -1505,13 +1496,12 @@ Public Class frmIndex
         Me.pnlIndex.Controls.Clear()
 
         CURR_DELETE_ORIGIN = CONFIG.Config.DeleteOriginalFile
+        checkItemDeleteSource.Enabled = True
         checkItemDeleteSource.Checked = CONFIG.Config.DeleteOriginalFile
 
         FormLoaded = True
 
         Try
-
-
             ' Letzte Auswahl merken überschreibt die automatische selektion
             If CONFIG.Config.ProfilePreselection Then
                 checkItemPreselection.Checked = True