redesign index form

Global_Indexer/frmIndex.vb

@@ -44,14 +44,41 @@ Public Class frmIndex
 #End Region
     '#Region "+++++ Allgemeine Funktionen ++++++"
     Sub ShowError(text As String)
-        lblerror.Visible = True
-        lblerror.Text = text
-        lblerror.ForeColor = Color.Red
+        'lblerror.Visible = True
+        'lblerror.Text = text
+        'lblerror.ForeColor = Color.Red
+        labelError.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
+        labelError.Caption = text
     End Sub
-    Sub showlblhinweis(text As String)
-        lblhinweis.Visible = True
-        lblhinweis.Text = text
+
+    Sub ClearError()
+        labelError.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
+        labelError.Caption = String.Empty
     End Sub
+
+    Sub ShowNotice(text As String)
+        'lblhinweis.Visible = True
+        'lblhinweis.Text = text
+        labelNotice.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
+        labelNotice.Caption = text
+    End Sub
+
+    Sub ClearNotice()
+        labelNotice.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
+        labelNotice.Caption = String.Empty
+    End Sub
+
+    Private Sub SetFilePreview(ShowPreview As Boolean)
+        If ShowPreview Then
+            SplitContainer1.Panel2Collapsed = False
+            PreviewFile()
+            checkItemPreview.Checked = True
+        Else
+            SplitContainer1.Panel2Collapsed = True
+            checkItemPreview.Checked = False
+        End If
+    End Sub
+
     Sub addLabel(indexname As String, hinweis As String, ylbl As Integer, anz As String)
         Dim lbl As New Label
         lbl.Name = "lbl" & indexname
@@ -108,7 +135,7 @@ Public Class frmIndex
                                 Case 1
                                     Return True
                                 Case 2
-                                    showlblhinweis("Indexwert nicht eindeutig: " & sql)
+                                    ShowNotice("Indexwert nicht eindeutig: " & sql)
                                     Return False
                                 Case 99
                                     Return False
@@ -150,7 +177,7 @@ Public Class frmIndex
                                     Else
                                         If opt = False Then
                                             LOGGER.Info(" >> Achtung, der Indexwert des manuellen Indexes '" & indexname & "' ist String.empty!")
-                                            showlblhinweis("Indexiert = True - Der Index: " & DR.Item("INDEXNAME") & " wurde nicht ordnungsgemäss indexiert! - Automatischer Index konnte nicht gesetzt werden!")
+                                            ShowNotice("Indexiert = True - Der Index: " & DR.Item("INDEXNAME") & " wurde nicht ordnungsgemäss indexiert! - Automatischer Index konnte nicht gesetzt werden!")
                                             Return Nothing
                                         Else
                                             Return ""
@@ -166,7 +193,7 @@ Public Class frmIndex
                                     'Dim optional_index As Boolean = ClassDatabase.Execute_Scalar("SELECT OPTIONAL FROM TBDD_INDEX_MAN WHERE DOK_ID = " & CURRENT_DOKART_ID & " AND UPPER(NAME) = UPPER('" & indexname & "')", MyConnectionString, True)
                                     If opt = False Then
                                         LOGGER.Info(" >> Achtung, der Indexwert des manuellen Indexes '" & indexname & "' ist String.empty!")
-                                        showlblhinweis("Indexiert = True - Der Index: " & DR.Item("INDEXNAME") & " wurde nicht ordnungsgemäss indexiert! - Automatischer Index konnte nicht gesetzt werden!")
+                                        ShowNotice("Indexiert = True - Der Index: " & DR.Item("INDEXNAME") & " wurde nicht ordnungsgemäss indexiert! - Automatischer Index konnte nicht gesetzt werden!")
                                         Return Nothing
                                     Else
                                         Return ""
@@ -174,7 +201,7 @@ Public Class frmIndex
                                 End If
                         End Select
                     Else
-                        showlblhinweis("Der Index: " & DR.Item("INDEXNAME") & " wurde nicht ordnungsgemäss indexiert! - Automatischer Index konnte nicht gesetzt werden!")
+                        ShowNotice("Der Index: " & DR.Item("INDEXNAME") & " wurde nicht ordnungsgemäss indexiert! - Automatischer Index konnte nicht gesetzt werden!")
                         Return Nothing
                     End If
                     Exit For
@@ -209,11 +236,11 @@ Public Class frmIndex
                                 Return oIndexWert
                             End If
                         Else
-                            showlblhinweis("Der Automatische Index: " & oDataRow.Item("INDEXNAME") & " wurde nicht ordnungsgemäss indexiert!")
+                            ShowNotice("Der Automatische Index: " & oDataRow.Item("INDEXNAME") & " wurde nicht ordnungsgemäss indexiert!")
                             Return ""
                         End If
                     Else
-                        showlblhinweis("Der Automatische Index: " & oDataRow.Item("INDEXNAME") & " wurde nicht ordnungsgemäss indexiert!")
+                        ShowNotice("Der Automatische Index: " & oDataRow.Item("INDEXNAME") & " wurde nicht ordnungsgemäss indexiert!")
                         Return ""
                     End If
                     Exit For
@@ -1260,20 +1287,81 @@ Public Class frmIndex
         ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
     End Sub
     Private Sub frmIndex_FormClosing(sender As Object, e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
-        Try
-            INDEXING_ACTIVE = False
+        If File.Exists(CURRENT_FILENAME) Then
+            Select Case CancelAttempts
+                Case 0
+                    If USER_LANGUAGE = "de-DE" Then
+                        MsgBox("Bitte indexieren Sie die Datei vollständig!" & vbNewLine & "(Abbruch 1 des Indexierungsvorgangs)", MsgBoxStyle.Information)
+                    Else
+                        MsgBox("Please Index file completely" & vbNewLine & "(Abort 1 of Indexdialog)", MsgBoxStyle.Information)
+                    End If
+                    CancelAttempts = CancelAttempts + 1
+                    e.Cancel = True
+                Case 1
+                    Dim result As MsgBoxResult
+                    If USER_LANGUAGE = "de-DE" Then
+                        result = MessageBox.Show("Sie brechen nun zum zweiten Mal den Indexierungsvorgang ab!" & vbNewLine & "Wollen Sie die Indexierung aller Dateien abbrechen?", "Bestätigung erforderlich:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
+                    Else
+                        result = MessageBox.Show("You abort the indexdialog for the 2nd time!" & vbNewLine & "Do You want to abort indexing?", "Confirmation needed:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
+                    End If
 
-            ' This prevents the thread issue when the form containing the viewer is opened via ShowDialog.
-            DocumentViewer1.Done()
+                    If result = MsgBoxResult.Yes Then
+                        Dim containsfw_file As Boolean = False
+                        Try
+                            ABORT_INDEXING = True
+                            Dim sql As String = "SELECT * FROM TBGI_FILES_USER WHERE WORKED = 0 AND UPPER(USER@WORK) = UPPER('" & Environment.UserName & "')"
+                            Dim DT As DataTable = ClassDatabase.Return_Datatable(sql, True)
 
-            ClassWindowLocation.SaveFormLocationSize(Me)
-            My.Settings.Save()
-        Catch ex As Exception
-            LOGGER.Info(" - Unexpected error in Schliessen des Formulares - Fehler: " & vbNewLine & ex.Message)
-            LOGGER.Error(ex.Message)
-            MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error in Schliessen des Formulares:")
-        End Try
+                            Dim anz = DT.Rows.Count
+                            For Each Filerow As DataRow In DT.Rows
+                                Dim filestring As String = Filerow.Item("FILENAME2WORK")
+                                Dim handletype As String = Filerow.Item("HANDLE_TYPE")
 
+                                If handletype = "|MSGONLY|" Or handletype = "|ATTMNTEXTRACTED|" Then
+                                    Try
+                                        System.IO.File.Delete(filestring)
+                                    Catch ex As Exception
+
+                                    End Try
+
+                                ElseIf handletype.StartsWith("|FW") Then
+                                    containsfw_file = True
+                                End If
+                            Next
+                            'Zuerst die Daten des Ablaufs löschen
+                            If ClassDatabase.Execute_non_Query("DELETE FROM TBGI_FILES_USER WHERE UPPER(USER@WORK) = UPPER('" & Environment.UserName & "')", True) = True Then
+                                If containsfw_file = True Then
+                                    If USER_LANGUAGE = "de-DE" Then
+                                        MsgBox("Der Indexierungsprozess beinhaltete (auch) Dateien per Folderwatch!" & vbNewLine & "Diese Dateien wurden nicht gelöscht und verbleiben im Folderwatch-Verzeichnis!" & vbNewLine & "Bitte verschieben Sie die Dateien ggfls.", MsgBoxStyle.Information, "Achtung - Hinweis:")
+                                    Else
+                                        MsgBox("The Indexingprocess contained (also) files from folderwatch!" & vbNewLine & "These files weren't deleted and will stay in the folderwatch-folder!" & vbNewLine & "Please move these files manually.", MsgBoxStyle.Information, "Achtung - Hinweis:")
+                                    End If
+
+                                End If
+                            End If
+
+
+                        Catch ex As Exception
+                            MsgBox("Unexpected Error in Abort Indexing: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
+                        End Try
+
+                        Try
+                            INDEXING_ACTIVE = False
+                            DocumentViewer1.Done()
+                            ClassWindowLocation.SaveFormLocationSize(Me)
+                            My.Settings.Save()
+                        Catch ex As Exception
+                            LOGGER.Info(" - Unexpected error in Schliessen des Formulares - Fehler: " & vbNewLine & ex.Message)
+                            LOGGER.Error(ex.Message)
+                            MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error in Schliessen des Formulares:")
+                        End Try
+
+                        e.Cancel = False
+                    Else
+                        e.Cancel = True
+                    End If
+            End Select
+        End If
     End Sub
     Private Sub frmIndex_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         ' Abbruchzähler zurücksetzen
@@ -1284,7 +1372,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
+            '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)
 
@@ -1293,12 +1383,15 @@ Public Class frmIndex
 
             CURRENT_DROPTYPE = DropType.Replace("|", "")
             If DropType = "|DROPFROMFSYSTEM|" Then
-                chkdelete_origin.Visible = True
-                chkdelete_origin.Checked = CURR_DELETE_ORIGIN
+                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:"
+                    Me.Text = "Indexing of dropped file"
                 Else
-                    Me.Text = "Indexierung der gedroppten Datei:"
+                    Me.Text = "Indexierung der gedroppten Datei"
                 End If
             ElseIf DropType = "|OUTLOOK_MESSAGE|" Or DropType = "|FW_MSGONLY|" Then
                 Select Case DropType
@@ -1307,7 +1400,7 @@ Public Class frmIndex
                         If USER_LANGUAGE <> "de-DE" Then
                             Me.Text = "Indexing of msg-File (without Attachments) - from Folderwatch"
                         Else
-                            Me.Text = "Indexierung der msg-Datei (ohne Anhang) - aus Folderwatch:"
+                            Me.Text = "Indexierung der msg-Datei (ohne Anhang) - aus Folderwatch"
                         End If
                     Case "|OUTLOOK_MESSAGE|"
                         LOGGER.Info(" >> .msg-file through dragdrop")
@@ -1320,50 +1413,49 @@ Public Class frmIndex
 
             ElseIf DropType = "|MSGONLY|" Then
                 If USER_LANGUAGE = "de-DE" Then
-                    Me.Text = "Indexierung der msg-Datei (ohne Anhang):"
+                    Me.Text = "Indexierung der msg-Datei (ohne Anhang)"
                 Else
-                    Me.Text = "Indexing of msg-File (without Attachments):"
+                    Me.Text = "Indexing of msg-File (without Attachments)"
                 End If
             ElseIf DropType = "|ATTMNTEXTRACTED|" Or DropType = "|OUTLOOK_ATTACHMENT|" Then
                 CURRENT_ISATTACHMENT = True
 
                 If USER_LANGUAGE = "de-DE" Then
-                    Me.Text = "Indexierung eines Email-Attachments:"
+                    Me.Text = "Indexierung eines Email-Attachments"
                 Else
-                    Me.Text = "Indexing of email-Attachment:"
+                    Me.Text = "Indexing of email-Attachment"
                 End If
             ElseIf DropType = "|FW_SIMPLEINDEXER|" Then
 
                 If USER_LANGUAGE = "de-DE" Then
-                    Me.Text = "Indexierung einer Folderwatch-Datei:"
+                    Me.Text = "Indexierung einer Folderwatch-Datei"
                 Else
-                    Me.Text = "Indexing of Folderwatch-File:"
+                    Me.Text = "Indexing of Folderwatch-File"
                 End If
             End If
-            txtIndexfilepath.Text = CURRENT_WORKFILE
+
+
+            'txtIndexfilepath.Text = CURRENT_WORKFILE
+            labelFilePath.Caption = CURRENT_WORKFILE
+
             ClassWindowLocation.LoadFormLocationSize(Me)
-            If CONFIG.Config.FilePreview = True Then
-                SplitContainer1.Panel2Collapsed = False
-                PreviewFile()
-                Me.tslblVorschau.Visible = True
-            Else
-                SplitContainer1.Panel2Collapsed = True
-                Me.tslblVorschau.Visible = False
-            End If
+
+            SetFilePreview(CONFIG.Config.FilePreview)
+
             Load_String()
             MULTIFILES = ClassDatabase.Execute_Scalar("SELECT COUNT(*) FROM TBGI_FILES_USER WHERE WORKED = 0 AND GUID <> " & CURRENT_WORKFILE_GUID & " AND UPPER(USER@WORK) = UPPER('" & Environment.UserName & "')", MyConnectionString, True)
             MULTIINDEXING_ACTIVE = False
             If MULTIFILES > 0 Then
                 If USER_LANGUAGE = "de-DE" Then
-                    chkMultiIndexer.Text = "Multi-Indexing - Alle nachfolgenden Dateien (" & MULTIFILES & ") identisch indexieren"
+                    checkMultiindex.Text = "Multi-Indexing - Alle nachfolgenden Dateien (" & MULTIFILES & ") identisch indexieren"
                 Else
-                    chkMultiIndexer.Text = "Multi-Indexing - All following files (" & MULTIFILES & ") will be indexed identically"
+                    checkMultiindex.Text = "Multi-Indexing - All following files (" & MULTIFILES & ") will be indexed identically"
                 End If
 
-                chkMultiIndexer.Checked = False
-                chkMultiIndexer.Visible = True
+                checkMultiindex.Checked = False
+                checkMultiindex.Visible = True
             Else
-                chkMultiIndexer.Visible = False
+                checkMultiindex.Visible = False
             End If
         Catch ex As Exception
             LOGGER.Info(" - Unexpected error in Öffnen des Formulares - Fehler: " & vbNewLine & ex.Message)
@@ -1394,8 +1486,12 @@ Public Class frmIndex
         Me.Cursor = Cursors.Default
         Refresh_Dokart()
         Me.pnlIndex.Controls.Clear()
-        chkdelete_origin.Checked = CONFIG.Config.DeleteOriginalFile
-        CURR_DELETE_ORIGIN = chkdelete_origin.Checked
+
+        CURR_DELETE_ORIGIN = CONFIG.Config.DeleteOriginalFile
+        checkItemDeleteSource.Checked = CONFIG.Config.DeleteOriginalFile
+
+        'chkdelete_origin.Checked = CONFIG.Config.DeleteOriginalFile
+        'CURR_DELETE_ORIGIN = chkdelete_origin.Checked
 
         FormLoaded = True
         If My.Settings.DA_Vorauswahlaktiv = True Then
@@ -1443,8 +1539,14 @@ Public Class frmIndex
         If cmbDokumentart.SelectedIndex <> -1 And FormLoaded = True Then
             If cmbDokumentart.SelectedValue.GetType.ToString = "System.Int32" Then
                 CURRENT_DOKART_ID = cmbDokumentart.SelectedValue
-                lblhinweis.Visible = False
-                lblerror.Visible = False
+
+                'lblhinweis.Visible = False
+                ClearNotice()
+
+                'lblerror.Visible = False
+                ClearError()
+
+
                 Me.pnlIndex.Controls.Clear()
                 Dim sql As String = "Select WINDREAM_DIRECT, DUPLICATE_HANDLING from TBDD_DOKUMENTART WHERE GUID = " & cmbDokumentart.SelectedValue
                 Dim DT_DOKART As DataTable = ClassDatabase.Return_Datatable(sql)
@@ -1500,6 +1602,7 @@ Public Class frmIndex
                 ShowError("Keine Manuellen Indizes für die " & vbNewLine & "Dokumentart " & cmbDokumentart.Text & " definiert")
                 LOGGER.Info(" - Keine Manuellen Indizes für die " & vbNewLine & "Dokumentart " & cmbDokumentart.Text & " definiert")
             End If
+
             For Each DR As DataRow In DT_INDEXEMAN.Rows
                 Dim type = DR.Item("DATATYPE")
                 Dim MultiSelect As Boolean = DR.Item("MULTISELECT")
@@ -1945,11 +2048,6 @@ Public Class frmIndex
 
         Return utf8Encoding.GetString(encodedString)
     End Function
-    Private Sub CheckBox1_CheckedChanged(sender As System.Object, e As System.EventArgs)
-        CONFIG.Config.FilePreview = CheckBox1.Checked
-        CONFIG.Save()
-        'SaveConfigValue("Preview", True)
-    End Sub
     Private Function WORK_FILE()
         Try
             Me.VWDDINDEX_MANTableAdapter.Fill(Me.MyDataset.VWDDINDEX_MAN, CURRENT_DOKART_ID)
@@ -2047,9 +2145,13 @@ Public Class frmIndex
             MsgBox("Unexpeted Error in Delete Current Workfile:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
         End Try
     End Sub
-    Private Sub OK_Button_Click(sender As Object, e As EventArgs) Handles btnOK.Click
-        lblhinweis.Visible = False
-        lblerror.Visible = False
+    Private Sub OK_Button_Click(sender As Object, e As EventArgs)
+        ClearError()
+        ClearNotice()
+
+        'lblhinweis.Visible = False
+        'lblerror.Visible = False
+
         Me.Cursor = Cursors.WaitCursor
         ClassHelper.Refresh_RegexTable()
         For Each rowregex As DataRow In CURRENT_DT_REGEX.Rows
@@ -2057,7 +2159,7 @@ Public Class frmIndex
                 REGEX_CLEAN_FILENAME = rowregex.Item("REGEX")
             End If
         Next
-        If chkMultiIndexer.Visible = True And chkMultiIndexer.Checked = True Then
+        If checkMultiindex.Visible = True And checkMultiindex.Checked = True Then
             'Die erste Datei indexieren
             If WORK_FILE() = True Then
                 'Und nun die folgenden
@@ -2109,7 +2211,6 @@ Public Class frmIndex
             End If
         End If
         Me.Cursor = Cursors.Default
-
     End Sub
     Private Function Move_File2_Target()
         Dim err As Boolean = False
@@ -2350,28 +2451,7 @@ Public Class frmIndex
         End Try
     End Function
 
-    Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles ToolStripButton1.Click
-        If ToolStripButton1.Text = "Top Most = False" Then
-            ToolStripButton1.Text = "Top Most = True"
-            Me.TopMost = False
-            ToolStripButton1.Checked = True
-        Else
-            ToolStripButton1.Text = "Top Most = False"
-            Me.TopMost = True
-            ToolStripButton1.Checked = False
-        End If
-    End Sub
-
-    Private Sub chkdelete_origin_CheckedChanged(sender As Object, e As EventArgs) Handles chkdelete_origin.CheckedChanged
-        If FormLoaded = True Then
-            CURR_DELETE_ORIGIN = chkdelete_origin.Checked
-            CONFIG.Config.DeleteOriginalFile = chkdelete_origin.Checked
-            CONFIG.Save()
-        End If
-        'SaveConfigValue("Delete_OriginFile", CURR_DELETE_ORIGIN)
-    End Sub
-
-    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+    Private Sub Button1_Click(sender As Object, e As EventArgs)
         If File.Exists(CURRENT_FILENAME) Then
             Select Case CancelAttempts
                 Case 0
@@ -2438,9 +2518,104 @@ Public Class frmIndex
         End If
     End Sub
 
-    Private Sub chkMultiIndexer_CheckedChanged(sender As Object, e As EventArgs) Handles chkMultiIndexer.CheckedChanged
+    Private Sub BarCheckItem1_CheckedChanged(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarCheckItem1.CheckedChanged
+        TopMost = BarCheckItem1.Checked
+    End Sub
+
+    Private Sub checkItemDeleteSource_CheckedChanged(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles checkItemDeleteSource.CheckedChanged
+        If FormLoaded = True Then
+            CURR_DELETE_ORIGIN = checkItemDeleteSource.Checked
+            CONFIG.Config.DeleteOriginalFile = checkItemDeleteSource.Checked
+            CONFIG.Save()
+        End If
+    End Sub
+
+    Private Sub labelFilePath_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles labelFilePath.ItemClick
+        Clipboard.SetText(CURRENT_WORKFILE)
+        MsgBox("Aktuellen Pfad in die Zwischenablage kopiert!", MsgBoxStyle.Information, Text)
+    End Sub
+
+    Private Sub SimpleButton1_Click(sender As Object, e As EventArgs) Handles btnOK.Click
+        ClearError()
+        ClearNotice()
+
+        'lblhinweis.Visible = False
+        'lblerror.Visible = False
+
+        Me.Cursor = Cursors.WaitCursor
+        ClassHelper.Refresh_RegexTable()
+        For Each rowregex As DataRow In CURRENT_DT_REGEX.Rows
+            If rowregex.Item("FUNCTION_NAME") = "CLEAN_FILENAME" Then
+                REGEX_CLEAN_FILENAME = rowregex.Item("REGEX")
+            End If
+        Next
+        If checkMultiindex.Visible = True And checkMultiindex.Checked = True Then
+            'Die erste Datei indexieren
+            If WORK_FILE() = True Then
+                'Und nun die folgenden
+                Dim DTFiles2Work As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM TBGI_FILES_USER WHERE WORKED = 0 AND GUID <> " & CURRENT_WORKFILE_GUID & " AND UPPER(USER@WORK) = UPPER('" & Environment.UserName & "')")
+                If Not DTFiles2Work Is Nothing Then
+                    Dim err = False
+                    For Each filerow As DataRow In DTFiles2Work.Rows
+                        CURRENT_WORKFILE_GUID = filerow.Item("GUID")
+                        CURRENT_WORKFILE = filerow.Item("FILENAME2WORK")
+                        DropType = filerow.Item("HANDLE_TYPE")
+                        'Dim HandleType As String = filerow.Item("HANDLE_TYPE")
+                        'If HandleType = "|DROPFROMFSYSTEM|" Then
+                        '    DropType = "dragdrop file"
+                        'ElseIf HandleType = "|OUTLOOK_ATTMNT|" Then
+                        '    DropType = "dragdrop attachment"
+                        'ElseIf HandleType = "|OUTLOOKMESSAGE|" Then
+                        '    DropType = "dragdrop message"
+                        'End If
+                        If WORK_FILE() = False Then
+                            err = True
+                            Exit For
+                        End If
+                    Next
+                    Me.Cursor = Cursors.Default
+                    If err = False Then
+                        If USER_LANGUAGE = "de-DE" Then
+                            MsgBox("Alle Dateien wurden mit Multiindexing erfolgreich verarbeitet!", MsgBoxStyle.Information, "Erfolgsmeldung:")
+                        Else
+                            MsgBox("All files were successfully processed through Multiindexing", MsgBoxStyle.Information, "Success")
+                        End If
+
+                        DTACTUAL_FILES.Clear()
+                        Me.Close()
+                    End If
+                End If
+            End If
+        Else
+            If WORK_FILE() = True Then
+                Me.Cursor = Cursors.Default
+                If My.Settings.Show_IndexResult = True Then
+                    If USER_LANGUAGE = "de-DE" Then
+                        MsgBox("Die Datei wurde erfolgreich verarbeitet!" & vbNewLine & "Ablagepfad:" & vbNewLine & CURRENT_NEWFILENAME, MsgBoxStyle.Information, "Erfolgsmeldung")
+                    Else
+                        MsgBox("File sucessfully processed!" & vbNewLine & "Path:" & vbNewLine & CURRENT_NEWFILENAME, MsgBoxStyle.Information, "Success")
+                    End If
+                End If
+
+                Me.Close()
+            End If
+        End If
+        Me.Cursor = Cursors.Default
+    End Sub
+
+    Private Sub checkItemPreview_CheckedChanged(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles checkItemPreview.CheckedChanged
+        SetFilePreview(checkItemPreview.Checked)
+        CONFIG.Config.FilePreview = checkItemPreview.Checked
+        CONFIG.Save()
+    End Sub
+
+    Private Sub checkItemPreselection_CheckedChanged(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles checkItemPreselection.CheckedChanged
+
+    End Sub
+
+    Private Sub checkMultiindex_CheckedChanged(sender As Object, e As EventArgs) Handles checkMultiindex.CheckedChanged
         If USER_LANGUAGE = "de-DE" Then
-            If chkMultiIndexer.Checked Then
+            If checkMultiindex.Checked Then
                 Me.btnOK.Text = "Dateien indexieren"
                 MULTIINDEXING_ACTIVE = True
             Else
@@ -2448,7 +2623,7 @@ Public Class frmIndex
                 MULTIINDEXING_ACTIVE = False
             End If
         Else
-            If chkMultiIndexer.Checked Then
+            If checkMultiindex.Checked Then
                 Me.btnOK.Text = "Index Files"
                 MULTIINDEXING_ACTIVE = True
             Else
@@ -2457,20 +2632,4 @@ Public Class frmIndex
             End If
         End If
     End Sub
-
-    Private Sub CheckBox1_CheckedChanged_1(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
-        If USER_LANGUAGE = "de-DE" Then
-            If My.Settings.DA_Vorauswahlaktiv = True Then
-                CheckBox1.Text = "Vorauswahl Dokumentart aktivieren"
-            Else
-                CheckBox1.Text = "Vorauswahl Dokumentart deaktivieren"
-            End If
-        Else
-            If My.Settings.DA_Vorauswahlaktiv = True Then
-                CheckBox1.Text = "Activate Preselection of Document-Type"
-            Else
-                CheckBox1.Text = "Deactivate Preselection of Document-Type"
-            End If
-        End If
-    End Sub
 End Class