Version 2.0.0.3

Global_Indexer/frmIndex.vb

@@ -9,6 +9,7 @@ Imports System.Security.AccessControl
 Imports System.Security.Principal
 Imports System.DirectoryServices
 Imports DevExpress.XtraEditors.Controls
+Imports System.ComponentModel
 
 Public Class frmIndex
 #Region "+++++ Variablen ++++++"
@@ -1281,11 +1282,7 @@ Public Class frmIndex
 
     End Function
     '#End Region
-    Public Sub New()
-        ' Dieser Aufruf ist für den Designer erforderlich.
-        InitializeComponent()
-        ' 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
         If File.Exists(CURRENT_FILENAME) Then
             Select Case CancelAttempts
@@ -1347,6 +1344,8 @@ Public Class frmIndex
 
                         Try
                             INDEXING_ACTIVE = False
+
+                            DocumentViewer1.CloseDocument()
                             DocumentViewer1.Done()
                             ClassWindowLocation.SaveFormLocationSize(Me)
                             My.Settings.Save()
@@ -2534,8 +2533,7 @@ Public Class frmIndex
         ClearError()
         ClearNotice()
 
-        'lblhinweis.Visible = False
-        'lblerror.Visible = False
+        DocumentViewer1.CloseDocument()
 
         Me.Cursor = Cursors.WaitCursor
         ClassHelper.Refresh_RegexTable()
@@ -2577,6 +2575,7 @@ Public Class frmIndex
                         End If
 
                         DTACTUAL_FILES.Clear()
+
                         Me.Close()
                     End If
                 End If
@@ -2604,10 +2603,6 @@ Public Class frmIndex
         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 checkMultiindex.Checked Then