Version 2.4.0.5

Global_Indexer/ClassFileDrop.vb

@@ -11,13 +11,13 @@ Public Class ClassFileDrop
 
     Public Shared Function Drop_File(e As DragEventArgs)
         Try
-            LOGGER.Info("Available Drop Formats:")
+            LOGGER.Debug("Available Drop Formats:")
 
             For Each oFormat As String In e.Data.GetFormats()
-                LOGGER.Info(oFormat)
+                LOGGER.Debug(oFormat)
             Next
 
-            LOGGER.Info(">> Drop_File")
+            LOGGER.Info("Drop_File")
             files_dropped = Nothing
             If e.Data.GetDataPresent(DataFormats.FileDrop) Then
                 Dim MyFiles() As String
@@ -26,7 +26,7 @@ Public Class ClassFileDrop
                 MyFiles = e.Data.GetData(DataFormats.FileDrop)
                 ' Loop through the array and add the files to the list. 
                 For i = 0 To MyFiles.Length - 1
-                    LOGGER.Info(">> Simple FileDrop - File: " & MyFiles(i))
+                    LOGGER.Info("Simple FileDrop - File: " & MyFiles(i))
                     ReDim Preserve files_dropped(i)
                     files_dropped(i) = "|DROPFROMFSYSTEM|" & MyFiles(i)
                     ' ListBox1.Items.Add(MyFiles(i))
@@ -85,10 +85,10 @@ Public Class ClassFileDrop
                     If (finTemp.Exists = True) Then
                         ReDim Preserve files_dropped(0)
                         files_dropped(0) = "|OUTLOOK_ATTACHMENT|" & strOutFile
-                        LOGGER.Info(">> Drop an Attachment - File: " & strOutFile)
+                        LOGGER.Info("Drop an Attachment - File: " & strOutFile)
                         Return True
                     Else
-                        LOGGER.Info(">> Attachment File from Outlook could not be created")
+                        LOGGER.Info("Attachment File from Outlook could not be created")
                     End If
                 End If
             End If
@@ -102,7 +102,7 @@ Public Class ClassFileDrop
                     Return False
                 End Try
 
-                LOGGER.Info(">> Drop of msg")
+                LOGGER.Info(" Drop of msg")
                 'supports a drop of a Outlook message 
                 Dim myobj As Outlook.MailItem
                 For i As Integer = 1 To oApp.ActiveExplorer.Selection.Count
@@ -125,7 +125,7 @@ Public Class ClassFileDrop
                     oFilename = oFilename.Replace("!", "")
                     oFilename = oFilename.Replace("%", "")
                     oFilename = oFilename.Replace("$", "")
-                    LOGGER.Info(">> Drop of msg - File:" & oFilename)
+                    LOGGER.Info("Drop of msg - File:" & oFilename)
                     Try
                         myobj.SaveAs(oFilename)
                     Catch ex As Exception
@@ -146,8 +146,6 @@ Public Class ClassFileDrop
             MsgBox("Error in Drop-File" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
             Return False
         End Try
-
-
     End Function
 
     'Private Sub DragDrop_HandleTobit(e As DragEventArgs)

Global_Indexer/My Project/AssemblyInfo.vb

@@ -15,7 +15,7 @@ Imports System.Runtime.InteropServices
 <Assembly: AssemblyCompany("Digital Data")> 
 <Assembly: AssemblyProduct("Global Indexer")>
 <Assembly: AssemblyCopyright("Copyright © 2021")>
-<Assembly: AssemblyTrademark("2404")>
+<Assembly: AssemblyTrademark("2405")>
 
 <Assembly: ComVisible(False)> 
 
@@ -33,7 +33,7 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("2.4.0.4")>
+<Assembly: AssemblyVersion("2.4.0.5")>
 <Assembly: AssemblyFileVersion("1.0.0.0")>
 
 <Assembly: NeutralResourcesLanguageAttribute("")> 

Global_Indexer/frmIndexFileList.Designer.vb

@@ -61,8 +61,11 @@ Partial Class frmIndexFileList
         'CheckedListBoxControl1
         '
         resources.ApplyResources(Me.CheckedListBoxControl1, "CheckedListBoxControl1")
+        Me.CheckedListBoxControl1.AppearanceHighlight.BackColor = System.Drawing.Color.Transparent
+        Me.CheckedListBoxControl1.AppearanceHighlight.Options.UseBackColor = True
         Me.CheckedListBoxControl1.HighlightedItemStyle = DevExpress.XtraEditors.HighlightStyle.Standard
         Me.CheckedListBoxControl1.HotTrackItems = True
+        Me.CheckedListBoxControl1.HotTrackSelectMode = DevExpress.XtraEditors.HotTrackSelectMode.SelectItemOnHotTrackEx
         Me.CheckedListBoxControl1.ItemHeight = 30
         Me.CheckedListBoxControl1.ItemPadding = New System.Windows.Forms.Padding(10)
         Me.CheckedListBoxControl1.Name = "CheckedListBoxControl1"

Global_Indexer/frmIndexFileList.resx

@@ -117,15 +117,63 @@
   <resheader name="writer">
     <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </resheader>
+  <data name="&gt;&gt;Label2.Name" xml:space="preserve">
+    <value>Label2</value>
+  </data>
+  <data name="&gt;&gt;Label2.Type" xml:space="preserve">
+    <value>System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </data>
+  <data name="&gt;&gt;Label2.Parent" xml:space="preserve">
+    <value>Panel1</value>
+  </data>
+  <data name="&gt;&gt;Label2.ZOrder" xml:space="preserve">
+    <value>0</value>
+  </data>
+  <data name="&gt;&gt;Label1.Name" xml:space="preserve">
+    <value>Label1</value>
+  </data>
+  <data name="&gt;&gt;Label1.Type" xml:space="preserve">
+    <value>System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </data>
+  <data name="&gt;&gt;Label1.Parent" xml:space="preserve">
+    <value>Panel1</value>
+  </data>
+  <data name="&gt;&gt;Label1.ZOrder" xml:space="preserve">
+    <value>1</value>
+  </data>
+  <assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
+  <data name="Panel1.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
+    <value>Top</value>
+  </data>
+  <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+  <data name="Panel1.Location" type="System.Drawing.Point, System.Drawing">
+    <value>0, 0</value>
+  </data>
+  <data name="Panel1.Size" type="System.Drawing.Size, System.Drawing">
+    <value>647, 57</value>
+  </data>
   <assembly alias="mscorlib" name="mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
+  <data name="Panel1.TabIndex" type="System.Int32, mscorlib">
+    <value>0</value>
+  </data>
+  <data name="&gt;&gt;Panel1.Name" xml:space="preserve">
+    <value>Panel1</value>
+  </data>
+  <data name="&gt;&gt;Panel1.Type" xml:space="preserve">
+    <value>System.Windows.Forms.Panel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </data>
+  <data name="&gt;&gt;Panel1.Parent" xml:space="preserve">
+    <value>$this</value>
+  </data>
+  <data name="&gt;&gt;Panel1.ZOrder" xml:space="preserve">
+    <value>4</value>
+  </data>
   <data name="Label2.AutoSize" type="System.Boolean, mscorlib">
     <value>True</value>
   </data>
-  <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
   <data name="Label2.Font" type="System.Drawing.Font, System.Drawing">
     <value>Segoe UI, 9.75pt, style=Bold</value>
   </data>
-  <assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
   <data name="Label2.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
     <value>NoControl</value>
   </data>
@@ -184,30 +232,6 @@ Sie haben nun Möglichkeit die Indexierung für ausgewählte Dateien zu verhinde
   <data name="&gt;&gt;Label1.ZOrder" xml:space="preserve">
     <value>1</value>
   </data>
-  <data name="Panel1.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
-    <value>Top</value>
-  </data>
-  <data name="Panel1.Location" type="System.Drawing.Point, System.Drawing">
-    <value>0, 0</value>
-  </data>
-  <data name="Panel1.Size" type="System.Drawing.Size, System.Drawing">
-    <value>647, 57</value>
-  </data>
-  <data name="Panel1.TabIndex" type="System.Int32, mscorlib">
-    <value>0</value>
-  </data>
-  <data name="&gt;&gt;Panel1.Name" xml:space="preserve">
-    <value>Panel1</value>
-  </data>
-  <data name="&gt;&gt;Panel1.Type" xml:space="preserve">
-    <value>System.Windows.Forms.Panel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="&gt;&gt;Panel1.Parent" xml:space="preserve">
-    <value>$this</value>
-  </data>
-  <data name="&gt;&gt;Panel1.ZOrder" xml:space="preserve">
-    <value>4</value>
-  </data>
   <data name="CheckedListBoxControl1.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
     <value>Top, Bottom, Left, Right</value>
   </data>

Global_Indexer/frmIndexFileList.vb

@@ -24,6 +24,8 @@ Public Class frmIndexFileList
 
     Private Sub btnstartIndex_Click(sender As Object, e As EventArgs) Handles btnstartIndex.Click
         Try
+            LOGGER.Debug("Starting indexing of {0} files", CheckedListBoxControl1.Items.Count - CheckedListBoxControl1.CheckedItems.Count)
+
             For index = 0 To CheckedListBoxControl1.ItemCount - 1
                 Dim oRow = MyDataset1.TBGI_FILES_USER.Item(index)
                 Dim oChecked = CheckedListBoxControl1.GetItemChecked(index)
@@ -41,9 +43,12 @@ Public Class frmIndexFileList
                         End Try
                     End If
 
+                    LOGGER.Debug("Removing file from user files: [{0}]", oFilePath)
                     ClassDatabase.Execute_non_Query("DELETE FROM TBGI_FILES_USER WHERE GUID = " & oGuid, True)
                 End If
             Next
+
+            DialogResult = DialogResult.OK
         Catch ex As Exception
             LOGGER.Error(ex)
             MsgBox("Unexpected Error in Clear Multiple Documents: " & ex.Message, MsgBoxStyle.Critical)
@@ -66,8 +71,10 @@ Public Class frmIndexFileList
     End Sub
 
     Private Sub CheckedListBoxControl1_DrawItem(sender As Object, e As DevExpress.XtraEditors.ListBoxDrawItemEventArgs) Handles CheckedListBoxControl1.DrawItem
-        If e.State = DrawItemState.Checked Then
+        If e.State = (DrawItemState.Selected Or DrawItemState.Checked) Or e.State = DrawItemState.Checked Then
             e.Appearance.BackColor = Color.LightGreen
+        Else
+            e.Appearance.BackColor = Color.Transparent
         End If
     End Sub