Version 2.4.2.6

Global_Indexer.sln

@@ -5,8 +5,6 @@ VisualStudioVersion = 16.0.29728.190
 MinimumVisualStudioVersion = 10.0.40219.1
 Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "Global_Indexer", "Global_Indexer\Global_Indexer.vbproj", "{7474B1D2-49A4-4D12-B544-C8674D3F7231}"
 EndProject
-Project("{930C7802-8A8C-48F9-8165-68863BCCD9DD}") = "SetupWix", "SetupWix\SetupWix.wixproj", "{5BF6646D-6F46-45E5-8806-8783F030F311}"
-EndProject
 Project("{930C7802-8A8C-48F9-8165-68863BCCD9DD}") = "SetupVS19", "SetupVS19\SetupVS19.wixproj", "{54DBCFAE-14B1-4811-94AF-B59FFF61EA73}"
 EndProject
 Global
@@ -53,31 +51,6 @@ Global
 		{7474B1D2-49A4-4D12-B544-C8674D3F7231}.SingleImage|Mixed Platforms.ActiveCfg = Debug|Any CPU
 		{7474B1D2-49A4-4D12-B544-C8674D3F7231}.SingleImage|Mixed Platforms.Build.0 = Debug|Any CPU
 		{7474B1D2-49A4-4D12-B544-C8674D3F7231}.SingleImage|x86.ActiveCfg = Debug|Any CPU
-		{5BF6646D-6F46-45E5-8806-8783F030F311}.CD_ROM|Any CPU.ActiveCfg = Release|x86
-		{5BF6646D-6F46-45E5-8806-8783F030F311}.CD_ROM|Mixed Platforms.ActiveCfg = Release|x86
-		{5BF6646D-6F46-45E5-8806-8783F030F311}.CD_ROM|Mixed Platforms.Build.0 = Release|x86
-		{5BF6646D-6F46-45E5-8806-8783F030F311}.CD_ROM|x86.ActiveCfg = Release|x86
-		{5BF6646D-6F46-45E5-8806-8783F030F311}.CD_ROM|x86.Build.0 = Release|x86
-		{5BF6646D-6F46-45E5-8806-8783F030F311}.Debug|Any CPU.ActiveCfg = Debug|x86
-		{5BF6646D-6F46-45E5-8806-8783F030F311}.Debug|Mixed Platforms.ActiveCfg = Debug|x86
-		{5BF6646D-6F46-45E5-8806-8783F030F311}.Debug|Mixed Platforms.Build.0 = Debug|x86
-		{5BF6646D-6F46-45E5-8806-8783F030F311}.Debug|x86.ActiveCfg = Debug|x86
-		{5BF6646D-6F46-45E5-8806-8783F030F311}.Debug|x86.Build.0 = Debug|x86
-		{5BF6646D-6F46-45E5-8806-8783F030F311}.DVD-5|Any CPU.ActiveCfg = Debug|x86
-		{5BF6646D-6F46-45E5-8806-8783F030F311}.DVD-5|Mixed Platforms.ActiveCfg = Debug|x86
-		{5BF6646D-6F46-45E5-8806-8783F030F311}.DVD-5|Mixed Platforms.Build.0 = Debug|x86
-		{5BF6646D-6F46-45E5-8806-8783F030F311}.DVD-5|x86.ActiveCfg = Debug|x86
-		{5BF6646D-6F46-45E5-8806-8783F030F311}.DVD-5|x86.Build.0 = Debug|x86
-		{5BF6646D-6F46-45E5-8806-8783F030F311}.Release|Any CPU.ActiveCfg = Release|x86
-		{5BF6646D-6F46-45E5-8806-8783F030F311}.Release|Mixed Platforms.ActiveCfg = Release|x86
-		{5BF6646D-6F46-45E5-8806-8783F030F311}.Release|Mixed Platforms.Build.0 = Release|x86
-		{5BF6646D-6F46-45E5-8806-8783F030F311}.Release|x86.ActiveCfg = Release|x86
-		{5BF6646D-6F46-45E5-8806-8783F030F311}.Release|x86.Build.0 = Release|x86
-		{5BF6646D-6F46-45E5-8806-8783F030F311}.SingleImage|Any CPU.ActiveCfg = Release|x86
-		{5BF6646D-6F46-45E5-8806-8783F030F311}.SingleImage|Mixed Platforms.ActiveCfg = Release|x86
-		{5BF6646D-6F46-45E5-8806-8783F030F311}.SingleImage|Mixed Platforms.Build.0 = Release|x86
-		{5BF6646D-6F46-45E5-8806-8783F030F311}.SingleImage|x86.ActiveCfg = Release|x86
-		{5BF6646D-6F46-45E5-8806-8783F030F311}.SingleImage|x86.Build.0 = Release|x86
 		{54DBCFAE-14B1-4811-94AF-B59FFF61EA73}.CD_ROM|Any CPU.ActiveCfg = Release|x86
 		{54DBCFAE-14B1-4811-94AF-B59FFF61EA73}.CD_ROM|Any CPU.Build.0 = Release|x86
 		{54DBCFAE-14B1-4811-94AF-B59FFF61EA73}.CD_ROM|Mixed Platforms.ActiveCfg = Release|x86

Global_Indexer/AboutBox1.Designer.vb

@@ -97,10 +97,10 @@ Partial Class AboutBox1
         Me.LinkLabel1.AutoSize = True
         Me.LinkLabel1.Location = New System.Drawing.Point(281, 200)
         Me.LinkLabel1.Name = "LinkLabel1"
-        Me.LinkLabel1.Size = New System.Drawing.Size(93, 13)
+        Me.LinkLabel1.Size = New System.Drawing.Size(127, 13)
         Me.LinkLabel1.TabIndex = 6
         Me.LinkLabel1.TabStop = True
-        Me.LinkLabel1.Text = "www.didalog.de"
+        Me.LinkLabel1.Text = "www.digitaldata.works"
         '
         'AboutBox1
         '

Global_Indexer/AboutBox1.vb

@@ -12,16 +12,13 @@
         If USER_LANGUAGE = "de-DE" Then
             Me.Text = String.Format("Information zu: {0}", ApplicationTitle)
         Else
-            Me.Text = String.Format("Informations about: {0}", ApplicationTitle)
+            Me.Text = String.Format("Information about: {0}", ApplicationTitle)
         End If
 
-        ' Initialisieren Sie den gesamten Text, der im Infofeld angezeigt wird.
-        ' TODO: Die Assemblyinformationen der Anwendung im Bereich "Anwendung" des Dialogfelds für die 
-        '    Projekteigenschaften (im Menü "Projekt") anpassen.
         lblProduktname.Text = My.Application.Info.ProductName
-        Me.lblVersion.Text = String.Format("Version {0}", My.Application.Info.Version.ToString)
+        lblVersion.Text = String.Format("Version {0}", My.Application.Info.Version.ToString)
-        Me.lblCompanyName.Text = My.Application.Info.CompanyName
+        lblCompanyName.Text = My.Application.Info.CompanyName
-        Me.txtDescription.Text = My.Application.Info.Description
+        txtDescription.Text = My.Application.Info.Description
     End Sub
 
     Private Sub OKButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OKButton.Click
@@ -33,6 +30,6 @@
         ' Specify that the link was visited.
         Me.LinkLabel1.LinkVisited = True
         ' Navigate to a URL.
-        System.Diagnostics.Process.Start("http://www.didalog.de")
+        System.Diagnostics.Process.Start("https://digitaldata.works")
     End Sub
 End Class

Global_Indexer/App.config

@@ -1,54 +1,54 @@
 <?xml version="1.0" encoding="utf-8"?>
 <configuration>
-    <configSections>
+  <configSections>
-        <sectionGroup name="userSettings" type="System.Configuration.UserSettingsGroup, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <sectionGroup name="applicationSettings" type="System.Configuration.ApplicationSettingsGroup, System">
-            <section name="Global_Indexer.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" allowExeDefinition="MachineToLocalUser" requirePermission="false"/>
+      <section name="DevExpress.LookAndFeel.Design.AppSettings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" requirePermission="false" />
-        </sectionGroup>
+    </sectionGroup>
-        <sectionGroup name="applicationSettings" type="System.Configuration.ApplicationSettingsGroup, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+  </configSections>
-            <section name="Global_Indexer.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" requirePermission="false"/>
+  <applicationSettings>
-        </sectionGroup>
+    <DevExpress.LookAndFeel.Design.AppSettings>
-    </configSections>
+      <setting name="DefaultAppSkin" serializeAs="String">
-    <connectionStrings>
+        <value>Skin/Office 2019 Colorful</value>
-        <add name="Global_Indexer.My.MySettings.DD_ECMConnectionString"
+      </setting>
-            connectionString="Data Source=172.24.12.41\TESTS;Initial Catalog=DD_ECM_TEST;Persist Security Info=True;User ID=sa;Password=dd"
+      <setting name="DefaultPalette" serializeAs="String">
-            providerName="System.Data.SqlClient" />
+        <value>Fire Brick</value>
-    </connectionStrings>
+      </setting>
-    <startup>
+      <setting name="TouchUI" serializeAs="String">
-        <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.6.1"/>
+        <value></value>
-    </startup>
+      </setting>
-    <userSettings>
+      <setting name="CompactUI" serializeAs="String">
-        <Global_Indexer.My.MySettings>
+        <value></value>
-            <setting name="SplitterDistance_Viewer" serializeAs="String">
+      </setting>
-                <value>526</value>
+      <setting name="TouchScaleFactor" serializeAs="String">
-            </setting>
+        <value></value>
-            <setting name="WDSearch_maximized" serializeAs="String">
+      </setting>
-                <value>True</value>
+      <setting name="DirectX" serializeAs="String">
-            </setting>
+        <value></value>
-            <setting name="Show_IndexResult" serializeAs="String">
+      </setting>
-                <value>True</value>
+      <setting name="RegisterUserSkins" serializeAs="String">
-            </setting>
+        <value></value>
-            <setting name="DoNot_Show_Documents" serializeAs="String">
+      </setting>
-                <value>False</value>
+      <setting name="RegisterBonusSkins" serializeAs="String">
-            </setting>
+        <value></value>
-            <setting name="AppTerminate" serializeAs="String">
+      </setting>
-                <value>False</value>
+      <setting name="FontBehavior" serializeAs="String">
-            </setting>
+        <value></value>
-            <setting name="DA_Vorauswahlaktiv" serializeAs="String">
+      </setting>
-                <value>False</value>
+      <setting name="DefaultAppFont" serializeAs="String">
-            </setting>
+        <value></value>
-            <setting name="REGEX_Replace" serializeAs="String">
+      </setting>
-                <value />
+      <setting name="DPIAwarenessMode" serializeAs="String">
-            </setting>
+        <value>System</value>
-            <setting name="FilenameTest" serializeAs="String">
+      </setting>
-                <value>myFilename.pdf</value>
+      <setting name="CustomPaletteCollection" serializeAs="Xml">
-            </setting>
+        <value />
-        </Global_Indexer.My.MySettings>
+      </setting>
-    </userSettings>
+    </DevExpress.LookAndFeel.Design.AppSettings>
-    <applicationSettings>
+  </applicationSettings>
-        <Global_Indexer.My.MySettings>
+  <connectionStrings>
-            <setting name="Test" serializeAs="String">
+    <add name="Global_Indexer.My.MySettings.DD_ECMConnectionString" connectionString="Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=DD_ECM_TEST;Persist Security Info=True;User ID=sa;Password=dd" providerName="System.Data.SqlClient" />
-                <value>DigitalData\windream_CLIENT_WMCC_Neustart</value>
+  </connectionStrings>
-            </setting>
+  <startup>
-        </Global_Indexer.My.MySettings>
+    <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.6.1" />
-    </applicationSettings>
+  </startup>
-</configuration>
+</configuration>

Global_Indexer/ClassConfig.vb

@@ -8,10 +8,15 @@ Public Class ClassConfig
     Public Property FolderWatchStarted As Boolean = False
     Public Property FolderWatchScanStarted As Boolean = False
 
-    ' PDF Viewer Settings
+    ' Index Form Settings
     Public Property FilePreview As Boolean = True
+    Public Property SplitterDistanceViewer As Integer = 500
+    Public Property ProfilePreselection As Boolean = False
+    Public Property ShowIndexResult As Boolean = True
+    Public Property DeleteOriginalFile As Boolean = False
+    Public Property TopMost As Boolean = True
 
     ' Misc Settings
-    Public Property DeleteOriginalFile As Boolean = False
     Public Property LogErrorsOnly As Boolean = True
+    Public Property WindreamSearchMaximized As Boolean = False
 End Class

Global_Indexer/ClassControls.vb

@@ -2,6 +2,7 @@
 Imports Oracle.ManagedDataAccess.Client
 Imports DigitalData.Controls.LookupGrid
 
+
 Public Class ClassControls
     Private Property Form As frmIndex
     Private Property Panel As Panel
@@ -48,7 +49,8 @@ Public Class ClassControls
 
             Return chk
         Catch ex As Exception
-            ClassLogger.Add("Unhandled Exception in AddCheckBox: " & ex.Message, True)
+            LOGGER.Info("Unhandled Exception in AddCheckBox: " & ex.Message)
+            LOGGER.Error(ex)
             Return Nothing
         End Try
     End Function
@@ -57,44 +59,71 @@ Public Class ClassControls
         PrepareDependingControl(sender)
     End Sub
 
-    Public Function AddVorschlag_ComboBox(indexname As String, y As Integer, conid As Integer, sql_Vorschlag As String, Multiselect As Boolean, DataType As String, Optional Vorgabe As String = "", Optional AddNewValues As Boolean = False, Optional PreventDuplicateValues As Boolean = False) As Control
+    'Public Function AddVorschlag_ComboBox(indexname As String, y As Integer, conid As Integer, sql_Vorschlag As String, Multiselect As Boolean, DataType As String, Optional Vorgabe As String = "", Optional AddNewValues As Boolean = False, Optional PreventDuplicateValues As Boolean = False, Optional SQLSuggestion As Boolean = False) As Control
-        Try
+    '    Try
-            Dim oSql As String = sql_Vorschlag
+    '        Dim oSql As String = sql_Vorschlag
-            Dim oConnectionString As String
+    '        Dim oConnectionString As String
-            Dim oControl As New DigitalData.Controls.LookupGrid.LookupControl2 With {
+    '        Dim oControl As New DigitalData.Controls.LookupGrid.LookupControl3 With {
-                .MultiSelect = Multiselect,
+    '            .MultiSelect = Multiselect,
-                .AllowAddNewValues = AddNewValues,
+    '            .AllowAddNewValues = AddNewValues,
-                .PreventDuplicates = PreventDuplicateValues,
+    '            .PreventDuplicates = PreventDuplicateValues,
-                .Location = New Point(11, y),
+    '            .Location = New Point(11, y),
-                .Size = New Size(300, 27),
+    '            .Size = New Size(300, 27),
-                .Name = "cmbMulti" & indexname,
+    '            .Name = "cmbMulti" & indexname,
-                .Tag = New ControlMeta() With {
+    '            .Tag = New ControlMeta() With {
-                    .IndexName = indexname,
+    '                .IndexName = indexname,
-                    .IndexType = DataType
+    '                .IndexType = DataType
-                }
+    '            }
-            }
+    '        }
+    '        oControl.Properties.AppearanceFocused.BackColor = Color.FromArgb(255, 214, 49)
 
-            AddHandler oControl.SelectedValuesChanged, AddressOf Lookup_SelectedValuesChanged
+    '        If Not String.IsNullOrEmpty(Vorgabe) Then
+    '            Dim oDefaultValues As New List(Of String)
 
-            oConnectionString = ClassFormFunctions.GetConnectionString(conid)
+    '            If Vorgabe.Contains(",") Then
-            If oConnectionString IsNot Nothing Then
+    '                oDefaultValues = Vorgabe.
-                If ClassPatterns.HasComplexPatterns(oSql) Then
+    '                    Split(",").ToList().
-                    LOGGER.Debug(" >>sql enthält Platzhalter und wird erst während der Laufzeit gefüllt!", False)
+    '                    Select(Function(item) item.Trim()).
-                Else
+    '                    ToList()
-                    Dim oDatatable = ClassDatabase.Return_Datatable_Combined(oSql, oConnectionString, False)
+    '            Else
-                    oControl.DataSource = oDatatable
+    '                oDefaultValues = Vorgabe.
-                End If
+    '                    Split(ClassConstants.VECTORSEPARATOR).ToList().
-            End If
+    '                    Select(Function(item) item.Trim()).
+    '                    ToList()
+    '            End If
+    '            oControl.SelectedValues = oDefaultValues
+    '        End If
 
-            Return oControl
+    '        AddHandler oControl.SelectedValuesChanged, AddressOf Lookup_SelectedValuesChanged
-        Catch ex As Exception
-            ClassLogger.Add(" - Unvorhergesehener Unexpected error in AddVorschlag_ComboBox - Indexname: " & indexname & " - Fehler: " & vbNewLine & ex.Message)
-            MsgBox(ex.Message, MsgBoxStyle.Critical, "Unvorhergesehener Unexpected error in AddVorschlag_ComboBox:")
-            Return Nothing
-        End Try
-    End Function
 
-    Private Sub Lookup_SelectedValuesChanged(sender As LookupControl2, SelectedValues As List(Of String))
+    '        oConnectionString = ClassFormFunctions.GetConnectionString(conid)
+
+    '        If oConnectionString IsNot Nothing And oSql.Length > 0 And SQLSuggestion = True Then
+    '            LOGGER.Debug("Connection String (redacted): [{0}]", oConnectionString.Substring(0, 30))
+
+    '            If ClassPatterns.HasComplexPatterns(oSql) Then
+    '                LOGGER.Debug(" >>sql enthält Platzhalter und wird erst während der Laufzeit gefüllt!", False)
+    '            Else
+    '                oSql = ClassPatterns.ReplaceInternalValues(oSql)
+    '                oSql = ClassPatterns.ReplaceUserValues(oSql, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_LANGUAGE, USER_EMAIL, USER_ID, CURRENT_DOKART_ID)
+
+    '                Dim oDatatable = ClassDatabase.Return_Datatable_Combined(oSql, oConnectionString, False)
+    '                oControl.DataSource = oDatatable
+    '            End If
+    '        Else
+    '            LOGGER.Warn("Connection String for control [{0}] is empty!", oControl.Name)
+    '        End If
+
+    '        Return oControl
+    '    Catch ex As Exception
+    '        LOGGER.Info(" - Unvorhergesehener Unexpected error in AddVorschlag_ComboBox - Indexname: " & indexname & " - Fehler: " & vbNewLine & ex.Message)
+    '        LOGGER.Error(ex)
+    '        MsgBox(ex.Message, MsgBoxStyle.Critical, "Unvorhergesehener Unexpected error in AddVorschlag_ComboBox:")
+    '        Return Nothing
+    '    End Try
+    'End Function
+
+    Private Sub Lookup_SelectedValuesChanged(sender As LookupControl3, SelectedValues As List(Of String))
         PrepareDependingControl(sender)
     End Sub
 
@@ -128,7 +157,7 @@ Public Class ClassControls
 
     Public Sub OncmbGotFocus(sender As System.Object, e As System.EventArgs)
         Dim cmb As ComboBox = sender
-        cmb.BackColor = Color.Lime
+        cmb.BackColor = Color.FromArgb(255, 214, 49)
     End Sub
 
     Public Sub OncmbLostFocus(sender As System.Object, e As System.EventArgs)
@@ -265,54 +294,63 @@ Public Class ClassControls
                 Next
             End If
         Catch ex As Exception
-            ClassLogger.Add(" - Unvorhergesehener Unexpected error in Renew_ComboboxResults - Fehler: " & vbNewLine & ex.Message)
+            LOGGER.Info(" - Unvorhergesehener Unexpected error in Renew_ComboboxResults - Fehler: " & vbNewLine & ex.Message)
+            LOGGER.Error(ex)
             MsgBox(ex.Message, MsgBoxStyle.Critical, "Unvorhergesehener Unexpected error in Renew_ComboboxResults:")
         End Try
     End Sub
 
-    Public Function AddTextBox(indexname As String, y As Integer, text As String, DataType As String) As TextBox
+    Public Function AddTextBox(indexname As String, y As Integer, text As String, DataType As String) As DevExpress.XtraEditors.TextEdit
-        Dim txt As New TextBox
+        Dim oEdit As New DevExpress.XtraEditors.TextEdit With {
-        txt.Name = "txt" & indexname
+            .Name = "txt" & indexname,
-
+            .Size = New Size(260, 27),
-        txt.Size = New Size(260, 27)
+            .Location = New Point(11, y),
-        txt.Location = New Point(11, y)
+             .Tag = New ControlMeta() With {
-        txt.Tag = New ControlMeta() With {
+                .IndexName = indexname,
-            .IndexName = indexname,
+                .IndexType = DataType
-            .IndexType = DataType
+            }
         }
 
-        If text <> "" Then
+        Select Case DataType
-            txt.Text = text
+            Case "INTEGER"
-            txt.Size = New Size(CInt(text.Length * 15), 27)
+                oEdit.Properties.Mask.MaskType = DevExpress.XtraEditors.Mask.MaskType.Numeric
-            txt.SelectAll()
+                oEdit.Properties.Mask.EditMask = "d"
+                Console.WriteLine()
+        End Select
+
+        If text IsNot Nothing Then
+            oEdit.Text = text
+            oEdit.SelectAll()
         End If
-        AddHandler txt.GotFocus, AddressOf OnTextBoxFocus
+
-        AddHandler txt.LostFocus, AddressOf OnTextBoxLostFocus
+        AddHandler oEdit.GotFocus, AddressOf OnTextBoxFocus
-        AddHandler txt.KeyUp, AddressOf OnTextBoxKeyUp
+        AddHandler oEdit.LostFocus, AddressOf OnTextBoxLostFocus
-        AddHandler txt.TextChanged, AddressOf OnTextBoxTextChanged
+        AddHandler oEdit.KeyUp, AddressOf OnTextBoxKeyUp
-        Return txt
+        AddHandler oEdit.TextChanged, AddressOf OnTextBoxTextChanged
+
+        Return oEdit
     End Function
 
     Public Sub OnTextBoxFocus(sender As System.Object, e As System.EventArgs)
-        Dim oTextbox As TextBox = sender
+        Dim oTextbox As DevExpress.XtraEditors.TextEdit = sender
-        oTextbox.BackColor = Color.Lime
+        oTextbox.BackColor = Color.FromArgb(255, 214, 49)
         oTextbox.SelectAll()
     End Sub
 
     Public Sub OnTextBoxTextChanged(sender As System.Object, e As System.EventArgs)
-        Dim oTextbox As TextBox = sender
+        Dim oTextbox As DevExpress.XtraEditors.TextEdit = sender
         Using oGraphics As Graphics = oTextbox.CreateGraphics()
             oTextbox.Width = oGraphics.MeasureString(oTextbox.Text, oTextbox.Font).Width + 15
         End Using
     End Sub
 
     Public Sub OnTextBoxLostFocus(sender As System.Object, e As System.EventArgs)
-        Dim oTextbox As TextBox = sender
+        Dim oTextbox As DevExpress.XtraEditors.TextEdit = sender
         oTextbox.BackColor = Color.White
     End Sub
 
     Public Sub OnTextBoxKeyUp(sender As System.Object, e As System.Windows.Forms.KeyEventArgs)
-        Dim oTextbox As TextBox = sender
+        Dim oTextbox As DevExpress.XtraEditors.TextEdit = sender
 
         If oTextbox.Text = String.Empty Then
             Exit Sub
@@ -327,6 +365,32 @@ Public Class ClassControls
         End If
     End Sub
 
+
+    Public Function AddDateTimePicker(indexname As String, y As Integer, DataType As String, Vorgabe As String) As DevExpress.XtraEditors.DateEdit
+        Dim oPicker As New DevExpress.XtraEditors.DateEdit With {
+            .Name = "dtp" & indexname,
+            .Size = New Size(260, 27),
+            .Location = New Point(11, y),
+            .Tag = New ControlMeta() With {
+                .IndexName = indexname,
+                .IndexType = DataType
+            }
+        }
+
+        If Vorgabe.ToUpper = "$NULL" Then
+            oPicker.EditValue = Nothing
+        ElseIf Vorgabe IsNot Nothing Then
+            oPicker.EditValue = Vorgabe
+        End If
+
+        oPicker.Properties.AppearanceFocused.BackColor = Color.FromArgb(255, 214, 49)
+
+        Return oPicker
+    End Function
+    Sub OndtpChanged()
+        'offen was hier zu tun ist
+    End Sub
+
     Private Sub PrepareDependingControl(Control As Control)
         If TypeOf Control Is Label Then
             Exit Sub
@@ -339,6 +403,8 @@ Public Class ClassControls
             Dim oDatatable As DataTable = ClassDatabase.Return_Datatable(oSQL)
 
             If Not IsNothing(oDatatable) Then
+                LOGGER.Debug("Found [{0}] depending controls for [{1}]", oDatatable.Rows.Count, Control.Name)
+
                 For Each oRow As DataRow In oDatatable.Rows
                     Dim oControlName As String = NotNull(oRow.Item("NAME"), "")
                     Dim oConnectionId As Integer = NotNull(oRow.Item("CONNECTION_ID"), -1)
@@ -349,13 +415,14 @@ Public Class ClassControls
                         Continue For
                     End If
 
-                    oControlSql = ClassPatterns.ReplaceUserValues(oControlSql, USER_PRENAME, USER_SURNAME, USER_SHORT_NAME, USER_LANGUAGE, USER_EMAIL, USER_ID, CURRENT_DOKART_ID)
+                    oControlSql = ClassPatterns.ReplaceUserValues(oControlSql, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_LANGUAGE, USER_EMAIL, USER_ID, CURRENT_DOKART_ID)
                     oControlSql = ClassPatterns.ReplaceInternalValues(oControlSql)
                     oControlSql = ClassPatterns.ReplaceControlValues(oControlSql, Panel)
 
+                    LOGGER.Debug("SQL After Preparing: [{0}]", oControlSql)
+                    LOGGER.Debug("Setting new value for [{0}]", oControlName)
                     SetDependingControlResult(oControlName, oControlSql, oConnectionId)
                 Next
-
             End If
         Catch ex As Exception
             LOGGER.Error(ex)
@@ -364,6 +431,11 @@ Public Class ClassControls
 
     Private Sub SetDependingControlResult(IndexName As String, SqlCommand As String, SqlConnectionId As Integer)
         Try
+            If SqlCommand Is Nothing OrElse SqlCommand = String.Empty Then
+                LOGGER.Warn("New Value for Index [{0}] could not be set. Supplied SQL is empty.")
+                Exit Sub
+            End If
+
             Dim oConnectionString = ClassFormFunctions.GetConnectionString(SqlConnectionId)
             Dim oDatatable As DataTable = ClassDatabase.Return_Datatable_CS(SqlCommand, oConnectionString)
             Dim oFoundControl As Control = Nothing
@@ -382,15 +454,35 @@ Public Class ClassControls
                 End If
             Next
 
-            If oFoundControl IsNot Nothing Then
+            If oFoundControl Is Nothing Then
-                If TypeOf oFoundControl Is TextBox Then
+                LOGGER.Warn("Depending Control for Index [{0}] not found!", IndexName)
-                    DirectCast(oFoundControl, TextBox).Text = oDatatable.Rows.Item(0).Item(0)
-                ElseIf TypeOf oFoundControl Is LookupControl2 Then
-                    DirectCast(oFoundControl, LookupControl2).DataSource = oDatatable
-                ElseIf TypeOf oFoundControl Is ComboBox Then
-                    DirectCast(oFoundControl, ComboBox).DataSource = oDatatable
-                End If
             End If
+
+            If oDatatable Is Nothing Then
+                LOGGER.Warn("Error in SQL Command: {0}", SqlCommand)
+            End If
+
+            Select Case oFoundControl.GetType.Name
+                Case GetType(DevExpress.XtraEditors.TextEdit).Name
+                    If oDatatable.Rows.Count > 0 Then
+                        Dim oFirstRow As DataRow = oDatatable.Rows.Item(0)
+
+                        If oFirstRow.ItemArray.Length > 0 Then
+                            Dim oValue = oFirstRow.Item(0).ToString()
+
+                            LOGGER.Debug("Setting Value for TextEdit [{0}]: [{1}]", oFoundControl.Name, oValue)
+                            DirectCast(oFoundControl, DevExpress.XtraEditors.TextEdit).Text = oValue
+                        End If
+                    End If
+                Case GetType(LookupControl3).Name
+                    LOGGER.Debug("Setting Value for LookupControl [{0}]: [{1}]", oFoundControl.Name, "DATATABLE")
+                    DirectCast(oFoundControl, LookupControl3).Properties.DataSource = oDatatable
+                Case GetType(ComboBox).Name
+                    LOGGER.Debug("Setting Value for Combobox [{0}]: [{1}]", oFoundControl.Name, "DATATABLE")
+                    DirectCast(oFoundControl, ComboBox).DataSource = oDatatable
+                Case Else
+                    LOGGER.Debug("Could not set depending control result for [{0}]", oFoundControl.GetType.Name)
+            End Select
         Catch ex As Exception
             LOGGER.Error(ex)
         End Try

Global_Indexer/ClassDatabase.vb

@@ -17,7 +17,8 @@ Public Class ClassDatabase
             SQLconnect.Close()
             Return True
         Catch ex As Exception
-            ClassLogger.Add("Unexpected error in Database-Init: " & ex.Message, True)
+            LOGGER.Info("Unexpected error in Database-Init: " & ex.Message)
+            LOGGER.Error(ex)
             Return False
         End Try
     End Function
@@ -47,11 +48,11 @@ Public Class ClassDatabase
                         '    Dim conn As New OdbcConnection("dsn=" & DTConnection.Rows(0).Item("SERVER") & ";uid=" & DTConnection.Rows(0).Item("USERNAME") & ";pwd=" + DTConnection.Rows(0).Item("PASSWORD"))
                         '    connectionString = conn.ConnectionString
                     Case Else
-                        LOGGER.Info(" - ConnectionType nicht integriert", False)
+                        LOGGER.Info(" - ConnectionType nicht integriert")
                         MsgBox("ConnectionType nicht integriert", MsgBoxStyle.Critical, "Bitte Konfiguration Connection überprüfen!")
                 End Select
             Else
-                LOGGER.Info(" No entry for Connection-ID: " & id.ToString, True)
+                LOGGER.Info(" No entry for Connection-ID: " & id.ToString)
             End If
 
         Catch ex As Exception
@@ -64,13 +65,13 @@ Public Class ClassDatabase
 
     Public Shared Function Return_Datatable_Combined(SqlCommand As String, ConnectionString As String, Optional userInput As Boolean = False)
         If ConnectionString.Contains("Initial Catalog=") Then
-            Return Return_Datatable(SqlCommand, userInput)
+            Return Return_Datatable_CS(SqlCommand, ConnectionString, userInput)
         Else
             Return Oracle_Return_Datatable(SqlCommand, ConnectionString, userInput)
         End If
     End Function
 
-    Public Shared Function Return_Datatable(sql_command As String, Optional userInput As Boolean = False)
+    Public Shared Function Return_Datatable(sql_command As String, Optional userInput As Boolean = False) As DataTable
         Try
             Dim SQLconnect As New SqlConnection
             Dim SQLcommand As SqlCommand
@@ -94,21 +95,21 @@ Public Class ClassDatabase
                 If userInput = True Then
                     MsgBox("Error in Return_Datatable - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & sql_command, MsgBoxStyle.Critical)
                 End If
-                ClassLogger.Add("Unexpected error in Return_Datatable: " & ex.Message, True)
+                LOGGER.Error(ex)
-                ClassLogger.Add("#SQL: " & sql_command, False)
+                LOGGER.Info("#SQL: " & sql_command)
             End If
 
-            Return False
+            Return Nothing
         Catch ex As Exception
             If userInput = True Then
                 MsgBox("Error in Return Datatable - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & sql_command, MsgBoxStyle.Critical)
             End If
-            ClassLogger.Add("Unexpected error in Return_Datatable: " & ex.Message, True)
+            LOGGER.Error(ex)
-            ClassLogger.Add("#SQL: " & sql_command, False)
+            LOGGER.Info("#SQL: " & sql_command)
             Return Nothing
         End Try
     End Function
-    Public Shared Function Return_Datatable_CS(sql_command As String, ConString As String, Optional userInput As Boolean = False)
+    Public Shared Function Return_Datatable_CS(sql_command As String, ConString As String, Optional userInput As Boolean = False) As DataTable
         Try
             Dim SQLconnect As New SqlConnection
             Dim SQLcommand As SqlCommand
@@ -133,21 +134,21 @@ Public Class ClassDatabase
                 If userInput = True Then
                     MsgBox("Error in Return_Datatable_CS - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & sql_command, MsgBoxStyle.Critical)
                 End If
-                ClassLogger.Add("Unexpected error in Return_Datatable_CS: " & ex.Message, True)
+                LOGGER.Error(ex)
-                ClassLogger.Add("#SQL: " & sql_command, False)
+                LOGGER.Info("#SQL: " & sql_command)
             End If
 
-            Return False
+            Return Nothing
         Catch ex As Exception
             If userInput = True Then
                 MsgBox("Error in Return_Datatable_CS - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & sql_command, MsgBoxStyle.Critical)
             End If
-            ClassLogger.Add("Unexpected error in Return_Datatable_CS: " & ex.Message, True)
+            LOGGER.Error(ex)
-            ClassLogger.Add("#SQL: " & sql_command, False)
+            LOGGER.Info("#SQL: " & sql_command)
             Return Nothing
         End Try
     End Function
-    Public Shared Function Execute_non_Query(sql_command As String, Optional userInput As Boolean = False)
+    Public Shared Function Execute_non_Query(sql_command As String, Optional userInput As Boolean = False) As Boolean
         Try
             Dim SQLconnect As New SqlConnection
             Dim SQLcommand As SqlCommand
@@ -171,8 +172,8 @@ Public Class ClassDatabase
                 If userInput = True Then
                     MsgBox("Error in Execute non query - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & sql_command, MsgBoxStyle.Critical)
                 End If
-                ClassLogger.Add("Unexpected error in Execute_non_Query: " & ex.Message, True)
+                LOGGER.Error(ex)
-                ClassLogger.Add("#SQL: " & sql_command, False)
+                LOGGER.Info("#SQL: " & sql_command)
             End If
 
             Return False
@@ -180,8 +181,34 @@ Public Class ClassDatabase
             If userInput = True Then
                 MsgBox("Error in Execute non query - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & sql_command, MsgBoxStyle.Critical)
             End If
-            ClassLogger.Add("Unexpected error in Execute_non_Query: " & ex.Message, True)
+            LOGGER.Error(ex)
-            ClassLogger.Add("#SQL: " & sql_command, False)
+            LOGGER.Info("#SQL: " & sql_command)
+
+            Return False
+        End Try
+    End Function
+    Public Shared Function Execute_non_Query_ConStr(ExecuteCMD As String, ConnString As String, Optional userInput As Boolean = False)
+        Try
+            Dim SQLconnect As New SqlClient.SqlConnection
+            Dim SQLcommand As SqlClient.SqlCommand
+            SQLconnect.ConnectionString = ConnString
+            SQLconnect.Open()
+            SQLcommand = SQLconnect.CreateCommand
+            'Update Last Created Record in Foo
+            SQLcommand.CommandText = ExecuteCMD
+            LOGGER.Debug("Execute_non_Query_ConStr Created: " & ExecuteCMD)
+            SQLcommand.ExecuteNonQuery()
+            SQLcommand.Dispose()
+            SQLconnect.Close()
+            Return True
+        Catch ex As Exception
+            LOGGER.Error(ex)
+            If userInput = True Then
+                MsgBox("Error in Execute_non_Query_ConStr - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & ExecuteCMD, MsgBoxStyle.Critical)
+            End If
+            Clipboard.SetText("Error Execute_non_Query_ConStr: " & ex.Message & vbNewLine & "SQL: " & ExecuteCMD)
+            LOGGER.Info("Fehler bei Execute_non_Query_ConStr: " & ex.Message, True)
+            LOGGER.Info("#SQL: " & ExecuteCMD, False)
 
             Return False
         End Try
@@ -211,8 +238,8 @@ Public Class ClassDatabase
                 If userInput = True Then
                     MsgBox("Error in Execute non query - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & sql_command, MsgBoxStyle.Critical)
                 End If
-                ClassLogger.Add("Unexpected error in Execute_non_Query: " & ex.Message, True)
+                LOGGER.Error(ex)
-                ClassLogger.Add("#SQL: " & sql_command, False)
+                LOGGER.Info("#SQL: " & sql_command)
             End If
 
             Return False
@@ -220,8 +247,8 @@ Public Class ClassDatabase
             If userInput = True Then
                 MsgBox("Error in Execute Scalar - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & sql_command, MsgBoxStyle.Critical)
             End If
-            ClassLogger.Add("Unexpected error in Execute_Scalar: " & ex.Message, True)
+            LOGGER.Error(ex)
-            ClassLogger.Add("#SQL: " & sql_command, False)
+            LOGGER.Info("#SQL: " & sql_command)
             Return Nothing
         End Try
     End Function
@@ -240,8 +267,9 @@ Public Class ClassDatabase
             SQLconnect.Close()
             Return result
         Catch ex As Exception
-            ClassLogger.Add("Unexpected error in OracleExecute_Scalar: " & ex.Message, True)
+            LOGGER.Info("Unexpected error in OracleExecute_Scalar: " & ex.Message)
-            ClassLogger.Add("#SQL: " & cmdscalar, False)
+            LOGGER.Error(ex)
+            LOGGER.Info("#SQL: " & cmdscalar)
             Return Nothing
         End Try
     End Function
@@ -262,8 +290,8 @@ Public Class ClassDatabase
             If userInput = True Then
                 MsgBox("Error in OracleExecute_non_Query - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & ExecuteCMD, MsgBoxStyle.Critical)
             End If
-            ClassLogger.Add("Unexpected error in OracleExecute_non_Query: " & ex.Message, True)
+            LOGGER.Error(ex)
-            ClassLogger.Add("#SQL: " & ExecuteCMD, False)
+            LOGGER.Info("#SQL: " & ExecuteCMD)
 
             Return False
         End Try
@@ -287,8 +315,8 @@ Public Class ClassDatabase
             If userInput = True Then
                 MsgBox("Error in Oracle Return Datatable - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & Select_anweisung, MsgBoxStyle.Critical)
             End If
-            ClassLogger.Add("Unexpected error in Oracle_Return_Datatable: " & ex.Message, True)
+            LOGGER.Error(ex)
-            ClassLogger.Add("#SQL: " & Select_anweisung, False)
+            LOGGER.Info("#SQL: " & Select_anweisung)
             Return Nothing
         End Try
     End Function
@@ -299,8 +327,8 @@ Public Class ClassDatabase
         If FatalErrors.Contains(ex.Number) Then
             DatabaseConnectionTimeout = True
 
-            ClassLogger.Add("Network timeout error in Return_Datatable: " & ex.Message, True)
+            LOGGER.Info("Network timeout error in Return_Datatable: " & ex.Message)
-            ClassLogger.Add("#SQL: " & sql_command, False)
+            LOGGER.Info("#SQL: " & sql_command)
 
             Return True
         Else

Global_Indexer/ClassDatatables.vb

@@ -0,0 +1,139 @@
+Public Class ClassDatatables
+
+#Region "TBDD_GROUP"
+    Public Shared Function AddGroupToProfile(GroupId As Integer, ProfileId As Integer) As Boolean
+        Try
+            Dim oSQL = $"
+                INSERT INTO TBDD_USRGRP_DOKTYPE 
+                (DOCTYPE_ID, GROUP_ID, ADDED_WHO)
+                VALUES ({ProfileId}, {GroupId}, '{Environment.UserName}')
+            "
+            Return ClassDatabase.Execute_non_Query(oSQL, True)
+        Catch ex As Exception
+            LOGGER.Error(ex)
+            Return False
+        End Try
+    End Function
+
+    Public Shared Function RemoveGroupFromProfile(GroupId As Integer, ProfileId As Integer) As Boolean
+        Try
+            Dim oSQL = $"DELETE FROM TBDD_USRGRP_DOKTYPE WHERE DOCTYPE_ID = {ProfileId} AND GROUP_ID = {GroupId}"
+            Return ClassDatabase.Execute_non_Query(oSQL, True)
+        Catch ex As Exception
+            LOGGER.Error(ex)
+            Return False
+        End Try
+    End Function
+
+    Public Shared Function GetAssignedGroups(ProfileId As Integer) As DataTable
+        Try
+            Dim oSQL As String = $"
+                SELECT GUID, NAME FROM TBDD_GROUPS
+                WHERE GUID IN
+	            (
+		            SELECT        GROUP_ID
+		            FROM          TBDD_USRGRP_DOKTYPE
+		            WHERE         DOCTYPE_ID = {ProfileId}
+	            )
+            "
+            Dim oDatatable As DataTable = ClassDatabase.Return_Datatable(oSQL)
+
+            Return oDatatable
+        Catch ex As Exception
+            LOGGER.Error(ex)
+            Return Nothing
+        End Try
+    End Function
+
+    Public Shared Function GetAvailableGroups(ProfileId As Integer) As DataTable
+        Try
+            Dim oSQL As String = $"
+                SELECT GUID, NAME FROM TBDD_GROUPS
+                WHERE GUID NOT IN
+	            (
+		            SELECT        GROUP_ID
+		            FROM          TBDD_USRGRP_DOKTYPE
+		            WHERE         DOCTYPE_ID = {ProfileId}
+	            )
+            "
+            Dim oDatatable As DataTable = ClassDatabase.Return_Datatable(oSQL)
+
+            Return oDatatable
+        Catch ex As Exception
+            LOGGER.Error(ex)
+            Return Nothing
+        End Try
+    End Function
+#End Region
+
+#Region "TBDD_USER"
+
+    Public Shared Function AddUserToProfile(UserId As Integer, ProfileId As Integer) As Boolean
+        Try
+            Dim oSQL = $"
+                INSERT INTO TBDD_USER_DOKTYPE 
+                (DOCTYPE_ID, USER_ID, ADDED_WHO)
+                VALUES ({ProfileId}, {UserId}, '{Environment.UserName}')
+            "
+            Return ClassDatabase.Execute_non_Query(oSQL, True)
+        Catch ex As Exception
+            LOGGER.Error(ex)
+            Return False
+        End Try
+    End Function
+
+    Public Shared Function RemoveUserFromProfile(UserId As Integer, ProfileId As Integer) As Boolean
+        Try
+            Dim oSQL = $"DELETE FROM TBDD_USER_DOKTYPE WHERE DOCTYPE_ID = {ProfileId} AND USER_ID = {UserId}"
+            Return ClassDatabase.Execute_non_Query(oSQL, True)
+        Catch ex As Exception
+            LOGGER.Error(ex)
+            Return False
+        End Try
+    End Function
+
+    Public Shared Function GetAssignedUsers(ProfileId As Integer) As DataTable
+        Try
+            Dim oSQL As String = $"
+                SELECT GUID, EMAIL, NAME + ', ' + PRENAME AS NAME FROM TBDD_USER
+                WHERE GUID IN (
+		                SELECT        USER_ID
+		                FROM          TBDD_USER_DOKTYPE
+		                WHERE         DOCTYPE_ID = {ProfileId}
+                )
+            "
+            Dim oDatatable As DataTable = ClassDatabase.Return_Datatable(oSQL)
+
+            Return oDatatable
+        Catch ex As Exception
+            LOGGER.Error(ex)
+            Return Nothing
+        End Try
+    End Function
+
+    Public Shared Function GetAvailableUsers(ProfileId As Integer) As DataTable
+        Try
+            Dim oSQL As String = $"
+                SELECT GUID, EMAIL, NAME + ', ' + PRENAME AS NAME FROM TBDD_USER
+                WHERE GUID NOT IN (
+		                SELECT        USER_ID
+		                FROM          TBDD_USER_DOKTYPE
+		                WHERE         DOCTYPE_ID = {ProfileId}
+	                )
+                AND GUID IN (SELECT USER_ID FROM [dbo].[FNDD_GET_USER_FOR_MODULE] ('GLOBIX', 1))
+            "
+            Dim oDatatable As DataTable = ClassDatabase.Return_Datatable(oSQL)
+
+            Return oDatatable
+        Catch ex As Exception
+            LOGGER.Error(ex)
+            Return Nothing
+        End Try
+    End Function
+#End Region
+
+
+
+
+
+End Class

Global_Indexer/ClassDragDrop.vb

@@ -1,135 +1,93 @@
-Imports System.IO
+Imports DevExpress.XtraGrid
-Imports Microsoft.Office.Interop
+Imports DevExpress.XtraGrid.Views.Grid
+Imports DevExpress.XtraGrid.Views.Grid.ViewInfo
+
 Public Class ClassDragDrop
-    Public Shared files_dropped As String()
+    Private downHitInfo As GridHitInfo = Nothing
-    Public Shared Function Drop_File(e As DragEventArgs)
+
+    Public Sub New()
+    End Sub
+
+    Public Sub AddGridView(view As GridView)
+        AddHandler view.MouseDown, AddressOf view_MouseDown
+        AddHandler view.MouseMove, AddressOf view_MouseMove
+        AddHandler view.GridControl.DragOver, AddressOf grid_DragOver
+    End Sub
+
+    Private Sub view_MouseDown(sender As Object, e As MouseEventArgs)
+        Dim view As GridView = sender
+        downHitInfo = Nothing
+        Dim hitInfo As GridHitInfo = view.CalcHitInfo(New Point(e.X, e.Y))
+
+        If Control.ModifierKeys <> Keys.None Then
+            Return
+        End If
+
+        If e.Button = MouseButtons.Left And hitInfo.RowHandle >= 0 Then
+            downHitInfo = hitInfo
+        End If
+    End Sub
+
+    Private Sub view_MouseMove(sender As Object, e As MouseEventArgs)
         Try
-            ClassLogger.Add(">> Drop_File", False)
+            Dim view As GridView = sender
-            files_dropped = Nothing
+            Dim hitInfo As GridHitInfo = view.CalcHitInfo(New Point(e.X, e.Y))
-            If e.Data.GetDataPresent(DataFormats.FileDrop) Then
+
-                Dim MyFiles() As String
+            If e.Button = MouseButtons.Left And Not IsNothing(downHitInfo) Then
-                Dim i As Integer
+                Dim dragSize As Size = SystemInformation.DragSize
-                ' Assign the files to an array. 
+                Dim dragRect As New Rectangle(New Point(downHitInfo.HitPoint.X - dragSize.Width / 2, downHitInfo.HitPoint.Y - dragSize.Height / 2), dragSize)
-                MyFiles = e.Data.GetData(DataFormats.FileDrop)
+
-                ' Loop through the array and add the files to the list. 
+                ' DragRect ist ein kleines Rechteck, dessen Mitte der Punkt ist, wo die Maus geklickt wurde.
-                For i = 0 To MyFiles.Length - 1
+                ' Es soll verhindern, dass durch schnelles Klicken unbeabsichtigt Drag'n'Drop Operationen initiiert werden
-                    ClassLogger.Add(">> Simple FileDrop - File: " & MyFiles(i), False)
+                ' Siehe: https://msdn.microsoft.com/en-us/library/system.windows.forms.systeminformation.dragsize(v=vs.110).aspx
-                    ReDim Preserve files_dropped(i)
+                If Not dragRect.Contains(New Point(e.X, e.Y)) Then
-                    files_dropped(i) = "|DROPFROMFSYSTEM|" & MyFiles(i)
+                    ' dragDropData enhält eine einzelne Row oder den kompletten View,
-                    ' ListBox1.Items.Add(MyFiles(i))
+                    ' jenachdem, wie die Drag'n'Drop Operation gestartet wurde.
-                Next
+                    Dim dragDropData As String
-                Return True
+
-            ElseIf (e.Data.GetDataPresent("FileGroupDescriptor")) AndAlso (e.Data.GetDataPresent("FileContents")) Then
+                    ' Wenn keine Zeile markiert ist
-                '// the first step here is to get the stbFileName
+                    If downHitInfo.RowHandle < 0 Then
-                '// of the attachment and
+                        Exit Sub
-                '// build a full-path name so we can store it
-                '// in the temporary folder
-                '//
-                '// set up to obtain the aryFileGroupDescriptor
-                '// and extract the file name                
-                Dim stmInput As IO.Stream = CType(e.Data.GetData("FileGroupDescriptor"), IO.Stream)
-                Dim aryFileGroupDescriptor(512) As Byte ' = new byte[512]
-                stmInput.Read(aryFileGroupDescriptor, 0, 512)
-                '// used to build the stbFileName from the aryFileGroupDescriptor block
-                Dim stbFileName As System.Text.StringBuilder = New System.Text.StringBuilder("")
-                '// this trick gets the stbFileName of the passed attached file
-                Dim intCnt As Integer = 76
-                Do While aryFileGroupDescriptor(intCnt) <> 0
-                    stbFileName.Append(Convert.ToChar(aryFileGroupDescriptor(intCnt), System.Globalization.CultureInfo.CreateSpecificCulture("de-DE")))
-                    intCnt += 1
-                Loop
-                stmInput.Close()
-                'Sonderzeichen entfernen
-                Dim Tempfilename = ClassFilehandle.InvalidCharacters(stbFileName.ToString)
-                Dim anhaenge = e.Data.GetDataPresent("FileContents")
-                'Dim path As String = "C:\VBProjekte\Dateien"
-                '// put the zip file into the temp directory
-                Dim strOutFile As String = Path.GetTempPath() & Tempfilename
-                '// create the full-path name
-                '//
-                '// Second step:  we have the file name. 
-                '// Now we need to get the actual raw
-                '// data for the attached file and copy it to disk so we work on it.
-                '//
-                '// get the actual raw file into memory
-                Dim msInput As IO.MemoryStream = CType(e.Data.GetData("FileContents", True), IO.MemoryStream) 'This returns nothing for an Email
-                If msInput Is Nothing = False Then
-                    '// allocate enough bytes to hold the raw date
-                    Dim aryFileBytes(CType(msInput.Length, Int32)) As Byte
-                    '// set starting position at first byte and read in the raw data
-                    msInput.Position = 0
-                    msInput.Read(aryFileBytes, 0, CType(msInput.Length, Int32))
-                    '// create a file and save the raw zip file to it
-                    Dim fsOutput As IO.FileStream = New IO.FileStream(strOutFile, IO.FileMode.Create) ';
-                    fsOutput.Write(aryFileBytes, 0, aryFileBytes.Length)
-                    fsOutput.Close() ' // close the file
-                    Dim resultVersion = ClassFilehandle.Versionierung_Datei(strOutFile)
-                    If resultVersion <> "" Then
-                        strOutFile = resultVersion
                     End If
-                    Dim finTemp As IO.FileInfo = New IO.FileInfo(strOutFile)
+
-                    '// always good to make sure we actually created the file
+                    ' Wenn zwar eine Zeile markiert ist, aber keine über die Checkbox angehakt wurde,
-                    If (finTemp.Exists = True) Then
+                    ' wird die markierte Zeile übergeben.
-                        ReDim Preserve files_dropped(0)
+                    ' Wenn 1 oder n Zeilen über die Checkbox angehakt wurde, werden diese übergeben
-                        files_dropped(0) = "|OUTLOOK_ATTACHMENT|" & strOutFile
+                    Dim row As DataRow = view.GetDataRow(downHitInfo.RowHandle)
-                        If LogErrorsOnly = False Then ClassLogger.Add(">> Drop an Attachment - File: " & strOutFile, False)
+                    Dim source As String = view.GridControl.Name
-                        Return True
+
-                    Else
+                    If Not IsNothing(row) Then
-                        ClassLogger.Add(">> Attachment File from Outlook could not be created", False)
+                        Try
+                            dragDropData = row.Item("GUID") & "|" & source
+
+                            view.GridControl.DoDragDrop(dragDropData, DragDropEffects.Move)
+                            downHitInfo = Nothing
+
+                            DevExpress.Utils.DXMouseEventArgs.GetMouseArgs(e).Handled = True
+                        Catch ex As Exception
+                            LOGGER.Error(ex)
+                        End Try
                     End If
                 End If
             End If
-            If e.Data.GetDataPresent("FileGroupDescriptor") Then
-                Dim oApp
-                Try
-                    oApp = New Outlook.Application()
-                Catch ex As Exception
-                    MsgBox("Unexpected error in Initialisieren von Outlook-API:" & vbNewLine & ex.Message & vbNewLine & vbNewLine & "Evtl ist Outlook nicht in der dafür vorgesehenen For")
-                End Try
-
-                ClassLogger.Add(">> Drop of msg", False)
-                'supports a drop of a Outlook message 
-                Dim myobj As Object
-                For i As Integer = 1 To oApp.ActiveExplorer.Selection.Count
-                    myobj = oApp.ActiveExplorer.Selection.Item(i)
-                    Dim subj As String = myobj.Subject
-                    If subj = "" Then
-                        subj = "NO_SUBJECT"
-                    End If
-                    If subj.Contains("\") Then
-                        subj = subj.Replace("\", "-")
-                    End If
-                    If subj.Contains("/") Then
-                        subj = subj.Replace("/", "-")
-                    End If
-                    'Sonderzeichen entfernen
-                    subj = ClassFilehandle.InvalidCharacters(subj)
-                    'hardcode a destination path for testing
-                    Dim strFile As String = IO.Path.Combine(Path.GetTempPath, subj + ".msg")
-                    strFile = strFile.Replace("?", "")
-                    strFile = strFile.Replace("!", "")
-                    strFile = strFile.Replace("%", "")
-                    strFile = strFile.Replace("$", "")
-                    ClassLogger.Add(">> Drop of msg - File:" & strFile, False)
-                    Try
-                        myobj.SaveAs(strFile)
-                    Catch ex As Exception
-                        MsgBox("Error in Save Email2Tempfile" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
-                        Return False
-                    End Try
-
-                    ReDim Preserve files_dropped(i)
-                    files_dropped(i) = "|OUTLOOK_MESSAGE|" & strFile
-                Next
-                Return True
-                'Drop eines Outlook Attachments
-            End If
         Catch ex As Exception
-            MsgBox("Error in Drop-File" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
+            LOGGER.Error(ex)
-            Return False
+            MsgBox("Error in view_MouseMove: " & ex.Message, MsgBoxStyle.Critical)
         End Try
-        
+    End Sub
 
-    End Function
+    Private Sub grid_DragOver(sender As Object, e As DragEventArgs)
-   
+        If e.Data.GetDataPresent(DataFormats.Text) Then
+            Dim data As String = e.Data.GetData(DataFormats.Text)
+            Dim source = data.Split("|")(1)
+
+            Dim grid As GridControl = sender
+
+            If grid.Name <> source Then
+                e.Effect = DragDropEffects.Move
+            End If
+        Else
+            e.Effect = DragDropEffects.None
+        End If
+    End Sub
 End Class

Global_Indexer/ClassEmail.vb

@@ -14,9 +14,9 @@ Public Class ClassEmail
             'Für jeden Empfänger eine Neue Mail erzeugen
             For Each _mailempfaenger As String In empfaenger
                 ' Neue Nachricht erzeugen: 
-                Dim message As New MailMessage(emailfrom, _mailempfaenger, vBetreff & " - Domain: " & Environment.UserDomainName, _
+                Dim message As New MailMessage(emailfrom, _mailempfaenger, vBetreff & " - Domain: " & Environment.UserDomainName,
-                                               "<font face=""Arial"">" & vBody & "<br>>> Version: " & My.Application.Info.Version.ToString & "<br>>> Maschine: " & Environment.MachineName & "<br>" & "<br>>> Domain-Name: " & Environment.UserDomainName & "<br>" & _
+                                               "<font face=""Arial"">" & vBody & "<br>>> Version: " & My.Application.Info.Version.ToString & "<br>>> Maschine: " & Environment.MachineName & "<br>" & "<br>>> Domain-Name: " & Environment.UserDomainName & "<br>" &
-                                               "<br>>> Gesendet am: " & My.Computer.Clock.LocalTime.ToShortDateString & " " & _
+                                               "<br>>> Gesendet am: " & My.Computer.Clock.LocalTime.ToShortDateString & " " &
                                                My.Computer.Clock.LocalTime.ToLongTimeString & "</font>")
                 If test = False Then
                     If Log = True Then
@@ -39,7 +39,7 @@ Public Class ClassEmail
                 'Einen SMTP Client erzeugen und Anmeldungsinformationen hinterlegen
                 Dim emailClient As New SmtpClient(emailsmtp)
                 'Email mit Authentifizierung
-                Dim SMTPUserInfo As New System.Net.NetworkCredential(emailuser, emailpw) ', My.Settings.vDomain)
+                Dim SMTPUserInfo As New System.Net.NetworkCredential(emailuser, emailpw)
                 emailClient.UseDefaultCredentials = False
                 emailClient.Credentials = SMTPUserInfo
                 emailClient.Port = 25
@@ -61,11 +61,12 @@ Public Class ClassEmail
                         MsgBox("Support-Email sucessfully sent!", MsgBoxStyle.Information, "Success:")
                     End If
                 End If
-                'ClassLogger.Add(">> Support/Log Email erfolgreich an " & _mailempfaenger & " versendet!", False)
+                'LOGGER.Info(">> Support/Log Email erfolgreich an " & _mailempfaenger & " versendet!")
             Next
             Return True
         Catch ex As Exception
-            ClassLogger.Add("### Fehler im Mailversand: " & ex.Message)
+            LOGGER.Info("### Fehler im Mailversand: " & ex.Message)
+            LOGGER.Error(ex)
             Return False
         End Try
     End Function

Global_Indexer/ClassEmailHeaderExtractor.vb

@@ -1,112 +1,105 @@
-Imports Independentsoft
+Imports Limilabs.Mail
+Imports Limilabs.Mail.MSG
 Imports System.Text.RegularExpressions
 
 Public Class ClassEmailHeaderExtractor
-    ''' <summary>
+    '''' <summary>
-    ''' Extrahiert die Headerinformationen aus einer .msg Datei mithilfe der MSG.NET Klasse
+    '''' Extrahiert die Headerinformationen aus einem msg Objekt mithilfe der MSG.NET Klasse
-    ''' </summary>
+    '''' </summary>
-    ''' <param name="path">Der Pfad einer .msg Datei</param>
+    '''' <param name="msg">Eine Email vom Typ Msg.Message</param>
-    ''' <returns>Headerinformationen als String oder Nothing wenn ein Fehler aufgetreten ist.</returns>
+    '''' <returns>Headerinformationen als String oder Nothing wenn ein Fehler aufgetreten ist.</returns>
-    Public Shared Function getMessageHeaders(path As String)
+    'Public Shared Function getMessageHeaders(msg As Msg.Message)
-        Try
+    '    Try
-            Dim msg As New Msg.Message(path)
+    '        Dim headers = msg.TransportMessageHeaders.Replace(vbCrLf, " ")
-            Dim headers = msg.TransportMessageHeaders.Replace(vbCrLf, " ")
+    '        Return headers
-            Return headers
+    '    Catch ex As Exception
-        Catch ex As Exception
+    '        Return Nothing
-            Return Nothing
+    '    End Try
-        End Try
+    'End Function
-    End Function
 
-    ''' <summary>
+    '''' <summary>
-    ''' Extrahiert die Headerinformationen aus einem msg Objekt mithilfe der MSG.NET Klasse
+    '''' Extrahiert aus den Headerinformationen anhand einer Liste von Regular Expressions eine Absenderadresse.
-    ''' </summary>
+    '''' </summary>
-    ''' <param name="msg">Eine Email vom Typ Msg.Message</param>
+    '''' <param name="messageHeaders">Headerinformationen die von getMessageHeaders erzeugt wurden.</param>
-    ''' <returns>Headerinformationen als String oder Nothing wenn ein Fehler aufgetreten ist.</returns>
+    '''' <param name="RegexList">Eine Liste von Regular Expressions</param>
-    Public Shared Function getMessageHeaders(msg As Msg.Message)
+    '''' <param name="RegexGroup">Die Ergebnisgruppe, die die Adresse enthält</param>
-        Try
+    '''' <returns>Eine Emailadresse oder Nothing, wenn keine der Regular Expressions ein Ergebnis lieferte.</returns>
-            Dim headers = msg.TransportMessageHeaders.Replace(vbCrLf, " ")
+    'Public Shared Function extractFromAddress(messageHeaders As String, RegexList As List(Of Regex), Optional RegexGroup As Integer = 1)
-            Return headers
+    '    If IsNothing(messageHeaders) Then
-        Catch ex As Exception
+    '        Return Nothing
-            Return Nothing
+    '    End If
-        End Try
-    End Function
 
-    ''' <summary>
+    '    For Each rx In RegexList
-    ''' Extrahiert aus den Headerinformationen anhand einer Liste von Regular Expressions eine Absenderadresse.
+    '        Dim match As Match = rx.Match(messageHeaders)
-    ''' </summary>
+    '        Dim email As String = match.Groups(RegexGroup).Value
-    ''' <param name="messageHeaders">Headerinformationen die von getMessageHeaders erzeugt wurden.</param>
-    ''' <param name="RegexList">Eine Liste von Regular Expressions</param>
-    ''' <param name="RegexGroup">Die Ergebnisgruppe, die die Adresse enthält</param>
-    ''' <returns>Eine Emailadresse oder Nothing, wenn keine der Regular Expressions ein Ergebnis lieferte.</returns>
-    Public Shared Function extractFromAddress(messageHeaders As String, RegexList As List(Of Regex), Optional RegexGroup As Integer = 1)
-        If IsNothing(messageHeaders) Then
-            Return Nothing
-        End If
 
-        For Each rx In RegexList
+    '        If Not String.IsNullOrWhiteSpace(email) Then
-            Dim match As Match = rx.Match(messageHeaders)
+    '            Return email
-            Dim email As String = match.Groups(RegexGroup).Value
+    '        End If
+    '    Next
 
-            If Not String.IsNullOrWhiteSpace(email) Then
+    '    Return Nothing
-                Return email
+    'End Function
-            End If
+    'Public Shared Function extractFromHeader(messageHeaders As String, Regex As String)
-        Next
+    '    Try
+    '        Dim result = Nothing
+    '        Dim i As Integer = 0
+    '        If IsNothing(messageHeaders) Then
+    '            Return Nothing
+    '        End If
+    '        ' einen Regulären Ausdruck laden
+    '        Dim strRegex As String = Regex
+    '        Dim myRegex As New Regex(strRegex, RegexOptions.IgnorePatternWhitespace Or RegexOptions.IgnoreCase)
+    '        Dim strTargetString As String = messageHeaders.Trim
+    '        ' die Vorkommen im String auslesen
+    '        For Each myMatch As Match In myRegex.Matches(strTargetString)
+    '            If myMatch.Success Then
+    '                LOGGER.Debug("Match success. Matched Value: [{0}]", myMatch.Value)
 
-        Return Nothing
+    '                If myMatch.Value <> "" Then
-    End Function
+    '                    If i = 0 Then
-    Public Shared Function extractFromHeader(messageHeaders As String, Regex As String)
+    '                        result = myMatch.Value.ToString
-        Try
+    '                    Else
-            Dim result
+    '                        result = result & ";" & myMatch.Value.ToString
-            Dim i As Integer = 0
+    '                    End If
-            If IsNothing(messageHeaders) Then
+    '                    i += 1
-                Return Nothing
+    '                End If
-            End If
+    '            Else
-            ' einen Regulären Ausdruck laden
+    '                LOGGER.Debug("Match failed!")
-            Dim strRegex As String = Regex
+    '            End If
-            Dim myRegex As New Regex(strRegex, RegexOptions.IgnorePatternWhitespace)
+    '        Next
-            Dim strTargetString As String = messageHeaders.Trim
-            ' die Vorkommen im String auslesen
-            For Each myMatch As Match In myRegex.Matches(strTargetString)
-                If myMatch.Success Then
-                    If myMatch.Value <> "" Then
-                        If i = 0 Then
-                            result = myMatch.Value.ToString
-                        Else
-                            result = result & ";" & myMatch.Value.ToString
-                        End If
-                        i += 1
-                    End If
-                End If
-            Next
-            Return result
-        Catch ex As Exception
-            MsgBox("Unexpected Error in extractFromHeader: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
-            Return Nothing
-        End Try
 
-    End Function
+    '        LOGGER.Debug("Extracted value: [{0}]", result)
 
-    ''' <summary>
+    '        Return result
-    ''' Extrahiert aus den Headerinformationen anhand einer Liste von Regular Expressions eine Empfängeradresse.
+    '    Catch ex As Exception
-    ''' </summary>
+    '        LOGGER.Error(ex)
-    ''' <param name="messageHeaders">Headerinformationen die von getMessageHeaders erzeugt wurden.</param>
+    '        MsgBox("Unexpected Error in extractFromHeader: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
-    ''' <param name="RegexList">Eine Liste von Regular Expressions</param>
+    '        Return Nothing
-    ''' <param name="RegexGroup">Die Ergebnisgruppe, die die Adresse enthält</param>
+    '    End Try
-    ''' <returns>Eine Emailadresse oder Nothing, wenn keine der Regular Expressions ein Ergebnis lieferte.</returns>
+    'End Function
-    Public Shared Function extractToAddress(messageHeaders As String, RegexList As List(Of Regex), Optional RegexGroup As Integer = 1)
-        If IsNothing(messageHeaders) Then
-            Return Nothing
-        End If
 
-        For Each rx In RegexList
+    '''' <summary>
-            Dim match As Match = rx.Match(messageHeaders)
+    '''' Extrahiert aus den Headerinformationen anhand einer Liste von Regular Expressions eine Empfängeradresse.
-            Dim email As String = match.Groups(RegexGroup).Value
+    '''' </summary>
+    '''' <param name="messageHeaders">Headerinformationen die von getMessageHeaders erzeugt wurden.</param>
+    '''' <param name="RegexList">Eine Liste von Regular Expressions</param>
+    '''' <param name="RegexGroup">Die Ergebnisgruppe, die die Adresse enthält</param>
+    '''' <returns>Eine Emailadresse oder Nothing, wenn keine der Regular Expressions ein Ergebnis lieferte.</returns>
+    'Public Shared Function extractToAddress(messageHeaders As String, RegexList As List(Of Regex), Optional RegexGroup As Integer = 1)
+    '    If IsNothing(messageHeaders) Then
+    '        Return Nothing
+    '    End If
 
-            If Not String.IsNullOrWhiteSpace(email) Then
+    '    For Each rx In RegexList
-                Return email
+    '        Dim match As Match = rx.Match(messageHeaders)
-            End If
+    '        Dim email As String = match.Groups(RegexGroup).Value
-        Next
 
-        Return Nothing
+    '        If Not String.IsNullOrWhiteSpace(email) Then
-    End Function
+    '            Return email
+    '        End If
+    '    Next
+
+    '    Return Nothing
+    'End Function
 End Class

Global_Indexer/ClassFileDrop.vb

@@ -0,0 +1,294 @@
+Imports System.IO
+Imports Microsoft.Office.Interop
+
+
+
+Public Class ClassFileDrop
+    Public Shared files_dropped As String()
+
+    ' Tobit David Drag Drop: https://www.david-forum.de/thread/12671-drag-and-drop-von-faxen-und-mails-in-net-anwendung/
+    'Private Declare Function DVEmlFromMailItem Lib "DvApi32" (ByVal oMailItem As MailItem, ByVal strFileName As String) As Long
+
+    Public Shared Function Drop_File(e As DragEventArgs)
+        Try
+            LOGGER.Debug("Available Drop Formats:")
+
+            For Each oFormat As String In e.Data.GetFormats()
+                LOGGER.Debug(oFormat)
+            Next
+
+            LOGGER.Info("Drop_File")
+            files_dropped = Nothing
+            If e.Data.GetDataPresent(DataFormats.FileDrop) Then
+                Dim MyFiles() As String
+                Dim i As Integer
+                ' Assign the files to an array. 
+                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))
+                    ReDim Preserve files_dropped(i)
+                    files_dropped(i) = "|DROPFROMFSYSTEM|" & MyFiles(i)
+                    ' ListBox1.Items.Add(MyFiles(i))
+                Next
+                Return True
+            ElseIf (e.Data.GetDataPresent("FileGroupDescriptor")) AndAlso (e.Data.GetDataPresent("FileContents")) Then
+                '// the first step here is to get the stbFileName
+                '// of the attachment and
+                '// build a full-path name so we can store it
+                '// in the temporary folder
+                '//
+                '// set up to obtain the aryFileGroupDescriptor
+                '// and extract the file name                
+                Dim stmInput As IO.Stream = CType(e.Data.GetData("FileGroupDescriptor"), IO.Stream)
+                Dim aryFileGroupDescriptor(512) As Byte ' = new byte[512]
+                stmInput.Read(aryFileGroupDescriptor, 0, 512)
+                '// used to build the stbFileName from the aryFileGroupDescriptor block
+                Dim stbFileName As System.Text.StringBuilder = New System.Text.StringBuilder("")
+                '// this trick gets the stbFileName of the passed attached file
+                Dim intCnt As Integer = 76
+                Do While aryFileGroupDescriptor(intCnt) <> 0
+                    stbFileName.Append(Convert.ToChar(aryFileGroupDescriptor(intCnt), System.Globalization.CultureInfo.CreateSpecificCulture("de-DE")))
+                    intCnt += 1
+                Loop
+                stmInput.Close()
+                'Sonderzeichen entfernen
+                Dim Tempfilename = DigitalData.Modules.Language.Utils.RemoveInvalidCharacters(stbFileName.ToString)
+                Dim anhaenge = e.Data.GetDataPresent("FileContents")
+                'Dim path As String = "C:\VBProjekte\Dateien"
+                '// put the zip file into the temp directory
+                Dim strOutFile As String = Path.GetTempPath() & Tempfilename
+                '// create the full-path name
+                '//
+                '// Second step:  we have the file name. 
+                '// Now we need to get the actual raw
+                '// data for the attached file and copy it to disk so we work on it.
+                '//
+                '// get the actual raw file into memory
+                Dim msInput As IO.MemoryStream = CType(e.Data.GetData("FileContents", True), IO.MemoryStream) 'This returns nothing for an Email
+                If msInput Is Nothing = False Then
+                    '// allocate enough bytes to hold the raw date
+                    Dim aryFileBytes(CType(msInput.Length, Int32)) As Byte
+                    '// set starting position at first byte and read in the raw data
+                    msInput.Position = 0
+                    msInput.Read(aryFileBytes, 0, CType(msInput.Length, Int32))
+                    '// create a file and save the raw zip file to it
+                    Dim fsOutput As IO.FileStream = New IO.FileStream(strOutFile, IO.FileMode.Create) ';
+                    fsOutput.Write(aryFileBytes, 0, aryFileBytes.Length)
+                    fsOutput.Close() ' // close the file
+                    Dim resultVersion = ClassFilehandle.Versionierung_Datei(strOutFile)
+                    If resultVersion <> "" Then
+                        strOutFile = resultVersion
+                    End If
+                    Dim finTemp As IO.FileInfo = New IO.FileInfo(strOutFile)
+                    '// always good to make sure we actually created the file
+                    If (finTemp.Exists = True) Then
+                        ReDim Preserve files_dropped(0)
+                        files_dropped(0) = "|OUTLOOK_ATTACHMENT|" & strOutFile
+                        LOGGER.Info("Drop an Attachment - File: " & strOutFile)
+                        Return True
+                    Else
+                        LOGGER.Info("Attachment File from Outlook could not be created")
+                    End If
+                End If
+            End If
+            If e.Data.GetDataPresent("FileGroupDescriptor") Then
+                Dim oApp As Outlook.Application
+                Try
+                    oApp = New Outlook.Application()
+                Catch ex As Exception
+                    LOGGER.Error(ex)
+                    MsgBox("Unexpected error in Initialisieren von Outlook-API:" & vbNewLine & ex.Message & vbNewLine & vbNewLine & "Evtl ist Outlook nicht in der dafür vorgesehenen For")
+                    Return False
+                End Try
+
+                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
+                    myobj = oApp.ActiveExplorer.Selection.Item(i)
+                    Dim subj As String = myobj.Subject
+                    If subj = "" Then
+                        subj = "NO_SUBJECT"
+                    End If
+                    If subj.Contains("\") Then
+                        subj = subj.Replace("\", "-")
+                    End If
+                    If subj.Contains("/") Then
+                        subj = subj.Replace("/", "-")
+                    End If
+
+                    'Sonderzeichen entfernen
+                    subj = DigitalData.Modules.Language.Utils.RemoveInvalidCharacters(subj)
+                    'hardcode a destination path for testing
+                    Dim oFilename As String = IO.Path.Combine(Path.GetTempPath, subj + ".msg")
+
+                    oFilename = oFilename.Replace("?", "")
+                    oFilename = oFilename.Replace("!", "")
+                    oFilename = oFilename.Replace("%", "")
+                    oFilename = oFilename.Replace("$", "")
+                    LOGGER.Info("Drop of msg - File:" & oFilename)
+                    Try
+                        myobj.SaveAs(oFilename)
+                    Catch ex As Exception
+                        LOGGER.Error(ex)
+                        MsgBox("Die Email konnte aufgrund einer Sicherheitseinstellung im Outlook nicht abgelegt werden! " &
+                                   "Bitte wenden Sie sich an Ihren Administrator, " &
+                                   "um den programmatischen Zugriff auf Outlook zuzulassen. " &
+                                   "Weitere Informationen finden Sie im Log.", MsgBoxStyle.Critical, "Global Indexer")
+                    End Try
+
+                    ReDim Preserve files_dropped(i)
+                    files_dropped(i) = "|OUTLOOK_MESSAGE|" & oFilename
+                Next
+
+
+                Return True
+                'Drop eines Outlook Attachments
+            End If
+
+        Catch ex As Exception
+            MsgBox("Error in Drop-File" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
+            Return False
+        End Try
+
+    End Function
+
+
+    'Private Sub DragDrop_HandleTobit(e As DragEventArgs)
+    '    If e.Data.GetDataPresent("#TobitMsgData") Then
+    '        Dim Quellpfad As String = ""
+    '        Dim Dateinamen As String()
+    '        'Quellpfad zu den David Dateien auslesen            
+    '        Using ms As MemoryStream = e.Data.GetData("#TobitMsgData")
+    '            Dim bytes As Byte() = ms.ToArray()
+    '            Dim n As Integer = 0
+    '            Dim c As Char
+    '            Do While True
+    '                c = Convert.ToChar(bytes(n))
+    '                If bytes(n) <> 0 Then
+    '                    Quellpfad &= c
+    '                    n += 1
+    '                Else
+    '                    Exit Do
+    '                End If
+    '            Loop
+    '        End Using
+    '        'Dateinamen der gedroppten Emails auslesen  
+    '        Using ms As MemoryStream = e.Data.GetData("FileGroupDescriptor")
+    '            'Header sind 4B           
+    '            'Jeder Datensatz ist 332B          
+    '            'Bei Index 72 des Datensatzes beginnt das "Dateiname.eml"     
+    '            Dim bytes As Byte() = ms.ToArray()
+    '            ReDim Dateinamen(Int(bytes.Count / 332) - 1)
+    '            ' Array mit so vielen Elementen wie Datensätze im FileGroupDescriptor sind     
+    '            Dim AnzahlMails As Integer = bytes(0)
+    '            Dim Dateiname As String
+    '            Dim n As Integer
+    '            For i = 0 To AnzahlMails - 1
+    '                Dateiname = ""
+    '                n = 0
+    '                Do While True
+    '                    'Solange die Bytes auslesen, bis man einen vbNullChar liest        
+    '                    If bytes(i * 332 + 4 + 72 + n) <> 0 Then
+    '                        Dateiname = Dateiname & Convert.ToChar(bytes(i * 332 + 4 + 72 + n))
+
+    '                        n += 1
+    '                    Else
+    '                        Exit Do
+    '                    End If
+    '                Loop
+    '                Dateinamen(i) = Dateiname
+    '            Next
+    '        End Using
+    '        Using EntryDataEx As MemoryStream = e.Data.GetData("#TobitEntryDataEx")
+    '            Dim bytes As Byte() = EntryDataEx.ToArray()
+    '            'Die Größe des Headers steht im ersten Byte      
+    '            Dim HeadExSize As Integer = bytes(0)
+    '            'Die Anzahl der Datensätze steht im 8. - 11. Byte      
+    '            Dim nCountEntries As Integer = BitConverter.ToInt32(bytes, 8)
+    '            Dim nPositions(nCountEntries - 1) As Integer
+    '            For i = 0 To nCountEntries - 1
+    '                'Datensätze in der #TobitEntryDataEx sind 269 Byte groß.        
+    '                'In den ersten 4 Bytes steht die QID aus der archive.dat            
+    '                nPositions(i) = BitConverter.ToInt32(bytes, HeadExSize + i * 269)
+    '            Next
+
+    '            Using fs As New FileStream(Quellpfad & "\archive.dat", FileMode.Open, FileAccess.Read)
+
+    '                'archive.dat als MemoryStream kopieren           
+    '                Using ms As New MemoryStream
+    '                    fs.CopyTo(ms)
+    '                    'MemoryStream in ein Byte-Array konvertieren     
+    '                    Dim archiveBytes As Byte() = ms.ToArray()
+    '                    'Datensätze in der archive.dat sind 430 Byte groß         
+    '                    For i = 16 To archiveBytes.Length - 1 Step 430
+
+    '                        'Das 17.-20. Byte ist die QID die wir suchen            
+    '                        Dim QID As Integer = BitConverter.ToInt32(archiveBytes, i)
+    '                        'Wenn die QID übereinstimmt mit einer der David-Mails, dann lies den Dateinamen im Archiv aus      
+    '                        If nPositions.Contains(QID) Then
+
+    '                            'Der Index der QID (0, ..., nCountEntries - 1)          
+    '                            Dim nPosIndex As Integer = -1
+    '                            For j = 0 To nPositions.Length - 1
+    '                                If QID = nPositions(j) Then
+    '                                    nPosIndex = j
+    '                                    Exit For
+    '                                End If
+    '                            Next
+    '                            'Alle Bytes ab dem 17. bis zum Ende des Datensatzes aus der archive.bat auslesen und als String konvertieren                      
+    '                            Dim byteString As String = ""
+    '                            For j = 0 To 429 - 17
+    '                                byteString &= Convert.ToChar(archiveBytes(i + j))
+    '                            Next
+    '                            'Index der Id herausfinden (Index des Quellpfads im byteString + Länge des Quellpfads + 1 "\")         
+    '                            Dim IdIndex As Integer = byteString.IndexOf(Quellpfad, StringComparison.OrdinalIgnoreCase) + Quellpfad.Length + 1
+    '                            'Die Id sind dann die 8 Zeichen ab dem IdIndex              
+    '                            Dim Id As String = byteString.Substring(IdIndex, 8)
+    '                            'EML speichern                  
+    '                            DavidEmlSpeichern(Quellpfad, Dateinamen(nPosIndex), QID, Id)
+    '                        End If
+    '                    Next
+    '                End Using
+    '            End Using
+    '        End Using
+    '    End If
+    'End Sub
+
+    'Private Sub DavidEmlSpeichern(ArchivePfad As String, Dateiname As String, ID As String, FaxID As String)
+    '    Dim oApp As DavidAPIClass
+    '    Dim oAcc As Account
+    '    Dim oArchive As Archive
+    '    Dim oMessageItems As MessageItems
+    '    Dim oMailItem As MailItem
+    '    oApp = New DavidAPIClass()
+    '    oApp.LoginOptions = DvLoginOptions.DvLoginForceAsyncDuplicate
+    '    oAcc = oApp.Logon("DavidServer", "", "", "", "", "NOAUTH")
+    '    oArchive = oAcc.ArchiveFromID(ArchivePfad)
+    '    If FaxID.First() = "M" Then
+    '        'Faxe beginnen mit M
+    '        'Bei Faxen kann man einfach die .001 Datei kopieren und als TIF speichern
+    '        File.Copy(ArchivePfad & "\" & FaxID & ".001", "C:\Temp\" & Dateiname, True)
+    '        ListeAktualisieren()
+    '    ElseIf FaxID.First() = "I" Then
+    '        'Emails beginnen mit I
+    '        'Bei Emails muss man die DVEmlFromMailItem mit dem richtigen oMailItem aufrufen
+    '        oMessageItems = oArchive.MailItems
+    '        For Each oMailItem In oMessageItems
+    '            If oMailItem._ID = ID Then
+    '                Dim fileName As String = Space(260)
+    '                If DVEmlFromMailItem(oMailItem, fileName) <> 0 Then
+    '                    fileName = Trim(fileName)
+    '                    fileName = fileName.Substring(0, fileName.Length - 1)
+    '                    File.Copy(fileName, "C:\Temp\" & Dateiname, True)
+    '                    ListeAktualisieren()
+    '                End If
+    '                Exit For
+    '            End If
+    '        Next
+    '    End If
+    'End Sub
+
+
+End Class

Global_Indexer/ClassFilehandle.vb

@@ -1,128 +1,209 @@
 Imports System.IO
-Imports Independentsoft
+Imports System.Guid
 Imports System.Text.RegularExpressions
+Imports DevExpress.XtraEditors
+Imports DigitalData.Modules.Language
+Imports Limilabs.Mail
 
 Public Class ClassFilehandle
-    ''' <summary>
+    Public Shared Function Decide_FileHandle(pFilename As String, pHandletype As String)
-    ''' Diese Funktion entfernt alle Zeichen aus dem übergebenen String
-    ''' die in Dateinamen nicht erlaubt sind.
-    ''' </summary>
-    ''' <param name="Input">Der zu prüfende String</param>
-    ''' <returns>String ohne nichterlaubte Zeichen</returns>
-    Public Shared Function InvalidCharacters(Input As String) As String
-        Dim replacement = ""
-        'Return System.Text.RegularExpressions.Regex.Replace(Input, "[\\/:*?""<>|\r\n]", "", System.Text.RegularExpressions.RegexOptions.Singleline)
-        Dim regexSearch = New String(Path.GetInvalidFileNameChars()) & New String(Path.GetInvalidPathChars())
-        Dim r = New Regex(String.Format("[{0}]", Regex.Escape(regexSearch)))
-        Return r.Replace(Input, replacement)
-    End Function
-    Public Shared Function Decide_FileHandle(filename As String, handletype As String)
         Try
-            If filename.EndsWith(".msg") Then
+            If pFilename.ToUpper.EndsWith(".MSG") Or pFilename.ToUpper.EndsWith(".EML") Then
                 CURRENT_MESSAGEID = ""
-                Dim _msg As New Msg.Message(filename)
+                Dim oMail As IMail = EMAIL.Load_Email(pFilename)
-                If _msg.Attachments.Count > 0 Then
+                If oMail.Attachments.Count > 0 Then
-                    Dim result As MsgBoxResult
+                    Dim oTitle As String
+                    Dim oMessage As String
 
                     If USER_LANGUAGE = "de-DE" Then
-                        result = MessageBox.Show("Achtung: Die Email enthält Anhänge!" & vbNewLine & "Wollen Sie die Anhänge separat indexieren und herauslösen?", "Nachfrage zur Indexierung:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
+                        oTitle = "Nachfrage zur Indexierung:"
+                        oMessage = "Achtung: Die Email enthält Anhänge!" & vbNewLine & "Wollen Sie die Anhänge separat indexieren und herauslösen?"
                     Else
-                        result = MessageBox.Show("Attention: This Email contains Attachments!" & vbNewLine & "Do you want to extract the attachments and index them seperately?", "Question about Indexing:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
+                        oTitle = "Question about Indexing:"
+                        oMessage = "Attention: This Email contains Attachments!" & vbNewLine & "Do you want to extract the attachments and index them seperately?"
                     End If
+                    Dim oResult As DialogResult
 
-                    If result = MsgBoxResult.Yes Then
+                    ' Weird hack to force messagebox to be topmost
-                        If handletype.StartsWith("|FW") Then
+                    ' https://stackoverflow.com/questions/1220882/keep-messagebox-show-on-top-of-other-application-using-c-sharp
-                            Return Email_Decay(filename, True)
+                    oResult = MessageBox.Show(oMessage, oTitle, MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button1, MessageBoxOptions.DefaultDesktopOnly)
-                        Else
+
-                            Return Email_Decay(filename)
+                    If oResult = MsgBoxResult.Yes Then
-                        End If
+                        Dim oIsFolderWatch = pHandletype.StartsWith("|FW")
+                        Return Save_EmailAndAttachmentsToDisk(pFilename, oIsFolderWatch)
                     End If
                 End If
             End If
-            Return Insert_GI_File(filename, handletype)
+
+            If pFilename.ToUpper.EndsWith(".LNK") Then
+                If USER_LANGUAGE = "de-DE" Then
+                    MsgBox("Verknüpfungen können nicht abgelegt werden!", MsgBoxStyle.Critical, "Global Indexer")
+                Else
+                    MsgBox("Shortcuts cannot be droppped!", MsgBoxStyle.Critical, "Global Indexer")
+                End If
+                Return False
+            End If
+
+            Return Insert_GI_File(pFilename, pHandletype)
         Catch ex As Exception
             MsgBox("Unexpected Error in Decide_FileHandle: " & ex.Message, MsgBoxStyle.Critical)
             Return False
         End Try
     End Function
-    Private Shared Function Email_Decay(msgname As String, Optional FW As Boolean = False)
+
+    Private Shared Function Save_EmailAndAttachmentsToDisk(pEmailFilePath As String, Optional pFolderWatch As Boolean = False) As Boolean
         Try
-            Dim msgonly As String = "|MSGONLY|"
+            Dim oMessageOnlyMarker As String = "|MSGONLY|"
-            Dim ATT_EXTR As String = "|ATTMNTEXTRACTED|"
+            Dim oExtractedAttachmentMarker As String = "|ATTMNTEXTRACTED|"
-            If FW = True Then
+            If pFolderWatch = True Then
-                msgonly = "|FW_MSGONLY|"
+                oMessageOnlyMarker = "|FW_MSGONLY|"
-                ATT_EXTR = "|FW_ATTMNTEXTRACTED|"
+                oExtractedAttachmentMarker = "|FW_ATTMNTEXTRACTED|"
             End If
-            Dim erfolgreich As Boolean = False
+            Dim oSuccess As Boolean = False
-            Dim msg As New Msg.Message(msgname)
 
-            If Not msg.InternetMessageId Is Nothing Then
+            LOGGER.Info("Converting file to Eml if needed: [{0}]", pEmailFilePath)
-                CURRENT_MESSAGEID = msg.InternetMessageId
+            Dim oEmail As IMail = EMAIL.Load_Email(pEmailFilePath)
+
+            If oEmail.MessageID IsNot Nothing Then
+                CURRENT_MESSAGEID = oEmail.MessageID
             Else
-                If LogErrorsOnly = False Then ClassLogger.Add(">> Email_Decay: Es konnte keine Message-ID gelesen werden. Eine GUID wird erzeugt!", False)
+                LOGGER.Info("Es konnte keine Message-ID gelesen werden. Eine GUID wird erzeugt!")
-                Dim sGUID As String
+                CURRENT_MESSAGEID = NewGuid.ToString()
-                sGUID = System.Guid.NewGuid.ToString()
-                CURRENT_MESSAGEID = sGUID
             End If
 
-            'Nur die MSGDatei ablegen
+            Dim oEmailFilePathWithoutAttachments = EMAIL.Remove_AttachmentsFromEmail(pEmailFilePath, "_excl_attachments")
-            Dim tempfile As String = Path.Combine(Path.GetTempPath, Path.GetFileNameWithoutExtension(msgname) & "_excl_att.msg")
+            TEMP_FILES.Add(oEmailFilePathWithoutAttachments)
-        
-            If File.Exists(tempfile) Then
-                File.Delete(tempfile)
-            End If
-            Dim _msgEXAtt As New Msg.Message(msgname)
-            _msgEXAtt.Attachments.Clear()
-            _msgEXAtt.Save(tempfile)
-            'Datei in Array zum Templöschen speichern
-            TEMP_FILES.Add(tempfile)
 
-            If Insert_GI_File(tempfile, msgonly) = True Then
+            If Insert_GI_File(oEmailFilePathWithoutAttachments, oMessageOnlyMarker) = True Then
-                erfolgreich = True
+                oSuccess = True
-                'Hier nun die Anhänge herauslösen
-                Dim _msg As New Msg.Message(msgname)
-                Dim i1 As Integer = 1
 
-                If LogErrorsOnly = False Then ClassLogger.Add(">> Anzahl der Attachments: " & _msg.Attachments.Count, False)
+                Dim oAttachments As List(Of String) = EMAIL.Save_AttachmentsToDisk(pEmailFilePath)
-                For Each attachment As Independentsoft.Msg.Attachment In _msg.Attachments
+
-                    If erfolgreich = False Then
+                LOGGER.Debug("Saved [{0}] attachments to disk.", oAttachments.Count)
+
+                For Each oAttachment In oAttachments
+                    TEMP_FILES.Add(oAttachment)
+                    LOGGER.Debug("Saved attachment [{0}].", oAttachment)
+                    oSuccess = Insert_GI_File(oAttachment, oExtractedAttachmentMarker)
+
+                    If oSuccess = False Then
+                        LOGGER.Warn("Saving attachment to disk failed: [{0}]", oAttachment)
                         Exit For
                     End If
-                    Dim attachment_name As String
-                    If attachment.LongFileName Is Nothing Then
-                        attachment_name = attachment.DisplayName
-                    Else
-                        attachment_name = attachment.LongFileName
-                    End If
-                    If Not attachment_name.Contains("inline") Then
-                        'Sonderzeichen entfernen
-                        attachment_name = ClassFilehandle.InvalidCharacters(attachment_name)
-                        tempfile = Path.Combine(Path.GetTempPath, attachment_name)
-                        tempfile = ClassFilehandle.Versionierung_Datei(tempfile)
-                        If tempfile <> "" Then
-                            attachment.Save(tempfile)
-                            'Datei in Array zum Templöschen speichern
-                            TEMP_FILES.Add(tempfile)
-                            If LogErrorsOnly = False Then ClassLogger.Add(">> Attachment (" & i1 & "):" & tempfile, False)
-                            'nun der Insert des Anhanges
-                            erfolgreich = Insert_GI_File(tempfile, ATT_EXTR)
-                            i1 += 1
-                        End If
-                    End If
                 Next
             End If
-            Return erfolgreich
+
+            Return oSuccess
         Catch ex As Exception
-            MsgBox("Error in Email_Decay: " & ex.Message, MsgBoxStyle.Critical)
+            LOGGER.Warn("Saving email to disk failed (Email_Decay)")
+            LOGGER.Error(ex)
+
+            Return False
         End Try
     End Function
 
+    'Private Shared Function Email_Decay(msgname As String, Optional FW As Boolean = False)
+    '    Try
+    '        Dim msgonly As String = "|MSGONLY|"
+    '        Dim ATT_EXTR As String = "|ATTMNTEXTRACTED|"
+    '        If FW = True Then
+    '            msgonly = "|FW_MSGONLY|"
+    '            ATT_EXTR = "|FW_ATTMNTEXTRACTED|"
+    '        End If
+    '        Dim erfolgreich As Boolean = False
+    '        Dim msg As New MSG.Message(msgname)
+
+    '        If msg.InternetMessageId IsNot Nothing Then
+    '            CURRENT_MESSAGEID = msg.InternetMessageId
+    '        Else
+    '            LOGGER.Info("Es konnte keine Message-ID gelesen werden. Eine GUID wird erzeugt!")
+    '            Dim sGUID As String
+    '            sGUID = System.Guid.NewGuid.ToString()
+    '            CURRENT_MESSAGEID = sGUID
+    '        End If
+
+    '        'Nur die MSGDatei ablegen
+    '        Dim tempfile As String = Path.Combine(Path.GetTempPath, Path.GetFileNameWithoutExtension(msgname) & "_excl_att.msg")
+
+    '        If File.Exists(tempfile) Then
+    '            File.Delete(tempfile)
+    '        End If
+    '        Dim _msgEXAtt As New Msg.Message(msgname)
+    '        _msgEXAtt.Attachments.Clear()
+    '        _msgEXAtt.Save(tempfile)
+    '        'Datei in Array zum Templöschen speichern
+    '        TEMP_FILES.Add(tempfile)
+
+    '        If Insert_GI_File(tempfile, msgonly) = True Then
+    '            erfolgreich = True
+    '            'Hier nun die Anhänge herauslösen
+    '            Dim _msg As New Msg.Message(msgname)
+    '            Dim i1 As Integer = 1
+
+    '            LOGGER.Info(">> Anzahl der Attachments: " & _msg.Attachments.Count)
+    '            For Each attachment As Independentsoft.Msg.Attachment In _msg.Attachments
+    '                If erfolgreich = False Then
+    '                    Exit For
+    '                End If
+    '                Dim attachment_name As String
+    '                If attachment.LongFileName Is Nothing Then
+    '                    attachment_name = attachment.DisplayName
+    '                Else
+    '                    attachment_name = attachment.LongFileName
+    '                End If
+    '                If attachment.EmbeddedMessage IsNot Nothing Then
+    '                    attachment_name = Utils.RemoveInvalidCharacters(attachment_name)
+    '                    tempfile = Path.Combine(Path.GetTempPath, attachment_name & ".msg")
+    '                    tempfile = ClassFilehandle.Versionierung_Datei(tempfile)
+
+    '                    If tempfile <> String.Empty Then
+    '                        Dim oMessage = attachment.EmbeddedMessage
+    '                        oMessage.IsEmbedded = False
+    '                        oMessage.Save(tempfile)
+    '                        TEMP_FILES.Add(tempfile)
+    '                        LOGGER.Info(">> Attachment (" & i1 & "):" & tempfile)
+    '                        erfolgreich = Insert_GI_File(tempfile, ATT_EXTR)
+    '                        i1 += 1
+    '                    End If
+    '                ElseIf Not attachment_name.Contains("inline") Then
+    '                    'Sonderzeichen entfernen
+    '                    attachment_name = Utils.RemoveInvalidCharacters(attachment_name)
+    '                    tempfile = Path.Combine(Path.GetTempPath, attachment_name)
+    '                    tempfile = ClassFilehandle.Versionierung_Datei(tempfile)
+    '                    If tempfile <> "" Then
+    '                        attachment.Save(tempfile)
+    '                        'Datei in Array zum Templöschen speichern
+    '                        TEMP_FILES.Add(tempfile)
+    '                        LOGGER.Info(">> Attachment (" & i1 & "):" & tempfile)
+    '                        'nun der Insert des Anhanges
+    '                        erfolgreich = Insert_GI_File(tempfile, ATT_EXTR)
+    '                        i1 += 1
+    '                    End If
+    '                End If
+    '            Next
+    '        End If
+    '        Return erfolgreich
+    '    Catch ex As Exception
+    '        MsgBox("Error in Email_Decay: " & ex.Message, MsgBoxStyle.Critical)
+    '    End Try
+    'End Function
+
     Private Shared Function Insert_GI_File(filename As String, handleType As String)
         Try
             filename = filename.Replace("'", "''")
 
+            Dim oHash As String = String.Empty
+
+            If File.Exists(filename) Then
+                If (filename.ToUpper.EndsWith(".MSG") Or filename.ToUpper.EndsWith(".EML")) And (handleType = "|OUTLOOK_MESSAGE|" Or handleType = "|MSGONLY|") Then
+                    oHash = FILESYSTEM.GetChecksumFromString(filename)
+                Else
+                    oHash = FILESYSTEM.GetChecksum(filename)
+                End If
+            End If
+
             Dim filename_only As String = Path.GetFileName(filename)
-            Dim ins As String = "INSERT INTO TBGI_FILES_USER (FILENAME2WORK, USER@WORK,HANDLE_TYPE,FILENAME_ONLY) VALUES ('" & filename & "','" & Environment.UserName & "','" & handleType & "','" & filename_only & "')"
+            Dim ins As String = $"INSERT INTO TBGI_FILES_USER (FILENAME2WORK, USER@WORK, HANDLE_TYPE, FILENAME_ONLY, FILE_HASH) VALUES ('{filename}','{Environment.UserName}','{handleType}','{filename_only}', '{oHash}')"
             Return ClassDatabase.Execute_non_Query(ins, True)
 
         Catch ex As Exception
@@ -134,7 +215,7 @@ Public Class ClassFilehandle
         ' Prüft, ob die angegeben Datei aktuell durch eine
         ' andere Anwendung in Benutzung ist
         Dim ff As Integer = FreeFile()
-        If System.IO.File.Exists(fullFilePath) Then
+        If File.Exists(fullFilePath) Then
             Try
                 ' Versuchen, die Datei mit *exklusiven* Lese- und
                 ' Schreibrechten zu öffnen
@@ -143,7 +224,7 @@ Public Class ClassFilehandle
                 ' Ist ein Fehler aufgetreten, so wird nach außen hin generell
                 ' davon ausgegangen, dass die Datei in Benutzung ist (obwohl
                 ' auch andere Ursachen, etwa Rechteprobleme, möglich sind).
-                If LogErrorsOnly = False Then ClassLogger.Add(">> FileInUse Message: " & ex.Message, False)
+                LOGGER.Info(">> FileInUse Message: " & ex.Message)
                 IsFileInUse = True
             Finally
                 ' Die eventuell geöffnete Datei schließen
@@ -159,7 +240,7 @@ Public Class ClassFilehandle
         Try
             Dim version As Integer = 1
 
-            Dim Stammname As String = Path.GetDirectoryName(Dateiname) & "\" & Path.GetFileNameWithoutExtension(Dateiname)
+            Dim Stammname As String = Path.GetDirectoryName(Dateiname) & "\" & Path.GetFileNameWithoutExtension(Dateiname).Trim()
             extension = Path.GetExtension(Dateiname)
 
             Dim _neuername As String = Stammname
@@ -176,7 +257,8 @@ Public Class ClassFilehandle
             End If
             Return _NewFileString & extension
         Catch ex As Exception
-            ClassLogger.Add(" - Error in versioning file - error: " & vbNewLine & ex.Message)
+            LOGGER.Info(" - Error in versioning file - error: " & vbNewLine & ex.Message)
+            LOGGER.Error(ex)
             MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in versioning file:")
             Return ""
         End Try
@@ -189,7 +271,7 @@ Public Class ClassFilehandle
     ''' <param name="sChar">Ersatzzeichen für alle unzulässigen Zeichen 
     ''' im Dateinamen</param>
     Public Shared Function CleanFilename(ByVal sFilename As String, Optional ByVal REPLACEChar As String = "") As String
-        If LogErrorsOnly = False Then ClassLogger.Add(" >> Filename before CleanFilename: '" & sFilename & "'", False)
+        LOGGER.Info(" >> Filename before CleanFilename: '" & sFilename & "'")
         If sFilename.Contains(".\") Then
             sFilename = sFilename.Replace(".\", "\")
         End If
@@ -204,7 +286,7 @@ Public Class ClassFilehandle
         sFilename = System.Text.RegularExpressions.Regex.Replace(sFilename, "[\\/:*?""<>|\r\n]", "", System.Text.RegularExpressions.RegexOptions.Singleline)
         'Dim oCleanFileName As String = String.Join(REPLACEChar, sFilename.Split(Path.GetInvalidFileNameChars()))
         Dim oCleanFileName As New System.IO.FileInfo(System.Text.RegularExpressions.Regex.Replace(sFilename, String.Format("[{0}]", String.Join(String.Empty, Path.GetInvalidFileNameChars)), REPLACEChar))
-        If LogErrorsOnly = False Then ClassLogger.Add(" >> Filename after CleanFilename: '" & sFilename & "'", False)
+        LOGGER.Info(" >> Filename after CleanFilename: '" & sFilename & "'")
         Return sFilename
     End Function
 End Class

Global_Indexer/ClassFolderWatcher.vb

@@ -1,5 +1,4 @@
 Imports System.IO
-Imports Independentsoft
 Imports System.Threading
 
 Public Class ClassFolderWatcher
@@ -13,7 +12,7 @@ Public Class ClassFolderWatcher
                 FW_started = False
                 'FolderWatch neu instanzieren
                 FolderWatcher = New System.IO.FileSystemWatcher(CURRENT_FOLDERWATCH, "*.*")
-                ClassLogger.Add(" >> FolderWatch neu instanziert", False)
+                LOGGER.Info(" >> FolderWatch neu instanziert")
                 FolderWatcher.IncludeSubdirectories = False
                 FolderWatcher.EnableRaisingEvents = True
                 AddHandler FolderWatcher.Created, AddressOf OnCreated
@@ -23,7 +22,8 @@ Public Class ClassFolderWatcher
                 CONFIG.Save()
             End If
         Catch ex As Exception
-            ClassLogger.Add($"Error in Restart_FolderWatch: {ex.Message}", False)
+            LOGGER.Info($"Error in Restart_FolderWatch: {ex.Message}")
+            LOGGER.Error(ex)
         End Try
     End Function
     Public Shared Function Restart_FolderWatchSCAN()
@@ -33,7 +33,7 @@ Public Class ClassFolderWatcher
                 FolderWatcher_SCAN.EnableRaisingEvents = False
                 'FolderWatch neu instanzieren
                 FolderWatcher_SCAN = New System.IO.FileSystemWatcher(CURRENT_SCAN_FOLDERWATCH, "*.*")
-                ClassLogger.Add(" >> FolderWatchScan neu instanziert", False)
+                LOGGER.Info(" >> FolderWatchScan neu instanziert")
                 FolderWatcher_SCAN.IncludeSubdirectories = False
                 FolderWatcher_SCAN.EnableRaisingEvents = True
                 AddHandler FolderWatcher_SCAN.Created, AddressOf OnCreated
@@ -42,7 +42,8 @@ Public Class ClassFolderWatcher
                 CONFIG.Save()
             End If
         Catch ex As Exception
-            ClassLogger.Add($"Error in Restart_FolderWatchSCAN: {ex.Message}", False)
+            LOGGER.Info($"Error in Restart_FolderWatchSCAN: {ex.Message}")
+            LOGGER.Error(ex)
         End Try
     End Function
     Public Shared Function StartStop_FolderWatch()
@@ -53,7 +54,7 @@ Public Class ClassFolderWatcher
             End If
             If FolderWatcher Is Nothing Then
                 FolderWatcher = New System.IO.FileSystemWatcher(CURRENT_FOLDERWATCH, "*.*")
-                ClassLogger.Add(" >> FolderWatch Gestartet", False)
+                LOGGER.Info(" >> FolderWatch Gestartet")
                 FolderWatcher.IncludeSubdirectories = False
                 FolderWatcher.EnableRaisingEvents = True
                 AddHandler FolderWatcher.Created, AddressOf OnCreated
@@ -67,7 +68,7 @@ Public Class ClassFolderWatcher
                 ' Dim watcher As New FileSystemWatcher()
                 ' watcher.Path = CURRENT_FOLDERWATCH
                 FolderWatcher = New System.IO.FileSystemWatcher(CURRENT_FOLDERWATCH, "*.*")
-                ClassLogger.Add(" >> FolderWatch Gestartet", False)
+                LOGGER.Info(" >> FolderWatch Gestartet")
                 FolderWatcher.IncludeSubdirectories = False
                 FolderWatcher.EnableRaisingEvents = True
                 AddHandler FolderWatcher.Created, AddressOf OnCreated
@@ -80,7 +81,7 @@ Public Class ClassFolderWatcher
                 'Gestartet also Stoppen
                 FolderWatcher.EnableRaisingEvents = False
                 FW_started = False
-                ClassLogger.Add(" >> FolderWatch gestoppt", False)
+                LOGGER.Info(" >> FolderWatch gestoppt")
                 'SaveConfigValue("FW_started", "False")
                 CONFIG.Config.FolderWatchStarted = False
                 CONFIG.Save()
@@ -88,7 +89,7 @@ Public Class ClassFolderWatcher
             End If
             'If watcher.EnableRaisingEvents = False Then
             '    watcher = New System.IO.FileSystemWatcher(CURRENT_FOLDERWATCH, "*.*")
-            '    ClassLogger.Add(" - vFolderWatch.Gestartet", False)
+            '    LOGGER.Info(" - vFolderWatch.Gestartet")
             '    watcher.IncludeSubdirectories = False
             '    watcher.EnableRaisingEvents = True
             '    AddHandler watcher.Created, AddressOf OnCreated
@@ -120,8 +121,8 @@ Public Class ClassFolderWatcher
                 End If
             End If
             If FolderWatcher_SCAN Is Nothing Then
-                FolderWatcher_SCAN = New System.IO.FileSystemWatcher(CURRENT_SCAN_FOLDERWATCH, "*.*")
+                FolderWatcher_SCAN = New FileSystemWatcher(CURRENT_SCAN_FOLDERWATCH, "*.*")
-                ClassLogger.Add(" >> FolderWatch Scan Gestartet", False)
+                LOGGER.Info(" >> FolderWatch Scan Gestartet")
                 FolderWatcher_SCAN.IncludeSubdirectories = False
                 FolderWatcher_SCAN.EnableRaisingEvents = True
                 AddHandler FolderWatcher_SCAN.Created, AddressOf OnCreated
@@ -132,8 +133,8 @@ Public Class ClassFolderWatcher
             If FolderWatcher_SCAN.EnableRaisingEvents = False Then
                 ' Dim watcher As New FileSystemWatcher()
                 ' watcher.Path = CURRENT_FOLDERWATCH
-                FolderWatcher_SCAN = New System.IO.FileSystemWatcher(CURRENT_SCAN_FOLDERWATCH, "*.*")
+                FolderWatcher_SCAN = New FileSystemWatcher(CURRENT_SCAN_FOLDERWATCH, "*.*")
-                ClassLogger.Add(" >> FolderWatch Scan Gestartet", False)
+                LOGGER.Info(" >> FolderWatch Scan Gestartet")
                 FolderWatcher_SCAN.IncludeSubdirectories = False
                 FolderWatcher_SCAN.EnableRaisingEvents = True
                 AddHandler FolderWatcher_SCAN.Created, AddressOf OnCreated
@@ -143,13 +144,13 @@ Public Class ClassFolderWatcher
             Else
                 'Gestartet also Stoppen
                 FolderWatcher_SCAN.EnableRaisingEvents = False
-                ClassLogger.Add(" >> FolderWatch Scan gestoppt", False)
+                LOGGER.Info(" >> FolderWatch Scan gestoppt")
                 'SaveConfigValue("FWSCAN_started", "False")
                 CONFIG.Config.FolderWatchScanStarted = False
                 CONFIG.Save()
                 Return 0
             End If
-           
+
         Catch ex As Exception
             MsgBox("Error in StartStop_FolderWatchSCAN:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
             Return 99
@@ -160,7 +161,7 @@ Public Class ClassFolderWatcher
             'Gestartet also Stoppen
             FolderWatcher.EnableRaisingEvents = False
             FW_started = False
-            ClassLogger.Add(" >> FolderWatch gestoppt", False)
+            LOGGER.Info(" >> FolderWatch gestoppt")
             'SaveConfigValue("FW_started", "False")
             CONFIG.Config.FolderWatchStarted = True
             CONFIG.Save()
@@ -171,7 +172,7 @@ Public Class ClassFolderWatcher
     End Function
     Private Shared Sub OnCreated(source As Object, e As FileSystemEventArgs)
         If ClassDatabase.DatabaseConnectionTimeout = True Then
-            ClassLogger.Add(">> File handling aborted because of database timeout error!", False)
+            LOGGER.Info(">> File handling aborted because of database timeout error!")
             Exit Sub
         End If
 
@@ -183,20 +184,18 @@ Public Class ClassFolderWatcher
                 End If
             Next
 
-            Dim handleType As String
+            Dim oHandleType As String
             If e.FullPath.ToLower.EndsWith(".msg") Then
-                handleType = "|FW_OUTLOOK_MESSAGE|"
+                oHandleType = "|FW_OUTLOOK_MESSAGE|"
             Else
-                handleType = "|FW_SIMPLEINDEXER|"
+                oHandleType = "|FW_SIMPLEINDEXER|"
             End If
             'Die Datei übergeben
-            If LogErrorsOnly = False Then ClassLogger.Add(">> OnCreated-File:" & e.FullPath, False)
+            LOGGER.Info(">> OnCreated-File:" & e.FullPath)
-            If ClassIndexFunctions.FileExistsinDropTable(e.FullPath) = False Then
-                ClassFilehandle.Decide_FileHandle(e.FullPath, handleType)
-            Else
-                ClassLogger.Add(">> Folderwatcher: File already exists:" & e.FullPath, False)
-            End If
 
+            If ClassIndexFunctions.CheckDuplicateFiles(e.FullPath, "FolderWatch/Scan") Then
+                ClassFilehandle.Decide_FileHandle(e.FullPath, oHandleType)
+            End If
         Catch ex As Exception
             MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in folder_watch_Created")
         End Try

Global_Indexer/ClassFormFunctions.vb

@@ -47,13 +47,14 @@ Public Class ClassFormFunctions
                         'Data Source=MyOracleDB;User Id=myUsername;Password=myPassword;Integrated Security=no;
 
                     Case Else
-                        ClassLogger.Add(" - ConnectionType not integrated", False)
+                        LOGGER.Info(" - ConnectionType not integrated")
                         MsgBox("ConnectionType not integrated", MsgBoxStyle.Critical, "Please check connection:")
                 End Select
             End If
 
         Catch ex As Exception
-            ClassLogger.Add(" - Unexpected Error in GetConnectionString:" & vbNewLine & ex.Message)
+            LOGGER.Info(" - Unexpected Error in GetConnectionString:" & vbNewLine & ex.Message)
+            LOGGER.Error(ex)
             MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in GetConnectionString:")
 
         End Try

Global_Indexer/ClassHelper.vb

@@ -10,10 +10,11 @@ Public Class ClassHelper
             Dim utf8Encoding As New System.Text.UTF8Encoding(True)
             Dim encodedString() As Byte
             encodedString = utf8Encoding.GetBytes(str)
-            If LogErrorsOnly = False Then ClassLogger.Add(String.Format(" >> String {0} was encoded via utf8 to {1}", str, utf8Encoding.GetString(encodedString)), False)
+            LOGGER.Info(String.Format(" >> String {0} was encoded via utf8 to {1}", str, utf8Encoding.GetString(encodedString)))
             Return utf8Encoding.GetString(encodedString)
         Catch ex As Exception
-            ClassLogger.Add("Unexpected error in encode_utf8: " & ex.Message)
+            LOGGER.Info("Unexpected error in encode_utf8: " & ex.Message)
+            LOGGER.Error(ex)
             Return Nothing
         End Try
 
@@ -26,7 +27,8 @@ Public Class ClassHelper
             ' return byte data
             Return bytes
         Catch ex As Exception
-            ClassLogger.Add("Unexpected error in StringAsUtf8Bytes: " & ex.Message)
+            LOGGER.Info("Unexpected error in StringAsUtf8Bytes: " & ex.Message)
+            LOGGER.Error(ex)
             Return Nothing
         End Try
 
@@ -37,7 +39,8 @@ Public Class ClassHelper
             Dim matches As MatchCollection = Regex.Matches(str, pattern)
             Return matches.Count
         Catch ex As Exception
-            ClassLogger.Add("Unexpected error in CheckSpecialSigns: " & ex.Message)
+            LOGGER.Info("Unexpected error in CheckSpecialSigns: " & ex.Message)
+            LOGGER.Error(ex)
             Return 0
         End Try
     End Function

Global_Indexer/ClassHotkey.vb

@@ -1,50 +0,0 @@
-Public Class ClassHotkey
-
-#Region "Declarations - WinAPI, Hotkey constant and Modifier Enum"
-    ''' <summary>
-    ''' Declaration of winAPI function wrappers. The winAPI functions are used to register / unregister a hotkey
-    ''' </summary>
-    Public Declare Function RegisterHotKey Lib "user32" _
-    (ByVal hwnd As IntPtr, ByVal id As Integer, ByVal fsModifiers As Integer, ByVal vk As Integer) As Integer
-
-    Public Declare Function UnregisterHotKey Lib "user32" (ByVal hwnd As IntPtr, ByVal id As Integer) As Integer
-
-    Public Const WM_HOTKEY As Integer = &H312
-
-    Enum KeyModifier
-        Alt = &H1
-        Control = &H2
-        Shift = &H4
-        Winkey = &H8
-
-    End Enum 'This enum is just to make it easier to call the registerHotKey function: The modifier integer codes are replaced by a friendly "Alt","Shift" etc.
-#End Region
-
-
-#Region "Hotkey registration, unregistration and handling"
-    Public Shared Sub registerHotkey(ByRef sourceForm As Form, ByVal hotkeyID As Integer, ByVal triggerKey As String, ByVal modifier As KeyModifier)
-        RegisterHotKey(sourceForm.Handle, hotkeyID, modifier, Asc(triggerKey.ToUpper))
-    End Sub
-    Public Shared Sub unregisterHotkeys(ByRef sourceForm As Form)
-        'Try
-        UnregisterHotKey(sourceForm.Handle, 1)  'Remember to call unregisterHotkeys() when closing your application.
-        UnregisterHotKey(sourceForm.Handle, 2)
-        UnregisterHotKey(sourceForm.Handle, 3)
-        'Catch ex As Exception
-        '    ClassLogger.Add("Unerwarteter Fehler in Unregister Hotkeys´: " & ex.Message, True)
-        'End Try
-
-    End Sub
-    'Public Shared Sub handleHotKeyEvent(ByVal hotkeyID As IntPtr)
-    '    Select Case hotkeyID
-    '        Case 1
-    '            MsgBox("The hotkey ALT+W (ID: 1) was pressed")
-    '        Case 2
-    '            MsgBox("The hotkey ALT+E (ID: 2) was pressed")
-    '        Case 3
-    '            MsgBox("The hotkey ALT+R (ID: 3) was pressed")
-    '    End Select
-    'End Sub
-#End Region
-
-End Class

Global_Indexer/ClassHotkey_Windream.vb

@@ -1,336 +0,0 @@
-Imports System.IO
-Imports System.Text
-
-Public Class ClassHotkey_Windream
-    Private Declare Function GetForegroundWindow Lib "user32" Alias "GetForegroundWindow" () As IntPtr
-    Private Declare Auto Function GetWindowText Lib "user32" (ByVal hWnd As System.IntPtr, ByVal lpString As System.Text.StringBuilder, ByVal cch As Integer) As Integer
-
-    Private Declare Function ShowWindow Lib "user32" (ByVal handle As IntPtr, ByVal nCmdShow As Integer) As Integer
-    Private Declare Function SetForeGroundWindow Lib "user32" (ByVal Hwnd As IntPtr) As Integer
-
-    Private makel As String
-    Public Shared Function GetCaption() As String
-        Dim Caption As New System.Text.StringBuilder(256)
-        Dim hWnd As IntPtr = GetForegroundWindow()
-        GetWindowText(hWnd, Caption, Caption.Capacity)
-        Return Caption.ToString()
-    End Function
-
-    Private Shared fileContents As String
-    Private Shared Function IsRelevantWindow(windowname As String, myControlNo As Integer, Value As String)
-        Try
-            Dim Control_Sequence As Integer = 0
-            Dim enumerator1 As New ClassWindowAPI
-            'Jedes Formularwindow durchlaufen
-            For Each top As ClassWindowAPI.ApiWindow In enumerator1.GetTopLevelWindows()
-                If LogErrorsOnly = False Then ClassLogger.Add(" ... top-window Name: " & top.MainWindowTitle, False)
-                If top.MainWindowTitle.Contains(windowname) Or top.MainWindowTitle.ToLower = windowname.ToLower Then
-                    Control_Sequence = 0
-                    For Each vControl As ClassWindowAPI.ApiWindow In enumerator1.GetChildWindows(top.hWnd)
-
-                        If vControl.MainWindowTitle <> "" Then
-                            If Control_Sequence = myControlNo Then
-                                If Value.ToUpper = vControl.MainWindowTitle.ToUpper Then
-                                    Return True
-                                Else
-                                    If LogErrorsOnly = False Then ClassLogger.Add(" ... Control-Sequence: " & myControlNo.ToString & " entspricht nicht dem Matchvalue.", False)
-                                    Return False
-                                End If
-                            End If
-                        End If
-                        Control_Sequence += 1
-                    Next vControl
-                    Return False
-                End If
-            Next top
-        Catch ex As Exception
-            MsgBox("Error in IsRelevantWindowt:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
-            ClassLogger.Add(">> Error in IsRelevantWindow:" & ex.Message, False)
-            Return False
-        End Try
-    End Function
-    Private Shared Function Get_windowContent(windowname As String, myControlID As Integer)
-        Try
-            Dim Control_Sequence As Integer = 0
-            Dim enumerator1 As New ClassWindowAPI
-            'Jedes Formularwindow durchlaufen
-            For Each top As ClassWindowAPI.ApiWindow In enumerator1.GetTopLevelWindows()
-                If top.MainWindowTitle.Contains(windowname) Or top.MainWindowTitle.ToLower = windowname.ToLower Then
-                    Control_Sequence = 0
-                    For Each vControl As ClassWindowAPI.ApiWindow In enumerator1.GetChildWindows(top.hWnd)
-                        If vControl.MainWindowTitle <> "" Then
-                            If Control_Sequence = myControlID Then
-                                If LogErrorsOnly = False Then ClassLogger.Add(" ... Control-Sequence: " & myControlID.ToString & " - Gelesener Wert: " & vControl.MainWindowTitle, False)
-                                Return vControl.MainWindowTitle.ToString
-                            End If
-                        End If
-                        Control_Sequence += 1
-                    Next vControl
-                    Return Nothing
-                End If
-            Next top
-        Catch ex As Exception
-            MsgBox("Error in Get_windowContent:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
-            ClassLogger.Add(">> Error in Get_windowContent:" & ex.Message, False)
-            Return Nothing
-        End Try
-    End Function
-    'Fenster position ermitteln/auslesen
-    Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Integer
-    Private Declare Function GetWindowRect Lib "user32.dll" (ByVal hWnd As IntPtr, ByRef lpRect As RECT) As Int32
-    Private Structure RECT
-        Dim Left As Integer
-        Dim Top As Integer
-        Dim Right As Integer
-        Dim Bottom As Integer
-    End Structure
-    Private Shared Sub GetWindowClientSize(ByVal hWnd As Long)
-        Dim rc As RECT
-        GetWindowRect(hWnd, rc)
-        'Left = rc.Right - rc.Left
-        'Height = rc.Bottom - rc.Top
-    End Sub
-    Public Shared Function RUN_WD_SEARCH(HK_USR_PROFILE_ID As Integer)
-        Try
-            If LogErrorsOnly = False Then ClassLogger.Add(" ...RUN_WD_SEARCH with HK_USR_PROFILE_ID '" & HK_USR_PROFILE_ID & "'", False)
-            Dim DTWD As DataTable
-            Dim Objecttype As String
-            Dim windowname As String
-            Dim HKPROFILE_ID As Integer
-            Dim type As String
-
-
-            Dim _sql = "SELECT WD_SEARCH,HKPROFILE_ID FROM TBHOTKEY_USER_PROFILE WHERE GUID = " & HK_USR_PROFILE_ID
-            DTWD = ClassDatabase.Return_Datatable(_sql)
-            If DTWD.Rows.Count = 0 Then
-                If LogErrorsOnly = False Then ClassLogger.Add(" ...KEINE USER_PROFILES hinterlegt", False)
-                Return "Uncexpected Error in Hotkey - Check Log for Hotkey"
-            End If
-            If DTWD.Rows.Count > 1 Then
-                ClassLogger.Add("Das Ergebnis von '" & _sql & "' liefert mehr als eine Zeile zurück!", True)
-                Return "Uncexpected Error in Hotkey - Check Log for Hotkey"
-            End If
-            If DTWD.Rows(0).Item(0) = "" Then
-                If LogErrorsOnly = False Then ClassLogger.Add(">> KEINE Windream-Suche hinterlegt!", False)
-                Return "Error in Hotkey - KEINE Windream-Suche hinterlegt - Check Logkey"
-            End If
-            Dim BaseSearch = DTWD.Rows(0).Item(0)
-            Dim extension = Path.GetExtension(BaseSearch)
-            HKPROFILE_ID = DTWD.Rows(0).Item("HKPROFILE_ID")
-            Dim windream_temp_search As String = ""
-            If IO.File.Exists(BaseSearch) = False Then
-                ClassLogger.Add("Die Windream-Suche existiert nicht oder ist nicht zugreifbar!", True)
-
-                If USER_LANGUAGE = "de-DE" Then
-                    MsgBox("Die Windream-Suche existiert nicht oder ist nicht zugreifbar!", MsgBoxStyle.Critical)
-                Else
-                    MsgBox("Windream-Search does not exist or is not accessible", MsgBoxStyle.Critical)
-                End If
-
-                Return Nothing
-            End If
-            windowname = ClassDatabase.Execute_Scalar("SELECT WINDOW_NAME FROM TBHOTKEY_PROFILE WHERE GUID = " & HKPROFILE_ID, MyConnectionString, True)
-            type = ClassDatabase.Execute_Scalar("SELECT OBJECTTYPE FROM TBHOTKEY_PROFILE WHERE GUID = " & HKPROFILE_ID, MyConnectionString, True)
-            fileContents = ""
-
-            'Eine tempfile generieren
-            Dim tempFilename1 = My.Computer.FileSystem.GetTempFileName()
-            'Nur den Filenamen ohne Erweiterung
-            Dim tempName = Path.GetFileNameWithoutExtension(tempFilename1)
-            'tempfile löschen
-            If My.Computer.FileSystem.FileExists(tempFilename1) Then
-                My.Computer.FileSystem.DeleteFile(tempFilename1)
-            End If
-
-            Dim temppath = Path.GetTempPath
-
-            Dim EncodingFormat As Encoding
-            Dim WDUnicode = ClassDatabase.Execute_Scalar("SELECT WD_UNICODE FROM TBGI_CONFIGURATION WHERE GUID = 1", MyConnectionString, True)
-            If WDUnicode = True Then
-                EncodingFormat = Encoding.GetEncoding(1252) '1252
-                If LogErrorsOnly = False Then ClassLogger.Add(" ...Unicode is used (Encoding.GetEncoding(1252))", False)
-            Else
-                If LogErrorsOnly = False Then ClassLogger.Add(" ...UTF8 (Encoding.GetEncoding(65001))", False)
-                EncodingFormat = Encoding.GetEncoding(65001)
-            End If
-
-            Dim DT_HOOKS As DataTable = ClassDatabase.Return_Datatable("select * from TBHOTKEY_WINDOW_HOOK where HKPROFILE_ID = " & HKPROFILE_ID, True)
-            If DT_HOOKS.Rows.Count > 0 Then
-                Dim RelevantWindow As Boolean = False
-                For Each row As DataRow In DT_HOOKS.Rows
-                    RelevantWindow = IsRelevantWindow(windowname, row.Item("SEQUENCE_NUMBER"), row.Item("CONTROL_VALUE"))
-                    If RelevantWindow = False Then
-                        If LogErrorsOnly = False Then ClassLogger.Add(" ...Not the relevant window", False)
-                        Return "Not the Relevant window......"
-                    End If
-                Next
-            End If
-
-
-            If LogErrorsOnly = False Then ClassLogger.Add(" ...ReadAlltext: " & BaseSearch, False)
-            fileContents = My.Computer.FileSystem.ReadAllText(BaseSearch, EncodingFormat) ', System.Text.Encoding.Unicode
-            If LogErrorsOnly = False Then ClassLogger.Add(" ...fileContents geladen", False)
-            fileContents = fileContents.Replace("Í", "Ö")
-            'Das Array für die PAtterns anpassen
-            _sql = "select * from TBHOTKEY_PATTERNS WHERE HKPROFILE_ID = " & HKPROFILE_ID
-            Dim DT_PATTERNS As DataTable = ClassDatabase.Return_Datatable(_sql, True)
-            If DT_PATTERNS.Rows.Count > 0 Then
-                Dim i As Integer = 0
-                For Each row As DataRow In DT_PATTERNS.Rows
-                    If type = "COPYPASTE" Then
-                        _sql = "select window_control from TBHOTKEY_PATTERNS where HKPROFILE_ID = " & HKPROFILE_ID
-                        Dim copytype = ClassDatabase.Execute_Scalar(_sql, MyConnectionString, True)
-                        Dim clipbrd
-                        Dim theHandle As IntPtr = FindWindow(Nothing, CURRENT_FOCUSES_WINDOWNAME)
-                        If theHandle <> IntPtr.Zero Then
-                            Dim theForegroundWindow As Boolean = SetForeGroundWindow(theHandle)
-                            If theForegroundWindow = True Then
-                                Select Case copytype
-                                    Case "strgC"
-                                        ' SetForeGroundWindow(HWND)
-                                        SendKeys.Send("^{c}") 'for Ctrl-C
-
-                                    Case "strA and strgC"
-                                        SendKeys.Send("^{A}")
-                                        'AppActivate(CURRENT_FOCUSES_WINDOWNAME)
-                                        SendKeys.Send("^{c}") 'for Ctrl-C
-                                End Select
-                            End If
-                        End If
-
-
-
-                        clipbrd = Clipboard.GetText
-                        Console.WriteLine(clipbrd.ToString)
-                        If Not clipbrd Is Nothing Then
-                            If clipbrd <> "" Then
-                                _sql = "select PATTERN_WDSEARCH from TBHOTKEY_PATTERNS where HKPROFILE_ID = " & HKPROFILE_ID
-                                Dim _pattern = ClassDatabase.Execute_Scalar(_sql, MyConnectionString, True)
-                                fileContents = fileContents.Replace(_pattern, clipbrd.ToString)
-                            End If
-
-                        End If
-
-                    Else
-                        If LogErrorsOnly = False Then ClassLogger.Add(" ...Get Value for Control# '" & row.Item("SEQUENCE_NUMBER").ToString & "'", False)
-                        Dim foundresult = Get_windowContent(windowname, row.Item("SEQUENCE_NUMBER").ToString)
-                        If Not IsNothing(foundresult) Then
-                            'Die Nachbearbeitungsschritte laden
-                            Dim DTNB As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM TBHOTKEY_PATTERNS_REWORK WHERE HKPATTERN_ID = " & row.Item("GUID") & " ORDER BY SEQUENCE")
-                            If DTNB Is Nothing = False Then
-                                If DTNB.Rows.Count > 0 Then
-                                    foundresult = ClassPostprocessing.Get_Nachbearbeitung_Wert(foundresult, DTNB)
-                                End If
-                            End If
-                        End If
-                        If Not IsNothing(foundresult) Then
-                            If foundresult.ToString = "<" Or foundresult.ToString = ">" Then
-                                ClassLogger.Add(">> Hot Key received an irregular value.", False)
-                                Return "Hotkey konnte nur einen irregulären Wert auswerten."
-                            End If
-                            If LogErrorsOnly = False Then ClassLogger.Add(" ...fileContents.length: " & fileContents.Length, False)
-                            If LogErrorsOnly = False Then ClassLogger.Add(" ...Replace pattern '" & row.Item(2).ToString & "' with '" & foundresult & "'", False)
-                            fileContents = fileContents.Replace(row.Item(2).ToString, foundresult)
-                            If LogErrorsOnly = False Then ClassLogger.Add(" ...fileContents.length: " & fileContents.Length, False)
-                        Else
-                            ClassLogger.Add(">> Hot Key could not read any value.", False)
-                            Return "Hotkey konnte keinen Wert auswerten - Evtl. ist das konfigurierte Fenster nicht geöffnet?"
-                        End If
-                    End If
-
-                Next
-            End If
-            Try
-                'Die windream File zusammensetzen
-                windream_temp_search = temppath & tempName & extension
-                Try
-                    'Die File schreiben
-                    My.Computer.FileSystem.WriteAllText(windream_temp_search, fileContents, False, EncodingFormat)
-                    If LogErrorsOnly = False Then ClassLogger.Add(" ...wrote Text to windream_temp_search: " & windream_temp_search, False)
-                    ' XML-Datei öffnen und laden
-                    Dim Stream As New IO.StreamReader(CStr(windream_temp_search), EncodingFormat)
-                    Dim Reader As New System.Xml.XmlTextReader(Stream)
-
-                    ' XML-Datei initialisieren
-                    Dim xml As New System.Xml.XmlDocument()
-                    ' XML-Datei öffnen und laden
-                    xml.Load(Reader)
-                    Reader.Close()
-                    xml.Save(windream_temp_search)
-                    If LogErrorsOnly = False Then ClassLogger.Add(" ...Xml Generiert: " & windream_temp_search, False)
-                Catch ex As Exception
-                    ClassLogger.Add("TempFile could not be created: " & ex.Message, True)
-                    MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected Error in Write XmlSearch:")
-                End Try
-
-                CURRENT_WD_TEMPSEARCH = windream_temp_search
-                TEMP_FILES.Add(CURRENT_WD_TEMPSEARCH)
-                Try
-                    Dim myhWnd As IntPtr
-                    Dim p As New Process()
-                    p.StartInfo.FileName = windream_temp_search
-                    If My.Settings.WDSearch_maximized = True Then
-                        p.StartInfo.WindowStyle = ProcessWindowStyle.Maximized
-                    Else
-                        p.StartInfo.WindowStyle = ProcessWindowStyle.Normal
-                    End If
-                    p.Start()
-
-                    myhWnd = p.MainWindowHandle
-                    Threading.Thread.Sleep(1000)
-                    Dim rctMain As RECT
-                    GetWindowRect(p.MainWindowHandle, rctMain)
-                    If LogErrorsOnly = False Then
-                        ClassLogger.Add(" ...Top-Position: " & rctMain.Top.ToString, False)
-                        ClassLogger.Add(" ...Left-Position: " & rctMain.Left.ToString, False)
-                        ClassLogger.Add(" ...Right-Position: " & rctMain.Right.ToString, False)
-                        ClassLogger.Add(" ...Bottom-Position: " & rctMain.Bottom.ToString, False)
-                    End If
-                Catch ex As Exception
-                    MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error while executing windream-Search:")
-                    ClassLogger.Add("Unexpected error while executing search: " & ex.Message, True)
-                    Return "Unexpected error while executing search"
-                End Try
-                Dim psList() As Process
-                Try
-                    psList = Process.GetProcesses()
-
-                    For Each p As Process In psList
-                        Console.WriteLine(p.Id.ToString() + " " + p.ProcessName)
-                        If p.ProcessName.Contains("indream.Find") Then
-                            AppActivate(p.Id)
-                            If My.Settings.WDSearch_maximized = False Then
-                                Dim rctMain As RECT
-                                GetWindowRect(p.MainWindowHandle, rctMain)
-                                If rctMain.Left = 0 Or rctMain.Right = 0 Then
-                                    ShowWindow(p.MainWindowHandle, 3) ' SW_MAXIMIZE
-                                End If
-                            End If
-                            ' SetForeGroundWindow( p.MainWindowHandle)
-                        End If
-
-                    Next p
-
-                Catch ex As Exception
-                    ClassLogger.Add("Unexpected error while Setting foreground: " & ex.Message, True)
-                End Try
-                Return ""
-            Catch ex As Exception
-                ClassLogger.Add("Unexpected error in Create Search: " & ex.Message, True)
-                MsgBox("Error in Create Search:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
-                Return "Unexpected error in Create Search"
-            End Try
-
-        Catch ex As Exception
-            ClassLogger.Add("Unexpected error in RUN_WD_SEARCH: " & ex.Message, True)
-            MsgBox("Error in RUN_WD_SEARCH:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
-            Return "Unerwarteter Unexpected error in RUN_WD_SEARCH"
-        End Try
-
-
-    End Function
-
-
-
-
-End Class

Global_Indexer/ClassIDBData.vb

@@ -0,0 +1,226 @@
+Public Class ClassIDBData
+    Public DTVWIDB_BE_ATTRIBUTE As DataTable
+    ''' <summary>
+    ''' Gets all indices by BusinessEntity.
+    ''' </summary>
+    ''' <param name="BusinessEntity">Title of Business Entity</param>
+    ''' <returns>Array with all Indices</returns>
+    ''' <remarks></remarks>
+    ''' 
+    Public Function Init()
+        Dim oSQL = $"SELECT * FROM VWIDB_BE_ATTRIBUTE"
+        DTVWIDB_BE_ATTRIBUTE = ClassDatabase.Return_Datatable_CS(oSQL, CONNECTION_STRING_IDB)
+    End Function
+    Public IDBSystemIndices As List(Of String)
+    Public Function GetIndicesByBE(ByVal BusinessEntity As String) As String()
+        Try
+            Dim aNames(4) As String
+            aNames(0) = "ObjectID"
+            aNames(1) = "IDBCreatedWhen"
+            aNames(2) = "IDBCreatedWho"
+            aNames(3) = "IDBChangedWhen"
+            aNames(4) = "IDBChangedWho"
+            IDBSystemIndices = aNames.ToList
+            ' Array für Indizes vorbereiten
+            Dim aIndexNames(DTVWIDB_BE_ATTRIBUTE.Rows.Count + 4) As String
+            Dim oCount As Integer = 0
+            aIndexNames(oCount) = "ObjectID"
+            oCount += 1
+            aIndexNames(oCount) = "IDBCreatedWhen"
+            oCount += 1
+            aIndexNames(oCount) = "IDBCreatedWho"
+            oCount += 1
+            aIndexNames(oCount) = "IDBChangedWhen"
+            oCount += 1
+            aIndexNames(oCount) = "IDBChangedWho"
+            For Each oRow As DataRow In DTVWIDB_BE_ATTRIBUTE.Rows
+                oCount += 1
+                aIndexNames(oCount) = oRow.Item("ATTR_TITLE")
+
+            Next
+
+
+            ' Indexarray sortiert zurückgeben
+            Array.Sort(aIndexNames)
+            ' Indexarray zurückgeben
+            Return aIndexNames
+
+        Catch ex As Exception
+            LOGGER.Error(ex)
+            MsgBox(ex.Message, MsgBoxStyle.Critical, "Error getting the IDB Indicies")
+            Return Nothing
+        End Try
+    End Function
+    Public Function GetTypeOfIndex(ByVal indexname As String) As Integer
+        Try
+            For Each oRow As DataRow In DTVWIDB_BE_ATTRIBUTE.Rows
+                If oRow.Item("ATTR_TITLE") = indexname Then
+                    Dim oType = oRow.Item("TYP_ID")
+                    Return oType
+                End If
+            Next
+
+        Catch ex As Exception
+            LOGGER.Error(ex)
+            Return Nothing
+        End Try
+
+    End Function
+    Public Function GetVariableValue(oAttributeName As String, Optional oIDBTyp As Integer = 0, Optional FromIDB As Boolean = False) As Object
+        Try
+            Dim oSingleAttribute As Boolean = True
+            Select Case oIDBTyp
+                Case 8
+                    oSingleAttribute = False
+                Case 9
+                    oSingleAttribute = False
+            End Select
+            Dim oAttributeValue
+
+            If oSingleAttribute = True And IDB_DT_DOC_DATA.Rows.Count = 1 And FromIDB = False Then
+                Try
+                    If oAttributeName = "IDBCreatedWhen" Then
+                        oAttributeName = "ADDED_WHEN"
+                    ElseIf oAttributeName = "IDBCreatedWho" Then
+                        oAttributeName = "ADDED_WHO"
+                    ElseIf oAttributeName = "IDBChangedWhen" Then
+                        oAttributeName = "CHANGED_WHEN"
+                    ElseIf oAttributeName = "IDBChangedWho" Then
+                        oAttributeName = "CHANGED_WHO"
+                    End If
+
+                    oAttributeValue = IDB_DT_DOC_DATA.Rows(0).Item(oAttributeName)
+                Catch ex As Exception
+                    LOGGER.Debug($"Error getting Attribute from IDB_DT_DOC_DATA: {ex.Message}")
+                End Try
+
+            End If
+            If Not IsNothing(oAttributeValue) Then
+                Return oAttributeValue
+            Else
+                LOGGER.Debug($"oAttributeValue for Attribute [{oAttributeName}] is so far nothing..Now trying FNIDB_PM_GET_VARIABLE_VALUE ")
+            End If
+            Dim oFNSQL = $"SELECT * FROM [dbo].[FNIDB_PM_GET_VARIABLE_VALUE] ({IDB_DOC_ID},'{oAttributeName}','{USER_LANGUAGE}',CONVERT(BIT,'{IDB_USES_WMFILESTORE}'))"
+            oAttributeValue = ClassDatabase.Return_Datatable_CS(oFNSQL, CONNECTION_STRING_IDB)
+            Dim odt As DataTable = oAttributeValue
+            If odt.Rows.Count = 1 Then
+                oAttributeValue = odt.Rows(0).Item(0)
+            End If
+            Return oAttributeValue
+        Catch ex As Exception
+            LOGGER.Error(ex)
+            Return Nothing
+        End Try
+
+    End Function
+    Public Function Delete_Term_Object_From_Metadata(oAttributeName As String, oTerm2Delete As String) As Object
+        Try
+            Dim oAttributeValue
+            Dim oID_IS_FOREIGN As Integer
+            oID_IS_FOREIGN = 0
+            If IDB_USES_WMFILESTORE Then
+                oID_IS_FOREIGN = 1
+            End If
+            Dim oDELSQL = $"EXEC PRIDB_DELETE_TERM_OBJECT_METADATA {IDB_DOC_ID},'{oAttributeName}','{oTerm2Delete}','{USER_USERNAME}','{USER_LANGUAGE}',{oID_IS_FOREIGN}"
+            ClassDatabase.Execute_non_Query_ConStr(oDELSQL, CONNECTION_STRING_IDB)
+
+        Catch ex As Exception
+            LOGGER.Error(ex)
+            Return Nothing
+        End Try
+
+    End Function
+    Public Function Delete_AttributeData(pIDB_OBJID As Int64, pAttributeName As String) As Object
+        Try
+            Dim oDELSQL = $"EXEC PRIDB_DELETE_ATTRIBUTE_DATA {pIDB_OBJID},'{pAttributeName}','{USER_USERNAME}'"
+            ClassDatabase.Execute_non_Query_ConStr(oDELSQL, CONNECTION_STRING_IDB)
+
+        Catch ex As Exception
+            LOGGER.Error(ex)
+            Return Nothing
+        End Try
+
+    End Function
+
+    Public Function SetVariableValue(oAttributeName As String, oNewValue As Object, Optional CheckDeleted As Boolean = False, Optional oIDBTyp As Integer = 0)
+        Try
+            Dim omytype = oNewValue.GetType.ToString
+            If omytype = "System.Data.DataTable" Then
+                Dim oDTMyNewValues As DataTable = oNewValue
+                Dim oOldAttributeResult
+                Dim oTypeOldResult
+
+                If CheckDeleted = True Then
+                    oOldAttributeResult = GetVariableValue(oAttributeName, oIDBTyp)
+                    oTypeOldResult = oOldAttributeResult.GetType.ToString
+                    If oTypeOldResult = "System.Data.DataTable" Then
+                        Dim myOldValues As DataTable = oOldAttributeResult
+                        If myOldValues.Rows.Count > 1 Then
+
+                            'now Checking whether the old row still remains in Vector? If not it will be deleted as it cannot be replaced in multivalues
+                            For Each oOldValueRow As DataRow In myOldValues.Rows
+                                Dim oExists As Boolean = False
+                                For Each oNewValueRow As DataRow In oDTMyNewValues.Rows
+                                    Dim oInfo1 = $"Checking oldValue[{oOldValueRow.Item(0)}] vs NewValue [{oNewValueRow.Item(1)}]"
+                                    If oNewValueRow.Item(1).ToString.ToUpper = oOldValueRow.Item(0).ToString.ToUpper Then
+                                        oExists = True
+                                        Exit For
+                                    End If
+                                Next
+
+                                If oExists = False Then
+                                    Dim oInfo = $"Value [{oOldValueRow.Item(0)}] no longer existing in Vector-Attribute [{oAttributeName}] - will be deleted!"
+                                    LOGGER.Info(oInfo)
+                                    SetVariableValue(IDB_LOG_INDEX, oInfo)
+                                    Delete_Term_Object_From_Metadata(oAttributeName, oOldValueRow.Item(0))
+                                End If
+
+                            Next
+                        End If
+                    Else
+                        If oDTMyNewValues.Rows.Count > 1 Then
+                            Dim oExists As Boolean = False
+                            For Each oNewValueRow As DataRow In oDTMyNewValues.Rows
+                                Dim oInfo1 = $"Checking oldValue[{oOldAttributeResult}] vs NewValue [{oNewValueRow.Item(1)}]"
+                                If oNewValueRow.Item(1).ToString.ToUpper = oOldAttributeResult.ToString.ToUpper Then
+                                    oExists = True
+                                    Exit For
+                                End If
+                            Next
+                            If oExists = False Then
+                                Dim oInfo2 = $"Value [{oOldAttributeResult}] no longer existing in Vector-Attribute [{oAttributeName}] - will be deleted!"
+                                LOGGER.Info(oInfo2)
+                                SetVariableValue(IDB_LOG_INDEX, oInfo2)
+                                Delete_Term_Object_From_Metadata(oAttributeName, oOldAttributeResult)
+                            End If
+                        Else
+                            Dim oInfo = $"Value [{oOldAttributeResult}] of Attribute [{oAttributeName}] obviously was updated during runtime - will be deleted!"
+                            LOGGER.Info(oInfo)
+                            SetVariableValue(IDB_LOG_INDEX, oInfo)
+                            Delete_Term_Object_From_Metadata(oAttributeName, oOldAttributeResult)
+                        End If
+
+                    End If
+
+                End If
+
+                For Each oNewValueRow As DataRow In oDTMyNewValues.Rows
+                    Dim oSuccess As Boolean = False
+                    Dim oFNSQL = $"DECLARE @NEW_OBJ_MD_ID BIGINT " & vbNewLine & $"EXEC PRIDB_NEW_OBJ_DATA {IDB_DOC_ID},'{oAttributeName}','{USER_USERNAME}','{oNewValueRow.Item(1).ToString}','{USER_LANGUAGE}',{IDB_DOC_ID},@OMD_ID = @NEW_OBJ_MD_ID OUTPUT"
+                    oSuccess = ClassDatabase.Execute_non_Query_ConStr(oFNSQL, CONNECTION_STRING_IDB)
+                    If oSuccess = False Then
+                        Return False
+                    End If
+                Next
+                Return True
+            Else
+                Dim oFNSQL = $"DECLARE @NEW_OBJ_MD_ID BIGINT " & vbNewLine & $"EXEC PRIDB_NEW_OBJ_DATA {IDB_DOC_ID},'{oAttributeName}','{USER_USERNAME}','{oNewValue}','{USER_LANGUAGE}',{IDB_DOC_ID},@OMD_ID = @NEW_OBJ_MD_ID OUTPUT"
+                Return ClassDatabase.Execute_non_Query_ConStr(oFNSQL, CONNECTION_STRING_IDB)
+            End If
+
+        Catch ex As Exception
+            LOGGER.Error(ex)
+            Return False
+        End Try
+    End Function
+End Class

Global_Indexer/ClassIndexFunctions.vb

@@ -1,19 +1,86 @@
-
+Imports System.IO
 
 Public Class ClassIndexFunctions
-    Public Shared Function FileExistsinDropTable(Filename As String)
+    Public Shared Function FileExistsinDropTable(pFilename As String, pHandleType As String) As Date
-        Dim check As String
+        Dim oSQL As String
+        Dim oHash As String
+
         Try
-            If Filename.Contains("'") Then
+            If pFilename.Contains("'") Then
-                Filename = Filename.Replace("'", "''")
+                pFilename = pFilename.Replace("'", "''")
             End If
-            check = "SELECT COUNT(*) FROM TBGI_FILES_USER WHERE UPPER(FILENAME2WORK) = UPPER('" & Filename & "') AND WORKED = 0"
+
-            Dim result = ClassDatabase.Execute_Scalar(check, MyConnectionString, True)
+            If pFilename.ToUpper.EndsWith(".MSG") And (pHandleType = "|OUTLOOK_MESSAGE|" Or pHandleType = "|MSGONLY|") Then
-            Return result
+                ' MSG Files cannot be hashed based on filecontents, so we use the filename instead
+                oHash = FILESYSTEM.GetChecksumFromString(pFilename)
+            Else
+                ' If file cannot be accessed, checksum cannot be generated
+                ' In this case, the file should be treated as not yet existing
+                oHash = FILESYSTEM.GetChecksum(pFilename)
+            End If
+
+            If oHash Is Nothing Then
+                LOGGER.Warn("Checksum for file {0} could not be generated. Treating as new file.", pFilename)
+                Return Nothing
+            End If
+
+            'oSQL = "SELECT *  FROM TBGI_FILES_USER WHERE UPPER(FILE_HASH) = UPPER('" & oHash & "') AND WORKED = 0 ORDER BY ADDED_WHEN"
+            'Dim oResult As DataTable = ClassDatabase.Return_Datatable_CS(oSQL, MyConnectionString, True)
+
+            'If oResult Is Nothing Then
+            'Return Nothing
+            'End If
+
+            'If oResult.Rows.Count = 0 Then
+            oSQL = "SELECT * FROM TBGI_HISTORY WHERE UPPER(FILE_HASH) = UPPER('" & oHash & "') ORDER BY ADDED_WHEN"
+            Dim oResult = ClassDatabase.Return_Datatable_CS(oSQL, MyConnectionString, True)
+
+            If oResult Is Nothing Then
+                Return Nothing
+            End If
+
+            If oResult.Rows.Count = 0 Then
+                Return Nothing
+            Else
+                Dim oFirstRow As DataRow = oResult.Rows.Item(0)
+                Return oFirstRow.Item("ADDED_WHEN")
+            End If
+            'Else
+            'Dim oFirstRow As DataRow = oResult.Rows.Item(0)
+            'Return oFirstRow.Item("ADDED_WHEN")
+            'End If
         Catch ex As Exception
-            MsgBox("Error in FileExistsinDropTable - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & check, MsgBoxStyle.Critical)
+            MsgBox("Error in FileExistsinDropTable - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & oSQL, MsgBoxStyle.Critical)
             Return Nothing
         End Try
+    End Function
 
+    Public Shared Function CheckDuplicateFiles(pFilepath As String, pModuleTitle As String, Optional pHandleType As String = "")
+        Dim oFileInfo As New FileInfo(pFilepath)
+        Dim oFilename As String = oFileInfo.Name
+        Dim oFileExists As Date = FileExistsinDropTable(pFilepath, pHandleType)
+
+        If oFileExists.Equals(Date.MinValue) Then
+            Return True
+        Else
+            Dim oResult As DialogResult
+            Dim oDate As String = oFileExists.ToString("d")
+            Dim oBoxTitle = $"GLOBIX - {pModuleTitle}"
+            Dim oMessage As String
+
+            If USER_LANGUAGE = "de-DE" Then
+                oMessage = $"Die Datei [{oFilename}] wurde bereits am [{oDate}] verarbeitet. Wollen Sie die gleiche Datei noch einmal verarbeiten?"
+            Else
+                oMessage = $"The file [{oFilename}] has already been processed at [{oDate}]. Do you want to process the same file again?"
+            End If
+
+            oResult = MessageBox.Show(oMessage, oBoxTitle, MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button1, MessageBoxOptions.DefaultDesktopOnly)
+
+            If oResult = DialogResult.Yes Then
+                Return True
+            End If
+        End If
+
+        Return False
     End Function
 End Class

Global_Indexer/ClassInit.vb

@@ -1,27 +1,32 @@
 Imports System.ComponentModel
-Imports DLLLicenseManager
 Imports DigitalData.Modules.Logging
 Imports DigitalData.Modules.Config
+Imports DigitalData.Modules.Windream
+Imports DigitalData.Modules.Filesystem
+Imports DigitalData.Modules.Messaging
+Imports DLLLicenseManager
 
 Public Class ClassInit
     Public _lizenzManager As ClassLicenseManager
-    Public Sub New()
-    End Sub
 
     Public Sub InitLogger()
         ClassLogger.Init("", Environment.UserName)
-        ClassLogger.Add(">> Programmstart: " & Now, False)
+        LOGCONFIG = New LogConfig(LogConfig.PathType.AppData, Nothing, Nothing,
-        ClassLogger.Add(">> Username: " & Environment.UserName, False)
+                                  CompanyName:=My.Application.Info.CompanyName,
-        LOGCONFIG = New LogConfig(LogConfig.PathType.AppData)
+                                  ProductName:=My.Application.Info.ProductName)
         LOGGER = LOGCONFIG.GetLogger("Globix")
+        LOGGER.Info("Programmstart: " & Now)
         LOGGER.Info("Username: {0}", Environment.UserName)
     End Sub
 
     Public Sub InitConfig()
         CONFIG = New ConfigManager(Of ClassConfig)(LOGCONFIG, Application.UserAppDataPath, Application.CommonAppDataPath)
+        LOGCONFIG.Debug = Not CONFIG.Config.LogErrorsOnly
+        LOGGER.Info("Debug log set to: [{0}]", LOGCONFIG.Debug)
 
         MyConnectionString = DecryptConnectionString(CONFIG.Config.ConnectionString)
         LogErrorsOnly = CONFIG.Config.LogErrorsOnly
+
         'myPreviewActive = CONFIG.Config.FilePreview
         FW_started = CONFIG.Config.FolderWatchStarted
         CURR_DELETE_ORIGIN = CONFIG.Config.DeleteOriginalFile
@@ -62,25 +67,48 @@ Public Class ClassInit
         Dim configResult As Boolean
         configResult = Load_BasicConfig()
 
+        FILESYSTEM = New File(LOGCONFIG)
+        EMAIL = New Email2(LOGCONFIG)
+
         If configResult = False Then
             If USER_LANGUAGE = "de-DE" Then
                 Throw New Exception("Unerwarteter Fehler beim Initialisieren der Basis-Einstellungen. Weitere Informationen finden Sie in der Logdatei.")
             Else
                 Throw New Exception("Unexpected error while initializing basic-settings. More info in the log.")
             End If
+        Else
+            If IDB_ACTIVE = False Then
+                Try
+                    WINDREAM = New Windream(LOGCONFIG, False, WMDrive, "\\windream\objects", True, "", "", "", "")
+                    If Not IsNothing(WINDREAM) Then
+                        If WINDREAM.SessionLoggedin = True Then
+                            LOGGER.Debug("windream initialisiert")
+                        Else
+                            Throw New Exception("Could not create a windream session")
+                        End If
+                    End If
+                Catch ex As Exception
+                    LOGGER.Warn("CHECKING WMConnectivity: " & ex.Message)
+                    Throw New Exception("Unexpected error in CHECKING WMConnectivity")
+                End Try
+            End If
+
         End If
     End Sub
 
     Public Function Load_BasicConfig()
         Try
             ClassDatabase.Init()
-            Dim oSql As String = "select * from tbdd_Modules where NAME = 'Global-Indexer'"
+            Dim oSql As String = "SELECT * FROM TBDD_MODULES WHERE NAME = 'Global-Indexer'"
             Dim DT As DataTable = ClassDatabase.Return_Datatable(oSql)
             If DT.Rows.Count = 1 Then
                 GI_withWindream = DT.Rows(0).Item("BIT1")
-                vWLaufwerk = DT.Rows(0).Item("STRING1")
+                'vWLaufwerk = DT.Rows(0).Item("STRING1")
-
+            End If
-                DTTBGI_REGEX_DOCTYPE = ClassDatabase.Return_Datatable("SELECT T1.DOCTYPE as DocType, T.* FROM TBGI_REGEX_DOCTYPE T, VWGI_DOCTYPE T1 WHERE T.DOCTYPE_ID = T1.DOCTYPE_ID")
+            oSql = "SELECT * FROM TBDD_BASECONFIG"
+            DT = ClassDatabase.Return_Datatable(oSql)
+            If DT.Rows.Count = 1 Then
+                WMDrive = DT.Rows(0).Item("WM_DRIVE")
                 Return True
             Else
                 Return False
@@ -100,21 +128,21 @@ Public Class ClassInit
             folderwatchPath = IIf(IsDBNull(folderwatchPath), "", folderwatchPath)
 
             If folderwatchPath = String.Empty Then
-                ClassLogger.Add("Init_Folderwatch: folderwatchPath is empty", True)
+                LOGGER.Info("Init_Folderwatch: folderwatchPath is empty")
                 FW_started = False
                 'SaveConfigValue("FW_started", "False")
                 CONFIG.Config.FolderWatchStarted = False
                 CONFIG.Save()
-     
+
             End If
 
             If Not IO.Directory.Exists(folderwatchPath) Then
-                ClassLogger.Add("Init_Folderwatch: folderwatchPath does not exists or is invalid path", True)
+                LOGGER.Info("Init_Folderwatch: folderwatchPath does not exists or is invalid path")
                 FW_started = False
                 'SaveConfigValue("FW_started", "False")
                 CONFIG.Config.FolderWatchStarted = False
                 CONFIG.Save()
-               
+
             End If
 
             CURRENT_FOLDERWATCH = folderwatchPath
@@ -124,7 +152,7 @@ Public Class ClassInit
             ClassFolderWatcher.StartStop_FolderWatch()
         Catch ex As Exception
             MsgBox($"Init_Folderwatch: Unexpected error while starting FolderWatch: {ex.Message}", MsgBoxStyle.Critical)
-            ClassLogger.Add($"Init_Folderwatch: Unexpected error: {ex.Message}", True)
+            LOGGER.Info($"Init_Folderwatch: Unexpected error: {ex.Message}")
             START_INCOMPLETE = True
         End Try
 
@@ -135,14 +163,14 @@ Public Class ClassInit
             folderwatchScanPath = IIf(IsDBNull(folderwatchScanPath), "", folderwatchScanPath)
 
             If folderwatchScanPath = String.Empty Then
-                ClassLogger.Add("Init_Folderwatch: folderwatchScanPath is empty", True)
+                LOGGER.Info("Init_Folderwatch: folderwatchScanPath is empty")
                 CONFIG.Config.FolderWatchStarted = False
                 CONFIG.Save()
                 Exit Sub
             End If
 
             If Not IO.Directory.Exists(folderwatchScanPath) Then
-                ClassLogger.Add("Init_Folderwatch: folderwatchScanPath does not exists or is invalid path", True)
+                LOGGER.Info("Init_Folderwatch: folderwatchScanPath does not exists or is invalid path")
                 CONFIG.Config.FolderWatchStarted = False
                 CONFIG.Save()
                 Exit Sub
@@ -155,7 +183,7 @@ Public Class ClassInit
             ClassFolderWatcher.StartStop_FolderWatchSCAN()
         Catch ex As Exception
             MsgBox($"Init_Folderwatch: Unexpected error while starting FolderWatchScan: {ex.Message}", MsgBoxStyle.Critical)
-            ClassLogger.Add($"Init_Folderwatch: Unexpected error: {ex.Message}", True)
+            LOGGER.Info($"Init_Folderwatch: Unexpected error: {ex.Message}")
             START_INCOMPLETE = True
         End Try
 
@@ -180,7 +208,7 @@ Public Class ClassInit
 
         '        End If
         '    Else
-        '        ClassLogger.Add("Init_Folderwatch: folderwatch path is nothing!", True)
+        '        LOGGER.Info("Init_Folderwatch: folderwatch path is nothing!")
         '    End If
         '    If Not folderwatch_SCAN Is Nothing Then
         '        CURRENT_SCAN_FOLDERWATCH = folderwatch_SCAN
@@ -189,55 +217,46 @@ Public Class ClassInit
         '            ClassFolderWatcher.StartStop_FolderWatchSCAN()
         '        End If
         '    Else
-        '        ClassLogger.Add("Init_Folderwatch: folderwatch_SCAN path is nothing!", True)
+        '        LOGGER.Info("Init_Folderwatch: folderwatch_SCAN path is nothing!")
         '    End If
         'Catch ex As Exception
-        '    ClassLogger.Add("Unexpected Error in Init_Folderwatch: " & ex.Message, True)
+        '    LOGGER.Info("Unexpected Error in Init_Folderwatch: " & ex.Message)
         '    START_INCOMPLETE = True
         'End Try
     End Sub
     Public Sub InitUserLogin()
         Try
-            Dim sql = "SELECT MAX(GUID) FROM TBDD_USER WHERE (LOWER(USERNAME) = LOWER('@user'))"
+            Dim oSql As String
-            sql = sql.Replace("@user", Environment.UserName)
-            ' ClassLogger.Add(">> Username: " & Environment.UserName, False)
 
-            USER_ID = ClassDatabase.Execute_Scalar(sql, MyConnectionString, True)
+            oSql = String.Format("SELECT * FROM [dbo].[FNDD_CHECK_USER_MODULE] ('{0}','GLOBIX',{1})", Environment.UserName, 1)
-            Try
+            Dim DT_CHECKUSER_MODULE As DataTable = ClassDatabase.Return_Datatable(oSql)
-                Dim USERID = CInt(USER_ID)
-            Catch ex As Exception
-                ClassLogger.Add("User '" & Environment.UserName & "' not configured in Useradministration! (DBNull)", True)
-                'MsgBox("Achtung: Sie sind nicht in der Userverwaltung hinterlegt." & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!", MsgBoxStyle.Critical, "Achtung:")
-                'Me.Close()
-                START_INCOMPLETE = True
-                Throw New Exception("You are not configured in the Useradministration." & vbNewLine & "Please contact the system administrator!")
-                Exit Sub
-            End Try
-
-            Dim oUserDatatable As DataTable = ClassDatabase.Return_Datatable($"SELECT * FROM TBDD_USER WHERE GUID = {USER_ID}")
-            If Not IsNothing(oUserDatatable) AndAlso Not IsDBNull(oUserDatatable.Rows.Item(0)) Then
-                Dim oRow As DataRow = oUserDatatable.Rows.Item(0)
-                USER_SHORT_NAME = NotNull(oRow.Item("SHORTNAME"), String.Empty)
-                USER_PRENAME = NotNull(oRow.Item("PRENAME"), String.Empty)
-                USER_SURNAME = NotNull(oRow.Item("NAME"), String.Empty)
-                USER_EMAIL = NotNull(oRow.Item("EMAIL"), String.Empty)
-                USER_USERNAME = NotNull(oRow.Item("USERNAME"), String.Empty)
-            End If
-
-            'Check_User_Exists_in_GIGroups()
-            sql = String.Format("SELECT * FROM [dbo].[FNDD_CHECK_USER_MODULE] ('{0}','GLOBIX',{1})", Environment.UserName, 1)
-            Dim DT_CHECKUSER_MODULE As DataTable = ClassDatabase.Return_Datatable(sql)
             If DT_CHECKUSER_MODULE.Rows.Count = 0 Then
-                ClassLogger.Add("DT_CHECKUSER_MODULE.Rows.Count = 0", True)
+                LOGGER.Info("DT_CHECKUSER_MODULE.Rows.Count = 0")
                 START_INCOMPLETE = True
                 ERROR_STATE = "NO USER"
                 MsgBox("Sorry - Something went wrong in getting Your rights." & vbNewLine & "Please contact the system administrator!", MsgBoxStyle.Exclamation)
                 Exit Sub
             End If
             If DT_CHECKUSER_MODULE.Rows.Count = 1 Then
+                If DT_CHECKUSER_MODULE.Rows(0).Item("USER_ID") = 0 And IsDBNull(DT_CHECKUSER_MODULE.Rows(0).Item("USER_SURNAME")) Then
+                    LOGGER.Info("User '" & Environment.UserName & "' not configured in Useradministration!")
+                    START_INCOMPLETE = True
+                    Throw New Exception("You are not configured in the Useradministration." & vbNewLine & "Please contact the system administrator!")
+                    Exit Sub
+                End If
                 USER_IN_MODULE = DT_CHECKUSER_MODULE.Rows(0).Item("MODULE_ACCESS")
+                USER_ID = DT_CHECKUSER_MODULE.Rows(0).Item("USER_ID")
+                USER_SURNAME = IIf(IsDBNull(DT_CHECKUSER_MODULE.Rows(0).Item("USER_SURNAME")), "", DT_CHECKUSER_MODULE.Rows(0).Item("USER_SURNAME"))
+                USER_PRENAME = IIf(IsDBNull(DT_CHECKUSER_MODULE.Rows(0).Item("USER_PRENAME")), "", DT_CHECKUSER_MODULE.Rows(0).Item("USER_PRENAME"))
+                USER_SHORTNAME = IIf(IsDBNull(DT_CHECKUSER_MODULE.Rows(0).Item("USER_SHORTNAME")), "", DT_CHECKUSER_MODULE.Rows(0).Item("USER_SHORTNAME"))
+                USER_EMAIL = IIf(IsDBNull(DT_CHECKUSER_MODULE.Rows(0).Item("USER_EMAIL")), "", DT_CHECKUSER_MODULE.Rows(0).Item("USER_EMAIL"))
+                USER_LANGUAGE = DT_CHECKUSER_MODULE.Rows(0).Item("USER_LANGUAGE")
+                USER_IN_MODULE = DT_CHECKUSER_MODULE.Rows(0).Item("MODULE_ACCESS")
+                USER_IS_ADMIN = DT_CHECKUSER_MODULE.Rows(0).Item("IS_ADMIN")
+                USERCOUNT_LOGGED_IN = DT_CHECKUSER_MODULE.Rows(0).Item("USERCOUNT_LOGGED_IN")
+                ClassParamRefresh.Refresh_Params(DT_CHECKUSER_MODULE)
                 If USER_IN_MODULE = False Then
-                    ClassLogger.Add(" - User: " & Environment.UserName & " nicht für Modul freigegben!", False)
+                    LOGGER.Info(" - User: " & Environment.UserName & " nicht für Modul freigegben!")
                     START_INCOMPLETE = True
 
                     Throw New Exception("Your user is not allowed to use this module." & vbNewLine & "Please contact the system administrator!")
@@ -259,23 +278,23 @@ Public Class ClassInit
                 End If
                 USER_LANGUAGE = DT_CHECKUSER_MODULE.Rows(0).Item("USER_LANGUAGE")
 
-                sql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_ID & " AND UPPER(MODULE) = UPPER('Global-Indexer')"
+                oSql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_ID & " AND UPPER(MODULE) = UPPER('Global-Indexer')"
-                ClassDatabase.Execute_non_Query(sql, True)
+                ClassDatabase.Execute_non_Query(oSql, True)
-                sql = "INSERT INTO TBDD_USER_MODULE_LOG_IN (USER_ID,MODULE) VALUES (" & USER_ID & ",'Global-Indexer')"
+                oSql = "INSERT INTO TBDD_USER_MODULE_LOG_IN (USER_ID,MODULE, CLIENT_ID) VALUES (" & USER_ID & ",'Global-Indexer', 1)"
-                ClassDatabase.Execute_non_Query(sql)
+                ClassDatabase.Execute_non_Query(oSql)
-                sql = "SELECT COUNT(*) AS Expr1 FROM TBDD_USER_MODULE_LOG_IN WHERE Upper(MODULE) = UPPER('Global-Indexer')"
+                oSql = "SELECT COUNT(*) AS Expr1 FROM TBDD_USER_MODULE_LOG_IN WHERE Upper(MODULE) = UPPER('Global-Indexer')"
-                Dim anzahl = ClassDatabase.Execute_Scalar(sql, MyConnectionString, True)
+                ' Dim anzahl = ClassDatabase.Execute_Scalar(sql, MyConnectionString, True)
-                If LogErrorsOnly = False Then ClassLogger.Add(" >> Anzahl Angemeldete User: " & anzahl.ToString, False)
+                'LOGGER.Info(" >> Anzahl Angemeldete User: " & anzahl.ToString)
-                UserLoggedin = CInt(anzahl)
+                ' UserLoggedin = CInt(anzahl)
-                UserLoggedin += 1
+                ' UserLoggedin += 1
-                If LICENSE_COUNT < UserLoggedin And LICENSE_EXPIRED = False Then
+                If LICENSE_COUNT < USERCOUNT_LOGGED_IN And LICENSE_EXPIRED = False Then
-                    MsgBox("Die Anzahl der aktuell angemeldeten User (" & UserLoggedin.ToString & ") überschreitet die Anzahl der aktuellen Lizenzen!" & vbNewLine & "Anzahl der Lizenzen: " & LICENSE_COUNT.ToString & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!", MsgBoxStyle.Critical, "Achtung:")
+                    MsgBox("Die Anzahl der aktuell angemeldeten User (" & USERCOUNT_LOGGED_IN.ToString & ") überschreitet die Anzahl der aktuellen Lizenzen!" & vbNewLine & "Anzahl der Lizenzen: " & LICENSE_COUNT.ToString & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!", MsgBoxStyle.Critical, "Achtung:")
-                    ClassLogger.Add(" >> Die Anzahl der aktuell angemeldeten User (" & UserLoggedin.ToString & ") überschreitet die Anzahl der Lizenzen (" & LICENSE_COUNT & ") für Global Indexer!", False)
+                    LOGGER.Info(" >> Die Anzahl der aktuell angemeldeten User (" & USERCOUNT_LOGGED_IN.ToString & ") überschreitet die Anzahl der Lizenzen (" & LICENSE_COUNT & ") für Global Indexer!")
                     If USER_IS_ADMIN = False Then
                         'Anmeldung wieder herausnehmen
-                        sql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_ID & " AND MODULE= 'Global-Indexer'"
+                        oSql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_ID & " AND MODULE= 'Global-Indexer'"
-                        ClassDatabase.Execute_non_Query(sql, True)
+                        ClassDatabase.Execute_non_Query(oSql, True)
-                        ClassLogger.Add(" - Wieder abgemeldet", False)
+                        LOGGER.Info(" - Wieder abgemeldet")
                         START_INCOMPLETE = True
                     End If
                 End If
@@ -286,7 +305,8 @@ Public Class ClassInit
 
 
         Catch ex As Exception
-            ClassLogger.Add("Unexpected Error in InitUserLogin: " & ex.Message, True)
+            LOGGER.Info("Unexpected Error in InitUserLogin: " & ex.Message)
+            LOGGER.Error(ex)
             MsgBox(ex.Message, MsgBoxStyle.Critical)
             START_INCOMPLETE = True
         End Try

Global_Indexer/ClassLayout.vb

@@ -2,7 +2,7 @@
 Imports System.IO
 
 Public Class ClassWindowLocation
-    Public Shared Sub LoadFormLocationSize(ByRef form As Form)
+    Public Shared Sub LoadFormLocationSize(ByRef form As Form, Optional LoadSize As Boolean = True)
         Try
             Dim _path, _pathold As String
 
@@ -53,7 +53,7 @@ Public Class ClassWindowLocation
                     If x >= 0 And y >= 0 Then
                         form.Location = New Point(x, y)
                     End If
-                    If w > 0 And h > 0 Then
+                    If w > 0 And h > 0 And LoadSize = True Then
                         form.Size = New Size(w, h)
                     End If
                 End If
@@ -76,11 +76,12 @@ Public Class ClassWindowLocation
                 End If
             Next
             If result = False Then
-                ClassLogger.Add(">> Saved layout is not fitting to Resolution. Default is loaded.", True)
+                LOGGER.Info(">> Saved layout is not fitting to Resolution. Default is loaded.")
             End If
             Return result
         Catch ex As Exception
-            ClassLogger.Add("Error in IsVisibleOnAnyScreen: " & ex.Message, True)
+            LOGGER.Info("Error in IsVisibleOnAnyScreen: " & ex.Message)
+            LOGGER.Error(ex)
             Return False
         End Try
     End Function

Global_Indexer/ClassLicence.vb

@@ -1,4 +1,5 @@
-Imports DLLLicenseManager
+Imports System.Globalization
+Imports DLLLicenseManager
 Public Class ClassLicence
     Public Shared License_Date As Date
     Private Shared _lizenzManager As ClassLicenseManager
@@ -7,21 +8,26 @@ Public Class ClassLicence
             _lizenzManager = New ClassLicenseManager("#DigitalData35452!#", "")
             Dim sql As String = "SELECT LICENSEKEY FROM TBGI_CONFIGURATION WHERE GUID = 1"
 
-            Dim lic As String = ClassDatabase.Execute_Scalar(sql, MyConnectionString)
+            Dim licEncoded As String = ClassDatabase.Execute_Scalar(sql, MyConnectionString)
-            Dim licString = _lizenzManager.DecodeLicenseKey(lic)
+            Dim licString As String = _lizenzManager.DecodeLicenseKey(licEncoded)
-            Dim split() = licString.ToString.Split("#")
+            Dim licArray() As String = licString.ToString.Split("#")
 
-            If lic <> "" Then
+            If licEncoded <> "" Then
-                LICENSE_COUNT = split(0)
+                LICENSE_COUNT = licArray(0)
             Else
                 LICENSE_COUNT = 0
             End If
-            License_Date = CDate(split(1))
+
-            If CDate(split(1)) < CDate(Now.ToShortDateString) Then
+            LOGGER.Debug("License Date is {0}", licArray(1))
+
+            License_Date = Date.ParseExact(licArray(1), "dd.MM.yyyy", CultureInfo.InvariantCulture)
+            'License_Date = CDate(split(1))
+
+            If License_Date < Now Then
                 If USER_LANGUAGE = "de-DE" Then
-                    MsgBox("Ihre Lizenz ist abgelaufen!" & vbNewLine & "Letztes Gültigkeitsdatum: " & split(1) & vbNewLine & "Bitte setzen Sie sich mit Digital Data in Verbindung", MsgBoxStyle.Exclamation)
+                    MsgBox("Ihre Lizenz ist abgelaufen!" & vbNewLine & "Letztes Gültigkeitsdatum: " & licArray(1) & vbNewLine & "Bitte setzen Sie sich mit Digital Data in Verbindung", MsgBoxStyle.Exclamation)
                 Else
-                    MsgBox("Your license has expired!" & vbNewLine & "Last Valid Date: " & split(1) & vbNewLine & "Please contact Digital Data", MsgBoxStyle.Exclamation)
+                    MsgBox("Your license has expired!" & vbNewLine & "Last Valid Date: " & licArray(1) & vbNewLine & "Please contact Digital Data", MsgBoxStyle.Exclamation)
                 End If
                 START_INCOMPLETE = True
                 LICENSE_EXPIRED = True
@@ -29,13 +35,14 @@ Public Class ClassLicence
             End If
 
             'tslblLicenses.Text = "Anzahl Lizenzen: " & licenseanzahl
-            LICENSE_DOCTYPE_COUNT = split(2)
+            LICENSE_DOCTYPE_COUNT = licArray(2)
             Try
-                LicenseHotKey = split(3)
+                LicenseHotKey = licArray(3)
             Catch ex As Exception
                 LicenseHotKey = 0
             End Try
         Catch ex As Exception
+            LOGGER.Error(ex)
             MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Unexpected error in Licensemanager:")
             START_INCOMPLETE = True
         End Try

Global_Indexer/ClassParamRefresh.vb

@@ -0,0 +1,53 @@
+Public Class ClassParamRefresh
+    Public Shared Sub Refresh_Params(DT_CHECKUSER As DataTable)
+        If DT_CHECKUSER.Rows.Count = 1 Then
+            USERCOUNT_LOGGED_IN = DT_CHECKUSER.Rows(0).Item("USERCOUNT_LOGGED_IN")
+            Try
+                WORKING_MODE = DT_CHECKUSER.Rows(0).Item("WORKING_MODE")
+            Catch ex As Exception
+                WORKING_MODE = ""
+            End Try
+            'Try
+            '    ADDITIONAL_TITLE = DT_CHECKUSER.Rows(0).Item("ADDITIONAL_TITLE")
+            '    If ADDITIONAL_TITLE = String.Empty Then
+            '        ADDITIONAL_TITLE = My.Application.Info.ProductName
+            '    End If
+            'Catch ex As Exception
+            '    ADDITIONAL_TITLE = My.Application.Info.ProductName
+            'End Try
+
+            Dim oSplitWorkMode As String() = WORKING_MODE.Split("#")
+
+            ' Use For Each loop over words and display them.
+            Dim oMode As String
+            For Each oMode In oSplitWorkMode
+                LOGGER.Debug($"oWorkingMode Parameter: {oMode}")
+                If oMode.StartsWith("IDB_CONID!") Then
+                    Dim CON_ID = oMode.Replace("GLOBIX.IDB_CONID!", "")
+                    Dim oConString = ClassDatabase.Get_ConnectionString(CON_ID)
+                    CONNECTION_STRING_IDB = oConString
+                    Dim oSQL = $"SELECT * FROM TBIDB_ATTRIBUTE"
+                    Dim oDT As DataTable = ClassDatabase.Return_Datatable_CS(oSQL, CONNECTION_STRING_IDB)
+                    If Not IsNothing(oDT) Then
+                        If oDT.Rows.Count > 0 Then
+                            IDB_ACTIVE = True
+                        Else
+                            LOGGER.Warn($"Got an IDB-ConnID [{CON_ID}] but check DTAttribute.Row.Count is [{oDT.Rows.Count}]!!")
+                        End If
+                    Else
+                        LOGGER.Warn($"Got an IDB-ConnID [{CON_ID}] but check DT Attribute is Nothing!!")
+                    End If
+                ElseIf oMode.StartsWith("IDB.LOG_INDEX") Then
+                    IDB_LOG_INDEX = oMode.Replace("IDB.LOG_INDEX!", "")
+                    'ElseIf oMode.StartsWith("PM.COLORSCHEME") Then
+                    '    Dim oColorScheme = oMode.Replace("PM.COLORSCHEME=", "")
+                    '    RIBBON_COLOR_SCHEME = oColorScheme.ToUpper
+
+                Else
+                    LOGGER.Info($"Wrong oMode: {oMode}")
+                End If
+            Next
+
+        End If
+    End Sub
+End Class

Global_Indexer/ClassPatterns.vb

@@ -1,5 +1,7 @@
 Imports System.Text.RegularExpressions
+Imports DevExpress.XtraEditors
 Imports DigitalData.Controls.LookupGrid
+Imports DigitalData.GUIs.GlobalIndexer
 Imports WINDREAMLib
 
 ''' <summary>
@@ -39,7 +41,7 @@ Public Class ClassPatterns
 
     Public Const MAX_TRY_COUNT = 500
 
-    Private Shared regex As Regex = New Regex("{#(\w+)#([\w\s_-]+)}+")
+    Private Shared regex As Regex = New Regex("{#(\w+)#([\.\w\d\s_-]+)}+")
     Private Shared allPatterns As New List(Of String) From {PATTERN_WMI, PATTERN_CTRL, PATTERN_IDBA, PATTERN_USER, PATTERN_INT}
     Private Shared complexPatterns As New List(Of String) From {PATTERN_WMI, PATTERN_CTRL, PATTERN_IDBA}
     Private Shared simplePatterns As New List(Of String) From {PATTERN_USER, PATTERN_INT}
@@ -146,12 +148,28 @@ Public Class ClassPatterns
             Dim result = input
             Dim oTryCounter = 0
 
+            LOGGER.Debug("Input String: [{0}]", input)
+
             While ContainsPattern(result, PATTERN_CTRL)
+                LOGGER.Debug("ReplaceControlValues Try no. [{0}]", oTryCounter)
+
                 If oTryCounter > MAX_TRY_COUNT Then
                     Throw New Exception($"Max tries in ReplaceControlValues exceeded - Result so far [{result}].")
                 End If
 
-                Dim controlName As String = GetNextPattern(result, PATTERN_CTRL).Value
+                LOGGER.Debug("Getting next pattern..")
+
+                Dim oNextPattern = GetNextPattern(result, PATTERN_CTRL)
+
+                If oNextPattern Is Nothing Then
+                    LOGGER.Debug("No Next Pattern found. Exiting!")
+                    Exit While
+                End If
+
+                LOGGER.Debug("Next Pattern Value: [{0}]", oNextPattern.Value)
+                LOGGER.Debug("Next Pattern Type: [{0}]", oNextPattern.Type)
+
+                Dim controlName As String = oNextPattern.Value
                 Dim oFoundControl As Control = Nothing
                 Dim oFoundType As String = Nothing
 
@@ -160,9 +178,27 @@ Public Class ClassPatterns
                         Continue For
                     End If
 
-                    Dim oMeta = DirectCast(oControl.Tag, ClassControls.ControlMeta)
+                    LOGGER.Debug("Getting control metadata from Control: [{0}]", oControl.Name)
+
+                    If oControl.Tag Is Nothing Then
+                        LOGGER.Warn("No Metadata object found for control [{0}]. Skipping.", oControl.Name)
+                        Continue For
+                    End If
+
+                    Dim oMeta = TryCast(oControl.Tag, ControlCreator.ControlMeta)
+
+                    LOGGER.Debug("Metadata IndexName: [{0}]", oMeta.IndexName)
+                    LOGGER.Debug("Metadata IndexType: [{0}]", oMeta.IndexType)
+                    LOGGER.Debug("Checking Control Name matches..")
+
+                    If oMeta Is Nothing Then
+                        LOGGER.Warn("No Metadata found for control [{0}]. Skipping.", oControl.Name)
+                        Continue For
+                    End If
 
                     If oMeta.IndexName = controlName Then
+                        LOGGER.Debug("Control Name matches! Matching Control: [{0}]", controlName)
+
                         oFoundControl = oControl
                         oFoundType = oMeta.IndexType
                         Exit For
@@ -172,38 +208,63 @@ Public Class ClassPatterns
                 If oFoundControl IsNot Nothing Then
                     Dim oValue As String = String.Empty
 
-                    If TypeOf oFoundControl Is TextBox Then
+                    LOGGER.Debug("Found Control [{0}], continuing with setting value..", oFoundControl.Name)
-                        oValue = DirectCast(oFoundControl, TextBox).Text
-                    ElseIf TypeOf oFoundControl Is CheckBox Then
-                        oValue = IIf(DirectCast(oFoundControl, CheckBox).Checked, 1, 0)
-                    ElseIf TypeOf oFoundControl Is LookupControl2 Then
-                        Dim oLookupControl = DirectCast(oFoundControl, LookupControl2)
 
-                        If oLookupControl.MultiSelect Then
+                    If TypeOf oFoundControl Is TextEdit Then
-                            Select Case oFoundType
+                        Try
-                                Case "INTEGER"
+                            oValue = DirectCast(oFoundControl, TextEdit).Text
-                                    oValue = String.Join(",", oLookupControl.SelectedValues)
+                        Catch ex As Exception
-                                Case "VARCHAR"
+                            LOGGER.Error(ex)
-                                    Dim oWrapped = oLookupControl.SelectedValues.Select(Function(v) $"'{v}'")
+                            LOGGER.Warn("Control Value for TextBox [{0}] could not be retrieved!", oFoundControl.Name)
-                                    oValue = String.Join(",", oWrapped)
+                        End Try
-                            End Select
+                    ElseIf TypeOf oFoundControl Is CheckBox Then
-                        Else
+                        Try
-                            oValue = NotNull(oLookupControl.SelectedValues.Item(0), "")
+                            oValue = IIf(DirectCast(oFoundControl, CheckBox).Checked, 1, 0)
-                        End If
+                        Catch ex As Exception
+                            LOGGER.Error(ex)
+                            LOGGER.Warn("Control Value for CheckBox [{0}] could not be retrieved!", oFoundControl.Name)
+                        End Try
+                    ElseIf TypeOf oFoundControl Is LookupControl3 Then
+                        Try
+                            Dim oLookupControl = DirectCast(oFoundControl, LookupControl3)
+
+                            If oLookupControl.Properties.MultiSelect Then
+                                Select Case oFoundType
+                                    Case "INTEGER"
+                                        oValue = String.Join(",", oLookupControl.Properties.SelectedValues)
+                                    Case "VARCHAR"
+                                        Dim oWrapped = oLookupControl.Properties.SelectedValues
+                                        oValue = String.Join(",", oWrapped)
+                                    Case Else
+                                        LOGGER.Warn("Lookup Control with [{0}] is not supported!", oFoundType)
+                                End Select
+                            Else
+                                oValue = NotNull(oLookupControl.Properties.SelectedValues.Item(0), "")
+                            End If
+                        Catch ex As Exception
+                            LOGGER.Error(ex)
+                            LOGGER.Warn("Control Value for LookupControl3 [{0}] could not be retrieved!", oFoundControl.Name)
+                        End Try
                     Else
+                        LOGGER.Debug("Unknown Control type for type [{0}], setting value to empty string.", oFoundControl.Name)
                         oValue = ""
                     End If
 
+                    LOGGER.Debug("Retrieved Value from Control [{0}] is: [{1}]", controlName, oValue)
+
                     result = ReplacePattern(result, PATTERN_CTRL, oValue)
+                Else
+                    LOGGER.Warn("Control [{0}] not found!", controlName)
                 End If
 
                 oTryCounter += 1
             End While
-            LOGGER.Debug("sql after ReplaceControlValues: " & input)
+            LOGGER.Debug("input after ReplaceControlValues [{input}]")
             Return result
         Catch ex As Exception
             LOGGER.Error(ex)
             LOGGER.Info("Error in ReplaceControlValues:" & ex.Message)
+            Return input
         End Try
     End Function
 

Global_Indexer/ClassPostprocessing.vb

@@ -16,7 +16,7 @@ Public Class ClassPostprocessing
 
                 Select Case oType
                     Case VBSPLIT
-                        If LogErrorsOnly = False Then ClassLogger.Add(" ...Nachbearbeitung mit VBSPLIT", False)
+                        LOGGER.Info(" ...Nachbearbeitung mit VBSPLIT")
 
                         Dim oSeparator As String = oDataRow.Item("TEXT1")
                         Dim oSplitIndex As Integer = 0
@@ -31,15 +31,15 @@ Public Class ClassPostprocessing
                         Dim oFindString = oDataRow.Item("TEXT1")
                         Dim oReplaceString = oDataRow.Item("TEXT2")
 
-                        If LogErrorsOnly = False Then ClassLogger.Add(" ...Nachbearbeitung mit VBREPLACE", False)
+                        LOGGER.Info(" ...Nachbearbeitung mit VBREPLACE")
-                        If LogErrorsOnly = False Then ClassLogger.Add(" ...Ersetze '" & oFindString & "' mit '" & oReplaceString & "'", False)
+                        LOGGER.Info(" ...Ersetze '" & oFindString & "' mit '" & oReplaceString & "'")
 
                         For Each oIndexValue In oIndexValues
                             Dim oReplaceResult = oIndexValue.Replace(oFindString, oReplaceString)
                             oResult.Add(oReplaceResult)
                         Next
                     Case REGEXPRESSION
-                        If LogErrorsOnly = False Then ClassLogger.Add(" ...Nachbearbeitung mit RegEx", False)
+                        LOGGER.Info(" ...Nachbearbeitung mit RegEx")
 
                         Dim oRegexList As New List(Of Regex)
                         Dim oRegex As New Regex(oDataRow.Item("TEXT1"), RegexOptions.IgnoreCase)
@@ -50,7 +50,7 @@ Public Class ClassPostprocessing
                             Dim oProcessedString = extractFromStringviaRE(oIndexValue, oRegexList)
                             oResult.Add(oProcessedString)
 
-                            If LogErrorsOnly = False Then ClassLogger.Add(" ...Ergebnis des RegEx: " & oProcessedString, False)
+                            LOGGER.Info(" ...Ergebnis des RegEx: " & oProcessedString)
                         Next
                 End Select
 
@@ -58,55 +58,10 @@ Public Class ClassPostprocessing
             Next
         Catch ex As Exception
             MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error in Get_Nachbearbeitung_Wert:")
-            ClassLogger.Add(" - Unvorhergesehener Unexpected error in Get_Nachbearbeitung_Wert - result: " & idxvalue & " - Fehler: " & vbNewLine & ex.Message)
+            LOGGER.Info(" - Unvorhergesehener Unexpected error in Get_Nachbearbeitung_Wert - result: " & idxvalue & " - Fehler: " & vbNewLine & ex.Message)
         End Try
 
         Return String.Join(ClassConstants.VECTORSEPARATOR, oIndexValues.ToArray)
-
-        'Dim result As String = idxvalue
-        'Try
-        '    For Each row As DataRow In Datatable.Rows
-        '        Select Case row.Item("TYPE").ToString.ToUpper
-        '            Case "VBSPLIT"
-        '                If LogErrorsOnly = False Then ClassLogger.Add(" ...Nachbearbeitung mit VBSPLIT", False)
-        '                Dim strSplit() As String
-        '                strSplit = result.Split(row.Item("TEXT1"))
-        '                For i As Integer = 0 To strSplit.Length - 1
-        '                    If i = CInt(row.Item("TEXT2")) Then
-        '                        If LogErrorsOnly = False Then ClassLogger.Add(" ...Split-Ergebnis für Index (" & i.ToString & "): " & strSplit(i), False)
-        '                        result = strSplit(i).ToString
-        '                    End If
-        '                Next
-        '            Case "VBREPLACE"
-        '                If LogErrorsOnly = False Then
-        '                    ClassLogger.Add(" ...Nachbearbeitung mit VBREPLACE", False)
-        '                    ClassLogger.Add(" ...Ersetze '" & row.Item("TEXT1") & "' mit '" & row.Item("TEXT2") & "'", False)
-        '                    result = result.Replace(row.Item("TEXT1"), row.Item("TEXT2"))
-        '                End If
-
-        '                result = result.Replace(row.Item("TEXT1"), row.Item("TEXT2"))
-        '            Case "REG. EXPRESSION"
-        '                If LogErrorsOnly = False Then ClassLogger.Add(" ...Nachbearbeitung mit RegEx", False)
-        '                Dim RegexList As New List(Of System.Text.RegularExpressions.Regex)
-        '                Dim Regex As New System.Text.RegularExpressions.Regex(row.Item("TEXT1"), System.Text.RegularExpressions.RegexOptions.IgnoreCase)
-        '                RegexList.Add(Regex)
-        '                '
-        '                Dim resultRegex = ClassPostprocessing.extractFromStringviaRE(result, RegexList)
-        '                If Not IsNothing(resultRegex) Then
-        '                    If LogErrorsOnly = False Then ClassLogger.Add(" ...Ergebnis des RegEx: " & resultRegex.ToString, False)
-        '                    result = resultRegex.ToString
-        '                Else
-        '                    ClassLogger.Add("Postprocessing RegEx konnte kein Ergebnis auswerten!", True)
-        '                End If
-        '        End Select
-        '    Next
-        '    Return result
-        'Catch ex As Exception
-        '    ClassLogger.Add(" - Unvorhergesehener Unexpected error in Get_Nachbearbeitung_Wert - result: " & result & " - Fehler: " & vbNewLine & ex.Message)
-        '    MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error in Get_Nachbearbeitung_Wert:")
-        '    Return result
-        'End Try
-
     End Function
 
     ''' <summary>

Global_Indexer/Global_Indexer.vbproj

@@ -13,6 +13,8 @@
     <MyType>WindowsForms</MyType>
     <TargetFrameworkVersion>v4.6.1</TargetFrameworkVersion>
     <AutoGenerateBindingRedirects>true</AutoGenerateBindingRedirects>
+    <IsWebBootstrapper>false</IsWebBootstrapper>
+    <TargetFrameworkProfile />
     <PublishUrl>publish\</PublishUrl>
     <Install>true</Install>
     <InstallFrom>Disk</InstallFrom>
@@ -25,10 +27,8 @@
     <MapFileExtensions>true</MapFileExtensions>
     <ApplicationRevision>0</ApplicationRevision>
     <ApplicationVersion>1.0.0.%2a</ApplicationVersion>
-    <IsWebBootstrapper>false</IsWebBootstrapper>
     <UseApplicationTrust>false</UseApplicationTrust>
     <BootstrapperEnabled>true</BootstrapperEnabled>
-    <TargetFrameworkProfile />
   </PropertyGroup>
   <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
     <PlatformTarget>AnyCPU</PlatformTarget>
@@ -63,7 +63,7 @@
     <OptionInfer>On</OptionInfer>
   </PropertyGroup>
   <PropertyGroup>
-    <ApplicationIcon>DD_Icons_ICO_GLOBIX_128.ico</ApplicationIcon>
+    <ApplicationIcon>Resources\DD_Icons_ICO_GLOBIX_128.ico</ApplicationIcon>
   </PropertyGroup>
   <PropertyGroup>
     <ApplicationManifest>My Project\app.manifest</ApplicationManifest>
@@ -157,22 +157,38 @@
     <Reference Include="DigitalData.Controls.LookupGrid">
       <HintPath>..\..\DDMonorepo\Controls.LookupGrid\bin\Debug\DigitalData.Controls.LookupGrid.dll</HintPath>
     </Reference>
+    <Reference Include="DigitalData.GUIs.GlobalIndexer">
+      <HintPath>..\..\DDMonorepo\GUIs.GlobalIndexer\bin\Debug\DigitalData.GUIs.GlobalIndexer.dll</HintPath>
+    </Reference>
     <Reference Include="DigitalData.Modules.Config">
       <HintPath>..\..\DDMonorepo\Modules.Config\bin\Debug\DigitalData.Modules.Config.dll</HintPath>
     </Reference>
-    <Reference Include="DigitalData.Modules.Filesystem">
+    <Reference Include="DigitalData.Modules.Filesystem, Version=1.0.1.1, Culture=neutral, processorArchitecture=MSIL">
-      <HintPath>..\..\DDMonorepo\Modules.Config\bin\Debug\DigitalData.Modules.Filesystem.dll</HintPath>
+      <HintPath>..\..\DDMonorepo\Modules.Filesystem\bin\Debug\DigitalData.Modules.Filesystem.dll</HintPath>
+      <SpecificVersion>False</SpecificVersion>
     </Reference>
-    <Reference Include="DigitalData.Modules.Logging">
+    <Reference Include="DigitalData.Modules.Language, Version=1.1.0.0, Culture=neutral, processorArchitecture=MSIL">
-      <HintPath>..\..\DDMonorepo\Modules.Config\bin\Debug\DigitalData.Modules.Logging.dll</HintPath>
+      <SpecificVersion>False</SpecificVersion>
+      <HintPath>..\..\DDMonorepo\Modules.Language\bin\Debug\DigitalData.Modules.Language.dll</HintPath>
+    </Reference>
+    <Reference Include="DigitalData.Modules.Logging, Version=2.0.0.1, Culture=neutral, processorArchitecture=MSIL">
+      <SpecificVersion>False</SpecificVersion>
+      <HintPath>..\..\DDMonorepo\Modules.Logging\bin\Debug\DigitalData.Modules.Logging.dll</HintPath>
+    </Reference>
+    <Reference Include="DigitalData.Modules.Messaging">
+      <HintPath>..\..\DDMonorepo\Modules.Messaging\bin\Debug\DigitalData.Modules.Messaging.dll</HintPath>
+    </Reference>
+    <Reference Include="DigitalData.Modules.Windows">
+      <HintPath>..\..\DDMonorepo\Windows\bin\Debug\DigitalData.Modules.Windows.dll</HintPath>
+    </Reference>
+    <Reference Include="DigitalData.Modules.Windream, Version=1.0.0.5, Culture=neutral, processorArchitecture=MSIL">
+      <SpecificVersion>False</SpecificVersion>
+      <HintPath>..\..\DDMonorepo\Modules.Windream\bin\Debug\DigitalData.Modules.Windream.dll</HintPath>
     </Reference>
     <Reference Include="DLLLicenseManager, Version=1.0.0.0, Culture=neutral, processorArchitecture=MSIL">
       <SpecificVersion>False</SpecificVersion>
       <HintPath>P:\Visual Studio Projekte\Bibliotheken\DLLLicenseManager.dll</HintPath>
     </Reference>
-    <Reference Include="Independentsoft.Msg">
-      <HintPath>P:\Visual Studio Projekte\Bibliotheken\MSG .NET\Bin\14_11_19_MIME_UTF_ENCODING\Independentsoft.Msg.dll</HintPath>
-    </Reference>
     <Reference Include="Interop.WINDREAMLib">
       <HintPath>P:\Visual Studio Projekte\Bibliotheken\windream\Interop.WINDREAMLib.dll</HintPath>
       <EmbedInteropTypes>False</EmbedInteropTypes>
@@ -181,9 +197,13 @@
       <HintPath>P:\Visual Studio Projekte\Bibliotheken\windream\Interop.WMOTOOLLib.dll</HintPath>
       <EmbedInteropTypes>True</EmbedInteropTypes>
     </Reference>
-    <Reference Include="NLog, Version=4.0.0.0, Culture=neutral, PublicKeyToken=5120e14c03d0593c, processorArchitecture=MSIL">
+    <Reference Include="Mail, Version=3.0.21189.1553, Culture=neutral, PublicKeyToken=6dc438ab78a525b3, processorArchitecture=MSIL">
       <SpecificVersion>False</SpecificVersion>
-      <HintPath>..\packages\NLog.4.5.11\lib\net45\NLog.dll</HintPath>
+      <HintPath>P:\Visual Studio Projekte\Bibliotheken\Limilabs\Mail.dll\Mail.dll</HintPath>
+    </Reference>
+    <Reference Include="Microsoft.CSharp" />
+    <Reference Include="NLog, Version=4.0.0.0, Culture=neutral, PublicKeyToken=5120e14c03d0593c, processorArchitecture=MSIL">
+      <HintPath>..\packages\NLog.4.7.10\lib\net45\NLog.dll</HintPath>
     </Reference>
     <Reference Include="Oracle.ManagedDataAccess">
       <HintPath>P:\Visual Studio Projekte\Bibliotheken\Oracle.ManagedDataAccess.dll</HintPath>
@@ -191,13 +211,18 @@
     <Reference Include="PresentationCore" />
     <Reference Include="System" />
     <Reference Include="System.ComponentModel.DataAnnotations" />
+    <Reference Include="System.Configuration" />
     <Reference Include="System.Data" />
     <Reference Include="System.Data.Linq" />
     <Reference Include="System.Deployment" />
     <Reference Include="System.DirectoryServices" />
     <Reference Include="System.DirectoryServices.AccountManagement" />
     <Reference Include="System.Drawing" />
+    <Reference Include="System.IO.Compression" />
     <Reference Include="System.Runtime.Remoting" />
+    <Reference Include="System.Runtime.Serialization" />
+    <Reference Include="System.ServiceModel" />
+    <Reference Include="System.Transactions" />
     <Reference Include="System.Web.Services" />
     <Reference Include="System.Windows.Forms" />
     <Reference Include="System.Xml" />
@@ -230,23 +255,25 @@
     <Compile Include="ClassConstants.vb" />
     <Compile Include="ClassControls.vb" />
     <Compile Include="ClassDatabase.vb" />
+    <Compile Include="ClassDatatables.vb" />
     <Compile Include="ClassDragDrop.vb" />
+    <Compile Include="ClassFileDrop.vb" />
     <Compile Include="ClassEmail.vb" />
     <Compile Include="ClassEncryption.vb" />
     <Compile Include="ClassFilehandle.vb" />
     <Compile Include="ClassFolderWatcher.vb" />
     <Compile Include="ClassFormFunctions.vb" />
     <Compile Include="ClassHelper.vb" />
-    <Compile Include="ClassHotkey_Windream.vb" />
+    <Compile Include="ClassIDBData.vb" />
     <Compile Include="ClassIndexFunctions.vb" />
     <Compile Include="ClassInit.vb" />
     <Compile Include="ClassLayout.vb" />
     <Compile Include="ClassLicence.vb" />
     <Compile Include="ClassLogger.vb" />
+    <Compile Include="ClassParamRefresh.vb" />
     <Compile Include="ClassPatterns.vb" />
     <Compile Include="ClassPostprocessing.vb" />
     <Compile Include="ClassWindowAPI.vb" />
-    <Compile Include="ClassWindream.vb" />
     <Compile Include="ClassEmailHeaderExtractor.vb" />
     <Compile Include="clsHotkey.vb" />
     <Compile Include="frmAdministration.Designer.vb">
@@ -267,24 +294,18 @@
     <Compile Include="frmConnections.vb">
       <SubType>Form</SubType>
     </Compile>
+    <Compile Include="frmEmailIndexing.Designer.vb">
+      <DependentUpon>frmEmailIndexing.vb</DependentUpon>
+    </Compile>
+    <Compile Include="frmEmailIndexing.vb">
+      <SubType>Form</SubType>
+    </Compile>
     <Compile Include="frmHistory.Designer.vb">
       <DependentUpon>frmHistory.vb</DependentUpon>
     </Compile>
     <Compile Include="frmHistory.vb">
       <SubType>Form</SubType>
     </Compile>
-    <Compile Include="frmHotKey_Add.Designer.vb">
-      <DependentUpon>frmHotKey_Add.vb</DependentUpon>
-    </Compile>
-    <Compile Include="frmHotKey_Add.vb">
-      <SubType>Form</SubType>
-    </Compile>
-    <Compile Include="frmHotkey_User.Designer.vb">
-      <DependentUpon>frmHotkey_User.vb</DependentUpon>
-    </Compile>
-    <Compile Include="frmHotkey_User.vb">
-      <SubType>Form</SubType>
-    </Compile>
     <Compile Include="frmIndex.designer.vb">
       <DependentUpon>frmIndex.vb</DependentUpon>
     </Compile>
@@ -363,21 +384,9 @@
     <Compile Include="frmStart.vb">
       <SubType>Form</SubType>
     </Compile>
-    <Compile Include="frmTestvb.Designer.vb">
-      <DependentUpon>frmTestvb.vb</DependentUpon>
-    </Compile>
-    <Compile Include="frmTestvb.vb">
-      <SubType>Form</SubType>
-    </Compile>
-    <Compile Include="frmUserKonfig_AddUsers.designer.vb">
-      <DependentUpon>frmUserKonfig_AddUsers.vb</DependentUpon>
-    </Compile>
-    <Compile Include="frmUserKonfig_AddUsers.vb">
-      <SubType>Form</SubType>
-    </Compile>
     <Compile Include="ModuleCURRENT.vb" />
     <Compile Include="ModuleHelpers.vb" />
-    <Compile Include="ModuleMySettings.vb" />
+    <Compile Include="ModuleRuntime.vb" />
     <Compile Include="ModuleUserSavings.vb" />
     <Compile Include="ModuleWindowHandles.vb" />
     <Compile Include="My Project\AssemblyInfo.vb" />
@@ -420,9 +429,11 @@
     </EmbeddedResource>
     <EmbeddedResource Include="frmAdministration.en-US.resx">
       <DependentUpon>frmAdministration.vb</DependentUpon>
+      <SubType>Designer</SubType>
     </EmbeddedResource>
     <EmbeddedResource Include="frmAdministration.resx">
       <DependentUpon>frmAdministration.vb</DependentUpon>
+      <SubType>Designer</SubType>
     </EmbeddedResource>
     <EmbeddedResource Include="frmConfig_Basic.de.resx">
       <DependentUpon>frmConfig_Basic.vb</DependentUpon>
@@ -442,30 +453,31 @@
     <EmbeddedResource Include="frmConnections.resx">
       <DependentUpon>frmConnections.vb</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="frmEmailIndexing.resx">
+      <DependentUpon>frmEmailIndexing.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="frmHistory.en-US.resx">
       <DependentUpon>frmHistory.vb</DependentUpon>
     </EmbeddedResource>
     <EmbeddedResource Include="frmHistory.resx">
       <DependentUpon>frmHistory.vb</DependentUpon>
     </EmbeddedResource>
-    <EmbeddedResource Include="frmHotKey_Add.resx">
-      <DependentUpon>frmHotKey_Add.vb</DependentUpon>
-    </EmbeddedResource>
-    <EmbeddedResource Include="frmHotkey_User.en-US.resx">
-      <DependentUpon>frmHotkey_User.vb</DependentUpon>
-    </EmbeddedResource>
-    <EmbeddedResource Include="frmHotkey_User.resx">
-      <DependentUpon>frmHotkey_User.vb</DependentUpon>
-    </EmbeddedResource>
     <EmbeddedResource Include="frmIndex.en-US.resx">
       <DependentUpon>frmIndex.vb</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="frmIndex.en.resx">
+      <DependentUpon>frmIndex.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="frmIndex.resx">
       <DependentUpon>frmIndex.vb</DependentUpon>
       <SubType>Designer</SubType>
     </EmbeddedResource>
     <EmbeddedResource Include="frmIndexFileList.en-US.resx">
       <DependentUpon>frmIndexFileList.vb</DependentUpon>
+      <SubType>Designer</SubType>
+    </EmbeddedResource>
+    <EmbeddedResource Include="frmIndexFileList.en.resx">
+      <DependentUpon>frmIndexFileList.vb</DependentUpon>
     </EmbeddedResource>
     <EmbeddedResource Include="frmIndexFileList.resx">
       <DependentUpon>frmIndexFileList.vb</DependentUpon>
@@ -535,12 +547,7 @@
     </EmbeddedResource>
     <EmbeddedResource Include="frmStart.resx">
       <DependentUpon>frmStart.vb</DependentUpon>
-    </EmbeddedResource>
+      <SubType>Designer</SubType>
-    <EmbeddedResource Include="frmUserKonfig_AddUsers.en-US.resx">
-      <DependentUpon>frmUserKonfig_AddUsers.vb</DependentUpon>
-    </EmbeddedResource>
-    <EmbeddedResource Include="frmUserKonfig_AddUsers.resx">
-      <DependentUpon>frmUserKonfig_AddUsers.vb</DependentUpon>
     </EmbeddedResource>
     <EmbeddedResource Include="My Project\licenses.licx" />
     <EmbeddedResource Include="My Project\Resources.resx">
@@ -762,11 +769,20 @@
     <None Include="Resources\arrow_Up_16xLG.png" />
   </ItemGroup>
   <ItemGroup>
-    <Content Include="DD_Icons_ICO_GLOBIX_1.ico" />
+    <Content Include="DD_Icons_ICO_GLOBIX_1.ico">
+      <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
+    </Content>
     <Content Include="DD_Icons_ICO_GLOBIX_128.ico">
-      <CopyToOutputDirectory>Always</CopyToOutputDirectory>
+      <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
     </Content>
     <Content Include="globe_handdrawn.ico" />
+    <Content Include="MailLicense.xml">
+      <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
+    </Content>
+    <Content Include="Resources\DD_Icons_ICO_GLOBIX_1.ico" />
+    <None Include="Resources\itemtypechecked.svg" />
+    <None Include="Resources\trackingchanges_next.svg" />
+    <None Include="Resources\GLOBIX_short.png" />
     <None Include="Resources\Close_16xMD.png" />
     <None Include="Resources\Close_16xLG.png" />
     <None Include="Resources\DD_Icons_ICO_GLOBIX_128.ico" />

Global_Indexer/Global_Indexer.vbproj.bak

@@ -1,779 +0,0 @@
-<?xml version="1.0" encoding="utf-8"?>
-<Project ToolsVersion="12.0" DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
-  <Import Project="$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props" Condition="Exists('$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props')" />
-  <PropertyGroup>
-    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
-    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
-    <ProjectGuid>{7474B1D2-49A4-4D12-B544-C8674D3F7231}</ProjectGuid>
-    <OutputType>WinExe</OutputType>
-    <StartupObject>Global_Indexer.My.MyApplication</StartupObject>
-    <RootNamespace>Global_Indexer</RootNamespace>
-    <AssemblyName>Global_Indexer</AssemblyName>
-    <FileAlignment>512</FileAlignment>
-    <MyType>WindowsForms</MyType>
-    <TargetFrameworkVersion>v4.6.1</TargetFrameworkVersion>
-    <AutoGenerateBindingRedirects>true</AutoGenerateBindingRedirects>
-    <PublishUrl>publish\</PublishUrl>
-    <Install>true</Install>
-    <InstallFrom>Disk</InstallFrom>
-    <UpdateEnabled>false</UpdateEnabled>
-    <UpdateMode>Foreground</UpdateMode>
-    <UpdateInterval>7</UpdateInterval>
-    <UpdateIntervalUnits>Days</UpdateIntervalUnits>
-    <UpdatePeriodically>false</UpdatePeriodically>
-    <UpdateRequired>false</UpdateRequired>
-    <MapFileExtensions>true</MapFileExtensions>
-    <ApplicationRevision>0</ApplicationRevision>
-    <ApplicationVersion>1.0.0.%2a</ApplicationVersion>
-    <IsWebBootstrapper>false</IsWebBootstrapper>
-    <UseApplicationTrust>false</UseApplicationTrust>
-    <BootstrapperEnabled>true</BootstrapperEnabled>
-    <TargetFrameworkProfile />
-  </PropertyGroup>
-  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
-    <PlatformTarget>AnyCPU</PlatformTarget>
-    <DebugSymbols>true</DebugSymbols>
-    <DebugType>full</DebugType>
-    <DefineDebug>true</DefineDebug>
-    <DefineTrace>true</DefineTrace>
-    <OutputPath>bin\Debug\</OutputPath>
-    <DocumentationFile>Global_Indexer.xml</DocumentationFile>
-    <NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
-  </PropertyGroup>
-  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
-    <PlatformTarget>AnyCPU</PlatformTarget>
-    <DebugType>pdbonly</DebugType>
-    <DefineDebug>false</DefineDebug>
-    <DefineTrace>true</DefineTrace>
-    <Optimize>true</Optimize>
-    <OutputPath>bin\Release\</OutputPath>
-    <DocumentationFile>Global_Indexer.xml</DocumentationFile>
-    <NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
-  </PropertyGroup>
-  <PropertyGroup>
-    <OptionExplicit>On</OptionExplicit>
-  </PropertyGroup>
-  <PropertyGroup>
-    <OptionCompare>Text</OptionCompare>
-  </PropertyGroup>
-  <PropertyGroup>
-    <OptionStrict>Off</OptionStrict>
-  </PropertyGroup>
-  <PropertyGroup>
-    <OptionInfer>On</OptionInfer>
-  </PropertyGroup>
-  <PropertyGroup>
-    <ApplicationIcon>DD_Icons_ICO_GLOBIX_128.ico</ApplicationIcon>
-  </PropertyGroup>
-  <PropertyGroup>
-    <ApplicationManifest>My Project\app.manifest</ApplicationManifest>
-  </PropertyGroup>
-  <ItemGroup>
-    <Reference Include="DevExpress.Charts.v15.2.Core, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
-      <SpecificVersion>False</SpecificVersion>
-    </Reference>
-    <Reference Include="DevExpress.Data.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
-      <SpecificVersion>False</SpecificVersion>
-    </Reference>
-    <Reference Include="DevExpress.DataAccess.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
-      <SpecificVersion>False</SpecificVersion>
-    </Reference>
-    <Reference Include="DevExpress.DataAccess.v15.2.UI, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
-      <SpecificVersion>False</SpecificVersion>
-    </Reference>
-    <Reference Include="DevExpress.Office.v15.2.Core, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
-      <SpecificVersion>False</SpecificVersion>
-    </Reference>
-    <Reference Include="DevExpress.Pdf.v15.2.Core, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
-      <SpecificVersion>False</SpecificVersion>
-    </Reference>
-    <Reference Include="DevExpress.Pdf.v15.2.Drawing, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
-      <SpecificVersion>False</SpecificVersion>
-    </Reference>
-    <Reference Include="DevExpress.Printing.v15.2.Core, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
-      <SpecificVersion>False</SpecificVersion>
-    </Reference>
-    <Reference Include="DevExpress.RichEdit.v15.2.Core, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
-      <SpecificVersion>False</SpecificVersion>
-    </Reference>
-    <Reference Include="DevExpress.Sparkline.v15.2.Core, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
-      <SpecificVersion>False</SpecificVersion>
-    </Reference>
-    <Reference Include="DevExpress.Spreadsheet.v15.2.Core, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
-      <SpecificVersion>False</SpecificVersion>
-    </Reference>
-    <Reference Include="DevExpress.Utils.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
-      <SpecificVersion>False</SpecificVersion>
-    </Reference>
-    <Reference Include="DevExpress.Utils.v15.2.UI, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
-      <SpecificVersion>False</SpecificVersion>
-    </Reference>
-    <Reference Include="DevExpress.XtraBars.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
-      <SpecificVersion>False</SpecificVersion>
-    </Reference>
-    <Reference Include="DevExpress.XtraCharts.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
-      <SpecificVersion>False</SpecificVersion>
-    </Reference>
-    <Reference Include="DevExpress.XtraCharts.v15.2.Wizard, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
-      <SpecificVersion>False</SpecificVersion>
-    </Reference>
-    <Reference Include="DevExpress.XtraEditors.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
-      <SpecificVersion>False</SpecificVersion>
-    </Reference>
-    <Reference Include="DevExpress.XtraGrid.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
-      <SpecificVersion>False</SpecificVersion>
-    </Reference>
-    <Reference Include="DevExpress.XtraLayout.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
-      <SpecificVersion>False</SpecificVersion>
-    </Reference>
-    <Reference Include="DevExpress.XtraNavBar.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
-      <SpecificVersion>False</SpecificVersion>
-    </Reference>
-    <Reference Include="DevExpress.XtraPdfViewer.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
-      <SpecificVersion>False</SpecificVersion>
-    </Reference>
-    <Reference Include="DevExpress.XtraPrinting.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
-      <SpecificVersion>False</SpecificVersion>
-    </Reference>
-    <Reference Include="DevExpress.XtraRichEdit.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
-      <SpecificVersion>False</SpecificVersion>
-    </Reference>
-    <Reference Include="DevExpress.XtraSpreadsheet.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
-      <SpecificVersion>False</SpecificVersion>
-    </Reference>
-    <Reference Include="DevExpress.XtraTreeList.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
-      <SpecificVersion>False</SpecificVersion>
-    </Reference>
-    <Reference Include="DigitalData.Controls.DocumentViewer">
-      <HintPath>..\..\DDMonorepo\Controls.DocumentViewer\bin\Debug\DigitalData.Controls.DocumentViewer.dll</HintPath>
-    </Reference>
-    <Reference Include="DigitalData.Modules.Config">
-      <HintPath>..\..\DDMonorepo\Modules.Config\bin\Debug\DigitalData.Modules.Config.dll</HintPath>
-    </Reference>
-    <Reference Include="DigitalData.Modules.Filesystem">
-      <HintPath>..\..\DDMonorepo\Modules.Config\bin\Debug\DigitalData.Modules.Filesystem.dll</HintPath>
-    </Reference>
-    <Reference Include="DigitalData.Modules.Logging">
-      <HintPath>..\..\DDMonorepo\Modules.Config\bin\Debug\DigitalData.Modules.Logging.dll</HintPath>
-    </Reference>
-    <Reference Include="DLLLicenseManager, Version=1.0.0.0, Culture=neutral, processorArchitecture=MSIL">
-      <SpecificVersion>False</SpecificVersion>
-      <HintPath>P:\Visual Studio Projekte\Bibliotheken\DLLLicenseManager.dll</HintPath>
-    </Reference>
-    <Reference Include="Independentsoft.Msg, Version=2.0.350.20602, Culture=neutral, PublicKeyToken=76be97fe952f1ec7, processorArchitecture=MSIL">
-      <SpecificVersion>False</SpecificVersion>
-      <HintPath>P:\Visual Studio Projekte\Bibliotheken\MSG .NET\Bin\Independentsoft.Msg.dll</HintPath>
-    </Reference>
-    <Reference Include="Interop.WINDREAMLib">
-      <HintPath>P:\Visual Studio Projekte\Bibliotheken\windream\Interop.WINDREAMLib.dll</HintPath>
-      <EmbedInteropTypes>False</EmbedInteropTypes>
-    </Reference>
-    <Reference Include="Interop.WMOTOOLLib">
-      <HintPath>P:\Visual Studio Projekte\Bibliotheken\windream\Interop.WMOTOOLLib.dll</HintPath>
-      <EmbedInteropTypes>True</EmbedInteropTypes>
-    </Reference>
-    <Reference Include="NLog, Version=4.0.0.0, Culture=neutral, PublicKeyToken=5120e14c03d0593c, processorArchitecture=MSIL">
-      <SpecificVersion>False</SpecificVersion>
-      <HintPath>..\packages\NLog.4.5.11\lib\net45\NLog.dll</HintPath>
-    </Reference>
-    <Reference Include="Oracle.ManagedDataAccess">
-      <HintPath>P:\Visual Studio Projekte\Bibliotheken\Oracle.ManagedDataAccess.dll</HintPath>
-    </Reference>
-    <Reference Include="PresentationCore" />
-    <Reference Include="System" />
-    <Reference Include="System.ComponentModel.DataAnnotations" />
-    <Reference Include="System.Data" />
-    <Reference Include="System.Data.Linq" />
-    <Reference Include="System.Deployment" />
-    <Reference Include="System.DirectoryServices" />
-    <Reference Include="System.DirectoryServices.AccountManagement" />
-    <Reference Include="System.Drawing" />
-    <Reference Include="System.Runtime.Remoting" />
-    <Reference Include="System.Web.Services" />
-    <Reference Include="System.Windows.Forms" />
-    <Reference Include="System.Xml" />
-    <Reference Include="System.Core" />
-    <Reference Include="System.Xml.Linq" />
-    <Reference Include="System.Data.DataSetExtensions" />
-    <Reference Include="UIAutomationClient" />
-  </ItemGroup>
-  <ItemGroup>
-    <Import Include="Microsoft.VisualBasic" />
-    <Import Include="System" />
-    <Import Include="System.Collections" />
-    <Import Include="System.Collections.Generic" />
-    <Import Include="System.Data" />
-    <Import Include="System.Drawing" />
-    <Import Include="System.Diagnostics" />
-    <Import Include="System.Windows.Forms" />
-    <Import Include="System.Linq" />
-    <Import Include="System.Xml.Linq" />
-    <Import Include="System.Threading.Tasks" />
-  </ItemGroup>
-  <ItemGroup>
-    <Compile Include="AboutBox1.Designer.vb">
-      <DependentUpon>AboutBox1.vb</DependentUpon>
-    </Compile>
-    <Compile Include="AboutBox1.vb">
-      <SubType>Form</SubType>
-    </Compile>
-    <Compile Include="ClassConfig.vb" />
-    <Compile Include="ClassConstants.vb" />
-    <Compile Include="ClassControls.vb" />
-    <Compile Include="ClassDatabase.vb" />
-    <Compile Include="ClassDragDrop.vb" />
-    <Compile Include="ClassEmail.vb" />
-    <Compile Include="ClassEncryption.vb" />
-    <Compile Include="ClassFilehandle.vb" />
-    <Compile Include="ClassFolderWatcher.vb" />
-    <Compile Include="ClassFormFunctions.vb" />
-    <Compile Include="ClassHelper.vb" />
-    <Compile Include="ClassHotkey_Windream.vb" />
-    <Compile Include="ClassIndexFunctions.vb" />
-    <Compile Include="ClassInit.vb" />
-    <Compile Include="ClassLayout.vb" />
-    <Compile Include="ClassLicence.vb" />
-    <Compile Include="ClassLogger.vb" />
-    <Compile Include="ClassPostprocessing.vb" />
-    <Compile Include="ClassWindowAPI.vb" />
-    <Compile Include="ClassWindream.vb" />
-    <Compile Include="ClassEmailHeaderExtractor.vb" />
-    <Compile Include="clsHotkey.vb" />
-    <Compile Include="frmAdministration.Designer.vb">
-      <DependentUpon>frmAdministration.vb</DependentUpon>
-    </Compile>
-    <Compile Include="frmAdministration.vb">
-      <SubType>Form</SubType>
-    </Compile>
-    <Compile Include="frmConfig_Basic.designer.vb">
-      <DependentUpon>frmConfig_Basic.vb</DependentUpon>
-    </Compile>
-    <Compile Include="frmConfig_Basic.vb">
-      <SubType>Form</SubType>
-    </Compile>
-    <Compile Include="frmConnections.Designer.vb">
-      <DependentUpon>frmConnections.vb</DependentUpon>
-    </Compile>
-    <Compile Include="frmConnections.vb">
-      <SubType>Form</SubType>
-    </Compile>
-    <Compile Include="frmHistory.Designer.vb">
-      <DependentUpon>frmHistory.vb</DependentUpon>
-    </Compile>
-    <Compile Include="frmHistory.vb">
-      <SubType>Form</SubType>
-    </Compile>
-    <Compile Include="frmHotKey_Add.Designer.vb">
-      <DependentUpon>frmHotKey_Add.vb</DependentUpon>
-    </Compile>
-    <Compile Include="frmHotKey_Add.vb">
-      <SubType>Form</SubType>
-    </Compile>
-    <Compile Include="frmHotkey_User.Designer.vb">
-      <DependentUpon>frmHotkey_User.vb</DependentUpon>
-    </Compile>
-    <Compile Include="frmHotkey_User.vb">
-      <SubType>Form</SubType>
-    </Compile>
-    <Compile Include="frmIndex.designer.vb">
-      <DependentUpon>frmIndex.vb</DependentUpon>
-    </Compile>
-    <Compile Include="frmIndex.vb">
-      <SubType>Form</SubType>
-    </Compile>
-    <Compile Include="frmIndexFileList.Designer.vb">
-      <DependentUpon>frmIndexFileList.vb</DependentUpon>
-    </Compile>
-    <Compile Include="frmIndexFileList.vb">
-      <SubType>Form</SubType>
-    </Compile>
-    <Compile Include="frmLicense.designer.vb">
-      <DependentUpon>frmLicense.vb</DependentUpon>
-    </Compile>
-    <Compile Include="frmLicense.vb">
-      <SubType>Form</SubType>
-    </Compile>
-    <Compile Include="frmLookupGrid.Designer.vb">
-      <DependentUpon>frmLookupGrid.vb</DependentUpon>
-    </Compile>
-    <Compile Include="frmLookupGrid.vb">
-      <SubType>Form</SubType>
-    </Compile>
-    <Compile Include="frmMissingInput.Designer.vb">
-      <DependentUpon>frmMissingInput.vb</DependentUpon>
-    </Compile>
-    <Compile Include="frmMissingInput.vb">
-      <SubType>Form</SubType>
-    </Compile>
-    <Compile Include="frmNamenkonvention.designer.vb">
-      <DependentUpon>frmNamenkonvention.vb</DependentUpon>
-    </Compile>
-    <Compile Include="frmNamenkonvention.vb">
-      <SubType>Form</SubType>
-    </Compile>
-    <Compile Include="frmSplash.designer.vb">
-      <DependentUpon>frmSplash.vb</DependentUpon>
-    </Compile>
-    <Compile Include="frmSplash.vb">
-      <SubType>Form</SubType>
-    </Compile>
-    <Compile Include="frmSQL-Result.Designer.vb">
-      <DependentUpon>frmSQL-Result.vb</DependentUpon>
-    </Compile>
-    <Compile Include="frmSQL-Result.vb">
-      <SubType>Form</SubType>
-    </Compile>
-    <Compile Include="frmSQLConfigAutoIndex.Designer.vb">
-      <DependentUpon>frmSQLConfigAutoIndex.vb</DependentUpon>
-    </Compile>
-    <Compile Include="frmSQLConfigAutoIndex.vb">
-      <SubType>Form</SubType>
-    </Compile>
-    <Compile Include="frmSQLSuggestion.Designer.vb">
-      <DependentUpon>frmSQLSuggestion.vb</DependentUpon>
-    </Compile>
-    <Compile Include="frmSQLSuggestion.vb">
-      <SubType>Form</SubType>
-    </Compile>
-    <Compile Include="frmSQL_Admin.designer.vb">
-      <DependentUpon>frmSQL_Admin.vb</DependentUpon>
-    </Compile>
-    <Compile Include="frmSQL_Admin.vb">
-      <SubType>Form</SubType>
-    </Compile>
-    <Compile Include="frmStart.Designer.vb">
-      <DependentUpon>frmStart.vb</DependentUpon>
-    </Compile>
-    <Compile Include="frmStart.vb">
-      <SubType>Form</SubType>
-    </Compile>
-    <Compile Include="frmTestvb.Designer.vb">
-      <DependentUpon>frmTestvb.vb</DependentUpon>
-    </Compile>
-    <Compile Include="frmTestvb.vb">
-      <SubType>Form</SubType>
-    </Compile>
-    <Compile Include="frmUserKonfig_AddUsers.designer.vb">
-      <DependentUpon>frmUserKonfig_AddUsers.vb</DependentUpon>
-    </Compile>
-    <Compile Include="frmUserKonfig_AddUsers.vb">
-      <SubType>Form</SubType>
-    </Compile>
-    <Compile Include="ModuleCURRENT.vb" />
-    <Compile Include="ModuleMySettings.vb" />
-    <Compile Include="ModuleUserSavings.vb" />
-    <Compile Include="ModuleWindowHandles.vb" />
-    <Compile Include="My Project\AssemblyInfo.vb" />
-    <Compile Include="My Project\Application.Designer.vb">
-      <AutoGen>True</AutoGen>
-      <DependentUpon>Application.myapp</DependentUpon>
-    </Compile>
-    <Compile Include="My Project\Resources.Designer.vb">
-      <AutoGen>True</AutoGen>
-      <DesignTime>True</DesignTime>
-      <DependentUpon>Resources.resx</DependentUpon>
-    </Compile>
-    <Compile Include="My Project\Settings.Designer.vb">
-      <AutoGen>True</AutoGen>
-      <DependentUpon>Settings.settings</DependentUpon>
-      <DesignTimeSharedInput>True</DesignTimeSharedInput>
-    </Compile>
-    <Compile Include="MyDataset.Designer.vb">
-      <AutoGen>True</AutoGen>
-      <DesignTime>True</DesignTime>
-      <DependentUpon>MyDataset.xsd</DependentUpon>
-    </Compile>
-    <Compile Include="MyDataset.vb">
-      <DependentUpon>MyDataset.xsd</DependentUpon>
-    </Compile>
-    <Compile Include="Strings\_frmLicense.en-US.Designer.vb">
-      <DependentUpon>_frmLicense.en-US.resx</DependentUpon>
-      <AutoGen>True</AutoGen>
-      <DesignTime>True</DesignTime>
-    </Compile>
-    <Compile Include="Strings\_frmLicense.Designer.vb">
-      <AutoGen>True</AutoGen>
-      <DesignTime>True</DesignTime>
-      <DependentUpon>_frmLicense.resx</DependentUpon>
-    </Compile>
-  </ItemGroup>
-  <ItemGroup>
-    <EmbeddedResource Include="AboutBox1.resx">
-      <DependentUpon>AboutBox1.vb</DependentUpon>
-    </EmbeddedResource>
-    <EmbeddedResource Include="frmAdministration.en-US.resx">
-      <DependentUpon>frmAdministration.vb</DependentUpon>
-    </EmbeddedResource>
-    <EmbeddedResource Include="frmAdministration.resx">
-      <DependentUpon>frmAdministration.vb</DependentUpon>
-    </EmbeddedResource>
-    <EmbeddedResource Include="frmConfig_Basic.de.resx">
-      <DependentUpon>frmConfig_Basic.vb</DependentUpon>
-    </EmbeddedResource>
-    <EmbeddedResource Include="frmConfig_Basic.en-US.resx">
-      <DependentUpon>frmConfig_Basic.vb</DependentUpon>
-    </EmbeddedResource>
-    <EmbeddedResource Include="frmConfig_Basic.en.resx">
-      <DependentUpon>frmConfig_Basic.vb</DependentUpon>
-    </EmbeddedResource>
-    <EmbeddedResource Include="frmConfig_Basic.resx">
-      <DependentUpon>frmConfig_Basic.vb</DependentUpon>
-    </EmbeddedResource>
-    <EmbeddedResource Include="frmConnections.en-US.resx">
-      <DependentUpon>frmConnections.vb</DependentUpon>
-    </EmbeddedResource>
-    <EmbeddedResource Include="frmConnections.resx">
-      <DependentUpon>frmConnections.vb</DependentUpon>
-    </EmbeddedResource>
-    <EmbeddedResource Include="frmHistory.en-US.resx">
-      <DependentUpon>frmHistory.vb</DependentUpon>
-    </EmbeddedResource>
-    <EmbeddedResource Include="frmHistory.resx">
-      <DependentUpon>frmHistory.vb</DependentUpon>
-    </EmbeddedResource>
-    <EmbeddedResource Include="frmHotKey_Add.resx">
-      <DependentUpon>frmHotKey_Add.vb</DependentUpon>
-    </EmbeddedResource>
-    <EmbeddedResource Include="frmHotkey_User.en-US.resx">
-      <DependentUpon>frmHotkey_User.vb</DependentUpon>
-    </EmbeddedResource>
-    <EmbeddedResource Include="frmHotkey_User.resx">
-      <DependentUpon>frmHotkey_User.vb</DependentUpon>
-    </EmbeddedResource>
-    <EmbeddedResource Include="frmIndex.en-US.resx">
-      <DependentUpon>frmIndex.vb</DependentUpon>
-    </EmbeddedResource>
-    <EmbeddedResource Include="frmIndex.resx">
-      <DependentUpon>frmIndex.vb</DependentUpon>
-      <SubType>Designer</SubType>
-    </EmbeddedResource>
-    <EmbeddedResource Include="frmIndexFileList.en-US.resx">
-      <DependentUpon>frmIndexFileList.vb</DependentUpon>
-    </EmbeddedResource>
-    <EmbeddedResource Include="frmIndexFileList.resx">
-      <DependentUpon>frmIndexFileList.vb</DependentUpon>
-    </EmbeddedResource>
-    <EmbeddedResource Include="frmLicense.en-US.resx">
-      <DependentUpon>frmLicense.vb</DependentUpon>
-    </EmbeddedResource>
-    <EmbeddedResource Include="frmLicense.resx">
-      <DependentUpon>frmLicense.vb</DependentUpon>
-    </EmbeddedResource>
-    <EmbeddedResource Include="frmLookupGrid.resx">
-      <DependentUpon>frmLookupGrid.vb</DependentUpon>
-    </EmbeddedResource>
-    <EmbeddedResource Include="frmMissingInput.en-US.resx">
-      <DependentUpon>frmMissingInput.vb</DependentUpon>
-    </EmbeddedResource>
-    <EmbeddedResource Include="frmMissingInput.resx">
-      <DependentUpon>frmMissingInput.vb</DependentUpon>
-    </EmbeddedResource>
-    <EmbeddedResource Include="frmNamenkonvention.en-US.resx">
-      <DependentUpon>frmNamenkonvention.vb</DependentUpon>
-    </EmbeddedResource>
-    <EmbeddedResource Include="frmNamenkonvention.resx">
-      <DependentUpon>frmNamenkonvention.vb</DependentUpon>
-    </EmbeddedResource>
-    <EmbeddedResource Include="frmSplash.resx">
-      <DependentUpon>frmSplash.vb</DependentUpon>
-    </EmbeddedResource>
-    <EmbeddedResource Include="frmSQL-Result.en-US.resx">
-      <DependentUpon>frmSQL-Result.vb</DependentUpon>
-    </EmbeddedResource>
-    <EmbeddedResource Include="frmSQL-Result.resx">
-      <DependentUpon>frmSQL-Result.vb</DependentUpon>
-    </EmbeddedResource>
-    <EmbeddedResource Include="frmSQLConfigAutoIndex.en-US.resx">
-      <DependentUpon>frmSQLConfigAutoIndex.vb</DependentUpon>
-    </EmbeddedResource>
-    <EmbeddedResource Include="frmSQLConfigAutoIndex.resx">
-      <DependentUpon>frmSQLConfigAutoIndex.vb</DependentUpon>
-    </EmbeddedResource>
-    <EmbeddedResource Include="frmSQLSuggestion.en-US.resx">
-      <DependentUpon>frmSQLSuggestion.vb</DependentUpon>
-    </EmbeddedResource>
-    <EmbeddedResource Include="frmSQLSuggestion.resx">
-      <DependentUpon>frmSQLSuggestion.vb</DependentUpon>
-    </EmbeddedResource>
-    <EmbeddedResource Include="frmSQL_Admin.en-US.resx">
-      <DependentUpon>frmSQL_Admin.vb</DependentUpon>
-    </EmbeddedResource>
-    <EmbeddedResource Include="frmSQL_Admin.resx">
-      <DependentUpon>frmSQL_Admin.vb</DependentUpon>
-    </EmbeddedResource>
-    <EmbeddedResource Include="frmStart.de-DE.resx">
-      <DependentUpon>frmStart.vb</DependentUpon>
-    </EmbeddedResource>
-    <EmbeddedResource Include="frmStart.de.resx">
-      <DependentUpon>frmStart.vb</DependentUpon>
-    </EmbeddedResource>
-    <EmbeddedResource Include="frmStart.en-US.resx">
-      <DependentUpon>frmStart.vb</DependentUpon>
-    </EmbeddedResource>
-    <EmbeddedResource Include="frmStart.en.resx">
-      <DependentUpon>frmStart.vb</DependentUpon>
-    </EmbeddedResource>
-    <EmbeddedResource Include="frmStart.resx">
-      <DependentUpon>frmStart.vb</DependentUpon>
-    </EmbeddedResource>
-    <EmbeddedResource Include="frmUserKonfig_AddUsers.en-US.resx">
-      <DependentUpon>frmUserKonfig_AddUsers.vb</DependentUpon>
-    </EmbeddedResource>
-    <EmbeddedResource Include="frmUserKonfig_AddUsers.resx">
-      <DependentUpon>frmUserKonfig_AddUsers.vb</DependentUpon>
-    </EmbeddedResource>
-    <EmbeddedResource Include="My Project\licenses.licx" />
-    <EmbeddedResource Include="My Project\Resources.resx">
-      <Generator>VbMyResourcesResXFileCodeGenerator</Generator>
-      <LastGenOutput>Resources.Designer.vb</LastGenOutput>
-      <CustomToolNamespace>My.Resources</CustomToolNamespace>
-      <SubType>Designer</SubType>
-    </EmbeddedResource>
-    <EmbeddedResource Include="Strings\_frmLicense.en-US.resx">
-      <Generator>ResXFileCodeGenerator</Generator>
-      <LastGenOutput>_frmLicense.en-US.Designer.vb</LastGenOutput>
-      <CustomToolNamespace>My.Resources</CustomToolNamespace>
-    </EmbeddedResource>
-    <EmbeddedResource Include="Strings\_frmLicense.resx">
-      <CustomToolNamespace>My.Resources</CustomToolNamespace>
-      <Generator>ResXFileCodeGenerator</Generator>
-      <LastGenOutput>_frmLicense.Designer.vb</LastGenOutput>
-    </EmbeddedResource>
-  </ItemGroup>
-  <ItemGroup>
-    <None Include="My Project\app.manifest" />
-    <None Include="My Project\Application.myapp">
-      <Generator>MyApplicationCodeGenerator</Generator>
-      <LastGenOutput>Application.Designer.vb</LastGenOutput>
-    </None>
-    <None Include="My Project\Settings.settings">
-      <Generator>SettingsSingleFileGenerator</Generator>
-      <CustomToolNamespace>My</CustomToolNamespace>
-      <LastGenOutput>Settings.Designer.vb</LastGenOutput>
-    </None>
-    <None Include="App.config" />
-    <None Include="MyDataset.xsc">
-      <DependentUpon>MyDataset.xsd</DependentUpon>
-    </None>
-    <None Include="MyDataset.xsd">
-      <SubType>Designer</SubType>
-      <Generator>MSDataSetGenerator</Generator>
-      <LastGenOutput>MyDataset.Designer.vb</LastGenOutput>
-    </None>
-    <None Include="MyDataset.xss">
-      <DependentUpon>MyDataset.xsd</DependentUpon>
-    </None>
-  </ItemGroup>
-  <ItemGroup>
-    <COMReference Include="Microsoft.Office.Core">
-      <Guid>{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}</Guid>
-      <VersionMajor>2</VersionMajor>
-      <VersionMinor>7</VersionMinor>
-      <Lcid>0</Lcid>
-      <WrapperTool>primary</WrapperTool>
-      <Isolated>False</Isolated>
-      <EmbedInteropTypes>True</EmbedInteropTypes>
-    </COMReference>
-    <COMReference Include="Microsoft.Office.Interop.Outlook">
-      <Guid>{00062FFF-0000-0000-C000-000000000046}</Guid>
-      <VersionMajor>9</VersionMajor>
-      <VersionMinor>5</VersionMinor>
-      <Lcid>0</Lcid>
-      <WrapperTool>primary</WrapperTool>
-      <Isolated>False</Isolated>
-      <EmbedInteropTypes>True</EmbedInteropTypes>
-    </COMReference>
-    <COMReference Include="stdole">
-      <Guid>{00020430-0000-0000-C000-000000000046}</Guid>
-      <VersionMajor>2</VersionMajor>
-      <VersionMinor>0</VersionMinor>
-      <Lcid>0</Lcid>
-      <WrapperTool>primary</WrapperTool>
-      <Isolated>False</Isolated>
-      <EmbedInteropTypes>True</EmbedInteropTypes>
-    </COMReference>
-    <COMReference Include="WMOBRWSLib">
-      <Guid>{25B51999-6DCA-11D4-B815-00104BB52DEA}</Guid>
-      <VersionMajor>1</VersionMajor>
-      <VersionMinor>0</VersionMinor>
-      <Lcid>0</Lcid>
-      <WrapperTool>tlbimp</WrapperTool>
-      <Isolated>False</Isolated>
-      <EmbedInteropTypes>True</EmbedInteropTypes>
-    </COMReference>
-    <COMReference Include="WMOSRCHLib">
-      <Guid>{BE4F1D13-88A8-11D4-B3FA-0001021F035F}</Guid>
-      <VersionMajor>1</VersionMajor>
-      <VersionMinor>0</VersionMinor>
-      <Lcid>0</Lcid>
-      <WrapperTool>tlbimp</WrapperTool>
-      <Isolated>False</Isolated>
-      <EmbedInteropTypes>True</EmbedInteropTypes>
-    </COMReference>
-  </ItemGroup>
-  <ItemGroup>
-    <None Include="packages.config" />
-    <None Include="Resources\database_refresh.png" />
-  </ItemGroup>
-  <ItemGroup>
-    <None Include="Resources\database_save.png" />
-  </ItemGroup>
-  <ItemGroup>
-    <None Include="Resources\database_go.png" />
-  </ItemGroup>
-  <ItemGroup>
-    <None Include="Resources\Einstellungen5.ico" />
-  </ItemGroup>
-  <ItemGroup>
-    <None Include="Resources\delete2.ico" />
-  </ItemGroup>
-  <ItemGroup>
-    <None Include="Resources\add.png" />
-  </ItemGroup>
-  <ItemGroup>
-    <None Include="Resources\database_save1.png" />
-  </ItemGroup>
-  <ItemGroup>
-    <None Include="Resources\delete_12x12.png" />
-  </ItemGroup>
-  <ItemGroup>
-    <None Include="Resources\gear_32xSM.png" />
-  </ItemGroup>
-  <ItemGroup>
-    <None Include="Resources\gear_32xLG.png" />
-  </ItemGroup>
-  <ItemGroup>
-    <None Include="Resources\arrow_refresh.png" />
-  </ItemGroup>
-  <ItemGroup>
-    <None Include="Resources\database_save2.png" />
-  </ItemGroup>
-  <ItemGroup>
-    <None Include="Resources\save_16xLG.png" />
-  </ItemGroup>
-  <ItemGroup>
-    <None Include="Resources\save_16xMD.png" />
-  </ItemGroup>
-  <ItemGroup>
-    <None Include="Resources\Save_6530.png" />
-  </ItemGroup>
-  <ItemGroup>
-    <None Include="Resources\Go.png" />
-  </ItemGroup>
-  <ItemGroup>
-    <None Include="Resources\database_connect.png" />
-  </ItemGroup>
-  <ItemGroup>
-    <None Include="Resources\Selectallrowsfrom_tableA__294.png" />
-  </ItemGroup>
-  <ItemGroup>
-    <None Include="Resources\CheckOutforEdit_13187_32x.png" />
-  </ItemGroup>
-  <ItemGroup>
-    <None Include="Resources\Benutzer.ico" />
-  </ItemGroup>
-  <ItemGroup>
-    <None Include="Resources\bell_delete.png" />
-  </ItemGroup>
-  <ItemGroup>
-    <None Include="Resources\bell_go.png" />
-  </ItemGroup>
-  <ItemGroup>
-    <None Include="Resources\folder_Open_32xSM.png" />
-  </ItemGroup>
-  <ItemGroup>
-    <None Include="Resources\Einstellungen6.ico" />
-  </ItemGroup>
-  <ItemGroup>
-    <None Include="Resources\key_go.png" />
-  </ItemGroup>
-  <ItemGroup>
-    <None Include="Resources\key.png" />
-  </ItemGroup>
-  <ItemGroup>
-    <None Include="Resources\folder_link.png" />
-  </ItemGroup>
-  <ItemGroup>
-    <None Include="Resources\page_red.png" />
-  </ItemGroup>
-  <ItemGroup>
-    <None Include="Resources\folder_go.png" />
-  </ItemGroup>
-  <ItemGroup>
-    <None Include="Resources\arrow_right.png" />
-  </ItemGroup>
-  <ItemGroup>
-    <None Include="Resources\arrow_left.png" />
-  </ItemGroup>
-  <ItemGroup>
-    <None Include="Resources\handdrawn_arrow_left_green.png" />
-  </ItemGroup>
-  <ItemGroup>
-    <None Include="Resources\handdrawn_arrow_right_green.png" />
-  </ItemGroup>
-  <ItemGroup>
-    <None Include="Resources\arrow_back_16xMD.png" />
-  </ItemGroup>
-  <ItemGroup>
-    <None Include="Resources\arrow_Forward_16xMD.png" />
-  </ItemGroup>
-  <ItemGroup>
-    <None Include="Resources\Shortcut_8169_16x.png" />
-  </ItemGroup>
-  <ItemGroup>
-    <None Include="Resources\refresh_16xMD.png" />
-  </ItemGroup>
-  <ItemGroup>
-    <None Include="Resources\Copy_6524.png" />
-  </ItemGroup>
-  <ItemGroup>
-    <None Include="Resources\bullet_arrow_top.png" />
-  </ItemGroup>
-  <ItemGroup>
-    <None Include="Resources\WindowsForm_817_12x.png" />
-  </ItemGroup>
-  <ItemGroup>
-    <None Include="Resources\KeyDown_8461_12x.png" />
-  </ItemGroup>
-  <ItemGroup>
-    <None Include="Resources\action_add_16xLG.png" />
-  </ItemGroup>
-  <ItemGroup>
-    <None Include="Resources\arrow_Up_16xLG.png" />
-  </ItemGroup>
-  <ItemGroup>
-    <Content Include="DD_Icons_ICO_GLOBIX_1.ico" />
-    <Content Include="DD_Icons_ICO_GLOBIX_128.ico">
-      <CopyToOutputDirectory>Always</CopyToOutputDirectory>
-    </Content>
-    <Content Include="globe_handdrawn.ico" />
-    <None Include="Resources\Close_16xMD.png" />
-    <None Include="Resources\Close_16xLG.png" />
-    <None Include="Resources\DD_Icons_ICO_GLOBIX_128.ico" />
-    <None Include="Resources\Globix_ico.bmp" />
-    <None Include="Resources\email.png" />
-    <None Include="Resources\DD_Icons-GLOBIX.png" />
-    <None Include="Resources\action_add_16xMD.png" />
-    <None Include="Resources\action_add_16xLG1.png" />
-    <None Include="Resources\globe_handdrawn.png" />
-    <None Include="Resources\arrow_previous_16xLG.png" />
-    <None Include="Resources\Excel_25ixel.jpg" />
-    <None Include="Resources\cancel.png" />
-    <None Include="Resources\refresh_16xLG.png" />
-  </ItemGroup>
-  <ItemGroup>
-    <BootstrapperPackage Include="Microsoft.Net.Framework.3.5.SP1">
-      <Visible>False</Visible>
-      <ProductName>.NET Framework 3.5 SP1</ProductName>
-      <Install>false</Install>
-    </BootstrapperPackage>
-  </ItemGroup>
-  <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
-  <!-- To modify your build process, add your task inside one of the targets below and uncomment it. 
-       Other similar extension points exist, see Microsoft.Common.targets.
-  <Target Name="BeforeBuild">
-  </Target>
-  <Target Name="AfterBuild">
-  </Target>
-  -->
-</Project>

Global_Indexer/MailLicense.xml

@@ -0,0 +1,23 @@
+<?xml version="1.0" encoding="utf-8"?>
+<License>
+  <Id>4dc5ef40-f1a9-468b-994c-b7ed600ad878</Id>
+  <ProductName>Mail.dll</ProductName>
+  <SubscriptionUntil>2022-07-29</SubscriptionUntil>
+  <RegisteredTo>Digital Data GmbH</RegisteredTo>
+  <LicenseType>single developer</LicenseType>
+  <BuyerName>Digital Data GmbH</BuyerName>
+  <Signature xmlns="http://www.w3.org/2000/09/xmldsig#">
+    <SignedInfo>
+      <CanonicalizationMethod Algorithm="http://www.w3.org/TR/2001/REC-xml-c14n-20010315" />
+      <SignatureMethod Algorithm="http://www.w3.org/2000/09/xmldsig#rsa-sha1" />
+      <Reference URI="">
+        <Transforms>
+          <Transform Algorithm="http://www.w3.org/2000/09/xmldsig#enveloped-signature" />
+        </Transforms>
+        <DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha1" />
+        <DigestValue>75MRtl4ipYelIZYlpT8O7QDX9Zc=</DigestValue>
+      </Reference>
+    </SignedInfo>
+    <SignatureValue>Raxfkz6DfQVs/sMvH+F2nH0eHXD8FoUFSdP3t7AgBUdpABJQx86srlyuMSEhXPlc1THCqPouEVob4RsWnd9OXvTiPPSOUSK9zuNG6uz93KLAhpSD5PraAgBCF4jwZArlAp7aCNfZpHqQ3w6TRHS+CfravUU0AHHG3MZ1ZcRkGuo=</SignatureValue>
+  </Signature>
+</License>

Global_Indexer/ModuleCURRENT.vb

@@ -1,5 +1,7 @@
 Imports DigitalData.Modules.Config
 Imports DigitalData.Modules.Logging
+Imports DigitalData.Modules.Filesystem
+Imports DigitalData.Modules.Messaging
 
 Module ModuleCURRENT
     Public ERROR_STATE As String
@@ -7,12 +9,15 @@ Module ModuleCURRENT
     Public CURRENT_FILENAME As String
     Public CURRENT_NEWFILENAME As String
     Public CURRENT_WORKFILE_GUID As Integer
+    Public CURRENT_WORKFILE_HASH As String
     Public CURRENT_WORKFILE As String
     Public CURR_WORKFILE_EXTENSION As String
 
     Public CONFIG As ConfigManager(Of ClassConfig)
     Public LOGCONFIG As LogConfig
     Public LOGGER As Logger
+    Public FILESYSTEM As File
+    Public EMAIL As Email2
 
     Public CURRENT_DOKART_ID As Integer
     Public CURRENT_DOKART_DUPLICATE_HANDLING As String = "Default"
@@ -31,14 +36,14 @@ Module ModuleCURRENT
     Public USER_ID
     Public USER_IN_MODULE As Boolean = False
     Public USER_IS_ADMIN As Boolean = False
-    Public UserLoggedin As Integer = 0
 
-    Public USER_SHORT_NAME As String = ""
+    Public USER_SHORTNAME As String = ""
     Public USER_PRENAME As String = ""
     Public USER_SURNAME As String = ""
     Public USER_EMAIL As String = ""
     Public USER_LANGUAGE As String = "DE"
     Public USER_USERNAME As String = ""
+    Public USERCOUNT_LOGGED_IN As Integer = 0
 
     Public CURRENT_FOLDERWATCH As String = ""
     Public CURRENT_SCAN_FOLDERWATCH As String = ""

Global_Indexer/ModuleRuntime.vb

@@ -1,7 +1,7 @@
 Imports System.IO
 Imports System.Xml
-
+Imports DigitalData.Modules.Windream
-Module ModuleMySettings
+Module ModuleRuntime
     'Dim ConfigPath As String = Path.Combine(Application.UserAppDataPath(), "UserConfig.xml")
     Public Const USER_CONFIG_FILE = "UserConfig.xml"
     Public Const COMPUTER_CONFIG_FILE = "ComputerConfig.xml"
@@ -9,7 +9,19 @@ Module ModuleMySettings
     Public MyConnectionString As String = ""
     Public LogErrorsOnly As Boolean = True
     Public GI_withWindream As Boolean = False
-    Public vWLaufwerk As String = "W"
+    Public WMDrive As String = "W"
     'Public myPreviewActive As Boolean = True
     Public FW_started As Boolean = False
+    Public IDB_ACTIVE As Boolean = False
+    Public WORKING_MODE As String
+    Public CONNECTION_STRING_IDB As String
+
+    Public IDBData As ClassIDBData
+    Public IDB_USES_WMFILESTORE As Boolean = False
+    Public IDB_DOC_DATA_SQL As String
+    Public IDB_DT_DOC_DATA As DataTable
+    Public IDB_DOC_ID As Int64
+    Public IDB_LOG_INDEX As String
+
+    Public WINDREAM As Windream
 End Module

Global_Indexer/My Project/AssemblyInfo.vb

@@ -10,12 +10,12 @@ Imports System.Runtime.InteropServices
 
 ' Die Werte der Assemblyattribute überprüfen
 
-<Assembly: AssemblyTitle("Global Indexer")> 
+<Assembly: AssemblyTitle("Global Indexer")>
-<Assembly: AssemblyDescription("")> 
+<Assembly: AssemblyDescription("")>
 <Assembly: AssemblyCompany("Digital Data")> 
 <Assembly: AssemblyProduct("Global Indexer")>
-<Assembly: AssemblyCopyright("Copyright © 2020")>
+<Assembly: AssemblyCopyright("Copyright © 2021")>
-<Assembly: AssemblyTrademark("")> 
+<Assembly: AssemblyTrademark("2420")>
 
 <Assembly: ComVisible(False)> 
 
@@ -33,7 +33,7 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("2.0.0.1")>
+<Assembly: AssemblyVersion("2.4.2.6")>
-<Assembly: AssemblyFileVersion("1.0.0.0")> 
+<Assembly: AssemblyFileVersion("1.0.0.0")>
 
 <Assembly: NeutralResourcesLanguageAttribute("")> 

Global_Indexer/My Project/Resources.Designer.vb

@@ -22,7 +22,7 @@ Namespace My.Resources
     '''<summary>
     '''  Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
     '''</summary>
-    <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "15.0.0.0"),  _
+    <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "16.0.0.0"),  _
      Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
      Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(),  _
      Global.Microsoft.VisualBasic.HideModuleNameAttribute()>  _
@@ -460,6 +460,16 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property GLOBIX_short() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("GLOBIX_short", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>
@@ -490,6 +500,16 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage.
+        '''</summary>
+        Friend ReadOnly Property itemtypechecked() As DevExpress.Utils.Svg.SvgImage
+            Get
+                Dim obj As Object = ResourceManager.GetObject("itemtypechecked", resourceCulture)
+                Return CType(obj,DevExpress.Utils.Svg.SvgImage)
+            End Get
+        End Property
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>
@@ -600,6 +620,16 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage.
+        '''</summary>
+        Friend ReadOnly Property trackingchanges_next() As DevExpress.Utils.Svg.SvgImage
+            Get
+                Dim obj As Object = ResourceManager.GetObject("trackingchanges_next", resourceCulture)
+                Return CType(obj,DevExpress.Utils.Svg.SvgImage)
+            End Get
+        End Property
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>

Global_Indexer/My Project/Resources.resx

@@ -121,6 +121,9 @@
   <data name="arrow_back_16xMD" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\arrow_back_16xMD.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="email" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\email.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="arrow_Up_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\arrow_Up_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -133,9 +136,6 @@
   <data name="WindowsForm_817_12x" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\WindowsForm_817_12x.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="DD_Icons_ICO_GLOBIX_128" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\DD_Icons_ICO_GLOBIX_128.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
   <data name="DD_Icons-GLOBIX" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\DD_Icons-GLOBIX.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -145,20 +145,14 @@
   <data name="bell_delete" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\bell_delete.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="database_save1" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\database_save1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
-  <data name="action_add_16xLG1" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\action_add_16xLG1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
   <data name="Einstellungen6" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\Einstellungen6.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="arrow_Forward_16xMD" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\arrow_Forward_16xMD.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="refresh_16xMD" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="handdrawn_arrow_right_green" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\refresh_16xMD.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\handdrawn_arrow_right_green.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="key_go" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\key_go.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -190,51 +184,63 @@
   <data name="folder_go" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\folder_go.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="handdrawn_arrow_right_green" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="save_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\handdrawn_arrow_right_green.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\save_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="key" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="GLOBIX_short" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\key.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\GLOBIX_short.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
-  <data name="arrow_refresh" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\arrow_refresh.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
-  <data name="email" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\email.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="database_go" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\database_go.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="trackingchanges_next" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\trackingchanges_next.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+  </data>
+  <data name="refresh_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\refresh_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="Save_6530" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\Save_6530.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="arrow_refresh" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\arrow_refresh.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="action_add_16xLG1" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\action_add_16xLG1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="refresh_16xMD" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\refresh_16xMD.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="add" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\add.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="Close_16xMD" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\Close_16xMD.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="KeyDown_8461_12x" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\KeyDown_8461_12x.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="key" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\key.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="database_connect" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\database_connect.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="Einstellungen5" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\Einstellungen5.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="Excel_25ixel" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\Excel_25ixel.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
   <data name="bullet_arrow_top" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\bullet_arrow_top.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="CheckOutforEdit_13187_32x" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\CheckOutforEdit_13187_32x.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="save_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="database_save1" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\save_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\database_save1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="action_add_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\action_add_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="Shortcut_8169_16x" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\Shortcut_8169_16x.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
   <data name="arrow_left" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\arrow_left.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -256,14 +262,20 @@
   <data name="Selectallrowsfrom_tableA__294" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\Selectallrowsfrom_tableA__294.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="handdrawn_arrow_left_green" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\handdrawn_arrow_left_green.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="Close_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\Close_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="folder_link" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\folder_link.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="refresh_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="DD_Icons_ICO_GLOBIX_128" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\refresh_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\DD_Icons_ICO_GLOBIX_128.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="handdrawn_arrow_left_green" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="Excel_25ixel" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\handdrawn_arrow_left_green.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\Excel_25ixel.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="delete2" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\delete2.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -271,16 +283,13 @@
   <data name="gear_32xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\gear_32xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="Save_6530" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="Shortcut_8169_16x" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\Save_6530.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\Shortcut_8169_16x.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="database_save" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\database_save.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="Close_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="itemtypechecked" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\Close_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\itemtypechecked.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
-  </data>
-  <data name="Close_16xMD" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\Close_16xMD.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
 </root>

Global_Indexer/My Project/Settings.Designer.vb

@@ -15,7 +15,7 @@ Option Explicit On
 Namespace My
     
     <Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(),  _
-     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "15.7.0.0"),  _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "16.4.0.0"),  _
      Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _
     Partial Friend NotInheritable Class MySettings
         Inherits Global.System.Configuration.ApplicationSettingsBase
@@ -57,123 +57,13 @@ Namespace My
         <Global.System.Configuration.ApplicationScopedSettingAttribute(),  _
          Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
          Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString),  _
-         Global.System.Configuration.DefaultSettingValueAttribute("Data Source=172.24.12.41\TESTS;Initial Catalog=DD_ECM_TEST;Persist Security Info="& _ 
+         Global.System.Configuration.DefaultSettingValueAttribute("Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=DD_ECM_TEST;Persist Secu"& _ 
-            "True;User ID=sa;Password=dd")>  _
+            "rity Info=True;User ID=sa;Password=dd")>  _
         Public ReadOnly Property DD_ECMConnectionString() As String
             Get
                 Return CType(Me("DD_ECMConnectionString"),String)
             End Get
         End Property
-        
-        <Global.System.Configuration.UserScopedSettingAttribute(),  _
-         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.Configuration.DefaultSettingValueAttribute("526"),  _
-         Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)>  _
-        Public Property SplitterDistance_Viewer() As Integer
-            Get
-                Return CType(Me("SplitterDistance_Viewer"),Integer)
-            End Get
-            Set
-                Me("SplitterDistance_Viewer") = value
-            End Set
-        End Property
-        
-        <Global.System.Configuration.UserScopedSettingAttribute(),  _
-         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.Configuration.DefaultSettingValueAttribute("True"),  _
-         Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)>  _
-        Public Property WDSearch_maximized() As Boolean
-            Get
-                Return CType(Me("WDSearch_maximized"),Boolean)
-            End Get
-            Set
-                Me("WDSearch_maximized") = value
-            End Set
-        End Property
-        
-        <Global.System.Configuration.UserScopedSettingAttribute(),  _
-         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.Configuration.DefaultSettingValueAttribute("True"),  _
-         Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)>  _
-        Public Property Show_IndexResult() As Boolean
-            Get
-                Return CType(Me("Show_IndexResult"),Boolean)
-            End Get
-            Set
-                Me("Show_IndexResult") = value
-            End Set
-        End Property
-        
-        <Global.System.Configuration.UserScopedSettingAttribute(),  _
-         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.Configuration.DefaultSettingValueAttribute("False"),  _
-         Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)>  _
-        Public Property DoNot_Show_Documents() As Boolean
-            Get
-                Return CType(Me("DoNot_Show_Documents"),Boolean)
-            End Get
-            Set
-                Me("DoNot_Show_Documents") = value
-            End Set
-        End Property
-        
-        <Global.System.Configuration.ApplicationScopedSettingAttribute(),  _
-         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.Configuration.DefaultSettingValueAttribute("DigitalData\windream_CLIENT_WMCC_Neustart")>  _
-        Public ReadOnly Property Test() As String
-            Get
-                Return CType(Me("Test"),String)
-            End Get
-        End Property
-        
-        <Global.System.Configuration.UserScopedSettingAttribute(),  _
-         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.Configuration.DefaultSettingValueAttribute("False"),  _
-         Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)>  _
-        Public Property AppTerminate() As Boolean
-            Get
-                Return CType(Me("AppTerminate"),Boolean)
-            End Get
-            Set
-                Me("AppTerminate") = value
-            End Set
-        End Property
-        
-        <Global.System.Configuration.UserScopedSettingAttribute(),  _
-         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.Configuration.DefaultSettingValueAttribute("False")>  _
-        Public Property DA_Vorauswahlaktiv() As Boolean
-            Get
-                Return CType(Me("DA_Vorauswahlaktiv"),Boolean)
-            End Get
-            Set
-                Me("DA_Vorauswahlaktiv") = value
-            End Set
-        End Property
-        
-        <Global.System.Configuration.UserScopedSettingAttribute(),  _
-         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.Configuration.DefaultSettingValueAttribute("")>  _
-        Public Property REGEX_Replace() As String
-            Get
-                Return CType(Me("REGEX_Replace"),String)
-            End Get
-            Set
-                Me("REGEX_Replace") = value
-            End Set
-        End Property
-        
-        <Global.System.Configuration.UserScopedSettingAttribute(),  _
-         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.Configuration.DefaultSettingValueAttribute("myFilename.pdf")>  _
-        Public Property FilenameTest() As String
-            Get
-                Return CType(Me("FilenameTest"),String)
-            End Get
-            Set
-                Me("FilenameTest") = value
-            End Set
-        End Property
     End Class
 End Namespace
 

Global_Indexer/My Project/Settings.settings

@@ -5,37 +5,10 @@
     <Setting Name="DD_ECMConnectionString" Type="(Connection string)" Scope="Application">
       <DesignTimeValue Profile="(Default)">&lt;?xml version="1.0" encoding="utf-16"?&gt;
 &lt;SerializableConnectionString xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"&gt;
-  &lt;ConnectionString&gt;Data Source=172.24.12.41\TESTS;Initial Catalog=DD_ECM_TEST;Persist Security Info=True;User ID=sa;Password=dd&lt;/ConnectionString&gt;
+  &lt;ConnectionString&gt;Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=DD_ECM_TEST;Persist Security Info=True;User ID=sa;Password=dd&lt;/ConnectionString&gt;
   &lt;ProviderName&gt;System.Data.SqlClient&lt;/ProviderName&gt;
 &lt;/SerializableConnectionString&gt;</DesignTimeValue>
-      <Value Profile="(Default)">Data Source=172.24.12.41\TESTS;Initial Catalog=DD_ECM_TEST;Persist Security Info=True;User ID=sa;Password=dd</Value>
+      <Value Profile="(Default)">Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=DD_ECM_TEST;Persist Security Info=True;User ID=sa;Password=dd</Value>
-    </Setting>
-    <Setting Name="SplitterDistance_Viewer" Roaming="true" Type="System.Int32" Scope="User">
-      <Value Profile="(Default)">526</Value>
-    </Setting>
-    <Setting Name="WDSearch_maximized" Roaming="true" Type="System.Boolean" Scope="User">
-      <Value Profile="(Default)">True</Value>
-    </Setting>
-    <Setting Name="Show_IndexResult" Roaming="true" Type="System.Boolean" Scope="User">
-      <Value Profile="(Default)">True</Value>
-    </Setting>
-    <Setting Name="DoNot_Show_Documents" Roaming="true" Type="System.Boolean" Scope="User">
-      <Value Profile="(Default)">False</Value>
-    </Setting>
-    <Setting Name="Test" Type="System.String" Scope="Application">
-      <Value Profile="(Default)">DigitalData\windream_CLIENT_WMCC_Neustart</Value>
-    </Setting>
-    <Setting Name="AppTerminate" Roaming="true" Type="System.Boolean" Scope="User">
-      <Value Profile="(Default)">False</Value>
-    </Setting>
-    <Setting Name="DA_Vorauswahlaktiv" Type="System.Boolean" Scope="User">
-      <Value Profile="(Default)">False</Value>
-    </Setting>
-    <Setting Name="REGEX_Replace" Type="System.String" Scope="User">
-      <Value Profile="(Default)" />
-    </Setting>
-    <Setting Name="FilenameTest" Type="System.String" Scope="User">
-      <Value Profile="(Default)">myFilename.pdf</Value>
     </Setting>
   </Settings>
 </SettingsFile>

Global_Indexer/My Project/licenses.licx

@@ -1,3 +1,9 @@
-DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraEditors.CheckEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
-DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
 DevExpress.XtraPdfViewer.PdfViewer, DevExpress.XtraPdfViewer.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraEditors.ComboBoxEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraLayout.LayoutControl, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraEditors.LookUpEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraEditors.ButtonEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a

Global_Indexer/MyDataset.vb

@@ -1,4 +1,19 @@
 
 
 Partial Public Class MyDataset
+    Partial Public Class TBDD_INDEX_AUTOMDataTable
+    End Class
+
+    Partial Public Class TBDD_INDEX_MANDataTable
+    End Class
+
+    Partial Public Class TBDD_INDEX_MAN_POSTPROCESSINGDataTable
+        Private Sub TBDD_INDEX_MAN_POSTPROCESSINGDataTable_ColumnChanging(sender As Object, e As DataColumnChangeEventArgs) Handles Me.ColumnChanging
+            If (e.Column.ColumnName = Me.COMMENTColumn.ColumnName) Then
+                'Benutzercode hier einfügen
+            End If
+
+        End Sub
+
+    End Class
 End Class

Global_Indexer/MyDataset.xsc

@@ -233,20 +233,6 @@
         </ColumnUISetting>
       </ColumnUISettings>
     </TableUISetting>
-    <TableUISetting Name="TBDD_GROUPS">
-      <ColumnUISettings>
-        <ColumnUISetting Name="ADDED_WHEN">
-          <ControlSettings><ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
-              <BindableControlInfo Name="TextBox" Type="System.Windows.Forms.TextBox" AssemblyName="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
-            </ControlSetting></ControlSettings>
-        </ColumnUISetting>
-        <ColumnUISetting Name="CHANGED_WHEN">
-          <ControlSettings><ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
-              <BindableControlInfo Name="TextBox" Type="System.Windows.Forms.TextBox" AssemblyName="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
-            </ControlSetting></ControlSettings>
-        </ColumnUISetting>
-      </ColumnUISettings>
-    </TableUISetting>
     <TableUISetting Name="VWGI_USER_GROUPS_RELATION">
       <ColumnUISettings>
         <ColumnUISetting Name="ADDED_WHEN">
@@ -261,103 +247,22 @@
         </ColumnUISetting>
       </ColumnUISettings>
     </TableUISetting>
-    <TableUISetting Name="TBHOTKEY_PROFILE">
-      <ColumnUISettings>
-        <ColumnUISetting Name="HOTKEY1">
-          <ControlSettings><ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
-              <BindableControlInfo Name="ComboBox" Type="System.Windows.Forms.ComboBox" AssemblyName="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
-            </ControlSetting></ControlSettings>
-        </ColumnUISetting>
-        <ColumnUISetting Name="HOTKEY2">
-          <ControlSettings><ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
-              <BindableControlInfo Name="TextBox" Type="System.Windows.Forms.TextBox" AssemblyName="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
-            </ControlSetting></ControlSettings>
-        </ColumnUISetting>
-        <ColumnUISetting Name="CHANGED_WHEN">
-          <ControlSettings><ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
-              <BindableControlInfo Name="TextBox" Type="System.Windows.Forms.TextBox" AssemblyName="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
-            </ControlSetting></ControlSettings>
-        </ColumnUISetting>
-      </ColumnUISettings>
-    </TableUISetting>
-    <TableUISetting Name="TBHOTKEY_PATTERNS">
-      <ColumnUISettings>
-        <ColumnUISetting Name="ADDED_WHEN">
-          <ControlSettings><ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
-              <BindableControlInfo Name="TextBox" Type="System.Windows.Forms.TextBox" AssemblyName="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
-            </ControlSetting></ControlSettings>
-        </ColumnUISetting>
-        <ColumnUISetting Name="CHANGED_WHEN">
-          <ControlSettings><ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
-              <BindableControlInfo Name="TextBox" Type="System.Windows.Forms.TextBox" AssemblyName="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
-            </ControlSetting></ControlSettings>
-        </ColumnUISetting>
-      </ColumnUISettings>
-    </TableUISetting>
-    <TableUISetting Name="TBHOTKEY_USER_PROFILE">
-      <ColumnUISettings>
-        <ColumnUISetting Name="HOTKEY1">
-          <ControlSettings><ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
-              <BindableControlInfo Name="ComboBox" Type="System.Windows.Forms.ComboBox" AssemblyName="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
-            </ControlSetting></ControlSettings>
-        </ColumnUISetting>
-        <ColumnUISetting Name="ADDED_WHEN">
-          <ControlSettings><ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
-              <BindableControlInfo Name="TextBox" Type="System.Windows.Forms.TextBox" AssemblyName="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
-            </ControlSetting></ControlSettings>
-        </ColumnUISetting>
-        <ColumnUISetting Name="CHANGED_WHEN">
-          <ControlSettings><ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
-              <BindableControlInfo Name="TextBox" Type="System.Windows.Forms.TextBox" AssemblyName="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
-            </ControlSetting></ControlSettings>
-        </ColumnUISetting>
-      </ColumnUISettings>
-    </TableUISetting>
-    <TableUISetting Name="TBHOTKEY_PATTERNS_REWORK">
-      <ColumnUISettings>
-        <ColumnUISetting Name="TYPE">
-          <ControlSettings><ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
-              <BindableControlInfo Name="ComboBox" Type="System.Windows.Forms.ComboBox" AssemblyName="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
-            </ControlSetting></ControlSettings>
-        </ColumnUISetting>
-        <ColumnUISetting Name="CHANGED_WHEN">
-          <ControlSettings><ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
-              <BindableControlInfo Name="TextBox" Type="System.Windows.Forms.TextBox" AssemblyName="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
-            </ControlSetting></ControlSettings>
-        </ColumnUISetting>
-      </ColumnUISettings>
-    </TableUISetting>
-    <TableUISetting Name="TBHOTKEY_WINDOW_HOOK">
-      <ColumnUISettings>
-        <ColumnUISetting Name="ADDED_WHEN">
-          <ControlSettings><ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
-              <BindableControlInfo Name="TextBox" Type="System.Windows.Forms.TextBox" AssemblyName="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
-            </ControlSetting></ControlSettings>
-        </ColumnUISetting>
-      </ColumnUISettings>
-    </TableUISetting>
     <TableUISetting Name="TBGI_REGEX_DOCTYPE">
       <ColumnUISettings>
         <ColumnUISetting Name="DOCTYPE_ID">
-          <ControlSettings>
+          <ControlSettings><ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
-            <ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form">
               <BindableControlInfo Name="ComboBox" Type="System.Windows.Forms.ComboBox" AssemblyName="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
-            </ControlSetting>
+            </ControlSetting></ControlSettings>
-          </ControlSettings>
         </ColumnUISetting>
         <ColumnUISetting Name="ADDED_WHEN">
-          <ControlSettings>
+          <ControlSettings><ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
-            <ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form">
               <BindableControlInfo Name="TextBox" Type="System.Windows.Forms.TextBox" AssemblyName="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
-            </ControlSetting>
+            </ControlSetting></ControlSettings>
-          </ControlSettings>
         </ColumnUISetting>
         <ColumnUISetting Name="CHANGED_WHEN">
-          <ControlSettings>
+          <ControlSettings><ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
-            <ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form">
               <BindableControlInfo Name="TextBox" Type="System.Windows.Forms.TextBox" AssemblyName="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
-            </ControlSetting>
+            </ControlSetting></ControlSettings>
-          </ControlSettings>
         </ColumnUISetting>
       </ColumnUISettings>
     </TableUISetting>

Global_Indexer/MyDataset.xss

@@ -4,41 +4,33 @@
      Changes to this file may cause incorrect behavior and will be lost if
      the code is regenerated.
 </autogenerated>-->
-<DiagramLayout xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" ex:showrelationlabel="False" ViewPortX="23" ViewPortY="362" xmlns:ex="urn:schemas-microsoft-com:xml-msdatasource-layout-extended" xmlns="urn:schemas-microsoft-com:xml-msdatasource-layout">
+<DiagramLayout xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" ex:showrelationlabel="False" ViewPortX="-10" ViewPortY="251" xmlns:ex="urn:schemas-microsoft-com:xml-msdatasource-layout-extended" xmlns="urn:schemas-microsoft-com:xml-msdatasource-layout">
   <Shapes>
-    <Shape ID="DesignTable:TBDD_USER" ZOrder="8" X="765" Y="247" Height="305" Width="213" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="235" />
+    <Shape ID="DesignTable:TBDD_USER" ZOrder="12" X="765" Y="247" Height="305" Width="213" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="235" />
-    <Shape ID="DesignTable:TBDD_DOKUMENTART" ZOrder="10" X="119" Y="308" Height="381" Width="278" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="275" />
+    <Shape ID="DesignTable:TBDD_DOKUMENTART" ZOrder="14" X="119" Y="308" Height="381" Width="278" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="275" />
-    <Shape ID="DesignTable:TBDD_EINGANGSARTEN" ZOrder="28" X="431" Y="313" Height="210" Width="286" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="159" />
+    <Shape ID="DesignTable:TBDD_EINGANGSARTEN" ZOrder="17" X="431" Y="313" Height="210" Width="286" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="159" />
-    <Shape ID="DesignTable:TBDD_DOKART_MODULE" ZOrder="45" X="1381" Y="161" Height="134" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="64" />
+    <Shape ID="DesignTable:TBDD_DOKART_MODULE" ZOrder="29" X="1381" Y="161" Height="134" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="64" />
-    <Shape ID="DesignTable:TBDD_MODULES" ZOrder="44" X="1096" Y="325" Height="115" Width="242" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="64" />
+    <Shape ID="DesignTable:TBDD_MODULES" ZOrder="28" X="1096" Y="325" Height="115" Width="242" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="64" />
-    <Shape ID="DesignTable:TBDD_INDEX_MAN" ZOrder="37" X="464" Y="656" Height="360" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="292" />
+    <Shape ID="DesignTable:TBDD_INDEX_MAN" ZOrder="3" X="456" Y="638" Height="360" Width="244" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="292" />
-    <Shape ID="DesignTable:TBDD_CONNECTION" ZOrder="43" X="433" Y="81" Height="305" Width="264" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
+    <Shape ID="DesignTable:TBDD_CONNECTION" ZOrder="27" X="433" Y="81" Height="305" Width="264" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
-    <Shape ID="DesignTable:VWDDINDEX_MAN" ZOrder="6" X="1040" Y="444" Height="381" Width="256" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="313" />
+    <Shape ID="DesignTable:VWDDINDEX_MAN" ZOrder="11" X="1040" Y="444" Height="381" Width="256" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="313" />
-    <Shape ID="DesignTable:VWDDINDEX_AUTOM" ZOrder="41" X="1361" Y="319" Height="305" Width="272" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
+    <Shape ID="DesignTable:VWDDINDEX_AUTOM" ZOrder="25" X="1361" Y="319" Height="305" Width="272" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
-    <Shape ID="DesignTable:TBDD_INDEX_AUTOM" ZOrder="7" X="668" Y="605" Height="305" Width="272" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
+    <Shape ID="DesignTable:TBDD_INDEX_AUTOM" ZOrder="2" X="668" Y="605" Height="305" Width="272" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
-    <Shape ID="DesignTable:TBGI_CONFIGURATION" ZOrder="38" X="1071" Y="621" Height="229" Width="279" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="178" />
+    <Shape ID="DesignTable:TBGI_CONFIGURATION" ZOrder="22" X="1071" Y="621" Height="229" Width="279" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="178" />
-    <Shape ID="DesignTable:TBGI_OBJECTTYPE_EMAIL_INDEX" ZOrder="29" X="117" Y="665" Height="286" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="235" />
+    <Shape ID="DesignTable:TBGI_OBJECTTYPE_EMAIL_INDEX" ZOrder="4" X="117" Y="665" Height="286" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="235" />
-    <Shape ID="DesignTable:TBDD_INDEX_MAN_POSTPROCESSING" ZOrder="35" X="743" Y="69" Height="305" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
+    <Shape ID="DesignTable:TBDD_INDEX_MAN_POSTPROCESSING" ZOrder="7" X="719" Y="25" Height="305" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
-    <Shape ID="DesignTable:TBWHDD_INDEX_MAN" ZOrder="33" X="133" Y="112" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
+    <Shape ID="DesignTable:TBWHDD_INDEX_MAN" ZOrder="6" X="135" Y="27" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
-    <Shape ID="DesignTable:TBDD_GROUPS" ZOrder="3" X="1096" Y="109" Height="210" Width="233" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="140" />
+    <Shape ID="DesignTable:TBDD_GROUPS_USER" ZOrder="8" X="1040" Y="71" Height="229" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="159" />
-    <Shape ID="DesignTable:TBDD_GROUPS_USER" ZOrder="4" X="1014" Y="-1" Height="229" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="159" />
+    <Shape ID="DesignTable:VWGI_USER_GROUPS_RELATION" ZOrder="13" X="845" Y="494" Height="248" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="197" />
-    <Shape ID="DesignTable:VWGI_USER_GROUPS_RELATION" ZOrder="9" X="845" Y="494" Height="248" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="197" />
+    <Shape ID="DesignTable:TBGI_FILES_USER" ZOrder="1" X="1474" Y="-2" Height="336" Width="243" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="216" />
-    <Shape ID="DesignTable:VWGI_DOCTYPE_GROUP" ZOrder="5" X="259" Y="220" Height="267" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="178" />
+    <Shape ID="DesignTable:TBGI_HISTORY" ZOrder="5" X="120" Y="153" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
-    <Shape ID="DesignTable:TBHOTKEY_PROFILE" ZOrder="17" X="-12" Y="311" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
+    <Shape ID="DesignTable:TBGI_REGEX_DOCTYPE" ZOrder="10" X="1027" Y="881" Height="210" Width="276" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="159" />
-    <Shape ID="DesignTable:TBHOTKEY_PATTERNS" ZOrder="16" X="221" Y="-36" Height="320" Width="196" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="252" />
+    <Shape ID="DesignTable:TBTempFiles2Index" ZOrder="23" X="915" Y="82" Height="106" Width="150" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="102" />
-    <Shape ID="DesignTable:TBMYHOTKEYS" ZOrder="20" X="25" Y="-1" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
+    <Shape ID="DesignTable:TBTEMP_INDEXRESULTS" ZOrder="19" X="639" Y="943" Height="67" Width="208" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="63" />
-    <Shape ID="DesignTable:TBHOTKEY_USER_PROFILE" ZOrder="21" X="30" Y="178" Height="90" Width="227" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
+    <Shape ID="DesignTable:TBAD_Users" ZOrder="15" X="1363" Y="639" Height="143" Width="150" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="86" />
-    <Shape ID="DesignTable:TBHOTKEY_PATTERNS_REWORK" ZOrder="19" X="415" Y="-3" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="39" />
-    <Shape ID="DesignTable:TBHOTKEY_WINDOW_HOOK" ZOrder="15" X="0" Y="0" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
-    <Shape ID="DesignTable:TBGI_FILES_USER" ZOrder="14" X="1181" Y="7" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
-    <Shape ID="DesignTable:TBGI_HISTORY" ZOrder="12" X="0" Y="0" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
-    <Shape ID="DesignTable:TBTempFiles2Index" ZOrder="39" X="915" Y="82" Height="106" Width="150" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="102" />
-    <Shape ID="DesignTable:TBTEMP_INDEXRESULTS" ZOrder="32" X="639" Y="943" Height="67" Width="208" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="63" />
-    <Shape ID="DesignTable:TBAD_Users" ZOrder="11" X="1363" Y="639" Height="143" Width="150" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="86" />
-    <Shape ID="DesignTable:TBGI_REGEX_DOCTYPE" ZOrder="2" X="1027" Y="881" Height="210" Width="276" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="159" />
   </Shapes>
   <Connectors>
-    <Connector ID="DesignRelation:FK_TBDD_DOKUMENTART_EINGID" ZOrder="46" LineWidth="11">
+    <Connector ID="DesignRelation:FK_TBDD_DOKUMENTART_EINGID" ZOrder="30" LineWidth="11">
       <RoutePoints>
         <Point>
           <X>431</X>
@@ -50,19 +42,19 @@
         </Point>
       </RoutePoints>
     </Connector>
-    <Connector ID="DesignRelation:FK_TBDD_INDEX_MAN_CID" ZOrder="42" LineWidth="11">
+    <Connector ID="DesignRelation:FK_TBDD_INDEX_MAN_CID" ZOrder="26" LineWidth="11">
       <RoutePoints>
         <Point>
-          <X>543</X>
+          <X>535</X>
           <Y>386</Y>
         </Point>
         <Point>
-          <X>543</X>
+          <X>535</X>
-          <Y>656</Y>
+          <Y>638</Y>
         </Point>
       </RoutePoints>
     </Connector>
-    <Connector ID="DesignRelation:FK_TBDD_INDEX_AUTOM_DOCID" ZOrder="40" LineWidth="11">
+    <Connector ID="DesignRelation:FK_TBDD_INDEX_AUTOM_DOCID" ZOrder="24" LineWidth="11">
       <RoutePoints>
         <Point>
           <X>397</X>
@@ -74,211 +66,59 @@
         </Point>
       </RoutePoints>
     </Connector>
-    <Connector ID="DesignRelation:FKTBDD_INDEX_MAN_POSTPROCESSING_IDXID" ZOrder="36" LineWidth="11">
+    <Connector ID="DesignRelation:FKTBDD_INDEX_MAN_POSTPROCESSING_IDXID" ZOrder="21" LineWidth="11">
       <RoutePoints>
         <Point>
-          <X>605</X>
+          <X>597</X>
-          <Y>656</Y>
+          <Y>638</Y>
         </Point>
         <Point>
-          <X>605</X>
+          <X>597</X>
-          <Y>148</Y>
+          <Y>104</Y>
         </Point>
         <Point>
-          <X>743</X>
+          <X>719</X>
-          <Y>148</Y>
+          <Y>104</Y>
         </Point>
       </RoutePoints>
     </Connector>
-    <Connector ID="DesignRelation:FKTBDD_INDEX_MAN_POSTPROCESSING_IDXID1" ZOrder="34" LineWidth="11">
+    <Connector ID="DesignRelation:FKTBDD_INDEX_MAN_POSTPROCESSING_IDXID1" ZOrder="20" LineWidth="11">
       <RoutePoints>
         <Point>
-          <X>959</X>
+          <X>293</X>
-          <Y>682</Y>
+          <Y>72</Y>
         </Point>
         <Point>
-          <X>959</X>
+          <X>719</X>
-          <Y>374</Y>
+          <Y>72</Y>
         </Point>
       </RoutePoints>
     </Connector>
-    <Connector ID="DesignRelation:FK_TBDD_GROUPS_USER_GROUP_ID" ZOrder="31" LineWidth="11">
+    <Connector ID="DesignRelation:FK_TBDD_GROUPS_USER_USER_ID" ZOrder="18" LineWidth="11">
       <RoutePoints>
         <Point>
-          <X>1096</X>
+          <X>978</X>
-          <Y>262</Y>
+          <Y>273</Y>
         </Point>
         <Point>
-          <X>1047</X>
+          <X>1040</X>
-          <Y>262</Y>
+          <Y>273</Y>
-        </Point>
-        <Point>
-          <X>1047</X>
-          <Y>228</Y>
         </Point>
       </RoutePoints>
     </Connector>
-    <Connector ID="DesignRelation:FK_TBDD_GROUPS_USER_USER_ID" ZOrder="30" LineWidth="11">
+    <Connector ID="DesignRelation:FK_TBDD_INDEX_MAN_DAID" ZOrder="16" LineWidth="11">
       <RoutePoints>
         <Point>
-          <X>951</X>
+          <X>397</X>
-          <Y>247</Y>
+          <Y>663</Y>
         </Point>
         <Point>
-          <X>951</X>
+          <X>456</X>
-          <Y>211</Y>
+          <Y>663</Y>
-        </Point>
-        <Point>
-          <X>1014</X>
-          <Y>211</Y>
         </Point>
       </RoutePoints>
     </Connector>
-    <Connector ID="DesignRelation:FK_TBDD_INDEX_MAN_DAID" ZOrder="27" LineWidth="11">
+    <Connector ID="DesignRelation:FK_TBGI_REGEX_DOCTYPE_DTID" ZOrder="9" LineWidth="11">
-      <RoutePoints>
-        <Point>
-          <X>94</X>
-          <Y>0</Y>
-        </Point>
-        <Point>
-          <X>94</X>
-          <Y>-30</Y>
-        </Point>
-        <Point>
-          <X>94</X>
-          <Y>-30</Y>
-        </Point>
-        <Point>
-          <X>94</X>
-          <Y>0</Y>
-        </Point>
-      </RoutePoints>
-    </Connector>
-    <Connector ID="DesignRelation:FK_TBHOTKEY_PATTERNS_PROFILE_ID" ZOrder="26" LineWidth="11">
-      <RoutePoints>
-        <Point>
-          <X>129</X>
-          <Y>311</Y>
-        </Point>
-        <Point>
-          <X>129</X>
-          <Y>86</Y>
-        </Point>
-        <Point>
-          <X>221</X>
-          <Y>86</Y>
-        </Point>
-      </RoutePoints>
-    </Connector>
-    <Connector ID="DesignRelation:FK_TBHOTKEY_PATTERNS_PROFILE_ID1" ZOrder="25" LineWidth="11">
-      <RoutePoints>
-        <Point>
-          <X>183</X>
-          <Y>25</Y>
-        </Point>
-        <Point>
-          <X>221</X>
-          <Y>25</Y>
-        </Point>
-      </RoutePoints>
-    </Connector>
-    <Connector ID="DesignRelation:FK_TBHOTKEY_USER_PROFILE_PROFILE_ID" ZOrder="24" LineWidth="11">
-      <RoutePoints>
-        <Point>
-          <X>88</X>
-          <Y>311</Y>
-        </Point>
-        <Point>
-          <X>88</X>
-          <Y>-22</Y>
-        </Point>
-        <Point>
-          <X>88</X>
-          <Y>-30</Y>
-        </Point>
-        <Point>
-          <X>88</X>
-          <Y>178</Y>
-        </Point>
-      </RoutePoints>
-    </Connector>
-    <Connector ID="DesignRelation:FK_TBHOTKEY_USER_PROFILE_PROFILE_ID1" ZOrder="23" LineWidth="11">
-      <RoutePoints>
-        <Point>
-          <X>117</X>
-          <Y>-1</Y>
-        </Point>
-        <Point>
-          <X>117</X>
-          <Y>-22</Y>
-        </Point>
-        <Point>
-          <X>117</X>
-          <Y>-30</Y>
-        </Point>
-        <Point>
-          <X>117</X>
-          <Y>178</Y>
-        </Point>
-      </RoutePoints>
-    </Connector>
-    <Connector ID="DesignRelation:FK_TBHOTKEY_USER_PROFILE_USER_ID" ZOrder="22" LineWidth="11">
-      <RoutePoints>
-        <Point>
-          <X>765</X>
-          <Y>285</Y>
-        </Point>
-        <Point>
-          <X>240</X>
-          <Y>285</Y>
-        </Point>
-        <Point>
-          <X>240</X>
-          <Y>268</Y>
-        </Point>
-      </RoutePoints>
-    </Connector>
-    <Connector ID="DesignRelation:FK_TBHOTKEY_PATTERNS_REWORK_HKPATTERN_ID" ZOrder="18" LineWidth="11">
-      <RoutePoints>
-        <Point>
-          <X>409</X>
-          <Y>-36</Y>
-        </Point>
-        <Point>
-          <X>409</X>
-          <Y>-66</Y>
-        </Point>
-        <Point>
-          <X>425</X>
-          <Y>-66</Y>
-        </Point>
-        <Point>
-          <X>425</X>
-          <Y>-3</Y>
-        </Point>
-      </RoutePoints>
-    </Connector>
-    <Connector ID="DesignRelation:FK_TBHOTKEY_WINDOW_HOOK_PROFILE_ID" ZOrder="13" LineWidth="11">
-      <RoutePoints>
-        <Point>
-          <X>38</X>
-          <Y>0</Y>
-        </Point>
-        <Point>
-          <X>38</X>
-          <Y>-30</Y>
-        </Point>
-        <Point>
-          <X>38</X>
-          <Y>-30</Y>
-        </Point>
-        <Point>
-          <X>38</X>
-          <Y>0</Y>
-        </Point>
-      </RoutePoints>
-    </Connector>
-    <Connector ID="DesignRelation:FK_TBGI_REGEX_DOCTYPE_DTID" ZOrder="1" LineWidth="11">
       <RoutePoints>
         <Point>
           <X>380</X>

Global_Indexer/Resources/itemtypechecked.svg

@@ -0,0 +1,30 @@
+<?xml version='1.0' encoding='UTF-8'?>
+<svg x="0px" y="0px" viewBox="0 0 32 32" version="1.1" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink" xml:space="preserve" id="Layer_1" style="enable-background:new 0 0 32 32">
+  <style type="text/css">
+	.Green{fill:#039C23;}
+	.Black{fill:#727272;}
+	.Red{fill:#D11C1C;}
+	.Yellow{fill:#FFB115;}
+	.Blue{fill:#1177D7;}
+	.White{fill:#FFFFFF;}
+	.st0{opacity:0.5;}
+	.st1{opacity:0.75;}
+</style>
+  <g id="ItemTypeChecked">
+    <g>
+      <g>
+        <rect x="20" y="8" width="10" height="4" rx="0" ry="0" class="Black" />
+        <rect x="20" y="22" width="10" height="4" rx="0" ry="0" class="Black" />
+        <path d="M15,18H3c-0.5,0-1,0.5-1,1v12c0,0.5,0.5,1,1,1h12c0.5,0,1-0.5,1-1V19C16,18.5,15.5,18,15,18z M14,30H4V20     h10V30z" class="Black" />
+        <path d="M14,10.8V14H4V4h8.2l2-2H3C2.5,2,2,2.5,2,3v12c0,0.5,0.5,1,1,1h12c0.5,0,1-0.5,1-1V8.8L14,10.8z" class="Black" />
+      </g>
+      <g>
+        <rect x="20" y="8" width="10" height="4" rx="0" ry="0" class="Black" />
+        <rect x="20" y="22" width="10" height="4" rx="0" ry="0" class="Black" />
+        <path d="M15,18H3c-0.5,0-1,0.5-1,1v12c0,0.5,0.5,1,1,1h12c0.5,0,1-0.5,1-1V19C16,18.5,15.5,18,15,18z M14,30H4V20     h10V30z" class="Black" />
+        <path d="M14,10.8V14H4V4h8.2l2-2H3C2.5,2,2,2.5,2,3v12c0,0.5,0.5,1,1,1h12c0.5,0,1-0.5,1-1V8.8L14,10.8z" class="Black" />
+      </g>
+    </g>
+    <polygon points="6,5 6,8 10,12 18,4 18,1 10,9  " class="Green" />
+  </g>
+</svg>

Global_Indexer/Resources/trackingchanges_next.svg

@@ -0,0 +1,14 @@
+<?xml version='1.0' encoding='UTF-8'?>
+<svg x="0px" y="0px" viewBox="0 0 32 32" version="1.1" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink" xml:space="preserve" id="Layer_1" style="enable-background:new 0 0 32 32">
+  <style type="text/css">
+	.Blue{fill:#3575BB;}
+	.Black{fill:#737374;}
+	.White{fill:#FFFFFF;}
+	.Yellow{fill:#FCB01B;}
+	.Red{fill:#D02027;}
+	.Green{fill:#129C49;}
+	.st0{opacity:0.5;}
+</style>
+  <path d="M31,2H11c-0.5,0-1,0.5-1,1v9h2V4h18v24H12v-8h-2v9c0,0.5,0.5,1,1,1h20c0.5,0,1-0.5,1-1V3C32,2.5,31.5,2,31,2z  " class="Black" />
+  <polygon points="4,14 14,14 14,8 22,16 14,24 14,18 4,18 " class="Blue" />
+</svg>

Global_Indexer/frmConfig_Basic.designer.vb

@@ -44,7 +44,7 @@ Partial Class frmConfig_Basic
         Me.cmbLanguage = New System.Windows.Forms.ComboBox()
         Me.Label9 = New System.Windows.Forms.Label()
         Me.CheckBoxPreviewDocs = New System.Windows.Forms.CheckBox()
-        Me.CheckBox2 = New System.Windows.Forms.CheckBox()
+        Me.CheckBoxIndexResult = New System.Windows.Forms.CheckBox()
         Me.chkLogErrorsOnly = New System.Windows.Forms.CheckBox()
         Me.btnLogMail = New System.Windows.Forms.Button()
         Me.btnApplicationFolder = New System.Windows.Forms.Button()
@@ -175,7 +175,7 @@ Partial Class frmConfig_Basic
         Me.TabPage2.Controls.Add(Me.cmbLanguage)
         Me.TabPage2.Controls.Add(Me.Label9)
         Me.TabPage2.Controls.Add(Me.CheckBoxPreviewDocs)
-        Me.TabPage2.Controls.Add(Me.CheckBox2)
+        Me.TabPage2.Controls.Add(Me.CheckBoxIndexResult)
         Me.TabPage2.Controls.Add(Me.chkLogErrorsOnly)
         Me.TabPage2.Controls.Add(Me.btnLogMail)
         Me.TabPage2.Controls.Add(Me.btnApplicationFolder)
@@ -211,19 +211,16 @@ Partial Class frmConfig_Basic
         'CheckBoxPreviewDocs
         '
         resources.ApplyResources(Me.CheckBoxPreviewDocs, "CheckBoxPreviewDocs")
-        Me.CheckBoxPreviewDocs.Checked = Global.Global_Indexer.My.MySettings.Default.DoNot_Show_Documents
-        Me.CheckBoxPreviewDocs.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Global_Indexer.My.MySettings.Default, "DoNot_Show_Documents", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged))
         Me.CheckBoxPreviewDocs.Name = "CheckBoxPreviewDocs"
         Me.CheckBoxPreviewDocs.UseVisualStyleBackColor = True
         '
-        'CheckBox2
+        'CheckBoxIndexResult
         '
-        resources.ApplyResources(Me.CheckBox2, "CheckBox2")
+        resources.ApplyResources(Me.CheckBoxIndexResult, "CheckBoxIndexResult")
-        Me.CheckBox2.Checked = Global.Global_Indexer.My.MySettings.Default.Show_IndexResult
+        Me.CheckBoxIndexResult.Checked = True
-        Me.CheckBox2.CheckState = System.Windows.Forms.CheckState.Checked
+        Me.CheckBoxIndexResult.CheckState = System.Windows.Forms.CheckState.Checked
-        Me.CheckBox2.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Global_Indexer.My.MySettings.Default, "Show_IndexResult", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged))
+        Me.CheckBoxIndexResult.Name = "CheckBoxIndexResult"
-        Me.CheckBox2.Name = "CheckBox2"
+        Me.CheckBoxIndexResult.UseVisualStyleBackColor = True
-        Me.CheckBox2.UseVisualStyleBackColor = True
         '
         'chkLogErrorsOnly
         '
@@ -400,7 +397,7 @@ Partial Class frmConfig_Basic
     Friend WithEvents chkLogErrorsOnly As System.Windows.Forms.CheckBox
     Friend WithEvents btnopenlog As System.Windows.Forms.Button
     Friend WithEvents btnApplicationFolder As System.Windows.Forms.Button
-    Friend WithEvents CheckBox2 As System.Windows.Forms.CheckBox
+    Friend WithEvents CheckBoxIndexResult As System.Windows.Forms.CheckBox
     Friend WithEvents Button2 As System.Windows.Forms.Button
     Friend WithEvents txtScanFolderWatch As System.Windows.Forms.TextBox
     Friend WithEvents Label7 As System.Windows.Forms.Label

Global_Indexer/frmConfig_Basic.resx

@@ -579,32 +579,32 @@
   <data name="&gt;&gt;CheckBoxPreviewDocs.ZOrder" xml:space="preserve">
     <value>4</value>
   </data>
-  <data name="CheckBox2.AutoSize" type="System.Boolean, mscorlib">
+  <data name="CheckBoxIndexResult.AutoSize" type="System.Boolean, mscorlib">
     <value>True</value>
   </data>
-  <data name="CheckBox2.Location" type="System.Drawing.Point, System.Drawing">
+  <data name="CheckBoxIndexResult.Location" type="System.Drawing.Point, System.Drawing">
     <value>242, 44</value>
   </data>
-  <data name="CheckBox2.Size" type="System.Drawing.Size, System.Drawing">
+  <data name="CheckBoxIndexResult.Size" type="System.Drawing.Size, System.Drawing">
     <value>230, 30</value>
   </data>
-  <data name="CheckBox2.TabIndex" type="System.Int32, mscorlib">
+  <data name="CheckBoxIndexResult.TabIndex" type="System.Int32, mscorlib">
     <value>6</value>
   </data>
-  <data name="CheckBox2.Text" xml:space="preserve">
+  <data name="CheckBoxIndexResult.Text" xml:space="preserve">
     <value>Meldungsfenster für erfolgreiche
 Übertragung nach windream anzeigen?</value>
   </data>
-  <data name="&gt;&gt;CheckBox2.Name" xml:space="preserve">
+  <data name="&gt;&gt;CheckBoxIndexResult.Name" xml:space="preserve">
-    <value>CheckBox2</value>
+    <value>CheckBoxIndexResult</value>
   </data>
-  <data name="&gt;&gt;CheckBox2.Type" xml:space="preserve">
+  <data name="&gt;&gt;CheckBoxIndexResult.Type" xml:space="preserve">
     <value>System.Windows.Forms.CheckBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </data>
-  <data name="&gt;&gt;CheckBox2.Parent" xml:space="preserve">
+  <data name="&gt;&gt;CheckBoxIndexResult.Parent" xml:space="preserve">
     <value>TabPage2</value>
   </data>
-  <data name="&gt;&gt;CheckBox2.ZOrder" xml:space="preserve">
+  <data name="&gt;&gt;CheckBoxIndexResult.ZOrder" xml:space="preserve">
     <value>5</value>
   </data>
   <data name="chkLogErrorsOnly.AutoSize" type="System.Boolean, mscorlib">
@@ -912,7 +912,7 @@ ausgenommen werden sollen:</value>
     <value>3</value>
   </data>
   <data name="btnFW_OwnFiles.Text" xml:space="preserve">
-    <value>Ordner 'SimpleIndexer' in Eigenen Dateien erzeugen</value>
+    <value>Ordner 'GlobalIndexer' in Eigenen Dateien erzeugen</value>
   </data>
   <data name="&gt;&gt;btnFW_OwnFiles.Name" xml:space="preserve">
     <value>btnFW_OwnFiles</value>
@@ -936,7 +936,7 @@ ausgenommen werden sollen:</value>
     <value>2</value>
   </data>
   <data name="btnFW_Desktop.Text" xml:space="preserve">
-    <value>Ordner 'SimpleIndexer' auf Desktop erzeugen</value>
+    <value>Ordner 'GlobalIndexer' auf Desktop erzeugen</value>
   </data>
   <data name="&gt;&gt;btnFW_Desktop.Name" xml:space="preserve">
     <value>btnFW_Desktop</value>

Global_Indexer/frmConfig_Basic.vb

@@ -66,12 +66,12 @@ Public Class frmConfig_Basic
 
                 Dim sql = "SELECT MAX(GUID) FROM TBDD_USER WHERE (LOWER(USERNAME) = LOWER('@user'))"
                 sql = sql.Replace("@user", Environment.UserName)
-                ClassLogger.Add(">> Username: " & Environment.UserName, False)
+                LOGGER.Info(">> Username: " & Environment.UserName)
 
                 USER_ID = ClassDatabase.Execute_Scalar(sql, MyConnectionString, True)
                 If IsDBNull(USER_ID) Then
                     MsgBox("Attention: Your Username '" & Environment.UserName & "' is not configured for Global Indexer. this might result in unhandled exceptions!", MsgBoxStyle.Exclamation)
-                    ClassLogger.Add("User '" & Environment.UserName & "' not configured for Global Indexer! (DBNull - frmConfigBasic)", True)
+                    LOGGER.Info("User '" & Environment.UserName & "' not configured for Global Indexer! (DBNull - frmConfigBasic)")
                 End If
 
 
@@ -123,9 +123,9 @@ Public Class frmConfig_Basic
         Cursor = Cursors.Default
     End Sub
 
-    <STAThread()> _
     Private Sub frmConfig_Basic_Load(sender As Object, e As EventArgs) Handles MyBase.Load
-
+        CheckBoxIndexResult.Checked = CONFIG.Config.ShowIndexResult
+        CheckBoxPreviewDocs.Checked = CONFIG.Config.FilePreview
     End Sub
 
     Dim reload As Boolean = False
@@ -144,7 +144,7 @@ Public Class frmConfig_Basic
                 End If
                 'chkdelete_origin.Checked = CURR_DELETE_ORIGIN
             Case 2
-               If ERROR_STATE = "NO DB-CONNECTION" Then
+                If ERROR_STATE = "NO DB-CONNECTION" Then
                     MsgBox("Configurations only editable after Application started completely!", MsgBoxStyle.Exclamation)
                     Me.TabControl1.SelectedIndex = 0
                     Exit Sub
@@ -224,7 +224,7 @@ Public Class frmConfig_Basic
     End Sub
 
     Private Sub btnFW_Desktop_Click(sender As Object, e As EventArgs) Handles btnFW_Desktop.Click
-        CURRENT_FOLDERWATCH = Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.Desktop), "SimpleIndexer")
+        CURRENT_FOLDERWATCH = Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.Desktop), "GlobalIndexer")
         CheckFolder(CURRENT_FOLDERWATCH, "DEFAULT")
     End Sub
     Sub CheckFolder(mypath As String, FOLDER_TYPE As String)
@@ -242,7 +242,7 @@ Public Class frmConfig_Basic
                     CONFIG.Save()
                     CURRENT_FOLDERWATCH = ""
                 End If
-              
+
                 Exit Sub
             End If
             Try
@@ -250,8 +250,9 @@ Public Class frmConfig_Basic
                     System.IO.Directory.CreateDirectory(mypath)
                 End If
             Catch ex As Exception
-                ClassLogger.Add(" >> Unexpected error in CheckFolder: " & mypath, False)
+                LOGGER.Info(" >> Unexpected error in CheckFolder: " & mypath)
-                ClassLogger.Add(" >> " & ex.Message, False)
+                LOGGER.Error(ex)
+                LOGGER.Info(" >> " & ex.Message)
                 If USER_LANGUAGE = "de-DE" Then
                     MsgBox("Unexpected error in ECheckFolder: " & mypath & vbNewLine & "Bitte überprüfen Sie die Rechte!" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
                 Else
@@ -292,7 +293,7 @@ Public Class frmConfig_Basic
     End Sub
 
     Private Sub btnFW_OwnFiles_Click(sender As Object, e As EventArgs) Handles btnFW_OwnFiles.Click
-        CURRENT_FOLDERWATCH = Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments), "SimpleIndexer")
+        CURRENT_FOLDERWATCH = Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments), "GlobalIndexer")
         CheckFolder(CURRENT_FOLDERWATCH, "DEFAULT")
     End Sub
 
@@ -356,8 +357,9 @@ Public Class frmConfig_Basic
             CONFIG.Config.LogErrorsOnly = chkLogErrorsOnly.Checked
             CONFIG.Save()
             'SaveConfigValue("LogErrorsOnly", chkLogErrorsOnly.Checked)
-            ClassLogger.Add(" >> LogErrorsOnly changed to '" & chkLogErrorsOnly.Checked, False)
+            LOGGER.Info(" >> LogErrorsOnly changed to '" & chkLogErrorsOnly.Checked)
             LogErrorsOnly = chkLogErrorsOnly.Checked
+            LOGCONFIG.Debug = Not chkLogErrorsOnly.Checked
         End If
     End Sub
     <STAThread()> _
@@ -368,6 +370,8 @@ Public Class frmConfig_Basic
     End Sub
     Sub Load_Basics()
         Try
+            chkLogErrorsOnly.Checked = CONFIG.Config.LogErrorsOnly
+
             If Not MyConnectionString = String.Empty Then
                 Dim csb As New SqlClient.SqlConnectionStringBuilder
                 csb.ConnectionString = MyConnectionString
@@ -384,7 +388,7 @@ Public Class frmConfig_Basic
                     End If
                 Catch ex As Exception
                 End Try
-              
+
 
                 Me.txtActualConnection.Text = constr
             End If
@@ -406,9 +410,9 @@ Public Class frmConfig_Basic
         Process.Start(Application.UserAppDataPath())
     End Sub
 
-    Private Sub CheckBox2_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox2.CheckedChanged
+    Private Sub CheckBox2_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBoxIndexResult.CheckedChanged
-
+        CONFIG.Config.ShowIndexResult = CheckBoxIndexResult.Checked
-        My.Settings.Save()
+        CONFIG.Save()
     End Sub
 
     Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
@@ -512,11 +516,4 @@ 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

Global_Indexer/frmConnections.Designer.vb

@@ -1,6 +1,6 @@
 <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
 Partial Class frmConnections
-    Inherits System.Windows.Forms.Form
+    Inherits DevExpress.XtraBars.Ribbon.RibbonForm
 
     'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
     <System.Diagnostics.DebuggerNonUserCode()> _
@@ -36,20 +36,6 @@ Partial Class frmConnections
         Me.TBDD_CONNECTIONBindingSource = New System.Windows.Forms.BindingSource(Me.components)
         Me.TBDD_CONNECTIONTableAdapter = New Global_Indexer.MyDatasetTableAdapters.TBDD_CONNECTIONTableAdapter()
         Me.TableAdapterManager = New Global_Indexer.MyDatasetTableAdapters.TableAdapterManager()
-        Me.TBDD_CONNECTIONBindingNavigator = New System.Windows.Forms.BindingNavigator(Me.components)
-        Me.BindingNavigatorAddNewItem = New System.Windows.Forms.ToolStripButton()
-        Me.BindingNavigatorCountItem = New System.Windows.Forms.ToolStripLabel()
-        Me.BindingNavigatorDeleteItem = New System.Windows.Forms.ToolStripButton()
-        Me.BindingNavigatorMoveFirstItem = New System.Windows.Forms.ToolStripButton()
-        Me.BindingNavigatorMovePreviousItem = New System.Windows.Forms.ToolStripButton()
-        Me.BindingNavigatorSeparator = New System.Windows.Forms.ToolStripSeparator()
-        Me.BindingNavigatorPositionItem = New System.Windows.Forms.ToolStripTextBox()
-        Me.BindingNavigatorSeparator1 = New System.Windows.Forms.ToolStripSeparator()
-        Me.BindingNavigatorMoveNextItem = New System.Windows.Forms.ToolStripButton()
-        Me.BindingNavigatorMoveLastItem = New System.Windows.Forms.ToolStripButton()
-        Me.BindingNavigatorSeparator2 = New System.Windows.Forms.ToolStripSeparator()
-        Me.TBDD_CONNECTIONBindingNavigatorSaveItem = New System.Windows.Forms.ToolStripButton()
-        Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton()
         Me.BEZEICHNUNGTextBox = New System.Windows.Forms.TextBox()
         Me.SERVERTextBox = New System.Windows.Forms.TextBox()
         Me.DATENBANKTextBox = New System.Windows.Forms.TextBox()
@@ -70,10 +56,19 @@ Partial Class frmConnections
         Me.lblDatenbank = New System.Windows.Forms.Label()
         Me.cmbInitialCatalog = New System.Windows.Forms.ComboBox()
         Me.CheckBoxwin_aut = New System.Windows.Forms.CheckBox()
-        Me.btnCheck_Con = New System.Windows.Forms.Button()
         Me.chkOR_ohne_TNS = New System.Windows.Forms.CheckBox()
-        Me.lblSave = New System.Windows.Forms.Label()
         Me.GUIDTextBox = New System.Windows.Forms.TextBox()
+        Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl()
+        Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem()
+        Me.BarButtonItem2 = New DevExpress.XtraBars.BarButtonItem()
+        Me.BarButtonItem3 = New DevExpress.XtraBars.BarButtonItem()
+        Me.BarButtonItem4 = New DevExpress.XtraBars.BarButtonItem()
+        Me.labelStatus = New DevExpress.XtraBars.BarStaticItem()
+        Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage()
+        Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
+        Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
+        Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage()
+        Me.BarButtonItem5 = New DevExpress.XtraBars.BarButtonItem()
         GUIDLabel = New System.Windows.Forms.Label()
         BEZEICHNUNGLabel = New System.Windows.Forms.Label()
         SQL_PROVIDERLabel = New System.Windows.Forms.Label()
@@ -84,8 +79,7 @@ Partial Class frmConnections
         GEAENDERTWANNLabel = New System.Windows.Forms.Label()
         CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.TBDD_CONNECTIONBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.TBDD_CONNECTIONBindingNavigator, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit()
-        Me.TBDD_CONNECTIONBindingNavigator.SuspendLayout()
         Me.SuspendLayout()
         '
         'GUIDLabel
@@ -149,110 +143,15 @@ Partial Class frmConnections
         Me.TableAdapterManager.TBDD_DOKUMENTARTTableAdapter = Nothing
         Me.TableAdapterManager.TBDD_EINGANGSARTENTableAdapter = Nothing
         Me.TableAdapterManager.TBDD_GROUPS_USERTableAdapter = Nothing
-        Me.TableAdapterManager.TBDD_GROUPSTableAdapter = Nothing
         Me.TableAdapterManager.TBDD_INDEX_AUTOMTableAdapter = Nothing
         Me.TableAdapterManager.TBDD_INDEX_MAN_POSTPROCESSINGTableAdapter = Nothing
         Me.TableAdapterManager.TBDD_INDEX_MANTableAdapter = Nothing
         Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing
         Me.TableAdapterManager.TBGI_CONFIGURATIONTableAdapter = Nothing
         Me.TableAdapterManager.TBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter = Nothing
-        Me.TableAdapterManager.TBHOTKEY_PATTERNS_REWORKTableAdapter = Nothing
+        Me.TableAdapterManager.TBGI_REGEX_DOCTYPETableAdapter = Nothing
-        Me.TableAdapterManager.TBHOTKEY_PATTERNSTableAdapter = Nothing
-        Me.TableAdapterManager.TBHOTKEY_PROFILETableAdapter = Nothing
-        Me.TableAdapterManager.TBHOTKEY_USER_PROFILETableAdapter = Nothing
-        Me.TableAdapterManager.TBHOTKEY_WINDOW_HOOKTableAdapter = Nothing
         Me.TableAdapterManager.UpdateOrder = Global_Indexer.MyDatasetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete
         '
-        'TBDD_CONNECTIONBindingNavigator
-        '
-        Me.TBDD_CONNECTIONBindingNavigator.AddNewItem = Me.BindingNavigatorAddNewItem
-        Me.TBDD_CONNECTIONBindingNavigator.BindingSource = Me.TBDD_CONNECTIONBindingSource
-        Me.TBDD_CONNECTIONBindingNavigator.CountItem = Me.BindingNavigatorCountItem
-        Me.TBDD_CONNECTIONBindingNavigator.CountItemFormat = "of {0}"
-        Me.TBDD_CONNECTIONBindingNavigator.DeleteItem = Me.BindingNavigatorDeleteItem
-        Me.TBDD_CONNECTIONBindingNavigator.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BindingNavigatorMoveFirstItem, Me.BindingNavigatorMovePreviousItem, Me.BindingNavigatorSeparator, Me.BindingNavigatorPositionItem, Me.BindingNavigatorCountItem, Me.BindingNavigatorSeparator1, Me.BindingNavigatorMoveNextItem, Me.BindingNavigatorMoveLastItem, Me.BindingNavigatorSeparator2, Me.BindingNavigatorAddNewItem, Me.BindingNavigatorDeleteItem, Me.TBDD_CONNECTIONBindingNavigatorSaveItem, Me.ToolStripButton1})
-        resources.ApplyResources(Me.TBDD_CONNECTIONBindingNavigator, "TBDD_CONNECTIONBindingNavigator")
-        Me.TBDD_CONNECTIONBindingNavigator.MoveFirstItem = Me.BindingNavigatorMoveFirstItem
-        Me.TBDD_CONNECTIONBindingNavigator.MoveLastItem = Me.BindingNavigatorMoveLastItem
-        Me.TBDD_CONNECTIONBindingNavigator.MoveNextItem = Me.BindingNavigatorMoveNextItem
-        Me.TBDD_CONNECTIONBindingNavigator.MovePreviousItem = Me.BindingNavigatorMovePreviousItem
-        Me.TBDD_CONNECTIONBindingNavigator.Name = "TBDD_CONNECTIONBindingNavigator"
-        Me.TBDD_CONNECTIONBindingNavigator.PositionItem = Me.BindingNavigatorPositionItem
-        '
-        'BindingNavigatorAddNewItem
-        '
-        Me.BindingNavigatorAddNewItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
-        resources.ApplyResources(Me.BindingNavigatorAddNewItem, "BindingNavigatorAddNewItem")
-        Me.BindingNavigatorAddNewItem.Name = "BindingNavigatorAddNewItem"
-        '
-        'BindingNavigatorCountItem
-        '
-        Me.BindingNavigatorCountItem.Name = "BindingNavigatorCountItem"
-        resources.ApplyResources(Me.BindingNavigatorCountItem, "BindingNavigatorCountItem")
-        '
-        'BindingNavigatorDeleteItem
-        '
-        Me.BindingNavigatorDeleteItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
-        resources.ApplyResources(Me.BindingNavigatorDeleteItem, "BindingNavigatorDeleteItem")
-        Me.BindingNavigatorDeleteItem.Name = "BindingNavigatorDeleteItem"
-        '
-        'BindingNavigatorMoveFirstItem
-        '
-        Me.BindingNavigatorMoveFirstItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
-        resources.ApplyResources(Me.BindingNavigatorMoveFirstItem, "BindingNavigatorMoveFirstItem")
-        Me.BindingNavigatorMoveFirstItem.Name = "BindingNavigatorMoveFirstItem"
-        '
-        'BindingNavigatorMovePreviousItem
-        '
-        Me.BindingNavigatorMovePreviousItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
-        resources.ApplyResources(Me.BindingNavigatorMovePreviousItem, "BindingNavigatorMovePreviousItem")
-        Me.BindingNavigatorMovePreviousItem.Name = "BindingNavigatorMovePreviousItem"
-        '
-        'BindingNavigatorSeparator
-        '
-        Me.BindingNavigatorSeparator.Name = "BindingNavigatorSeparator"
-        resources.ApplyResources(Me.BindingNavigatorSeparator, "BindingNavigatorSeparator")
-        '
-        'BindingNavigatorPositionItem
-        '
-        resources.ApplyResources(Me.BindingNavigatorPositionItem, "BindingNavigatorPositionItem")
-        Me.BindingNavigatorPositionItem.Name = "BindingNavigatorPositionItem"
-        '
-        'BindingNavigatorSeparator1
-        '
-        Me.BindingNavigatorSeparator1.Name = "BindingNavigatorSeparator1"
-        resources.ApplyResources(Me.BindingNavigatorSeparator1, "BindingNavigatorSeparator1")
-        '
-        'BindingNavigatorMoveNextItem
-        '
-        Me.BindingNavigatorMoveNextItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
-        resources.ApplyResources(Me.BindingNavigatorMoveNextItem, "BindingNavigatorMoveNextItem")
-        Me.BindingNavigatorMoveNextItem.Name = "BindingNavigatorMoveNextItem"
-        '
-        'BindingNavigatorMoveLastItem
-        '
-        Me.BindingNavigatorMoveLastItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
-        resources.ApplyResources(Me.BindingNavigatorMoveLastItem, "BindingNavigatorMoveLastItem")
-        Me.BindingNavigatorMoveLastItem.Name = "BindingNavigatorMoveLastItem"
-        '
-        'BindingNavigatorSeparator2
-        '
-        Me.BindingNavigatorSeparator2.Name = "BindingNavigatorSeparator2"
-        resources.ApplyResources(Me.BindingNavigatorSeparator2, "BindingNavigatorSeparator2")
-        '
-        'TBDD_CONNECTIONBindingNavigatorSaveItem
-        '
-        Me.TBDD_CONNECTIONBindingNavigatorSaveItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
-        resources.ApplyResources(Me.TBDD_CONNECTIONBindingNavigatorSaveItem, "TBDD_CONNECTIONBindingNavigatorSaveItem")
-        Me.TBDD_CONNECTIONBindingNavigatorSaveItem.Name = "TBDD_CONNECTIONBindingNavigatorSaveItem"
-        '
-        'ToolStripButton1
-        '
-        Me.ToolStripButton1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
-        Me.ToolStripButton1.Image = Global.Global_Indexer.My.Resources.Resources.refresh_16xLG
-        resources.ApplyResources(Me.ToolStripButton1, "ToolStripButton1")
-        Me.ToolStripButton1.Name = "ToolStripButton1"
-        '
         'BEZEICHNUNGTextBox
         '
         Me.BEZEICHNUNGTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_CONNECTIONBindingSource, "BEZEICHNUNG", True))
@@ -341,8 +240,8 @@ Partial Class frmConnections
         '
         Me.ListBox1.DataSource = Me.TBDD_CONNECTIONBindingSource
         Me.ListBox1.DisplayMember = "BEZEICHNUNG"
-        Me.ListBox1.FormattingEnabled = True
         resources.ApplyResources(Me.ListBox1, "ListBox1")
+        Me.ListBox1.FormattingEnabled = True
         Me.ListBox1.Name = "ListBox1"
         Me.ListBox1.ValueMember = "GUID"
         '
@@ -384,25 +283,12 @@ Partial Class frmConnections
         Me.CheckBoxwin_aut.Name = "CheckBoxwin_aut"
         Me.CheckBoxwin_aut.UseVisualStyleBackColor = True
         '
-        'btnCheck_Con
-        '
-        Me.btnCheck_Con.Image = Global.Global_Indexer.My.Resources.Resources.database_refresh
-        resources.ApplyResources(Me.btnCheck_Con, "btnCheck_Con")
-        Me.btnCheck_Con.Name = "btnCheck_Con"
-        Me.btnCheck_Con.UseVisualStyleBackColor = True
-        '
         'chkOR_ohne_TNS
         '
         resources.ApplyResources(Me.chkOR_ohne_TNS, "chkOR_ohne_TNS")
         Me.chkOR_ohne_TNS.Name = "chkOR_ohne_TNS"
         Me.chkOR_ohne_TNS.UseVisualStyleBackColor = True
         '
-        'lblSave
-        '
-        resources.ApplyResources(Me.lblSave, "lblSave")
-        Me.lblSave.BackColor = System.Drawing.Color.Yellow
-        Me.lblSave.Name = "lblSave"
-        '
         'GUIDTextBox
         '
         Me.GUIDTextBox.BackColor = System.Drawing.Color.WhiteSmoke
@@ -411,21 +297,102 @@ Partial Class frmConnections
         Me.GUIDTextBox.Name = "GUIDTextBox"
         Me.GUIDTextBox.ReadOnly = True
         '
+        'RibbonControl1
+        '
+        Me.RibbonControl1.ExpandCollapseItem.Id = 0
+        Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarButtonItem1, Me.BarButtonItem2, Me.BarButtonItem3, Me.BarButtonItem4, Me.labelStatus, Me.BarButtonItem5})
+        resources.ApplyResources(Me.RibbonControl1, "RibbonControl1")
+        Me.RibbonControl1.MaxItemId = 7
+        Me.RibbonControl1.Name = "RibbonControl1"
+        Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1})
+        Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False]
+        Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1
+        '
+        'BarButtonItem1
+        '
+        resources.ApplyResources(Me.BarButtonItem1, "BarButtonItem1")
+        Me.BarButtonItem1.Id = 1
+        Me.BarButtonItem1.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
+        Me.BarButtonItem1.Name = "BarButtonItem1"
+        '
+        'BarButtonItem2
+        '
+        resources.ApplyResources(Me.BarButtonItem2, "BarButtonItem2")
+        Me.BarButtonItem2.Id = 2
+        Me.BarButtonItem2.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
+        Me.BarButtonItem2.Name = "BarButtonItem2"
+        '
+        'BarButtonItem3
+        '
+        resources.ApplyResources(Me.BarButtonItem3, "BarButtonItem3")
+        Me.BarButtonItem3.Id = 3
+        Me.BarButtonItem3.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem3.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
+        Me.BarButtonItem3.Name = "BarButtonItem3"
+        '
+        'BarButtonItem4
+        '
+        resources.ApplyResources(Me.BarButtonItem4, "BarButtonItem4")
+        Me.BarButtonItem4.Id = 4
+        Me.BarButtonItem4.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem4.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
+        Me.BarButtonItem4.Name = "BarButtonItem4"
+        '
+        'labelStatus
+        '
+        resources.ApplyResources(Me.labelStatus, "labelStatus")
+        Me.labelStatus.Id = 5
+        Me.labelStatus.ImageOptions.SvgImage = CType(resources.GetObject("labelStatus.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
+        Me.labelStatus.Name = "labelStatus"
+        Me.labelStatus.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph
+        '
+        'RibbonPage1
+        '
+        Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1})
+        Me.RibbonPage1.Name = "RibbonPage1"
+        resources.ApplyResources(Me.RibbonPage1, "RibbonPage1")
+        '
+        'RibbonPageGroup1
+        '
+        Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem1)
+        Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem2)
+        Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem3)
+        Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem4)
+        Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem5)
+        Me.RibbonPageGroup1.Name = "RibbonPageGroup1"
+        resources.ApplyResources(Me.RibbonPageGroup1, "RibbonPageGroup1")
+        '
+        'RibbonStatusBar1
+        '
+        Me.RibbonStatusBar1.ItemLinks.Add(Me.labelStatus)
+        resources.ApplyResources(Me.RibbonStatusBar1, "RibbonStatusBar1")
+        Me.RibbonStatusBar1.Name = "RibbonStatusBar1"
+        Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1
+        '
+        'RibbonPage2
+        '
+        Me.RibbonPage2.Name = "RibbonPage2"
+        resources.ApplyResources(Me.RibbonPage2, "RibbonPage2")
+        '
+        'BarButtonItem5
+        '
+        resources.ApplyResources(Me.BarButtonItem5, "BarButtonItem5")
+        Me.BarButtonItem5.Id = 6
+        Me.BarButtonItem5.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem5.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
+        Me.BarButtonItem5.Name = "BarButtonItem5"
+        '
         'frmConnections
         '
+        Me.Appearance.Options.UseFont = True
         resources.ApplyResources(Me, "$this")
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.Controls.Add(Me.ListBox1)
         Me.Controls.Add(Me.GUIDTextBox)
-        Me.Controls.Add(Me.lblSave)
         Me.Controls.Add(Me.chkOR_ohne_TNS)
-        Me.Controls.Add(Me.btnCheck_Con)
         Me.Controls.Add(Me.CheckBoxwin_aut)
         Me.Controls.Add(Me.cmbInitialCatalog)
         Me.Controls.Add(Me.lblPassword)
         Me.Controls.Add(Me.lblUserId)
         Me.Controls.Add(Me.lblInitialCatalog)
         Me.Controls.Add(Me.lblDataSource)
-        Me.Controls.Add(Me.ListBox1)
         Me.Controls.Add(Me.SQL_PROVIDERComboBox)
         Me.Controls.Add(GUIDLabel)
         Me.Controls.Add(BEZEICHNUNGLabel)
@@ -446,18 +413,20 @@ Partial Class frmConnections
         Me.Controls.Add(Me.GEANDERTWERTextBox)
         Me.Controls.Add(GEAENDERTWANNLabel)
         Me.Controls.Add(Me.GEAENDERTWANNTextBox)
-        Me.Controls.Add(Me.TBDD_CONNECTIONBindingNavigator)
         Me.Controls.Add(Me.lblDatenbank)
+        Me.Controls.Add(Me.RibbonStatusBar1)
+        Me.Controls.Add(Me.RibbonControl1)
         Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
+        Me.IconOptions.SvgImage = CType(resources.GetObject("frmConnections.IconOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
         Me.MaximizeBox = False
         Me.MinimizeBox = False
         Me.Name = "frmConnections"
+        Me.Ribbon = Me.RibbonControl1
+        Me.StatusBar = Me.RibbonStatusBar1
         CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.TBDD_CONNECTIONBindingSource,System.ComponentModel.ISupportInitialize).EndInit
+        CType(Me.TBDD_CONNECTIONBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.TBDD_CONNECTIONBindingNavigator,System.ComponentModel.ISupportInitialize).EndInit
+        CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.TBDD_CONNECTIONBindingNavigator.ResumeLayout(false)
+        Me.ResumeLayout(False)
-        Me.TBDD_CONNECTIONBindingNavigator.PerformLayout
-        Me.ResumeLayout(false)
         Me.PerformLayout
 
 End Sub
@@ -465,19 +434,6 @@ End Sub
     Friend WithEvents TBDD_CONNECTIONBindingSource As System.Windows.Forms.BindingSource
     Friend WithEvents TBDD_CONNECTIONTableAdapter As Global_Indexer.MyDatasetTableAdapters.TBDD_CONNECTIONTableAdapter
     Friend WithEvents TableAdapterManager As Global_Indexer.MyDatasetTableAdapters.TableAdapterManager
-    Friend WithEvents TBDD_CONNECTIONBindingNavigator As System.Windows.Forms.BindingNavigator
-    Friend WithEvents BindingNavigatorAddNewItem As System.Windows.Forms.ToolStripButton
-    Friend WithEvents BindingNavigatorCountItem As System.Windows.Forms.ToolStripLabel
-    Friend WithEvents BindingNavigatorDeleteItem As System.Windows.Forms.ToolStripButton
-    Friend WithEvents BindingNavigatorMoveFirstItem As System.Windows.Forms.ToolStripButton
-    Friend WithEvents BindingNavigatorMovePreviousItem As System.Windows.Forms.ToolStripButton
-    Friend WithEvents BindingNavigatorSeparator As System.Windows.Forms.ToolStripSeparator
-    Friend WithEvents BindingNavigatorPositionItem As System.Windows.Forms.ToolStripTextBox
-    Friend WithEvents BindingNavigatorSeparator1 As System.Windows.Forms.ToolStripSeparator
-    Friend WithEvents BindingNavigatorMoveNextItem As System.Windows.Forms.ToolStripButton
-    Friend WithEvents BindingNavigatorMoveLastItem As System.Windows.Forms.ToolStripButton
-    Friend WithEvents BindingNavigatorSeparator2 As System.Windows.Forms.ToolStripSeparator
-    Friend WithEvents TBDD_CONNECTIONBindingNavigatorSaveItem As System.Windows.Forms.ToolStripButton
     Friend WithEvents BEZEICHNUNGTextBox As System.Windows.Forms.TextBox
     Friend WithEvents SERVERTextBox As System.Windows.Forms.TextBox
     Friend WithEvents DATENBANKTextBox As System.Windows.Forms.TextBox
@@ -498,9 +454,17 @@ End Sub
     Friend WithEvents lblDatenbank As System.Windows.Forms.Label
     Friend WithEvents cmbInitialCatalog As System.Windows.Forms.ComboBox
     Friend WithEvents CheckBoxwin_aut As System.Windows.Forms.CheckBox
-    Friend WithEvents btnCheck_Con As System.Windows.Forms.Button
     Friend WithEvents chkOR_ohne_TNS As System.Windows.Forms.CheckBox
-    Friend WithEvents ToolStripButton1 As System.Windows.Forms.ToolStripButton
-    Friend WithEvents lblSave As System.Windows.Forms.Label
     Friend WithEvents GUIDTextBox As System.Windows.Forms.TextBox
+    Friend WithEvents RibbonControl1 As DevExpress.XtraBars.Ribbon.RibbonControl
+    Friend WithEvents RibbonPage1 As DevExpress.XtraBars.Ribbon.RibbonPage
+    Friend WithEvents RibbonPageGroup1 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
+    Friend WithEvents RibbonStatusBar1 As DevExpress.XtraBars.Ribbon.RibbonStatusBar
+    Friend WithEvents RibbonPage2 As DevExpress.XtraBars.Ribbon.RibbonPage
+    Friend WithEvents BarButtonItem1 As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents BarButtonItem2 As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents BarButtonItem3 As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents BarButtonItem4 As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents labelStatus As DevExpress.XtraBars.BarStaticItem
+    Friend WithEvents BarButtonItem5 As DevExpress.XtraBars.BarButtonItem
 End Class

Global_Indexer/frmConnections.vb

@@ -1,7 +1,7 @@
 Imports Oracle.ManagedDataAccess.Client
 Public Class frmConnections
 
-    Private Sub TBDD_CONNECTIONBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs) Handles TBDD_CONNECTIONBindingNavigatorSaveItem.Click
+    Private Sub TBDD_CONNECTIONBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs)
         Try
             Me.Validate()
             Me.TBDD_CONNECTIONBindingSource.EndEdit()
@@ -9,14 +9,14 @@ Public Class frmConnections
                 Me.GEANDERTWERTextBox.Text = Environment.UserName
                 Me.TBDD_CONNECTIONBindingSource.EndEdit()
                 TBDD_CONNECTIONTableAdapter.Update(MyDataset.TBDD_CONNECTION)
-                Me.lblSave.Visible = True
+                Me.labelStatus.Caption = "Verbindung gespeichert!"
             Else
-                Me.lblSave.Visible = False
+                Me.labelStatus.Caption = String.Empty
             End If
         Catch ex As Exception
             MsgBox("Error in Save Connection:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
         End Try
-     
+
     End Sub
 
     Private Sub frmConnections_Load(sender As Object, e As EventArgs) Handles MyBase.Load
@@ -34,7 +34,6 @@ Public Class frmConnections
 
     Private Sub SQL_PROVIDERComboBox_SelectedIndexChanged(sender As Object, e As EventArgs) Handles SQL_PROVIDERComboBox.SelectedIndexChanged
         If Me.SQL_PROVIDERComboBox.SelectedIndex <> -1 Then
-            Me.btnCheck_Con.Visible = True
             CheckBoxwin_aut.Visible = False
             chkOR_ohne_TNS.Visible = False
             Select Case Me.SQL_PROVIDERComboBox.SelectedItem
@@ -144,7 +143,7 @@ Public Class frmConnections
         End If
     End Sub
 
-    Private Sub btnCheck_Con_Click(sender As Object, e As EventArgs) Handles btnCheck_Con.Click
+    Private Sub btnCheck_Con_Click(sender As Object, e As EventArgs)
         Dim msg_string As String
         Try
             If Me.SQL_PROVIDERComboBox.SelectedIndex <> -1 Then
@@ -200,7 +199,7 @@ Public Class frmConnections
                             Dim conn As New OracleConnectionStringBuilder
 
                             If chkOR_ohne_TNS.Checked Then
-                                connstr = "Data Source=(DESCRIPTION=(ADDRESS_LIST=(ADDRESS=(PROTOCOL=TCP)(HOST=" & SERVERTextBox.Text & ")(PORT=1521)))(CONNECT_DATA=(SERVER=DEDICATED)(SERVICE_NAME=" & _
+                                connstr = "Data Source=(DESCRIPTION=(ADDRESS_LIST=(ADDRESS=(PROTOCOL=TCP)(HOST=" & SERVERTextBox.Text & ")(PORT=1521)))(CONNECT_DATA=(SERVER=DEDICATED)(SERVICE_NAME=" &
                                     DATENBANKTextBox.Text & ")));User Id=" & USERNAMETextBox.Text & ";Password=" & PASSWORDTextBox.Text & ";"
                             Else
                                 conn.DataSource = DATENBANKTextBox.Text
@@ -325,12 +324,12 @@ Public Class frmConnections
         Me.MyDataset.TBDD_CONNECTION.ERSTELLTWERColumn.DefaultValue = Environment.UserName
     End Sub
 
-    Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles ToolStripButton1.Click
+    Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs)
         Load_Conns()
     End Sub
 
     Private Sub TBDD_CONNECTIONBindingSource_CurrentChanged(sender As Object, e As EventArgs) Handles TBDD_CONNECTIONBindingSource.CurrentChanged
-        Me.lblSave.Visible = False
+        Me.labelStatus.Caption = String.Empty
     End Sub
 
     Private Sub BEMERKUNGTextBox_TextChanged(sender As Object, e As EventArgs) Handles BEMERKUNGTextBox.TextChanged
@@ -346,4 +345,132 @@ Public Class frmConnections
         Threading.Thread.Sleep(300)
         Load_Conns()
     End Sub
+
+    Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick
+        TBDD_CONNECTIONBindingSource.AddNew()
+    End Sub
+
+    Private Sub BarButtonItem4_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem4.ItemClick
+        Load_Conns()
+    End Sub
+
+    Private Sub BarButtonItem3_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem3.ItemClick
+        Try
+            Me.Validate()
+            Me.TBDD_CONNECTIONBindingSource.EndEdit()
+            If Me.MyDataset.TBDD_CONNECTION.GetChanges Is Nothing = False Then
+                Me.GEANDERTWERTextBox.Text = Environment.UserName
+                Me.TBDD_CONNECTIONBindingSource.EndEdit()
+                TBDD_CONNECTIONTableAdapter.Update(MyDataset.TBDD_CONNECTION)
+                Me.labelStatus.Caption = "Verbindung gespeichert!"
+            Else
+                Me.labelStatus.Caption = String.Empty
+            End If
+        Catch ex As Exception
+            MsgBox("Error in Save Connection:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
+        End Try
+    End Sub
+
+    Private Sub BarButtonItem2_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem2.ItemClick
+        TBDD_CONNECTIONBindingSource.RemoveCurrent()
+    End Sub
+
+    Private Sub BarButtonItem5_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem5.ItemClick
+        Dim msg_string As String
+        Try
+            If Me.SQL_PROVIDERComboBox.SelectedIndex <> -1 Then
+                Cursor = Cursors.WaitCursor
+
+                Select Case Me.SQL_PROVIDERComboBox.SelectedItem
+                    Case "MS-SQL".ToUpper
+                        Dim con As String
+                        If CheckBoxwin_aut.Checked Then
+                            con = "Data Source=" & Me.SERVERTextBox.Text & ";Initial Catalog=" & Me.cmbInitialCatalog.Text & ";Trusted_Connection=True;"
+                        Else
+                            con = "Server=" & Me.SERVERTextBox.Text & ";Database=" & Me.cmbInitialCatalog.Text & ";User Id=" & Me.USERNAMETextBox.Text & ";Password=" & Me.PASSWORDTextBox.Text & ";"
+                        End If
+                        msg_string = con
+                        Dim connection As New SqlClient.SqlConnection(con)
+                        connection.Open()
+                        Cursor = Cursors.Default
+
+
+                        If USER_LANGUAGE = "de-DE" Then
+                            MsgBox("Die SQL-Server Verbindung wurde erfolgreich aufgebaut!", MsgBoxStyle.Information, "Erfolg:")
+                        Else
+                            MsgBox("Connection to Server successfully established!", MsgBoxStyle.Information, "Success:")
+                        End If
+
+
+                        My.Settings.Save()
+                    Case "MS-SQLServer".ToUpper
+                        Dim con As String
+                        If CheckBoxwin_aut.Checked Then
+                            con = "Data Source=" & Me.SERVERTextBox.Text & ";Initial Catalog=" & Me.cmbInitialCatalog.Text & ";Trusted_Connection=True;"
+                        Else
+                            con = "Server=" & Me.SERVERTextBox.Text & ";Database=" & Me.cmbInitialCatalog.Text & ";User Id=" & Me.USERNAMETextBox.Text & ";Password=" & Me.PASSWORDTextBox.Text & ";"
+                        End If
+                        msg_string = con
+                        Dim connection As New SqlClient.SqlConnection(con)
+                        connection.Open()
+                        Cursor = Cursors.Default
+
+
+                        If USER_LANGUAGE = "de-DE" Then
+                            MsgBox("Die SQL-Server Verbindung wurde erfolgreich aufgebaut!", MsgBoxStyle.Information, "Erfolg:")
+                        Else
+                            MsgBox("Connection to Server successfully established!", MsgBoxStyle.Information, "Success:")
+                        End If
+
+
+                        My.Settings.Save()
+                    Case "Oracle"
+                        My.Settings.Save()
+                        Dim connstr As String
+                        Try
+                            Dim conn As New OracleConnectionStringBuilder
+
+                            If chkOR_ohne_TNS.Checked Then
+                                connstr = "Data Source=(DESCRIPTION=(ADDRESS_LIST=(ADDRESS=(PROTOCOL=TCP)(HOST=" & SERVERTextBox.Text & ")(PORT=1521)))(CONNECT_DATA=(SERVER=DEDICATED)(SERVICE_NAME=" &
+                                    DATENBANKTextBox.Text & ")));User Id=" & USERNAMETextBox.Text & ";Password=" & PASSWORDTextBox.Text & ";"
+                            Else
+                                conn.DataSource = DATENBANKTextBox.Text
+                                conn.UserID = USERNAMETextBox.Text
+                                conn.Password = PASSWORDTextBox.Text
+                                conn.PersistSecurityInfo = True
+                                conn.ConnectionTimeout = 120
+                                connstr = conn.ConnectionString
+                            End If
+
+                            Dim connection As New OracleConnection(connstr)
+                            connection.Open()
+
+                            If USER_LANGUAGE = "de-DE" Then
+                                MsgBox("Die SQL-Server Verbindung wurde erfolgreich aufgebaut!", MsgBoxStyle.Information, "Erfolg:")
+                            Else
+                                MsgBox("Connection to Server successfully established!", MsgBoxStyle.Information, "Success:")
+                            End If
+                            My.Settings.Save()
+
+                        Catch ex As Exception
+                            MsgBox(ex.Message & vbNewLine & vbNewLine & connstr, MsgBoxStyle.Critical, "Unexpected error in Verbindungsaufbau Oracle:")
+                        End Try
+
+                    Case Else
+                        If USER_LANGUAGE = "de-DE" Then
+                            MsgBox("Test zur Zeit nicht möglich", MsgBoxStyle.Information, "Achtung:")
+                        Else
+                            MsgBox("Test not available", MsgBoxStyle.Information, "Warning:")
+                        End If
+                End Select
+            End If
+
+
+        Catch ex As Exception
+            Dim template As String = ex.Message
+            Clipboard.SetDataObject(template)
+            MsgBox("Unexpected error inm Verbindungsaufbau: " & vbNewLine & ex.Message & vbNewLine & "Connection-String: " & vbNewLine & msg_string, MsgBoxStyle.Critical)
+        End Try
+        Cursor = Cursors.Default
+    End Sub
 End Class

Global_Indexer/frmEmailIndexing.Designer.vb

@@ -0,0 +1,572 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Class frmEmailIndexing
+    Inherits DevExpress.XtraBars.Ribbon.RibbonForm
+
+    'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
+    <System.Diagnostics.DebuggerNonUserCode()>
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Wird vom Windows Form-Designer benötigt.
+    Private components As System.ComponentModel.IContainer
+
+    'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
+    'Das Bearbeiten ist mit dem Windows Form-Designer möglich.  
+    'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
+    <System.Diagnostics.DebuggerStepThrough()>
+    Private Sub InitializeComponent()
+        Me.components = New System.ComponentModel.Container()
+        Dim GUIDLabel3 As System.Windows.Forms.Label
+        Dim IDX_CHECK_ATTACHMENTLabel As System.Windows.Forms.Label
+        Dim CHANGED_WHENLabel2 As System.Windows.Forms.Label
+        Dim CHANGED_WHOLabel2 As System.Windows.Forms.Label
+        Dim ADDED_WHENLabel2 As System.Windows.Forms.Label
+        Dim ADDED_WHOLabel2 As System.Windows.Forms.Label
+        Dim OBJECTTYPELabel As System.Windows.Forms.Label
+        Dim IDX_EMAIL_DATE_INLabel As System.Windows.Forms.Label
+        Dim IDX_EMAIL_IDLabel As System.Windows.Forms.Label
+        Dim IDX_EMAIL_SUBJECTLabel As System.Windows.Forms.Label
+        Dim IDX_EMAIL_FROMLabel As System.Windows.Forms.Label
+        Dim IDX_EMAIL_TOLabel As System.Windows.Forms.Label
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmEmailIndexing))
+        Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl()
+        Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem()
+        Me.BarButtonItem2 = New DevExpress.XtraBars.BarButtonItem()
+        Me.BarButtonItem3 = New DevExpress.XtraBars.BarButtonItem()
+        Me.BarButtonItem4 = New DevExpress.XtraBars.BarButtonItem()
+        Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage()
+        Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
+        Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
+        Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage()
+        Me.SplitContainerControl1 = New DevExpress.XtraEditors.SplitContainerControl()
+        Me.ListBoxControl1 = New DevExpress.XtraEditors.ListBoxControl()
+        Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.IDX_EMAIL_FROMComboBox = New System.Windows.Forms.ComboBox()
+        Me.TBGI_OBJECTTYPE_EMAIL_INDEXBindingSource = New System.Windows.Forms.BindingSource(Me.components)
+        Me.MyDataset = New Global_Indexer.MyDataset()
+        Me.IDX_CHECK_ATTACHMENTComboBox = New System.Windows.Forms.ComboBox()
+        Me.CHANGED_WHENTextBox2 = New System.Windows.Forms.TextBox()
+        Me.IDX_EMAIL_TOComboBox = New System.Windows.Forms.ComboBox()
+        Me.IDX_EMAIL_IDComboBox = New System.Windows.Forms.ComboBox()
+        Me.CHANGED_WHOTextBox2 = New System.Windows.Forms.TextBox()
+        Me.ADDED_WHENTextBox2 = New System.Windows.Forms.TextBox()
+        Me.IDX_EMAIL_SUBJECTComboBox = New System.Windows.Forms.ComboBox()
+        Me.OBJECTTYPETextBox = New System.Windows.Forms.TextBox()
+        Me.ADDED_WHOTextBox2 = New System.Windows.Forms.TextBox()
+        Me.GUIDTextBox3 = New System.Windows.Forms.TextBox()
+        Me.IDX_EMAIL_DATE_INComboBox = New System.Windows.Forms.ComboBox()
+        Me.TBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter = New Global_Indexer.MyDatasetTableAdapters.TBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter()
+        Me.TableAdapterManager = New Global_Indexer.MyDatasetTableAdapters.TableAdapterManager()
+        Me.TBDD_DOKUMENTARTTableAdapter = New Global_Indexer.MyDatasetTableAdapters.TBDD_DOKUMENTARTTableAdapter()
+        Me.TBDD_DOKUMENTARTBindingSource = New System.Windows.Forms.BindingSource(Me.components)
+        GUIDLabel3 = New System.Windows.Forms.Label()
+        IDX_CHECK_ATTACHMENTLabel = New System.Windows.Forms.Label()
+        CHANGED_WHENLabel2 = New System.Windows.Forms.Label()
+        CHANGED_WHOLabel2 = New System.Windows.Forms.Label()
+        ADDED_WHENLabel2 = New System.Windows.Forms.Label()
+        ADDED_WHOLabel2 = New System.Windows.Forms.Label()
+        OBJECTTYPELabel = New System.Windows.Forms.Label()
+        IDX_EMAIL_DATE_INLabel = New System.Windows.Forms.Label()
+        IDX_EMAIL_IDLabel = New System.Windows.Forms.Label()
+        IDX_EMAIL_SUBJECTLabel = New System.Windows.Forms.Label()
+        IDX_EMAIL_FROMLabel = New System.Windows.Forms.Label()
+        IDX_EMAIL_TOLabel = New System.Windows.Forms.Label()
+        CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.SplitContainerControl1, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SplitContainerControl1.SuspendLayout()
+        CType(Me.ListBoxControl1, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.Panel1.SuspendLayout()
+        CType(Me.TBGI_OBJECTTYPE_EMAIL_INDEXBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TBDD_DOKUMENTARTBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        'GUIDLabel3
+        '
+        GUIDLabel3.AutoSize = True
+        GUIDLabel3.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Italic)
+        GUIDLabel3.ImeMode = System.Windows.Forms.ImeMode.NoControl
+        GUIDLabel3.Location = New System.Drawing.Point(15, 36)
+        GUIDLabel3.Name = "GUIDLabel3"
+        GUIDLabel3.Size = New System.Drawing.Size(23, 17)
+        GUIDLabel3.TabIndex = 82
+        GUIDLabel3.Text = "ID:"
+        '
+        'IDX_CHECK_ATTACHMENTLabel
+        '
+        IDX_CHECK_ATTACHMENTLabel.AutoSize = True
+        IDX_CHECK_ATTACHMENTLabel.Font = New System.Drawing.Font("Segoe UI", 9.75!)
+        IDX_CHECK_ATTACHMENTLabel.ImeMode = System.Windows.Forms.ImeMode.NoControl
+        IDX_CHECK_ATTACHMENTLabel.Location = New System.Drawing.Point(212, 178)
+        IDX_CHECK_ATTACHMENTLabel.Name = "IDX_CHECK_ATTACHMENTLabel"
+        IDX_CHECK_ATTACHMENTLabel.Size = New System.Drawing.Size(304, 17)
+        IDX_CHECK_ATTACHMENTLabel.TabIndex = 104
+        IDX_CHECK_ATTACHMENTLabel.Text = "Indexname für die Markierung: Attachment Ja/Nein"
+        '
+        'CHANGED_WHENLabel2
+        '
+        CHANGED_WHENLabel2.AutoSize = True
+        CHANGED_WHENLabel2.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Italic)
+        CHANGED_WHENLabel2.ImeMode = System.Windows.Forms.ImeMode.NoControl
+        CHANGED_WHENLabel2.Location = New System.Drawing.Point(212, 274)
+        CHANGED_WHENLabel2.Name = "CHANGED_WHENLabel2"
+        CHANGED_WHENLabel2.Size = New System.Drawing.Size(96, 17)
+        CHANGED_WHENLabel2.TabIndex = 102
+        CHANGED_WHENLabel2.Text = "Geändert wann:"
+        '
+        'CHANGED_WHOLabel2
+        '
+        CHANGED_WHOLabel2.AutoSize = True
+        CHANGED_WHOLabel2.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Italic)
+        CHANGED_WHOLabel2.ImeMode = System.Windows.Forms.ImeMode.NoControl
+        CHANGED_WHOLabel2.Location = New System.Drawing.Point(15, 274)
+        CHANGED_WHOLabel2.Name = "CHANGED_WHOLabel2"
+        CHANGED_WHOLabel2.Size = New System.Drawing.Size(89, 17)
+        CHANGED_WHOLabel2.TabIndex = 100
+        CHANGED_WHOLabel2.Text = "Geändert Wer:"
+        '
+        'ADDED_WHENLabel2
+        '
+        ADDED_WHENLabel2.AutoSize = True
+        ADDED_WHENLabel2.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Italic)
+        ADDED_WHENLabel2.ImeMode = System.Windows.Forms.ImeMode.NoControl
+        ADDED_WHENLabel2.Location = New System.Drawing.Point(212, 226)
+        ADDED_WHENLabel2.Name = "ADDED_WHENLabel2"
+        ADDED_WHENLabel2.Size = New System.Drawing.Size(81, 17)
+        ADDED_WHENLabel2.TabIndex = 98
+        ADDED_WHENLabel2.Text = "Erstellt wann:"
+        '
+        'ADDED_WHOLabel2
+        '
+        ADDED_WHOLabel2.AutoSize = True
+        ADDED_WHOLabel2.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Italic)
+        ADDED_WHOLabel2.ImeMode = System.Windows.Forms.ImeMode.NoControl
+        ADDED_WHOLabel2.Location = New System.Drawing.Point(15, 226)
+        ADDED_WHOLabel2.Name = "ADDED_WHOLabel2"
+        ADDED_WHOLabel2.Size = New System.Drawing.Size(74, 17)
+        ADDED_WHOLabel2.TabIndex = 96
+        ADDED_WHOLabel2.Text = "Erstellt Wer:"
+        '
+        'OBJECTTYPELabel
+        '
+        OBJECTTYPELabel.AutoSize = True
+        OBJECTTYPELabel.Font = New System.Drawing.Font("Segoe UI", 9.75!)
+        OBJECTTYPELabel.ImeMode = System.Windows.Forms.ImeMode.NoControl
+        OBJECTTYPELabel.Location = New System.Drawing.Point(106, 36)
+        OBJECTTYPELabel.Name = "OBJECTTYPELabel"
+        OBJECTTYPELabel.Size = New System.Drawing.Size(67, 17)
+        OBJECTTYPELabel.TabIndex = 84
+        OBJECTTYPELabel.Text = "Objekttyp:"
+        '
+        'IDX_EMAIL_DATE_INLabel
+        '
+        IDX_EMAIL_DATE_INLabel.AutoSize = True
+        IDX_EMAIL_DATE_INLabel.Font = New System.Drawing.Font("Segoe UI", 9.75!)
+        IDX_EMAIL_DATE_INLabel.ImeMode = System.Windows.Forms.ImeMode.NoControl
+        IDX_EMAIL_DATE_INLabel.Location = New System.Drawing.Point(15, 178)
+        IDX_EMAIL_DATE_INLabel.Name = "IDX_EMAIL_DATE_INLabel"
+        IDX_EMAIL_DATE_INLabel.Size = New System.Drawing.Size(119, 17)
+        IDX_EMAIL_DATE_INLabel.TabIndex = 94
+        IDX_EMAIL_DATE_INLabel.Text = "Indexname Date In:"
+        '
+        'IDX_EMAIL_IDLabel
+        '
+        IDX_EMAIL_IDLabel.AutoSize = True
+        IDX_EMAIL_IDLabel.Font = New System.Drawing.Font("Segoe UI", 9.75!)
+        IDX_EMAIL_IDLabel.ImeMode = System.Windows.Forms.ImeMode.NoControl
+        IDX_EMAIL_IDLabel.Location = New System.Drawing.Point(15, 84)
+        IDX_EMAIL_IDLabel.Name = "IDX_EMAIL_IDLabel"
+        IDX_EMAIL_IDLabel.Size = New System.Drawing.Size(136, 17)
+        IDX_EMAIL_IDLabel.TabIndex = 86
+        IDX_EMAIL_IDLabel.Text = "Index für Message-ID:"
+        '
+        'IDX_EMAIL_SUBJECTLabel
+        '
+        IDX_EMAIL_SUBJECTLabel.AutoSize = True
+        IDX_EMAIL_SUBJECTLabel.Font = New System.Drawing.Font("Segoe UI", 9.75!)
+        IDX_EMAIL_SUBJECTLabel.ImeMode = System.Windows.Forms.ImeMode.NoControl
+        IDX_EMAIL_SUBJECTLabel.Location = New System.Drawing.Point(212, 132)
+        IDX_EMAIL_SUBJECTLabel.Name = "IDX_EMAIL_SUBJECTLabel"
+        IDX_EMAIL_SUBJECTLabel.Size = New System.Drawing.Size(149, 17)
+        IDX_EMAIL_SUBJECTLabel.TabIndex = 92
+        IDX_EMAIL_SUBJECTLabel.Text = "Indexname Mail Subject:"
+        '
+        'IDX_EMAIL_FROMLabel
+        '
+        IDX_EMAIL_FROMLabel.AutoSize = True
+        IDX_EMAIL_FROMLabel.Font = New System.Drawing.Font("Segoe UI", 9.75!)
+        IDX_EMAIL_FROMLabel.ImeMode = System.Windows.Forms.ImeMode.NoControl
+        IDX_EMAIL_FROMLabel.Location = New System.Drawing.Point(212, 84)
+        IDX_EMAIL_FROMLabel.Name = "IDX_EMAIL_FROMLabel"
+        IDX_EMAIL_FROMLabel.Size = New System.Drawing.Size(135, 17)
+        IDX_EMAIL_FROMLabel.TabIndex = 88
+        IDX_EMAIL_FROMLabel.Text = "Indexname Mail from:"
+        '
+        'IDX_EMAIL_TOLabel
+        '
+        IDX_EMAIL_TOLabel.AutoSize = True
+        IDX_EMAIL_TOLabel.Font = New System.Drawing.Font("Segoe UI", 9.75!)
+        IDX_EMAIL_TOLabel.ImeMode = System.Windows.Forms.ImeMode.NoControl
+        IDX_EMAIL_TOLabel.Location = New System.Drawing.Point(15, 132)
+        IDX_EMAIL_TOLabel.Name = "IDX_EMAIL_TOLabel"
+        IDX_EMAIL_TOLabel.Size = New System.Drawing.Size(121, 17)
+        IDX_EMAIL_TOLabel.TabIndex = 90
+        IDX_EMAIL_TOLabel.Text = "Indexname Mail To:"
+        '
+        'RibbonControl1
+        '
+        Me.RibbonControl1.ExpandCollapseItem.Id = 0
+        Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarButtonItem1, Me.BarButtonItem2, Me.BarButtonItem3, Me.BarButtonItem4})
+        Me.RibbonControl1.Location = New System.Drawing.Point(0, 0)
+        Me.RibbonControl1.MaxItemId = 5
+        Me.RibbonControl1.Name = "RibbonControl1"
+        Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1})
+        Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False]
+        Me.RibbonControl1.Size = New System.Drawing.Size(1043, 158)
+        Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1
+        '
+        'BarButtonItem1
+        '
+        Me.BarButtonItem1.Caption = "Neue Zuordnung"
+        Me.BarButtonItem1.Id = 1
+        Me.BarButtonItem1.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
+        Me.BarButtonItem1.Name = "BarButtonItem1"
+        '
+        'BarButtonItem2
+        '
+        Me.BarButtonItem2.Caption = "Speichern"
+        Me.BarButtonItem2.Id = 2
+        Me.BarButtonItem2.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
+        Me.BarButtonItem2.Name = "BarButtonItem2"
+        '
+        'BarButtonItem3
+        '
+        Me.BarButtonItem3.Caption = "Aktualisieren"
+        Me.BarButtonItem3.Id = 3
+        Me.BarButtonItem3.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem3.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
+        Me.BarButtonItem3.Name = "BarButtonItem3"
+        Me.BarButtonItem3.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.SmallWithText
+        '
+        'BarButtonItem4
+        '
+        Me.BarButtonItem4.Caption = "Löschen"
+        Me.BarButtonItem4.Id = 4
+        Me.BarButtonItem4.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem4.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
+        Me.BarButtonItem4.Name = "BarButtonItem4"
+        Me.BarButtonItem4.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.SmallWithText
+        '
+        'RibbonPage1
+        '
+        Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1})
+        Me.RibbonPage1.Name = "RibbonPage1"
+        Me.RibbonPage1.Text = "Email Indexierung"
+        '
+        'RibbonPageGroup1
+        '
+        Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem1)
+        Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem2)
+        Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem4)
+        Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem3)
+        Me.RibbonPageGroup1.Name = "RibbonPageGroup1"
+        Me.RibbonPageGroup1.Text = "Email-Indexierung"
+        '
+        'RibbonStatusBar1
+        '
+        Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 628)
+        Me.RibbonStatusBar1.Name = "RibbonStatusBar1"
+        Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1
+        Me.RibbonStatusBar1.Size = New System.Drawing.Size(1043, 24)
+        '
+        'RibbonPage2
+        '
+        Me.RibbonPage2.Name = "RibbonPage2"
+        Me.RibbonPage2.Text = "RibbonPage2"
+        '
+        'SplitContainerControl1
+        '
+        Me.SplitContainerControl1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.SplitContainerControl1.Location = New System.Drawing.Point(0, 158)
+        Me.SplitContainerControl1.Name = "SplitContainerControl1"
+        Me.SplitContainerControl1.Panel1.Controls.Add(Me.ListBoxControl1)
+        Me.SplitContainerControl1.Panel1.Text = "Panel1"
+        Me.SplitContainerControl1.Panel2.Controls.Add(Me.Panel1)
+        Me.SplitContainerControl1.Panel2.Text = "Panel2"
+        Me.SplitContainerControl1.Size = New System.Drawing.Size(1043, 470)
+        Me.SplitContainerControl1.SplitterPosition = 224
+        Me.SplitContainerControl1.TabIndex = 2
+        '
+        'ListBoxControl1
+        '
+        Me.ListBoxControl1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.ListBoxControl1.Location = New System.Drawing.Point(0, 0)
+        Me.ListBoxControl1.Name = "ListBoxControl1"
+        Me.ListBoxControl1.Size = New System.Drawing.Size(224, 470)
+        Me.ListBoxControl1.TabIndex = 0
+        '
+        'Panel1
+        '
+        Me.Panel1.Controls.Add(GUIDLabel3)
+        Me.Panel1.Controls.Add(Me.IDX_EMAIL_FROMComboBox)
+        Me.Panel1.Controls.Add(Me.IDX_CHECK_ATTACHMENTComboBox)
+        Me.Panel1.Controls.Add(IDX_EMAIL_TOLabel)
+        Me.Panel1.Controls.Add(Me.CHANGED_WHENTextBox2)
+        Me.Panel1.Controls.Add(IDX_EMAIL_FROMLabel)
+        Me.Panel1.Controls.Add(IDX_CHECK_ATTACHMENTLabel)
+        Me.Panel1.Controls.Add(Me.IDX_EMAIL_TOComboBox)
+        Me.Panel1.Controls.Add(CHANGED_WHENLabel2)
+        Me.Panel1.Controls.Add(Me.IDX_EMAIL_IDComboBox)
+        Me.Panel1.Controls.Add(Me.CHANGED_WHOTextBox2)
+        Me.Panel1.Controls.Add(IDX_EMAIL_SUBJECTLabel)
+        Me.Panel1.Controls.Add(CHANGED_WHOLabel2)
+        Me.Panel1.Controls.Add(IDX_EMAIL_IDLabel)
+        Me.Panel1.Controls.Add(Me.ADDED_WHENTextBox2)
+        Me.Panel1.Controls.Add(Me.IDX_EMAIL_SUBJECTComboBox)
+        Me.Panel1.Controls.Add(ADDED_WHENLabel2)
+        Me.Panel1.Controls.Add(Me.OBJECTTYPETextBox)
+        Me.Panel1.Controls.Add(Me.ADDED_WHOTextBox2)
+        Me.Panel1.Controls.Add(IDX_EMAIL_DATE_INLabel)
+        Me.Panel1.Controls.Add(ADDED_WHOLabel2)
+        Me.Panel1.Controls.Add(OBJECTTYPELabel)
+        Me.Panel1.Controls.Add(Me.GUIDTextBox3)
+        Me.Panel1.Controls.Add(Me.IDX_EMAIL_DATE_INComboBox)
+        Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.Panel1.Location = New System.Drawing.Point(0, 0)
+        Me.Panel1.Name = "Panel1"
+        Me.Panel1.Size = New System.Drawing.Size(809, 470)
+        Me.Panel1.TabIndex = 106
+        '
+        'IDX_EMAIL_FROMComboBox
+        '
+        Me.IDX_EMAIL_FROMComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBGI_OBJECTTYPE_EMAIL_INDEXBindingSource, "IDX_EMAIL_FROM", True))
+        Me.IDX_EMAIL_FROMComboBox.Enabled = False
+        Me.IDX_EMAIL_FROMComboBox.Font = New System.Drawing.Font("Segoe UI", 9.75!)
+        Me.IDX_EMAIL_FROMComboBox.FormattingEnabled = True
+        Me.IDX_EMAIL_FROMComboBox.Location = New System.Drawing.Point(215, 104)
+        Me.IDX_EMAIL_FROMComboBox.Name = "IDX_EMAIL_FROMComboBox"
+        Me.IDX_EMAIL_FROMComboBox.Size = New System.Drawing.Size(189, 25)
+        Me.IDX_EMAIL_FROMComboBox.TabIndex = 89
+        '
+        'TBGI_OBJECTTYPE_EMAIL_INDEXBindingSource
+        '
+        Me.TBGI_OBJECTTYPE_EMAIL_INDEXBindingSource.DataMember = "TBGI_OBJECTTYPE_EMAIL_INDEX"
+        Me.TBGI_OBJECTTYPE_EMAIL_INDEXBindingSource.DataSource = Me.MyDataset
+        '
+        'MyDataset
+        '
+        Me.MyDataset.DataSetName = "MyDataset"
+        Me.MyDataset.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
+        '
+        'IDX_CHECK_ATTACHMENTComboBox
+        '
+        Me.IDX_CHECK_ATTACHMENTComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBGI_OBJECTTYPE_EMAIL_INDEXBindingSource, "IDX_CHECK_ATTACHMENT", True))
+        Me.IDX_CHECK_ATTACHMENTComboBox.Enabled = False
+        Me.IDX_CHECK_ATTACHMENTComboBox.Font = New System.Drawing.Font("Segoe UI", 9.75!)
+        Me.IDX_CHECK_ATTACHMENTComboBox.FormattingEnabled = True
+        Me.IDX_CHECK_ATTACHMENTComboBox.Location = New System.Drawing.Point(215, 198)
+        Me.IDX_CHECK_ATTACHMENTComboBox.Name = "IDX_CHECK_ATTACHMENTComboBox"
+        Me.IDX_CHECK_ATTACHMENTComboBox.Size = New System.Drawing.Size(189, 25)
+        Me.IDX_CHECK_ATTACHMENTComboBox.TabIndex = 105
+        '
+        'CHANGED_WHENTextBox2
+        '
+        Me.CHANGED_WHENTextBox2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBGI_OBJECTTYPE_EMAIL_INDEXBindingSource, "CHANGED_WHEN", True))
+        Me.CHANGED_WHENTextBox2.Enabled = False
+        Me.CHANGED_WHENTextBox2.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Italic)
+        Me.CHANGED_WHENTextBox2.Location = New System.Drawing.Point(215, 294)
+        Me.CHANGED_WHENTextBox2.Name = "CHANGED_WHENTextBox2"
+        Me.CHANGED_WHENTextBox2.ReadOnly = True
+        Me.CHANGED_WHENTextBox2.Size = New System.Drawing.Size(189, 25)
+        Me.CHANGED_WHENTextBox2.TabIndex = 103
+        '
+        'IDX_EMAIL_TOComboBox
+        '
+        Me.IDX_EMAIL_TOComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBGI_OBJECTTYPE_EMAIL_INDEXBindingSource, "IDX_EMAIL_TO", True))
+        Me.IDX_EMAIL_TOComboBox.Enabled = False
+        Me.IDX_EMAIL_TOComboBox.Font = New System.Drawing.Font("Segoe UI", 9.75!)
+        Me.IDX_EMAIL_TOComboBox.FormattingEnabled = True
+        Me.IDX_EMAIL_TOComboBox.Location = New System.Drawing.Point(18, 150)
+        Me.IDX_EMAIL_TOComboBox.Name = "IDX_EMAIL_TOComboBox"
+        Me.IDX_EMAIL_TOComboBox.Size = New System.Drawing.Size(189, 25)
+        Me.IDX_EMAIL_TOComboBox.TabIndex = 91
+        '
+        'IDX_EMAIL_IDComboBox
+        '
+        Me.IDX_EMAIL_IDComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBGI_OBJECTTYPE_EMAIL_INDEXBindingSource, "IDX_EMAIL_ID", True))
+        Me.IDX_EMAIL_IDComboBox.Enabled = False
+        Me.IDX_EMAIL_IDComboBox.Font = New System.Drawing.Font("Segoe UI", 9.75!)
+        Me.IDX_EMAIL_IDComboBox.FormattingEnabled = True
+        Me.IDX_EMAIL_IDComboBox.Location = New System.Drawing.Point(18, 104)
+        Me.IDX_EMAIL_IDComboBox.Name = "IDX_EMAIL_IDComboBox"
+        Me.IDX_EMAIL_IDComboBox.Size = New System.Drawing.Size(189, 25)
+        Me.IDX_EMAIL_IDComboBox.TabIndex = 87
+        '
+        'CHANGED_WHOTextBox2
+        '
+        Me.CHANGED_WHOTextBox2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBGI_OBJECTTYPE_EMAIL_INDEXBindingSource, "CHANGED_WHO", True))
+        Me.CHANGED_WHOTextBox2.Enabled = False
+        Me.CHANGED_WHOTextBox2.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Italic)
+        Me.CHANGED_WHOTextBox2.Location = New System.Drawing.Point(18, 294)
+        Me.CHANGED_WHOTextBox2.Name = "CHANGED_WHOTextBox2"
+        Me.CHANGED_WHOTextBox2.ReadOnly = True
+        Me.CHANGED_WHOTextBox2.Size = New System.Drawing.Size(189, 25)
+        Me.CHANGED_WHOTextBox2.TabIndex = 101
+        '
+        'ADDED_WHENTextBox2
+        '
+        Me.ADDED_WHENTextBox2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBGI_OBJECTTYPE_EMAIL_INDEXBindingSource, "ADDED_WHEN", True))
+        Me.ADDED_WHENTextBox2.Enabled = False
+        Me.ADDED_WHENTextBox2.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Italic)
+        Me.ADDED_WHENTextBox2.Location = New System.Drawing.Point(215, 246)
+        Me.ADDED_WHENTextBox2.Name = "ADDED_WHENTextBox2"
+        Me.ADDED_WHENTextBox2.ReadOnly = True
+        Me.ADDED_WHENTextBox2.Size = New System.Drawing.Size(189, 25)
+        Me.ADDED_WHENTextBox2.TabIndex = 99
+        '
+        'IDX_EMAIL_SUBJECTComboBox
+        '
+        Me.IDX_EMAIL_SUBJECTComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBGI_OBJECTTYPE_EMAIL_INDEXBindingSource, "IDX_EMAIL_SUBJECT", True))
+        Me.IDX_EMAIL_SUBJECTComboBox.Enabled = False
+        Me.IDX_EMAIL_SUBJECTComboBox.Font = New System.Drawing.Font("Segoe UI", 9.75!)
+        Me.IDX_EMAIL_SUBJECTComboBox.FormattingEnabled = True
+        Me.IDX_EMAIL_SUBJECTComboBox.Location = New System.Drawing.Point(215, 150)
+        Me.IDX_EMAIL_SUBJECTComboBox.Name = "IDX_EMAIL_SUBJECTComboBox"
+        Me.IDX_EMAIL_SUBJECTComboBox.Size = New System.Drawing.Size(189, 25)
+        Me.IDX_EMAIL_SUBJECTComboBox.TabIndex = 93
+        '
+        'OBJECTTYPETextBox
+        '
+        Me.OBJECTTYPETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBGI_OBJECTTYPE_EMAIL_INDEXBindingSource, "OBJECTTYPE", True))
+        Me.OBJECTTYPETextBox.Enabled = False
+        Me.OBJECTTYPETextBox.Font = New System.Drawing.Font("Segoe UI", 9.75!)
+        Me.OBJECTTYPETextBox.Location = New System.Drawing.Point(109, 56)
+        Me.OBJECTTYPETextBox.Name = "OBJECTTYPETextBox"
+        Me.OBJECTTYPETextBox.ReadOnly = True
+        Me.OBJECTTYPETextBox.Size = New System.Drawing.Size(291, 25)
+        Me.OBJECTTYPETextBox.TabIndex = 85
+        '
+        'ADDED_WHOTextBox2
+        '
+        Me.ADDED_WHOTextBox2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBGI_OBJECTTYPE_EMAIL_INDEXBindingSource, "ADDED_WHO", True))
+        Me.ADDED_WHOTextBox2.Enabled = False
+        Me.ADDED_WHOTextBox2.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Italic)
+        Me.ADDED_WHOTextBox2.Location = New System.Drawing.Point(18, 246)
+        Me.ADDED_WHOTextBox2.Name = "ADDED_WHOTextBox2"
+        Me.ADDED_WHOTextBox2.ReadOnly = True
+        Me.ADDED_WHOTextBox2.Size = New System.Drawing.Size(189, 25)
+        Me.ADDED_WHOTextBox2.TabIndex = 97
+        '
+        'GUIDTextBox3
+        '
+        Me.GUIDTextBox3.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBGI_OBJECTTYPE_EMAIL_INDEXBindingSource, "GUID", True))
+        Me.GUIDTextBox3.Enabled = False
+        Me.GUIDTextBox3.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Italic)
+        Me.GUIDTextBox3.Location = New System.Drawing.Point(18, 56)
+        Me.GUIDTextBox3.Name = "GUIDTextBox3"
+        Me.GUIDTextBox3.ReadOnly = True
+        Me.GUIDTextBox3.Size = New System.Drawing.Size(71, 25)
+        Me.GUIDTextBox3.TabIndex = 83
+        '
+        'IDX_EMAIL_DATE_INComboBox
+        '
+        Me.IDX_EMAIL_DATE_INComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBGI_OBJECTTYPE_EMAIL_INDEXBindingSource, "IDX_EMAIL_DATE_IN", True))
+        Me.IDX_EMAIL_DATE_INComboBox.Enabled = False
+        Me.IDX_EMAIL_DATE_INComboBox.Font = New System.Drawing.Font("Segoe UI", 9.75!)
+        Me.IDX_EMAIL_DATE_INComboBox.FormattingEnabled = True
+        Me.IDX_EMAIL_DATE_INComboBox.Location = New System.Drawing.Point(18, 198)
+        Me.IDX_EMAIL_DATE_INComboBox.Name = "IDX_EMAIL_DATE_INComboBox"
+        Me.IDX_EMAIL_DATE_INComboBox.Size = New System.Drawing.Size(189, 25)
+        Me.IDX_EMAIL_DATE_INComboBox.TabIndex = 95
+        '
+        'TBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter
+        '
+        Me.TBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter.ClearBeforeFill = True
+        '
+        'TableAdapterManager
+        '
+        Me.TableAdapterManager.BackupDataSetBeforeUpdate = False
+        Me.TableAdapterManager.TBDD_CONNECTIONTableAdapter = Nothing
+        Me.TableAdapterManager.TBDD_DOKUMENTARTTableAdapter = Me.TBDD_DOKUMENTARTTableAdapter
+        Me.TableAdapterManager.TBDD_EINGANGSARTENTableAdapter = Nothing
+        Me.TableAdapterManager.TBDD_GROUPS_USERTableAdapter = Nothing
+        Me.TableAdapterManager.TBDD_INDEX_AUTOMTableAdapter = Nothing
+        Me.TableAdapterManager.TBDD_INDEX_MAN_POSTPROCESSINGTableAdapter = Nothing
+        Me.TableAdapterManager.TBDD_INDEX_MANTableAdapter = Nothing
+        Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing
+        Me.TableAdapterManager.TBGI_CONFIGURATIONTableAdapter = Nothing
+        Me.TableAdapterManager.TBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter = Me.TBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter
+        Me.TableAdapterManager.TBGI_REGEX_DOCTYPETableAdapter = Nothing
+        Me.TableAdapterManager.UpdateOrder = Global_Indexer.MyDatasetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete
+        '
+        'TBDD_DOKUMENTARTTableAdapter
+        '
+        Me.TBDD_DOKUMENTARTTableAdapter.ClearBeforeFill = True
+        '
+        'TBDD_DOKUMENTARTBindingSource
+        '
+        Me.TBDD_DOKUMENTARTBindingSource.DataMember = "TBDD_DOKUMENTART"
+        Me.TBDD_DOKUMENTARTBindingSource.DataSource = Me.MyDataset
+        '
+        'frmEmailIndexing
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(1043, 652)
+        Me.Controls.Add(Me.SplitContainerControl1)
+        Me.Controls.Add(Me.RibbonStatusBar1)
+        Me.Controls.Add(Me.RibbonControl1)
+        Me.Name = "frmEmailIndexing"
+        Me.Ribbon = Me.RibbonControl1
+        Me.StatusBar = Me.RibbonStatusBar1
+        Me.Text = "Email Indexierung"
+        CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.SplitContainerControl1, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.SplitContainerControl1.ResumeLayout(False)
+        CType(Me.ListBoxControl1, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.Panel1.ResumeLayout(False)
+        Me.Panel1.PerformLayout()
+        CType(Me.TBGI_OBJECTTYPE_EMAIL_INDEXBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TBDD_DOKUMENTARTBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+
+    Friend WithEvents RibbonControl1 As DevExpress.XtraBars.Ribbon.RibbonControl
+    Friend WithEvents RibbonPage1 As DevExpress.XtraBars.Ribbon.RibbonPage
+    Friend WithEvents RibbonPageGroup1 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
+    Friend WithEvents RibbonStatusBar1 As DevExpress.XtraBars.Ribbon.RibbonStatusBar
+    Friend WithEvents RibbonPage2 As DevExpress.XtraBars.Ribbon.RibbonPage
+    Friend WithEvents SplitContainerControl1 As DevExpress.XtraEditors.SplitContainerControl
+    Friend WithEvents ListBoxControl1 As DevExpress.XtraEditors.ListBoxControl
+    Friend WithEvents IDX_CHECK_ATTACHMENTComboBox As ComboBox
+    Friend WithEvents CHANGED_WHENTextBox2 As TextBox
+    Friend WithEvents CHANGED_WHOTextBox2 As TextBox
+    Friend WithEvents ADDED_WHENTextBox2 As TextBox
+    Friend WithEvents ADDED_WHOTextBox2 As TextBox
+    Friend WithEvents GUIDTextBox3 As TextBox
+    Friend WithEvents IDX_EMAIL_DATE_INComboBox As ComboBox
+    Friend WithEvents OBJECTTYPETextBox As TextBox
+    Friend WithEvents IDX_EMAIL_SUBJECTComboBox As ComboBox
+    Friend WithEvents IDX_EMAIL_IDComboBox As ComboBox
+    Friend WithEvents IDX_EMAIL_TOComboBox As ComboBox
+    Friend WithEvents IDX_EMAIL_FROMComboBox As ComboBox
+    Friend WithEvents BarButtonItem1 As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents BarButtonItem2 As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents BarButtonItem3 As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents BarButtonItem4 As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents MyDataset As MyDataset
+    Friend WithEvents TBGI_OBJECTTYPE_EMAIL_INDEXBindingSource As BindingSource
+    Friend WithEvents TBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter As MyDatasetTableAdapters.TBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter
+    Friend WithEvents TableAdapterManager As MyDatasetTableAdapters.TableAdapterManager
+    Friend WithEvents TBDD_DOKUMENTARTTableAdapter As MyDatasetTableAdapters.TBDD_DOKUMENTARTTableAdapter
+    Friend WithEvents TBDD_DOKUMENTARTBindingSource As BindingSource
+    Friend WithEvents Panel1 As Panel
+End Class

Global_Indexer/frmEmailIndexing.resx

@@ -0,0 +1,249 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <metadata name="GUIDLabel3.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>False</value>
+  </metadata>
+  <metadata name="IDX_CHECK_ATTACHMENTLabel.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>False</value>
+  </metadata>
+  <metadata name="CHANGED_WHENLabel2.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>False</value>
+  </metadata>
+  <metadata name="CHANGED_WHOLabel2.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>False</value>
+  </metadata>
+  <metadata name="ADDED_WHENLabel2.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>False</value>
+  </metadata>
+  <metadata name="ADDED_WHOLabel2.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>False</value>
+  </metadata>
+  <metadata name="OBJECTTYPELabel.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>False</value>
+  </metadata>
+  <metadata name="IDX_EMAIL_DATE_INLabel.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>False</value>
+  </metadata>
+  <metadata name="IDX_EMAIL_IDLabel.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>False</value>
+  </metadata>
+  <metadata name="IDX_EMAIL_SUBJECTLabel.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>False</value>
+  </metadata>
+  <metadata name="IDX_EMAIL_FROMLabel.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>False</value>
+  </metadata>
+  <metadata name="IDX_EMAIL_TOLabel.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>False</value>
+  </metadata>
+  <assembly alias="DevExpress.Data.v19.2" name="DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
+  <data name="BarButtonItem1.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
+        LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
+        dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAGICAAAC77u/
+        PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
+        IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
+        MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
+        Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
+        MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5Z
+        ZWxsb3d7ZmlsbDojRkZCMTE1O30KCS5CbGFja3tmaWxsOiM3MjcyNzI7fQoJLkdyZWVue2ZpbGw6IzAz
+        OUMyMzt9CgkuUmVke2ZpbGw6I0QxMUMxQzt9Cgkuc3Qwe29wYWNpdHk6MC43NTt9Cgkuc3Qxe29wYWNp
+        dHk6MC41O30KPC9zdHlsZT4NCiAgPGcgaWQ9IkFkZENpcmNsZWQiPg0KICAgIDxwYXRoIGQ9Ik0xNiw0
+        QzkuNCw0LDQsOS40LDQsMTZzNS40LDEyLDEyLDEyczEyLTUuNCwxMi0xMlMyMi42LDQsMTYsNHogTTI0
+        LDE4aC02djZoLTR2LTZIOHYtNGg2VjhoNHY2aDZWMTh6IiBjbGFzcz0iR3JlZW4iIC8+DQogIDwvZz4N
+        Cjwvc3ZnPgs=
+</value>
+  </data>
+  <data name="BarButtonItem2.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
+        LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
+        dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAO4BAAAC77u/
+        PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
+        IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
+        MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
+        Y2U9InByZXNlcnZlIiBpZD0iU2F2ZSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAgMzIg
+        MzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9Cjwvc3R5
+        bGU+DQogIDxwYXRoIGQ9Ik0yNyw0aC0zdjEwSDhWNEg1QzQuNCw0LDQsNC40LDQsNXYyMmMwLDAuNiww
+        LjQsMSwxLDFoMjJjMC42LDAsMS0wLjQsMS0xVjVDMjgsNC40LDI3LjYsNCwyNyw0eiBNMjQsMjRIOHYt
+        NiAgaDE2VjI0eiBNMTAsNHY4aDEwVjRIMTB6IE0xNCwxMGgtMlY2aDJWMTB6IiBjbGFzcz0iQmxhY2si
+        IC8+DQo8L3N2Zz4L
+</value>
+  </data>
+  <data name="BarButtonItem3.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
+        LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
+        dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAC4DAAAC77u/
+        PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
+        IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
+        MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
+        Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
+        MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5Z
+        ZWxsb3d7ZmlsbDojRkZCMTE1O30KCS5CbGFja3tmaWxsOiM3MjcyNzI7fQoJLkdyZWVue2ZpbGw6IzAz
+        OUMyMzt9CgkuUmVke2ZpbGw6I0QxMUMxQzt9Cgkuc3Qwe29wYWNpdHk6MC43NTt9Cgkuc3Qxe29wYWNp
+        dHk6MC41O30KPC9zdHlsZT4NCiAgPGcgaWQ9IlJlZnJlc2hfMV8iPg0KICAgIDxwYXRoIGQ9Ik0yNC41
+        LDcuNUMyMi4zLDUuMywxOS4zLDQsMTYsNEMxMC4xLDQsNS4xLDguMyw0LjIsMTRoNC4xYzAuOS0zLjQs
+        NC02LDcuNy02YzIuMiwwLDQuMiwwLjksNS42LDIuNEwxOCwxNCAgIGg1LjdoNC4xSDI4VjRMMjQuNSw3
+        LjV6IiBjbGFzcz0iR3JlZW4iIC8+DQogICAgPHBhdGggZD0iTTE2LjIsMjRjLTIuMiwwLTQuMi0wLjkt
+        NS42LTIuNGwzLjYtMy42SDguNEg0LjRINC4ydjEwbDMuNS0zLjVjMi4yLDIuMiw1LjIsMy41LDguNSwz
+        LjUgICBDMjIuMSwyOCwyNywyMy43LDI4LDE4aC00LjFDMjMsMjEuNCwxOS45LDI0LDE2LjIsMjR6IiBj
+        bGFzcz0iR3JlZW4iIC8+DQogIDwvZz4NCjwvc3ZnPgs=
+</value>
+  </data>
+  <data name="BarButtonItem4.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
+        LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
+        dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAALMCAAAC77u/
+        PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
+        IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
+        MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
+        Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
+        MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5Z
+        ZWxsb3d7ZmlsbDojRkZCMTE1O30KCS5CbGFja3tmaWxsOiM3MjcyNzI7fQoJLkdyZWVue2ZpbGw6IzAz
+        OUMyMzt9CgkuUmVke2ZpbGw6I0QxMUMxQzt9Cgkuc3Qwe29wYWNpdHk6MC43NTt9Cgkuc3Qxe29wYWNp
+        dHk6MC41O30KPC9zdHlsZT4NCiAgPGcgaWQ9IkRlbGV0ZUNpcmNsZWQiPg0KICAgIDxwYXRoIGQ9Ik0x
+        Niw0QzkuNCw0LDQsOS40LDQsMTZzNS40LDEyLDEyLDEyczEyLTUuNCwxMi0xMlMyMi42LDQsMTYsNHog
+        TTIzLjEsMjAuMmwtMi44LDIuOEwxNiwxOC44bC00LjIsNC4yICAgbC0yLjgtMi44bDQuMi00LjJsLTQu
+        Mi00LjJsMi44LTIuOGw0LjIsNC4ybDQuMi00LjJsMi44LDIuOEwxOC44LDE2TDIzLjEsMjAuMnoiIGNs
+        YXNzPSJSZWQiIC8+DQogIDwvZz4NCjwvc3ZnPgs=
+</value>
+  </data>
+  <metadata name="TBGI_OBJECTTYPE_EMAIL_INDEXBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>127, 17</value>
+  </metadata>
+  <metadata name="MyDataset.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 17</value>
+  </metadata>
+  <metadata name="TBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>435, 17</value>
+  </metadata>
+  <metadata name="TableAdapterManager.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>737, 17</value>
+  </metadata>
+  <metadata name="TBDD_DOKUMENTARTTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>1165, 17</value>
+  </metadata>
+  <metadata name="TBDD_DOKUMENTARTBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>910, 17</value>
+  </metadata>
+</root>

Global_Indexer/frmEmailIndexing.vb

@@ -0,0 +1,134 @@
+Imports System.ComponentModel
+
+Public Class frmEmailIndexing
+    Private SourceAttributes As List(Of String)
+    Private SourceObjectTypes As List(Of String)
+
+    Private Sub frmEmailIndexing_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        Try
+            TBDD_DOKUMENTARTTableAdapter.Connection.ConnectionString = MyConnectionString
+            TBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter.Connection.ConnectionString = MyConnectionString
+
+            TBDD_DOKUMENTARTTableAdapter.Fill(MyDataset.TBDD_DOKUMENTART)
+            ObjektTypenEintragen()
+        Catch ex As Exception
+            LOGGER.Error(ex)
+        End Try
+    End Sub
+
+    Private Sub LoadCurrentIndiciesForObjectType(ObjectType As String)
+        Try
+            TBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter.Fill(MyDataset.TBGI_OBJECTTYPE_EMAIL_INDEX, ObjectType)
+        Catch ex As Exception
+            MsgBox("Error in LoadIDXEmail:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
+        End Try
+    End Sub
+
+    Private Sub ListBoxControl1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBoxControl1.SelectedIndexChanged
+        If ListBoxControl1.SelectedIndex <> -1 Then
+            LoadCurrentIndiciesForObjectType(ListBoxControl1.SelectedItem)
+            LoadAvailableIndiciesForObjectType(ListBoxControl1.SelectedItem)
+            EnableControls(Panel1)
+        End If
+    End Sub
+
+    'Private Sub TBGI_OBJECTTYPE_EMAIL_INDEXBindingSource_CurrentChanged(sender As Object, e As EventArgs) Handles TBGI_OBJECTTYPE_EMAIL_INDEXBindingSource.CurrentChanged
+    '    If ListBoxControl1.SelectedIndex <> -1 Then
+    '        LoadCurrentIndiciesForObjectType(ListBoxControl1.SelectedItem)
+    '        LoadAvailableIndiciesForObjectType(ListBoxControl1.SelectedItem)
+    '        EnableControls(Panel1)
+    '    End If
+    'End Sub
+
+
+    Private Sub EnableControls(Panel As Panel)
+        For Each oControl As Control In Panel.Controls
+            oControl.Enabled = True
+        Next
+    End Sub
+
+
+    Sub LoadAvailableIndiciesForObjectType(Otype As String)
+        Try
+            IDX_EMAIL_DATE_INComboBox.Items.Clear()
+            IDX_EMAIL_FROMComboBox.Items.Clear()
+            IDX_EMAIL_IDComboBox.Items.Clear()
+            IDX_EMAIL_SUBJECTComboBox.Items.Clear()
+            IDX_EMAIL_TOComboBox.Items.Clear()
+            IDX_CHECK_ATTACHMENTComboBox.Items.Clear()
+            If SourceAttributes Is Nothing Then
+                SourceAttributes = WINDREAM.GetIndiciesByObjecttype(Otype)
+            End If
+
+            If SourceAttributes IsNot Nothing Then
+                For Each index As String In SourceAttributes
+                    Select Case WINDREAM.GetIndexType(index)
+                        Case 4 'Boolean
+                            Me.IDX_CHECK_ATTACHMENTComboBox.Items.Add(index)
+                        Case Else
+                            Me.IDX_EMAIL_DATE_INComboBox.Items.Add(index)
+                            Me.IDX_EMAIL_FROMComboBox.Items.Add(index)
+                            Me.IDX_EMAIL_IDComboBox.Items.Add(index)
+                            Me.IDX_EMAIL_SUBJECTComboBox.Items.Add(index)
+                            Me.IDX_EMAIL_TOComboBox.Items.Add(index)
+                    End Select
+                Next
+            End If
+        Catch ex As Exception
+            MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in load_WDIndicesemail: ")
+        End Try
+    End Sub
+
+    Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick
+        Me.TBGI_OBJECTTYPE_EMAIL_INDEXBindingSource.AddNew()
+    End Sub
+
+    Private Sub BarButtonItem2_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem2.ItemClick
+        Try
+            Me.TBGI_OBJECTTYPE_EMAIL_INDEXBindingSource.EndEdit()
+            If MyDataset.TBGI_OBJECTTYPE_EMAIL_INDEX.GetChanges Is Nothing = False Then
+                CHANGED_WHOTextBox2.Text = Environment.UserName
+                TBGI_OBJECTTYPE_EMAIL_INDEXBindingSource.EndEdit()
+                TBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter.Update(MyDataset.TBGI_OBJECTTYPE_EMAIL_INDEX)
+            End If
+        Catch ex As Exception
+            LOGGER.Error(ex)
+            MsgBox("Fehler beim Speichern der E-Mail Einstellungen:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, Text)
+        End Try
+    End Sub
+
+    Private Sub BarButtonItem4_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem4.ItemClick
+        Try
+            Dim oSQL = $"DELETE FROM TBGI_OBJECTTYPE_EMAIL_INDEX WHERE OBJECTTYPE = '{OBJECTTYPETextBox.Text}'"
+            ClassDatabase.Execute_non_Query(oSQL)
+            TBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter.Fill(MyDataset.TBGI_OBJECTTYPE_EMAIL_INDEX, OBJECTTYPETextBox.Text)
+        Catch ex As Exception
+            LOGGER.Error(ex)
+            MsgBox("Fehler beim Löschen der E-Mail Einstellungen:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, Text)
+        End Try
+    End Sub
+
+    Private Sub BarButtonItem3_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem3.ItemClick
+        ObjektTypenEintragen()
+    End Sub
+
+    Private Sub ObjektTypenEintragen()
+        Try
+            ListBoxControl1.Items.Clear()
+            If SourceObjectTypes Is Nothing Then
+                SourceObjectTypes = WINDREAM.ObjectTypes
+            End If
+
+            For Each otype As String In SourceObjectTypes
+                ListBoxControl1.Items.Add(otype)
+            Next
+        Catch ex As Exception
+            MsgBox("Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Unexpected error inm Eintragen der Objekttypen")
+        End Try
+    End Sub
+
+    Private Sub TBGI_OBJECTTYPE_EMAIL_INDEXBindingSource_AddingNew(sender As Object, e As AddingNewEventArgs) Handles TBGI_OBJECTTYPE_EMAIL_INDEXBindingSource.AddingNew
+        MyDataset.TBGI_OBJECTTYPE_EMAIL_INDEX.ADDED_WHOColumn.DefaultValue = Environment.UserName
+        MyDataset.TBGI_OBJECTTYPE_EMAIL_INDEX.OBJECTTYPEColumn.DefaultValue = ListBoxControl1.Text
+    End Sub
+End Class

Global_Indexer/frmHistory.Designer.vb

@@ -164,15 +164,9 @@ Partial Class frmHistory
         Me.TableAdapterManager.TBDD_INDEX_AUTOMTableAdapter = Nothing
         Me.TableAdapterManager.TBDD_INDEX_MAN_POSTPROCESSINGTableAdapter = Nothing
         Me.TableAdapterManager.TBDD_INDEX_MANTableAdapter = Nothing
-        Me.TableAdapterManager.TBDD_GROUPSTableAdapter = Nothing
         Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing
         Me.TableAdapterManager.TBGI_CONFIGURATIONTableAdapter = Nothing
         Me.TableAdapterManager.TBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter = Nothing
-        Me.TableAdapterManager.TBHOTKEY_PATTERNS_REWORKTableAdapter = Nothing
-        Me.TableAdapterManager.TBHOTKEY_PATTERNSTableAdapter = Nothing
-        Me.TableAdapterManager.TBHOTKEY_PROFILETableAdapter = Nothing
-        Me.TableAdapterManager.TBHOTKEY_USER_PROFILETableAdapter = Nothing
-        Me.TableAdapterManager.TBHOTKEY_WINDOW_HOOKTableAdapter = Nothing
         Me.TableAdapterManager.UpdateOrder = Global_Indexer.MyDatasetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete
         '
         'GridControl1

Global_Indexer/frmHistory.resx.bak

@@ -1,574 +0,0 @@
-<?xml version="1.0" encoding="utf-8"?>
-<root>
-  <!-- 
-    Microsoft ResX Schema 
-    
-    Version 2.0
-    
-    The primary goals of this format is to allow a simple XML format 
-    that is mostly human readable. The generation and parsing of the 
-    various data types are done through the TypeConverter classes 
-    associated with the data types.
-    
-    Example:
-    
-    ... ado.net/XML headers & schema ...
-    <resheader name="resmimetype">text/microsoft-resx</resheader>
-    <resheader name="version">2.0</resheader>
-    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
-    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
-    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
-    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
-    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
-        <value>[base64 mime encoded serialized .NET Framework object]</value>
-    </data>
-    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
-        <comment>This is a comment</comment>
-    </data>
-                
-    There are any number of "resheader" rows that contain simple 
-    name/value pairs.
-    
-    Each data row contains a name, and value. The row also contains a 
-    type or mimetype. Type corresponds to a .NET class that support 
-    text/value conversion through the TypeConverter architecture. 
-    Classes that don't support this are serialized and stored with the 
-    mimetype set.
-    
-    The mimetype is used for serialized objects, and tells the 
-    ResXResourceReader how to depersist the object. This is currently not 
-    extensible. For a given mimetype the value must be set accordingly:
-    
-    Note - application/x-microsoft.net.object.binary.base64 is the format 
-    that the ResXResourceWriter will generate, however the reader can 
-    read any of the formats listed below.
-    
-    mimetype: application/x-microsoft.net.object.binary.base64
-    value   : The object must be serialized with 
-            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
-            : and then encoded with base64 encoding.
-    
-    mimetype: application/x-microsoft.net.object.soap.base64
-    value   : The object must be serialized with 
-            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
-            : and then encoded with base64 encoding.
-
-    mimetype: application/x-microsoft.net.object.bytearray.base64
-    value   : The object must be serialized into a byte array 
-            : using a System.ComponentModel.TypeConverter
-            : and then encoded with base64 encoding.
-    -->
-  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
-    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
-    <xsd:element name="root" msdata:IsDataSet="true">
-      <xsd:complexType>
-        <xsd:choice maxOccurs="unbounded">
-          <xsd:element name="metadata">
-            <xsd:complexType>
-              <xsd:sequence>
-                <xsd:element name="value" type="xsd:string" minOccurs="0" />
-              </xsd:sequence>
-              <xsd:attribute name="name" use="required" type="xsd:string" />
-              <xsd:attribute name="type" type="xsd:string" />
-              <xsd:attribute name="mimetype" type="xsd:string" />
-              <xsd:attribute ref="xml:space" />
-            </xsd:complexType>
-          </xsd:element>
-          <xsd:element name="assembly">
-            <xsd:complexType>
-              <xsd:attribute name="alias" type="xsd:string" />
-              <xsd:attribute name="name" type="xsd:string" />
-            </xsd:complexType>
-          </xsd:element>
-          <xsd:element name="data">
-            <xsd:complexType>
-              <xsd:sequence>
-                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
-                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
-              </xsd:sequence>
-              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
-              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
-              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
-              <xsd:attribute ref="xml:space" />
-            </xsd:complexType>
-          </xsd:element>
-          <xsd:element name="resheader">
-            <xsd:complexType>
-              <xsd:sequence>
-                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
-              </xsd:sequence>
-              <xsd:attribute name="name" type="xsd:string" use="required" />
-            </xsd:complexType>
-          </xsd:element>
-        </xsd:choice>
-      </xsd:complexType>
-    </xsd:element>
-  </xsd:schema>
-  <resheader name="resmimetype">
-    <value>text/microsoft-resx</value>
-  </resheader>
-  <resheader name="version">
-    <value>2.0</value>
-  </resheader>
-  <resheader name="reader">
-    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </resheader>
-  <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;MyDataset.Name" xml:space="preserve">
-    <value>MyDataset</value>
-  </data>
-  <data name="&gt;&gt;ToolStripButton3.Name" xml:space="preserve">
-    <value>ToolStripButton3</value>
-  </data>
-  <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
-  <data name="GridControl1.EmbeddedNavigator.MaximumSize" type="System.Drawing.Size, System.Drawing">
-    <value>0, 0</value>
-  </data>
-  <data name="&gt;&gt;BindingNavigatorSeparator2.Type" xml:space="preserve">
-    <value>System.Windows.Forms.ToolStripSeparator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="&gt;&gt;BindingNavigatorMoveFirstItem.Type" xml:space="preserve">
-    <value>System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <assembly alias="mscorlib" name="mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
-  <data name="colFILENAME_NEW.Visible" type="System.Boolean, mscorlib">
-    <value>True</value>
-  </data>
-  <data name="BindingNavigatorCountItem.ToolTipText" xml:space="preserve">
-    <value>Die Gesamtanzahl der Elemente.</value>
-  </data>
-  <data name="&gt;&gt;TBGI_HISTORYTableAdapter.Type" xml:space="preserve">
-    <value>Global_Indexer.MyDatasetTableAdapters.TBGI_HISTORYTableAdapter, MyDataset.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value>
-  </data>
-  <data name="BindingNavigatorMovePreviousItem.Text" xml:space="preserve">
-    <value>Vorherige verschieben</value>
-  </data>
-  <data name="&gt;&gt;colGUID.Name" xml:space="preserve">
-    <value>colGUID</value>
-  </data>
-  <data name="&gt;&gt;colFILENAME_NEW.Name" xml:space="preserve">
-    <value>colFILENAME_NEW</value>
-  </data>
-  <data name="colADDED_WHEN.Visible" type="System.Boolean, mscorlib">
-    <value>True</value>
-  </data>
-  <data name="ToolStripButton1.ImageTransparentColor" type="System.Drawing.Color, System.Drawing">
-    <value>Magenta</value>
-  </data>
-  <data name="BindingNavigatorMoveFirstItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
-        wwAADsMBx2+oZAAAASpJREFUOE9jGDygcNbz/00Lnv/PnPj4P1QIA4S3P8Apx5A789n/VUfe/8elKL77
-        wf/ghmu4DciY8vT/wn0fsCqK73n4f+n+///9qy/gNiCh58n/aVveYyiKaL8P1pw56/9/r9ITuA2I7Hr0
-        v3f1BxRFoa33wJpb1wFt7/z73yX/AG4DApsf/q+b/w6uKLjl7v9Fe///7wBqzpjz879d3c//9hnbcRvg
-        UXX/f/60NyiK7Ipv/0+f8/u/f9e3/zqF7/5bJKzHbYB96d3/2ZNfYyjSTzn/36ToxX+VrE//jSOX4TbA
-        Iu/O/9T+11gVGSSd+C+b9vW/bvA83AYYZt3+H9byEqci/dTL/zV8p+E2QCftxn+/6od4Fal4TMBtgFPu
-        lf8gBXgVDULAwAAA8HbAq6XlmnAAAAAASUVORK5CYII=
-</value>
-  </data>
-  <data name="&gt;&gt;$this.Name" xml:space="preserve">
-    <value>frmHistory</value>
-  </data>
-  <data name="&gt;&gt;BindingNavigatorPositionItem.Name" xml:space="preserve">
-    <value>BindingNavigatorPositionItem</value>
-  </data>
-  <data name="&gt;&gt;BindingNavigatorSeparator1.Name" xml:space="preserve">
-    <value>BindingNavigatorSeparator1</value>
-  </data>
-  <assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
-  <data name="GridControl1.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
-    <value>Fill</value>
-  </data>
-  <data name="BindingNavigatorMoveLastItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
-        wwAADsMBx2+oZAAAASxJREFUOE9jGFygcNbz/1AmBgDJNS14/j9z4mOcahhyZz77n9B9D6sCkNyqI+//
-        h7c/wG1AxpSn/+ft//0/oesOhiKQ3MJ9H/4HN1zDbUBCz5P/s/f9+t+59e9/t9LLKApBctO2vP/vX30B
-        twGRXY/+T9n263/J0r//E6b//W+TexauGCTXu/rDf6/SE7gNCGx++L917XuwZuOSL/+lo6/9N45cBtYA
-        kqub/+6/S/4B3AZ4VN3/XzL3HVyzoksPXDFILn/am//2GdtxG2Bfevd/YMszDM0gAJLLnvz6v0XCetwG
-        WOTd+W9TcAVDMwiA5FL7X8O9hBUYZt3GqhkEQHJhLS//6wbPw22ATtoNnJIgOb/qh/81fKfhNgAfcMq9
-        8l/FYwIYQ4UGBWBgAAC+0b+zuQxOnAAAAABJRU5ErkJggg==
-</value>
-  </data>
-  <data name="ToolStripButton1.Text" xml:space="preserve">
-    <value>Alle Dateien laden</value>
-  </data>
-  <assembly alias="DevExpress.XtraEditors.v15.2" name="DevExpress.XtraEditors.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
-  <data name="GridControl1.EmbeddedNavigator.TextLocation" type="DevExpress.XtraEditors.NavigatorButtonsTextLocation, DevExpress.XtraEditors.v15.2">
-    <value>Center</value>
-  </data>
-  <data name="colFILENAME_NEW.Width" type="System.Int32, mscorlib">
-    <value>368</value>
-  </data>
-  <data name="BindingNavigatorMoveLastItem.Text" xml:space="preserve">
-    <value>Letzte verschieben</value>
-  </data>
-  <data name="&gt;&gt;ToolStripButton2.Type" xml:space="preserve">
-    <value>System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="colGUID.Visible" type="System.Boolean, mscorlib">
-    <value>True</value>
-  </data>
-  <data name="colFILENAME_ORIGINAL.VisibleIndex" type="System.Int32, mscorlib">
-    <value>1</value>
-  </data>
-  <data name="colFILENAME_ORIGINAL.Width" type="System.Int32, mscorlib">
-    <value>315</value>
-  </data>
-  <data name="BindingNavigatorPositionItem.Text" xml:space="preserve">
-    <value>0</value>
-  </data>
-  <data name="&gt;&gt;colGUID.Type" xml:space="preserve">
-    <value>DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
-  </data>
-  <data name="GridControl1.EmbeddedNavigator.AccessibleDescription" type="System.Resources.ResXNullRef, System.Windows.Forms">
-    <value />
-  </data>
-  <data name="colGUID.VisibleIndex" type="System.Int32, mscorlib">
-    <value>0</value>
-  </data>
-  <data name="GridView1.Appearance.EvenRow.FontStyleDelta" type="System.Drawing.FontStyle, System.Drawing">
-    <value>Regular</value>
-  </data>
-  <data name="BindingNavigatorCountItem.Text" xml:space="preserve">
-    <value>von {0} indexierten Dateien</value>
-  </data>
-  <data name="BindingNavigatorPositionItem.AutoSize" type="System.Boolean, mscorlib">
-    <value>False</value>
-  </data>
-  <data name="&gt;&gt;BindingNavigatorSeparator1.Type" xml:space="preserve">
-    <value>System.Windows.Forms.ToolStripSeparator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="BindingNavigatorMovePreviousItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
-        wwAADsMBx2+oZAAAALZJREFUOE9jGDogvP3BfyiTdBDf/eB/cMM18gyI73n4f+n+///9qy+QbkBE+32w
-        5sxZ//97lZ4gzYDQ1ntgza3rgLZ3/v3vkn+AeAOCW+7+X7T3//8OoOaMOT//29X9/G+fsZ00F9gV3/6f
-        Puf3f/+ub/91Ct/9t0hYT3oY6Kec/29S9OK/Stan/8aRy0g3AAQMkk78l037+l83eB55BoCAfurl/xq+
-        08g3AARUPCZQZsBgBQwMANAUYJgEulBVAAAAAElFTkSuQmCC
-</value>
-  </data>
-  <data name="&gt;&gt;ToolStripButton2.Name" xml:space="preserve">
-    <value>ToolStripButton2</value>
-  </data>
-  <data name="$this.ClientSize" type="System.Drawing.Size, System.Drawing">
-    <value>1089, 362</value>
-  </data>
-  <assembly alias="DevExpress.Utils.v15.2" name="DevExpress.Utils.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
-  <data name="GridControl1.EmbeddedNavigator.ToolTipIconType" type="DevExpress.Utils.ToolTipIconType, DevExpress.Utils.v15.2">
-    <value>None</value>
-  </data>
-  <data name="GridControl1.TabIndex" type="System.Int32, mscorlib">
-    <value>1</value>
-  </data>
-  <data name="&gt;&gt;colADDED_WHEN.Name" xml:space="preserve">
-    <value>colADDED_WHEN</value>
-  </data>
-  <data name="&gt;&gt;colFILENAME_ORIGINAL.Type" xml:space="preserve">
-    <value>DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
-  </data>
-  <data name="&gt;&gt;$this.Type" xml:space="preserve">
-    <value>System.Windows.Forms.Form, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="BindingNavigatorSeparator1.Size" type="System.Drawing.Size, System.Drawing">
-    <value>6, 25</value>
-  </data>
-  <data name="BindingNavigatorPositionItem.AccessibleName" xml:space="preserve">
-    <value>Position</value>
-  </data>
-  <data name="ToolStripButton2.Text" xml:space="preserve">
-    <value>Heutige Dateien laden</value>
-  </data>
-  <data name="GridControl1.Location" type="System.Drawing.Point, System.Drawing">
-    <value>0, 25</value>
-  </data>
-  <data name="colADDED_WHEN.Width" type="System.Int32, mscorlib">
-    <value>140</value>
-  </data>
-  <data name="BindingNavigatorPositionItem.ToolTipText" xml:space="preserve">
-    <value>Aktuelle Position</value>
-  </data>
-  <data name="&gt;&gt;ToolStripButton1.Name" xml:space="preserve">
-    <value>ToolStripButton1</value>
-  </data>
-  <data name="GridView1.Appearance.EvenRow.BackColor" type="System.Drawing.Color, System.Drawing">
-    <value>Aqua</value>
-  </data>
-  <data name="ToolStripButton1.Size" type="System.Drawing.Size, System.Drawing">
-    <value>122, 22</value>
-  </data>
-  <data name="$this.AutoScaleDimensions" type="System.Drawing.SizeF, System.Drawing">
-    <value>6, 13</value>
-  </data>
-  <data name="&gt;&gt;BindingNavigatorMoveLastItem.Name" xml:space="preserve">
-    <value>BindingNavigatorMoveLastItem</value>
-  </data>
-  <data name="&gt;&gt;BindingNavigatorCountItem.Type" xml:space="preserve">
-    <value>System.Windows.Forms.ToolStripLabel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="&gt;&gt;colFILENAME_NEW.Type" xml:space="preserve">
-    <value>DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
-  </data>
-  <data name="colADDED_WHEN.Caption" xml:space="preserve">
-    <value>Erstellt wann</value>
-  </data>
-  <data name="BindingNavigatorMoveFirstItem.Size" type="System.Drawing.Size, System.Drawing">
-    <value>23, 22</value>
-  </data>
-  <data name="BindingNavigatorCountItem.Size" type="System.Drawing.Size, System.Drawing">
-    <value>148, 22</value>
-  </data>
-  <data name="&gt;&gt;TableAdapterManager.Name" xml:space="preserve">
-    <value>TableAdapterManager</value>
-  </data>
-  <data name="BindingNavigatorMovePreviousItem.RightToLeftAutoMirrorImage" type="System.Boolean, mscorlib">
-    <value>True</value>
-  </data>
-  <data name="&gt;&gt;colADDED_WHEN.Type" xml:space="preserve">
-    <value>DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
-  </data>
-  <data name="$this.Font" type="System.Drawing.Font, System.Drawing">
-    <value>Segoe UI, 8.25pt</value>
-  </data>
-  <data name="BindingNavigatorMoveNextItem.Text" xml:space="preserve">
-    <value>Nächste verschieben</value>
-  </data>
-  <data name="&gt;&gt;GridView1.Type" xml:space="preserve">
-    <value>DevExpress.XtraGrid.Views.Grid.GridView, DevExpress.XtraGrid.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
-  </data>
-  <data name="GridControl1.EmbeddedNavigator.BackgroundImageLayout" type="System.Windows.Forms.ImageLayout, System.Windows.Forms">
-    <value>Tile</value>
-  </data>
-  <data name="&gt;&gt;BindingNavigatorMoveLastItem.Type" xml:space="preserve">
-    <value>System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="&gt;&gt;BindingNavigatorPositionItem.Type" xml:space="preserve">
-    <value>System.Windows.Forms.ToolStripTextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="GridControl1.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1089, 337</value>
-  </data>
-  <data name="colFILENAME_NEW.Caption" xml:space="preserve">
-    <value>Filename New</value>
-  </data>
-  <data name="&gt;&gt;BindingNavigatorSeparator2.Name" xml:space="preserve">
-    <value>BindingNavigatorSeparator2</value>
-  </data>
-  <data name="TBGI_HISTORYBindingNavigator.Location" type="System.Drawing.Point, System.Drawing">
-    <value>0, 0</value>
-  </data>
-  <data name="&gt;&gt;BindingNavigatorCountItem.Name" xml:space="preserve">
-    <value>BindingNavigatorCountItem</value>
-  </data>
-  <data name="&gt;&gt;MyDataset.Type" xml:space="preserve">
-    <value>Global_Indexer.MyDataset, MyDataset.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value>
-  </data>
-  <data name="&gt;&gt;TableAdapterManager.Type" xml:space="preserve">
-    <value>Global_Indexer.MyDatasetTableAdapters.TableAdapterManager, MyDataset.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value>
-  </data>
-  <data name="ToolStripButton3.ImageTransparentColor" type="System.Drawing.Color, System.Drawing">
-    <value>Magenta</value>
-  </data>
-  <data name="GridControl1.EmbeddedNavigator.AccessibleName" type="System.Resources.ResXNullRef, System.Windows.Forms">
-    <value />
-  </data>
-  <data name="&gt;&gt;BindingNavigatorMoveNextItem.Type" xml:space="preserve">
-    <value>System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="&gt;&gt;TBGI_HISTORYBindingNavigator.Name" xml:space="preserve">
-    <value>TBGI_HISTORYBindingNavigator</value>
-  </data>
-  <data name="&gt;&gt;TBGI_HISTORYBindingSource.Type" xml:space="preserve">
-    <value>System.Windows.Forms.BindingSource, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="BindingNavigatorSeparator.Size" type="System.Drawing.Size, System.Drawing">
-    <value>6, 25</value>
-  </data>
-  <data name="GridControl1.EmbeddedNavigator.ToolTip" xml:space="preserve">
-    <value />
-  </data>
-  <data name="colADDED_WHEN.VisibleIndex" type="System.Int32, mscorlib">
-    <value>3</value>
-  </data>
-  <data name="BindingNavigatorMoveLastItem.RightToLeftAutoMirrorImage" type="System.Boolean, mscorlib">
-    <value>True</value>
-  </data>
-  <data name="BindingNavigatorSeparator2.Size" type="System.Drawing.Size, System.Drawing">
-    <value>6, 25</value>
-  </data>
-  <data name="&gt;&gt;GridControl1.Type" xml:space="preserve">
-    <value>DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
-  </data>
-  <data name="TBGI_HISTORYBindingNavigator.Text" xml:space="preserve">
-    <value>BindingNavigator1</value>
-  </data>
-  <data name="&gt;&gt;colFILENAME_ORIGINAL.Name" xml:space="preserve">
-    <value>colFILENAME_ORIGINAL</value>
-  </data>
-  <data name="&gt;&gt;TBGI_HISTORYBindingNavigator.Type" xml:space="preserve">
-    <value>System.Windows.Forms.BindingNavigator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="TBGI_HISTORYBindingNavigator.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1089, 25</value>
-  </data>
-  <data name="GridView1.Appearance.EvenRow.Image" type="System.Resources.ResXNullRef, System.Windows.Forms">
-    <value />
-  </data>
-  <data name="BindingNavigatorMoveNextItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
-        wwAADsMBx2+oZAAAAKNJREFUOE9jGHygcNbz/1AmeSB35rP/Cd33yDckY8rT//P2//6f0HWHPEMSep78
-        n73v1//OrX//u5VeJt2QyK5H/6ds+/W/ZOnf/wnT//63yT1LmiGBzQ//t659D9ZsXPLlv3T0tf/GkcuI
-        N8Sj6v7/krnv4JoVXXpIc4F96d3/gS3PyNMMAhZ5d/7bFFwhTzMIGGbdJl8zCOik3SBf81AEDAwAoH5f
-        oAc0QjgAAAAASUVORK5CYII=
-</value>
-  </data>
-  <data name="&gt;&gt;TBGI_HISTORYBindingSource.Name" xml:space="preserve">
-    <value>TBGI_HISTORYBindingSource</value>
-  </data>
-  <data name="&gt;&gt;GridControl1.Name" xml:space="preserve">
-    <value>GridControl1</value>
-  </data>
-  <data name="ToolStripButton2.Size" type="System.Drawing.Size, System.Drawing">
-    <value>144, 22</value>
-  </data>
-  <data name="&gt;&gt;BindingNavigatorMoveFirstItem.Name" xml:space="preserve">
-    <value>BindingNavigatorMoveFirstItem</value>
-  </data>
-  <data name="&gt;&gt;GridControl1.Parent" xml:space="preserve">
-    <value>$this</value>
-  </data>
-  <data name="GridView1.Appearance.EvenRow.FontSizeDelta" type="System.Int32, mscorlib">
-    <value>0</value>
-  </data>
-  <data name="ToolStripButton2.ImageTransparentColor" type="System.Drawing.Color, System.Drawing">
-    <value>Magenta</value>
-  </data>
-  <data name="$this.Text" xml:space="preserve">
-    <value>Historie - Indexierte Dateien</value>
-  </data>
-  <data name="&gt;&gt;BindingNavigatorSeparator.Type" xml:space="preserve">
-    <value>System.Windows.Forms.ToolStripSeparator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="&gt;&gt;TBGI_HISTORYBindingNavigator.ZOrder" xml:space="preserve">
-    <value>1</value>
-  </data>
-  <assembly alias="DevExpress.Data.v15.2" name="DevExpress.Data.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
-  <data name="GridControl1.EmbeddedNavigator.AllowHtmlTextInToolTip" type="DevExpress.Utils.DefaultBoolean, DevExpress.Data.v15.2">
-    <value>Default</value>
-  </data>
-  <data name="colFILENAME_NEW.VisibleIndex" type="System.Int32, mscorlib">
-    <value>2</value>
-  </data>
-  <data name="GridControl1.EmbeddedNavigator.ToolTipTitle" xml:space="preserve">
-    <value />
-  </data>
-  <data name="BindingNavigatorMovePreviousItem.Size" type="System.Drawing.Size, System.Drawing">
-    <value>23, 22</value>
-  </data>
-  <data name="GridControl1.EmbeddedNavigator.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
-    <value>Top, Left</value>
-  </data>
-  <data name="GridControl1.EmbeddedNavigator.BackgroundImage" type="System.Resources.ResXNullRef, System.Windows.Forms">
-    <value />
-  </data>
-  <data name="BindingNavigatorMoveNextItem.Size" type="System.Drawing.Size, System.Drawing">
-    <value>23, 22</value>
-  </data>
-  <data name="&gt;&gt;TBGI_HISTORYBindingNavigator.Parent" xml:space="preserve">
-    <value>$this</value>
-  </data>
-  <data name="&gt;&gt;GridControl1.ZOrder" xml:space="preserve">
-    <value>0</value>
-  </data>
-  <data name="&gt;&gt;BindingNavigatorMovePreviousItem.Type" xml:space="preserve">
-    <value>System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="colGUID.Caption" xml:space="preserve">
-    <value>ID</value>
-  </data>
-  <data name="BindingNavigatorMoveLastItem.Size" type="System.Drawing.Size, System.Drawing">
-    <value>23, 22</value>
-  </data>
-  <data name="colGUID.Width" type="System.Int32, mscorlib">
-    <value>65</value>
-  </data>
-  <data name="&gt;&gt;BindingNavigatorMovePreviousItem.Name" xml:space="preserve">
-    <value>BindingNavigatorMovePreviousItem</value>
-  </data>
-  <data name="colFILENAME_ORIGINAL.Visible" type="System.Boolean, mscorlib">
-    <value>True</value>
-  </data>
-  <data name="&gt;&gt;TBGI_HISTORYTableAdapter.Name" xml:space="preserve">
-    <value>TBGI_HISTORYTableAdapter</value>
-  </data>
-  <data name="colFILENAME_ORIGINAL.Caption" xml:space="preserve">
-    <value>Original Filename</value>
-  </data>
-  <data name="BindingNavigatorMoveNextItem.RightToLeftAutoMirrorImage" type="System.Boolean, mscorlib">
-    <value>True</value>
-  </data>
-  <data name="BindingNavigatorMoveFirstItem.RightToLeftAutoMirrorImage" type="System.Boolean, mscorlib">
-    <value>True</value>
-  </data>
-  <data name="TBGI_HISTORYBindingNavigator.TabIndex" type="System.Int32, mscorlib">
-    <value>0</value>
-  </data>
-  <data name="&gt;&gt;GridView1.Name" xml:space="preserve">
-    <value>GridView1</value>
-  </data>
-  <data name="ToolStripButton3.Text" xml:space="preserve">
-    <value>Export Excel</value>
-  </data>
-  <data name="&gt;&gt;ToolStripButton3.Type" xml:space="preserve">
-    <value>System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="GridView1.Appearance.EvenRow.GradientMode" type="System.Drawing.Drawing2D.LinearGradientMode, System.Drawing">
-    <value>Horizontal</value>
-  </data>
-  <data name="&gt;&gt;ToolStripButton1.Type" xml:space="preserve">
-    <value>System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="BindingNavigatorMoveFirstItem.Text" xml:space="preserve">
-    <value>Erste verschieben</value>
-  </data>
-  <data name="&gt;&gt;BindingNavigatorMoveNextItem.Name" xml:space="preserve">
-    <value>BindingNavigatorMoveNextItem</value>
-  </data>
-  <data name="ToolStripButton3.Size" type="System.Drawing.Size, System.Drawing">
-    <value>23, 22</value>
-  </data>
-  <data name="GridControl1.EmbeddedNavigator.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
-    <value>Inherit</value>
-  </data>
-  <data name="BindingNavigatorPositionItem.Size" type="System.Drawing.Size, System.Drawing">
-    <value>50, 23</value>
-  </data>
-  <data name="&gt;&gt;BindingNavigatorSeparator.Name" xml:space="preserve">
-    <value>BindingNavigatorSeparator</value>
-  </data>
-  <metadata name="TBGI_HISTORYTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>336, 17</value>
-  </metadata>
-  <metadata name="TableAdapterManager.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>540, 17</value>
-  </metadata>
-  <metadata name="TBGI_HISTORYBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>127, 17</value>
-  </metadata>
-  <metadata name="$this.Language" type="System.Globalization.CultureInfo, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-    <value>en-US</value>
-  </metadata>
-  <metadata name="TBGI_HISTORYBindingNavigator.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>713, 17</value>
-  </metadata>
-  <metadata name="$this.Localizable" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-    <value>True</value>
-  </metadata>
-  <metadata name="MyDataset.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>17, 17</value>
-  </metadata>
-</root>

Global_Indexer/frmHotKey_Add.vb

@@ -1,827 +0,0 @@
-Public Class frmHotKey_Add
-    Dim Form_loaded As Boolean = False
-    Private Control_Sequence As Integer
-    Private Sub ObjektTypenEintragen()
-        Try
-            Dim oDokumentTyp As WINDREAMLib.WMObject
-            ' Combobox leeren
-            Me.cmbObjekttyp.Items.Clear()
-            ' alle Objekttypen durchlaufen
-            For Each oDokumentTyp In ClassWindream.GetObjecttypesAsObjects
-                ' und in die Combobox eintragen
-                Me.cmbObjekttyp.Items.Add(oDokumentTyp.aName)
-            Next
-        Catch ex As Exception
-            MsgBox("Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Unexpected error inm Eintragen der Objekttypen")
-        End Try
-
-    End Sub
-    Private Sub btnpnlStart_weiter_Click(sender As Object, e As EventArgs) Handles btnpnlStart_weiter.Click
-        If ListBox_FormTitles.SelectedIndex <> -1 Then
-            GroupBox2_Controls.Visible = True
-            List_Controls(ListBox_FormTitles.SelectedItem, 1)
-        Else
-            GroupBox2_Controls.Visible = False
-        End If
-    End Sub
-
-    Private Sub frmHotKey_Add_Load(sender As Object, e As EventArgs) Handles Me.Load
-
-        Me.TBDD_USERTableAdapter.Connection.ConnectionString = MyConnectionString
-        Me.TBHOTKEY_PATTERNSTableAdapter.Connection.ConnectionString = MyConnectionString
-        Me.TBHOTKEY_PROFILETableAdapter.Connection.ConnectionString = MyConnectionString
-        Me.TBHOTKEY_USER_PROFILETableAdapter.Connection.ConnectionString = MyConnectionString
-        Me.TBHOTKEY_PATTERNS_REWORKTableAdapter.Connection.ConnectionString = MyConnectionString
-        Me.TBHOTKEY_WINDOW_HOOKTableAdapter.Connection.ConnectionString = MyConnectionString
-        TabControlDetails.SelectedIndex = 0
-        TabControl1.SelectedIndex = 0
-        Load_Profiles()
-        load_users()
-        GroupBox1.Visible = True
-        GroupBox2_Controls.Visible = False
-        GroupBoxMainWindow.Visible = False
-        If ClassWindream.Init() = True Then
-            ObjektTypenEintragen()
-        Else
-            MsgBox("Windream konnte nicht initiiert werden! Formular wird geschlossen - Check logfile", MsgBoxStyle.Information)
-            Me.Close()
-        End If
-
-    End Sub
-    Sub load_users()
-        Try
-            Me.TBDD_USERTableAdapter.Fill(Me.MyDataset.TBDD_USER)
-            chklbUser.Items.Clear()
-            For Each row As DataRow In MyDataset.TBDD_USER.Rows
-                chklbUser.Items.Add(row.Item("USERNAME"))
-            Next
-        Catch ex As Exception
-            MsgBox("Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Unexpected error in Load_Users:")
-        End Try
-    End Sub
-    Sub Load_Profiles()
-        Try
-            Me.TBHOTKEY_PROFILETableAdapter.Fill(MyDataset.TBHOTKEY_PROFILE)
-        Catch ex As Exception
-            MsgBox("Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Unexpected error in Load_Profiles:")
-        End Try
-    End Sub
-    Sub List_FormTitles(Tabindex As Integer)
-
-        Try
-            Select Case Tabindex
-                Case 1
-                    ListBox_FormTitles.Items.Clear()
-                Case 2
-                    ListBox_MainWindows_Test.Items.Clear()
-                    ListViewControls_Test.Items.Clear()
-            End Select
-            Dim enumerator As New ClassWindowAPI
-            For Each top As ClassWindowAPI.ApiWindow In enumerator.GetTopLevelWindows()
-                If top.MainWindowTitle <> "" And top.MainWindowTitle <> "Global Indexer" And top.MainWindowTitle <> "Hot Key - Administration" Then
-                    Select Case Tabindex
-                        Case 1
-                            ListBox_FormTitles.Items.Add(top.MainWindowTitle)
-                        Case 2
-                            ListBox_MainWindows_Test.Items.Add(top.MainWindowTitle)
-                    End Select
-                End If
-            Next top
-
-        Catch ex As Exception
-            MsgBox("Error in List_FormTitles: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
-        End Try
-    End Sub
-    Private Function CheckFormTitle_isOpen(windowname As String)
-        Dim isopen As Boolean = False
-        Try
-            Dim enumerator As New ClassWindowAPI
-            For Each top As ClassWindowAPI.ApiWindow In enumerator.GetTopLevelWindows()
-                If top.MainWindowTitle <> "" And top.MainWindowTitle <> "Global Indexer" And top.MainWindowTitle <> "Hot Key - Administration" Then
-                    If top.MainWindowTitle = windowname Then
-                        Return True
-                    End If
-                End If
-            Next top
-            Return False
-        Catch ex As Exception
-            MsgBox("Error in CheckFormTitle_isOpen: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
-            Return False
-        End Try
-    End Function
-
-    Sub List_Controls(Title As String, Tabindex As Integer)
-        ' Try
-        Select Case Tabindex
-            Case 1
-                If GroupBox2_Controls.Visible = False Then
-                    GroupBox2_Controls.Visible = True
-                End If
-                ListViewControls.Items.Clear()
-                txtControl.Text = ""
-            Case 2
-                ListViewControls_Test.Items.Clear()
-        End Select
-
-        Dim enumerator As New ClassWindowAPI
-        'Jedes Fenster durchlaufen
-        For Each top As ClassWindowAPI.ApiWindow In enumerator.GetTopLevelWindows()
-            If top.MainWindowTitle.Contains(Title) Or top.MainWindowTitle.ToLower = Title.ToLower Then
-                Dim anz As Integer = 0
-                Control_Sequence = 0
-                'Jedes Control durchlaufen
-                For Each child As ClassWindowAPI.ApiWindow In enumerator.GetChildWindows(top.hWnd)
-                    Select Case Tabindex
-                        Case 1
-                            If chkboxshowfilledControlsOnly.Checked Then
-                                If child.MainWindowTitle <> "" Then
-                                    ListViewControls.Items.Add(Control_Sequence)
-                                    ListViewControls.Items(anz).SubItems.Add(child.hWnd.ToString)
-                                    ListViewControls.Items(anz).SubItems.Add(child.MainWindowTitle)
-                                    anz += 1
-                                End If
-                            Else
-                                ListViewControls.Items.Add(Control_Sequence)
-                                ListViewControls.Items(anz).SubItems.Add(child.hWnd.ToString)
-                                ListViewControls.Items(anz).SubItems.Add(child.MainWindowTitle)
-                                anz += 1
-                            End If
-                        Case 2
-                            If chkboxshowfilledControlsOnly_Test.Checked Then
-                                If child.MainWindowTitle <> "" Then
-                                    ListViewControls_Test.Items.Add(Control_Sequence)
-                                    ListViewControls_Test.Items(anz).SubItems.Add(child.hWnd.ToString)
-                                    ListViewControls_Test.Items(anz).SubItems.Add(child.MainWindowTitle)
-                                    anz += 1
-                                End If
-                            Else
-                                ListViewControls_Test.Items.Add(Control_Sequence)
-                                ListViewControls_Test.Items(anz).SubItems.Add(child.hWnd.ToString)
-                                ListViewControls_Test.Items(anz).SubItems.Add(child.MainWindowTitle)
-                                anz += 1
-                            End If
-                            'ListBox_Controls_Test.Items.Add("ID: " & child.hWnd.ToString & " || Aktueller Wert: " & child.MainWindowTitle)
-                    End Select
-                    Control_Sequence += 1
-                Next child
-            End If
-        Next top
-        'Catch ex As Exception
-        '    MsgBox("Error in List_Controls: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
-        'End Try
-    End Sub
-
-    Private Sub ListBox_FormTitles_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox_FormTitles.SelectedIndexChanged
-        If ListBox_FormTitles.SelectedIndex <> -1 And GroupBox2_Controls.Visible = True Then
-            List_Controls(ListBox_FormTitles.SelectedItem, 1)
-        End If
-    End Sub
-
-    Private Sub txtKey_KeyDown(sender As Object, e As KeyEventArgs) Handles txtKey.KeyDown
-        txtKey.Text = ""
-    End Sub
-
-    Private Sub btnGB1_Click(sender As Object, e As EventArgs) Handles btnGB1.Click
-        If txtProfilname.Text <> "" And txtWDSearch.Text <> "" And txtKey.Text <> "" And cmbFunktionstaste.Text <> "" Then
-            Me.GroupBoxMainWindow.Visible = True
-            List_FormTitles(1)
-        Else
-            MsgBox("Eingabe fehlt!", MsgBoxStyle.Exclamation)
-        End If
-    End Sub
-
-    Private Sub TBHOTKEY_PROFILEBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs)
-        Me.Validate()
-        Me.TBHOTKEY_PROFILEBindingSource.EndEdit()
-        Me.TableAdapterManager.UpdateAll(Me.MyDataset)
-
-    End Sub
-
-    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnadd_Pattern.Click
-        Try
-            lblLinkadd.Visible = False
-            If txtPattern.Text = "" Then
-                Exit Sub
-            End If
-            Dim sql As String = "select max(guid) from tbhotkey_Profile where upper(name) =  Upper('" & txtProfilname.Text & "')"
-            Dim kopf = ClassDatabase.Execute_Scalar(sql, MyConnectionString, True)
-            If IsDBNull(kopf) Then
-                TBHOTKEY_PROFILETableAdapter.Insert(txtProfilname.Text, "NONE", txtWDSearch.Text, cmbFunktionstaste.Text, txtKey.Text.ToUpper, ListBox_FormTitles.SelectedItem, Environment.UserName)
-            Else
-                TBHOTKEY_PROFILETableAdapter.cmdUpdate(txtProfilname.Text, "NONE", txtWDSearch.Text, cmbFunktionstaste.Text, txtKey.Text.ToUpper, ListBox_FormTitles.SelectedItem, Environment.UserName, kopf)
-            End If
-            lblSaveHotkey.Visible = True
-            sql = "select max(guid) from tbhotkey_Profile where upper(name) =  Upper('" & txtProfilname.Text & "')"
-            Dim id = ClassDatabase.Execute_Scalar(sql, MyConnectionString, True)
-            If id > 0 Then
-                TBHOTKEY_PATTERNSTableAdapter.Insert(id, txtPattern.Text, Control_ID, Environment.UserName, txtControl.Text)
-                lblLinkadd.Text = "Pattern-Link " & txtControl.Text & " || " & txtPattern.Text & " erfolgreich angelegt"
-                lblLinkadd.Visible = True
-            End If
-        Catch ex As Exception
-            MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in Add Pattern or Profile:")
-        End Try
-
-    End Sub
-
-    Private Sub txtPattern_TextChanged(sender As Object, e As EventArgs) Handles txtPattern.TextChanged
-
-    End Sub
-
-
-    Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
-        If Not Me.txtWDSearch.Text = "" Then
-            Me.OFDWindreamsuche.FileName = Me.txtWDSearch.Text
-        End If
-
-        If Me.OFDWindreamsuche.ShowDialog = Windows.Forms.DialogResult.OK Then
-            Me.txtWDSearch.Text = Me.OFDWindreamsuche.FileName
-        End If
-    End Sub
-    Private Sub TabControl1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles TabControlMain.SelectedIndexChanged
-        Select Case TabControlMain.SelectedIndex
-
-            Case 0
-                TabControl1.SelectedIndex = 0
-                TabControlDetails.SelectedIndex = 0
-                Load_Profiles()
-            Case 1
-                If NAMETextBox.Text <> "" And CheckFormTitle_isOpen(WINDOW_NAMETextBox.Text) = True Then
-                    btnnewProfile.Visible = True
-                    txtProfilname.Text = NAMETextBox.Text
-                    txtWDSearch.Text = WD_SEARCHTextBox.Text
-                    cmbFunktionstaste.SelectedIndex = cmbFunktionstaste.FindStringExact(HOTKEY1ComboBox.Text)
-                    txtKey.Text = HOTKEY2TextBox.Text
-                    Me.GroupBoxMainWindow.Visible = True
-                    List_FormTitles(1)
-                    ListBox_FormTitles.SelectedIndex = ListBox_FormTitles.FindStringExact(WINDOW_NAMETextBox.Text)
-                    ListBox_FormTitles.SetSelected(ListBox_FormTitles.SelectedIndex, True)
-                    GroupBox2_Controls.Visible = True
-                    If Not IsNothing(ListBox_FormTitles.SelectedItem) Then
-                        List_Controls(ListBox_FormTitles.SelectedItem, 1)
-                    End If
-                Else
-                    btnnewProfile.Visible = False
-                    Me.GroupBoxMainWindow.Visible = False
-                    GroupBox2_Controls.Visible = False
-                    txtProfilname.Text = ""
-                    txtWDSearch.Text = ""
-                    cmbFunktionstaste.SelectedIndex = -1
-                    txtKey.Text = ""
-                End If
-            Case 2
-                List_FormTitles(2)
-        End Select
-    End Sub
-
-    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
-        List_FormTitles(2)
-    End Sub
-
-    Private Sub ListBox_MainWindows_Test_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox_MainWindows_Test.SelectedIndexChanged
-        If ListBox_MainWindows_Test.SelectedIndex <> -1 Then
-            List_Controls(ListBox_MainWindows_Test.SelectedItem, 2)
-        End If
-    End Sub
-
-    Private Sub btndelete_Click(sender As Object, e As EventArgs) Handles btndelete.Click
-        Dim ID
-        Try
-            ID = GridView1.GetFocusedRowCellValue(GridView1.Columns("GUID"))
-        Catch ex As Exception
-            ID = 0
-        End Try
-        If ID > 1 Then
-            Dim result As MsgBoxResult
-            result = MessageBox.Show("Sind Sie sicher dass Sie dieses Hotkeyprofil löschen wollen?", "Bestätigung erforderlich:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
-            If result = MsgBoxResult.Yes Then
-                Try
-
-                    Dim del As String = "DELETE FROM TBHOTKEY_USER_PROFILE WHERE HKPROFILE_ID = " & ID
-                    If ClassDatabase.Execute_non_Query(del, True) = True Then
-                        del = "DELETE FROM TBHOTKEY_PATTERNS_REWORK WHERE HKPATTERN_ID IN (SELECT GUID FROM TBHOTKEY_PATTERNS WHERE HKPROFILE_ID = " & ID & ")"
-                        If ClassDatabase.Execute_non_Query(del, True) = True Then
-                            del = "DELETE FROM TBHOTKEY_PATTERNS WHERE HKPROFILE_ID = " & ID
-                            If ClassDatabase.Execute_non_Query(del, True) = True Then
-                                del = "DELETE FROM TBHOTKEY_WINDOW_HOOK WHERE HKPROFILE_ID = " & ID
-                                If ClassDatabase.Execute_non_Query(del, True) = True Then
-                                    del = "DELETE FROM TBHOTKEY_PROFILE WHERE GUID = " & ID
-                                    If ClassDatabase.Execute_non_Query(del, True) = True Then
-                                        ClassLogger.Add(">> Hotkey-Profil: " & ID & " wurde gelöscht!", False)
-                                        Load_Profiles()
-                                        Load_UserForProfiles()
-                                        MsgBox("Profil wurde erfolgreich gelöscht!", MsgBoxStyle.Information, "Erfolgsmeldung")
-                                    End If
-                                End If
-                            End If
-                        End If
-                    End If
-                Catch ex As Exception
-                    MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in Delete Profiles: ")
-                End Try
-            End If
-        End If
-    End Sub
-
-    Private Sub btnUserAdd_Profile_Click(sender As Object, e As EventArgs) Handles btnUserAdd_Profile.Click
-        Try
-            Dim added As Integer = 0
-            Dim items As CheckedListBox.CheckedItemCollection = chklbUser.CheckedItems
-            Dim ID
-            Try
-                ID = GridView1.GetFocusedRowCellValue(GridView1.Columns("GUID"))
-            Catch ex As Exception
-                ID = 0
-            End Try
-            If ID > 1 And items.Count > 0 Then
-                For Each item In items
-                    Dim SQL
-                    SQL = "SELECT GUID FROM TBDD_USER WHERE USERNAME = '" & item.ToString & "'"
-                    Dim userid = ClassDatabase.Execute_Scalar(SQL, MyConnectionString, True)
-
-                    SQL = "SELECT COUNT(*) FROM TBHOTKEY_USER_PROFILE WHERE USER_ID = " & userid & " and HKPROFILE_ID = " & ID
-                    Dim exists = ClassDatabase.Execute_Scalar(SQL, MyConnectionString, True)
-                    If exists = 0 Then
-                        TBHOTKEY_USER_PROFILETableAdapter.cmdInsert(userid, ID)
-                        added += 1
-                    End If
-
-                Next
-
-            Else
-                MsgBox("Keine Benutzer und/oder kein Profil ausgewählt")
-                Exit Sub
-            End If
-
-            If added >= 1 Then
-                MsgBox(added & " neue Profil/User-Verknüpfungen angelegt!", MsgBoxStyle.Information)
-                Load_UserForProfiles()
-            Else
-                MsgBox("Keine Verknüpfungen angelegt!", MsgBoxStyle.Information)
-            End If
-
-        Catch ex As Exception
-            MsgBox("Error in Add MyHotkey: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
-        End Try
-    End Sub
-
-    Private Sub AlleAuswählenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AlleAuswählenToolStripMenuItem.Click
-        If TabControl1.SelectedIndex = 1 Then
-            For i = 0 To chklbUser.Items.Count - 1
-                chklbUser.SetItemChecked(i, True)
-            Next
-        ElseIf TabControl1.SelectedIndex = 2 Then
-            For i = 0 To chklbUserProfile.Items.Count - 1
-                chklbUserProfile.SetItemChecked(i, True)
-            Next
-        End If
-       
-    End Sub
-
-    Private Sub KeineAuswählenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles KeineAuswählenToolStripMenuItem.Click
-        If TabControl1.SelectedIndex = 1 Then
-            For i = 0 To chklbUser.Items.Count - 1
-                chklbUser.SetItemChecked(i, False)
-            Next
-        ElseIf TabControl1.SelectedIndex = 2 Then
-            For i = 0 To chklbUserProfile.Items.Count - 1
-                chklbUserProfile.SetItemChecked(i, False)
-            Next
-        End If
-       
-    End Sub
-
-    Private Sub TabControl2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles TabControl1.SelectedIndexChanged
-        GroupBoxPatterns.Visible = False
-        Select Case TabControl1.SelectedIndex
-            Case 0
-                GroupBoxPatterns.Visible = True
-            Case 2
-                Load_UserForProfiles()
-        End Select
-    End Sub
-    Sub Load_UserForProfiles()
-        Try
-            Dim ID
-            Try
-                ID = GridView1.GetFocusedRowCellValue(GridView1.Columns("GUID"))
-            Catch ex As Exception
-                ID = 0
-            End Try
-            If ID > 1 Then
-                chklbUserProfile.Items.Clear()
-                Dim SQL = "SELECT T.USERNAME FROM TBHOTKEY_USER_PROFILE T1, TBDD_USER T WHERE T.GUID = T1.USER_ID and T1.HKPROFILE_ID = " & ID
-                Dim DT As DataTable = ClassDatabase.Return_Datatable(SQL, True)
-                If Not IsNothing(DT) Then
-                    For Each dr As DataRow In DT.Rows
-                        chklbUserProfile.Items.Add(dr.Item(0))
-                    Next
-                End If
-            End If
-        Catch ex As Exception
-            MsgBox("Error in LoadUserForProfiles: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
-        End Try
-    End Sub
-
-    Private Sub ListBox_Profiles_SelectedIndexChanged(sender As Object, e As EventArgs)
-        Dim ID
-        Try
-            ID = GridView1.GetFocusedRowCellValue(GridView1.Columns("GUID"))
-        Catch ex As Exception
-            ID = 0
-        End Try
-        If ID > 0 Then
-            Select Case TabControl1.SelectedIndex
-                Case 1
-                    'Try
-                    '    TBHOTKEY_PROFILETableAdapter.FillByID(MyDataset.TBHOTKEY_PROFILE, ListBox_Profiles.SelectedValue)
-                    'Catch ex As Exception
-                    '    MsgBox("Error in Fillby Profile-ID: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
-                    'End Try
-                    Load_Patterns()
-                    Load_MatchPatterns()
-                Case 2
-                    Load_UserForProfiles()
-            End Select
-            lblSave.Visible = False
-        End If
-
-
-    End Sub
-    Sub Load_Patterns()
-        Try
-            TBHOTKEY_PATTERNSTableAdapter.Fill(MyDataset.TBHOTKEY_PATTERNS, GUIDTextBox.Text)
-            tslbl_Hotkeywindow.Text = WINDOW_NAMETextBox.Text
-            tslbl_HotkeySequence.Text = SEQUENCE_NUMBERTextBox.Text
-        Catch ex As Exception
-            MsgBox("Error in Fill Patterns: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
-        End Try
-    End Sub
-    Sub Load_MatchPatterns()
-        Try
-            TBHOTKEY_WINDOW_HOOKTableAdapter.Fill(MyDataset.TBHOTKEY_WINDOW_HOOK, GUIDTextBox.Text)
-        Catch ex As Exception
-            MsgBox("Error in Fill Match-Patterns: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
-        End Try
-    End Sub
-    Private Sub btndeleteUserProfile_Click(sender As Object, e As EventArgs) Handles btndeleteUserProfile.Click
-        Try
-            Dim deleted As Integer = 0
-            Dim items As CheckedListBox.CheckedItemCollection = chklbUserProfile.CheckedItems
-            Dim ID
-            Try
-                ID = GridView1.GetFocusedRowCellValue(GridView1.Columns("GUID"))
-            Catch ex As Exception
-                ID = 0
-            End Try
-            If ID > 1 And items.Count > 0 Then
-                For Each item In items
-                    Dim SQL
-                    SQL = "SELECT GUID FROM TBDD_USER WHERE USERNAME = '" & item.ToString & "'"
-                    Dim userid = ClassDatabase.Execute_Scalar(SQL, MyConnectionString, True)
-                    If IsNothing(userid) Then
-                        MsgBox("Unerwarteter Unexpected error inm Holen der User-ID!", MsgBoxStyle.Exclamation)
-                        Exit Sub
-                    End If
-                    SQL = "SELECT GUID FROM TBHOTKEY_USER_PROFILE WHERE USER_ID = " & userid & " and HKPROFILE_ID = " & ID
-                    Dim ID1 = ClassDatabase.Execute_Scalar(SQL, MyConnectionString, True)
-                    If ID1 > 0 Then
-                        TBHOTKEY_USER_PROFILETableAdapter.Delete(ID1)
-                        deleted += 1
-                    End If
-                Next
-
-            Else
-                MsgBox("Keine Benutzer und/oder kein Profil ausgewählt")
-                Exit Sub
-            End If
-
-            If deleted >= 1 Then
-                MsgBox(deleted & " Profilbeziehungen wurden gelöscht!", MsgBoxStyle.Information)
-                Load_UserForProfiles()
-            End If
-        Catch ex As Exception
-            MsgBox("Error in Delete Profile for Users: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
-        End Try
-    End Sub
-
-    Private Sub btnsave_Click(sender As Object, e As EventArgs) Handles btnsave.Click
-        Try
-            TBHOTKEY_PROFILEBindingSource.EndEdit()
-            If Me.MyDataset.TBHOTKEY_PROFILE.GetChanges Is Nothing = False Then
-                Me.CHANGED_WHOTextBox.Text = Environment.UserName
-                TBHOTKEY_PROFILEBindingSource.EndEdit()
-                TBHOTKEY_PROFILETableAdapter.Update(MyDataset.TBHOTKEY_PROFILE)
-                Me.lblSave.Visible = True
-                Dim result As MsgBoxResult
-                If USER_LANGUAGE = "de-DE" Then
-                    result = MessageBox.Show("Wollen Sie die Änderungen im Hotkey-Profil auch in den Userprofilen vornehmen?", "Bestätigung erforderlich:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
-                Else
-                    result = MessageBox.Show("Dow You want to update the userprofiles also with the changes in the profile?", "Confirmation required:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
-                End If
-                If result = MsgBoxResult.Yes Then
-                    Try
-                        Dim update = "UPDATE TBHOTKEY_USER_PROFILE SET WD_SEARCH = '" & WD_SEARCHTextBox.Text & "', HOTKEY1 = '" & HOTKEY1ComboBox.Text & "', HOTKEY2 = '" & HOTKEY2TextBox.Text & "' WHERE HKPROFILE_ID = " & GUIDTextBox.Text
-                        If ClassDatabase.Execute_non_Query(update, True) Then
-                            If USER_LANGUAGE = "de-DE" Then
-                                MsgBox("User-Profile erfolgreich aktualisiert!", MsgBoxStyle.Information)
-                            Else
-                                MsgBox("Userprofiles successfull updated!", MsgBoxStyle.Information)
-                            End If
-                        End If
-                    Catch ex As Exception
-                        MsgBox("Error in Refresh Userprofiles: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
-                    End Try
-                End If
-            Else
-                Me.lblSave.Visible = False
-            End If
-        Catch ex As Exception
-            MsgBox("Error in Save My Profile: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
-        End Try
-    End Sub
-
-    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
-        If Not Me.WD_SEARCHTextBox.Text = "" Then
-            Me.OFDWindreamsuche.FileName = Me.WD_SEARCHTextBox.Text
-        End If
-
-        If Me.OFDWindreamsuche.ShowDialog = Windows.Forms.DialogResult.OK Then
-            Me.WD_SEARCHTextBox.Text = Me.OFDWindreamsuche.FileName
-        End If
-    End Sub
-
-    Private Sub Fill_Rework(PATT_ID As Integer)
-        Try
-            Me.TBHOTKEY_PATTERNS_REWORKTableAdapter.Fill(Me.MyDataset.TBHOTKEY_PATTERNS_REWORK, PATT_ID)
-        Catch ex As System.Exception
-            MsgBox("Error in Load Rework-Step:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
-        End Try
-
-    End Sub
-
-
-    Private Sub ListBoxPatterns_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBoxPatterns.SelectedIndexChanged
-        If ListBoxPatterns.SelectedIndex <> -1 Then
-            Fill_Rework(ListBoxPatterns.SelectedValue)
-            tslbl_Hotkeywindow.Text = WINDOW_NAMETextBox.Text
-            tslbl_HotkeySequence.Text = SEQUENCE_NUMBERTextBox.Text
-        End If
-    End Sub
-
-
-    Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles ToolStripButton1.Click
-        Try
-            TBHOTKEY_PATTERNS_REWORKBindingSource.EndEdit()
-            If Me.MyDataset.TBHOTKEY_PATTERNS_REWORK.GetChanges Is Nothing = False Then
-                Me.CHANGED_WHOTextBox1.Text = Environment.UserName
-                TBHOTKEY_PATTERNS_REWORKBindingSource.EndEdit()
-                TBHOTKEY_PATTERNS_REWORKTableAdapter.Update(MyDataset.TBHOTKEY_PATTERNS_REWORK)
-                Me.lblsavePatternsRework.Visible = True
-            Else
-                Me.lblsavePatternsRework.Visible = False
-            End If
-        Catch ex As Exception
-            MsgBox("Error in Save Reowrk Patterns: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
-        End Try
-    End Sub
-
-    Private Sub TBHOTKEY_PATTERNSBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBHOTKEY_PATTERNSBindingSource.AddingNew
-        MyDataset.TBHOTKEY_PATTERNS_REWORK.ADDED_WHOColumn.DefaultValue = Environment.UserName
-    End Sub
-    Private Sub TYPEComboBox_SelectedIndexChanged(sender As Object, e As EventArgs) Handles TYPEComboBox.SelectedIndexChanged
-        If TYPEComboBox.SelectedIndex <> -1 Then
-            Me.TEXT1TextBox.Visible = True
-            Me.Text1Label.Visible = True
-            Me.TEXT2TextBox.Visible = True
-            Me.Text2Label.Visible = True
-            Me.btnRegexTest.Visible = False
-
-            TEXT1TextBox.Size = New Size(50, 22)
-            lblHinweisRework1.Visible = False
-
-            Me.FUNCTION1TextBox.Visible = False
-            Me.FUNCTION2TextBox.Visible = False
-            Me.Function1Label.Visible = False
-            Me.Function2Label.Visible = False
-            FUNCTION1TextBox.Size = New Size(111, 22)
-
-            Select Case TYPEComboBox.Text
-                Case "VBREPLACE"
-                    Me.Text1Label.Text = "Old Value:"
-                    Me.Text2Label.Text = "New Value:"
-
-                Case "VBSPLIT"
-                    Me.Text1Label.Text = "Split-Zeichen:"
-                    lblHinweisRework1.Text = "(Zahl) - Achtung Nullbasierend: Erstes Vorkommen = '0'"
-                    lblHinweisRework1.Visible = True
-                    Me.Text2Label.Text = "Vorkommen:"
-                Case "Regular Expression"
-                    Me.Text1Label.Text = "Regular Expression:"
-                    TEXT1TextBox.Size = New Size(400, 22)
-                    Me.Text2Label.Visible = False
-                    Me.TEXT2TextBox.Visible = False
-
-                    Me.Function1Label.Text = "Test-String Regex:"
-                    Me.FUNCTION1TextBox.Text = ""
-                    FUNCTION1TextBox.Size = New Size(138, 22)
-                    Me.FUNCTION1TextBox.Visible = True
-                    Me.Function1Label.Visible = True
-                    Me.btnRegexTest.Visible = True
-            End Select
-        End If
-    End Sub
-    Private Sub TBHOTKEY_PATTERNS_REWORKBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBHOTKEY_PATTERNS_REWORKBindingSource.AddingNew
-        If ListBoxPatterns.SelectedIndex <> -1 Then
-            MyDataset.TBHOTKEY_PATTERNS_REWORK.ADDED_WHOColumn.DefaultValue = Environment.UserName
-            MyDataset.TBHOTKEY_PATTERNS_REWORK.HKPATTERN_IDColumn.DefaultValue = ListBoxPatterns.SelectedValue
-        End If
-
-    End Sub
-
-    Private Sub GUIDTextBox_TextChanged(sender As Object, e As EventArgs) Handles GUIDTextBox.TextChanged
-        If GUIDTextBox.Text <> "" Then
-            Load_Patterns()
-            Load_MatchPatterns()
-        End If
-    End Sub
-
-    Private Sub GUIDTextBox2_TextChanged(sender As Object, e As EventArgs) Handles GUIDTextBox2.TextChanged
-        If GUIDTextBox2.Text <> "" Then
-            Fill_Rework(GUIDTextBox2.Text)
-        End If
-    End Sub
-
-    Private Sub btnRegexTest_Click(sender As Object, e As EventArgs) Handles btnRegexTest.Click
-        If Me.TEXT1TextBox.Text <> "" And FUNCTION1TextBox.Text <> "" Then
-            Dim RegexList As New List(Of System.Text.RegularExpressions.Regex)
-            Dim Regex As New System.Text.RegularExpressions.Regex(Me.TEXT1TextBox.Text, System.Text.RegularExpressions.RegexOptions.IgnoreCase)
-
-            RegexList.Add(Regex)
-
-            ' Email Absender und Empfänger
-            Dim result = ClassPostprocessing.extractFromStringviaRE(FUNCTION1TextBox.Text, RegexList)
-            If Not IsNothing(result) Then
-                MsgBox("Das Ergebnis der Regular-Expression: '" & result.ToString & "'!", MsgBoxStyle.Information)
-            Else
-                MsgBox("Es konnte kein Ergebnis ermittelt werden!", MsgBoxStyle.Exclamation)
-            End If
-
-        End If
-
-
-    End Sub
-    Dim Control_ID As String
-    Private Sub ListViewControls_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListViewControls.SelectedIndexChanged
-        If Me.ListViewControls.SelectedItems.Count > 0 Then
-            Control_ID = Me.ListViewControls.SelectedItems(0).SubItems(1).Text
-            txtControl.Text = ListViewControls.SelectedItems(0).Text
-            txtControl_Match.Text = ListViewControls.SelectedItems(0).Text
-            txtValueMatch.Text = Me.ListViewControls.SelectedItems(0).SubItems(2).Text
-            txtPattern.Text = ""
-            If lblLinkadd.Visible Then
-                ListBox_FormTitles.Enabled = False
-            End If
-        End If
-    End Sub
-
-    Private Sub chkboxshowfilledControlsOnly_Test_CheckedChanged(sender As Object, e As EventArgs) Handles chkboxshowfilledControlsOnly_Test.CheckedChanged
-        If ListBox_MainWindows_Test.SelectedIndex <> -1 Then
-            List_Controls(ListBox_MainWindows_Test.SelectedItem, 2)
-        End If
-    End Sub
-
-    Private Sub chkboxshowfilledControlsOnly_CheckedChanged(sender As Object, e As EventArgs) Handles chkboxshowfilledControlsOnly.CheckedChanged
-        If ListBox_FormTitles.SelectedIndex <> -1 Then
-            List_Controls(ListBox_FormTitles.SelectedItem, 1)
-        End If
-    End Sub
-
-    Private Sub btnadd_WindowMatch_Click(sender As Object, e As EventArgs) Handles btnadd_WindowMatch.Click
-        Try
-            Dim sql As String = "select max(guid) from tbhotkey_Profile where upper(name) =  Upper('" & txtProfilname.Text & "')"
-            Dim kopf = ClassDatabase.Execute_Scalar(sql, MyConnectionString, True)
-            If IsDBNull(kopf) Then
-                TBHOTKEY_PROFILETableAdapter.Insert(txtProfilname.Text, "NONE", txtWDSearch.Text, cmbFunktionstaste.Text, txtKey.Text.ToUpper, ListBox_FormTitles.SelectedItem, Environment.UserName)
-            Else
-                TBHOTKEY_PROFILETableAdapter.cmdUpdate(txtProfilname.Text, "NONE", txtWDSearch.Text, cmbFunktionstaste.Text, txtKey.Text.ToUpper, ListBox_FormTitles.SelectedItem, Environment.UserName, kopf)
-            End If
-            lblSaveHotkey.Visible = True
-            sql = "select max(guid) from tbhotkey_Profile where upper(name) =  Upper('" & txtProfilname.Text & "')"
-            Dim id = ClassDatabase.Execute_Scalar(sql, MyConnectionString, True)
-            If id > 0 Then
-                TBHOTKEY_WINDOW_HOOKTableAdapter.Insert(id, txtControl_Match.Text, txtValueMatch.Text, Environment.UserName)
-                lblMatchadd.Text = "Control-Matching " & txtControl_Match.Text & " || " & txtValueMatch.Text & " erfolgreich angelegt"
-                lblMatchadd.Visible = True
-                lblLinkadd.Visible = False
-            End If
-        Catch ex As Exception
-            MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in Add Control-Match:")
-        End Try
-    End Sub
-
-    Private Sub tsbtnsave_pattern_Click(sender As Object, e As EventArgs) Handles tsbtnsave_pattern.Click
-        Try
-            TBHOTKEY_PATTERNSBindingSource.EndEdit()
-            If Me.MyDataset.TBHOTKEY_PATTERNS.GetChanges Is Nothing = False Then
-                Me.CHANGED_WHOTextBox2.Text = Environment.UserName
-                TBHOTKEY_PATTERNSBindingSource.EndEdit()
-                TBHOTKEY_PATTERNSTableAdapter.Update(MyDataset.TBHOTKEY_PATTERNS)
-                Me.lblSavePAttern.Visible = True
-            Else
-                Me.lblSavePAttern.Visible = False
-            End If
-        Catch ex As Exception
-            MsgBox("Error in Save Patterns: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
-        End Try
-    End Sub
-
-    Private Sub ToolStripButton2_Click(sender As Object, e As EventArgs) Handles ToolStripButton2.Click
-        Dim result As MsgBoxResult
-        result = MessageBox.Show("Sind Sie sicher dass Sie diesen Control-Match löschen wollen?", "Bestätigung erforderlich:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
-        If result = MsgBoxResult.Yes Then
-            Try
-                TBHOTKEY_WINDOW_HOOKTableAdapter.Delete(GUIDTextBox3.Text)
-                Load_MatchPatterns()
-            Catch ex As Exception
-                MsgBox("Error in Delete Control-Match: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
-            End Try
-        End If
-    End Sub
-
-    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles btnnewProfile.Click
-        txtProfilname.Text = ""
-        txtWDSearch.Text = ""
-        cmbFunktionstaste.SelectedIndex = -1
-        txtKey.Text = ""
-        GroupBoxMainWindow.Visible = False
-        GroupBox2_Controls.Visible = False
-        ListBox_FormTitles.Enabled = True
-        btnAddCopypasteConfig.Enabled = True
-    End Sub
-
-    Private Sub TEXT1TextBox_TextChanged(sender As Object, e As EventArgs) Handles TEXT1TextBox.TextChanged
-        If TEXT1TextBox.Text = " " Then
-            TEXT1TextBox.SelectAll()
-            TEXT1TextBox.BackColor = Color.DarkOrange
-            TEXT1TextBox.ForeColor = Color.White
-        Else
-            TEXT1TextBox.BackColor = Color.White
-            TEXT1TextBox.ForeColor = Color.Black
-        End If
-    End Sub
-
-    Private Sub frmHotKey_Add_Shown(sender As Object, e As EventArgs) Handles Me.Shown
-        Form_loaded = True
-        If GUIDTextBox.Text <> String.Empty Then
-            GroupBoxPatterns.Visible = True
-        End If
-
-    End Sub
-
-    Private Sub chklbUser_MouseEnter(sender As Object, e As EventArgs) Handles chklbUser.MouseEnter
-        ToolTipController1.ShowHint("Rechtsklick für weitere Funktionen", "Hinweis:", DevExpress.Utils.ToolTipLocation.RightCenter)
-    End Sub
-    Private Sub chklbUser_MouseLeave(sender As Object, e As EventArgs) Handles chklbUser.MouseLeave
-        ToolTipController1.HideHint()
-    End Sub
-
-    Private Sub btnAddCopypasteConfig_Click(sender As Object, e As EventArgs) Handles btnAddCopypasteConfig.Click
-        Try
-            lblLinkCopyPaste.Visible = False
-            If txtcopypastePatter.Text = "" Then
-                Exit Sub
-            End If
-            Dim sql As String = "select max(guid) from tbhotkey_Profile where upper(name) =  Upper('" & txtProfilname.Text & "')"
-            Dim kopfid = ClassDatabase.Execute_Scalar(sql, MyConnectionString, True)
-            If IsDBNull(kopfid) Then
-                TBHOTKEY_PROFILETableAdapter.Insert(txtProfilname.Text, "COPYPASTE", txtWDSearch.Text, cmbFunktionstaste.Text, txtKey.Text.ToUpper, ListBox_FormTitles.SelectedItem, Environment.UserName)
-            Else
-                TBHOTKEY_PROFILETableAdapter.cmdUpdate(txtProfilname.Text, "COPYPASTE", txtWDSearch.Text, cmbFunktionstaste.Text, txtKey.Text.ToUpper, ListBox_FormTitles.SelectedItem, Environment.UserName, kopfid)
-            End If
-            lblSaveHotkey.Visible = True
-            sql = "select max(guid) from tbhotkey_Profile where upper(name) =  Upper('" & txtProfilname.Text & "')"
-            Dim id = ClassDatabase.Execute_Scalar(sql, MyConnectionString, True)
-            If id > 0 Then
-                TBHOTKEY_PATTERNSTableAdapter.Insert(id, txtcopypastePatter.Text, cmbCopyPasteFunction.Text, Environment.UserName, txtControl.Text)
-                lblLinkCopyPaste.Text = "Pattern-Link " & cmbCopyPasteFunction.Text & " || " & txtcopypastePatter.Text & " erfolgreich angelegt"
-                lblLinkCopyPaste.Visible = True
-                btnAddCopypasteConfig.Enabled = False
-            End If
-        Catch ex As Exception
-            MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in CopyPaste Add Pattern or Profile:")
-        End Try
-    End Sub
-
-    Private Sub cmbCopyPasteFunction_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmbCopyPasteFunction.SelectedIndexChanged
-
-    End Sub
-
-    Private Sub chklbUserProfile_MouseEnter(sender As Object, e As EventArgs) Handles chklbUserProfile.MouseEnter
-        ToolTipController1.ShowHint("Rechtsklick für weitere Funktionen", "Hinweis:", DevExpress.Utils.ToolTipLocation.RightCenter)
-    End Sub
-
-    Private Sub chklbUserProfile_MouseLeave(sender As Object, e As EventArgs) Handles chklbUserProfile.MouseLeave
-        ToolTipController1.HideHint()
-    End Sub
-End Class

Global_Indexer/frmHotkey_User.Designer.vb

@@ -1,346 +0,0 @@
-<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
-Partial Class frmHotkey_User
-    Inherits System.Windows.Forms.Form
-
-    'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
-    <System.Diagnostics.DebuggerNonUserCode()> _
-    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
-        Try
-            If disposing AndAlso components IsNot Nothing Then
-                components.Dispose()
-            End If
-        Finally
-            MyBase.Dispose(disposing)
-        End Try
-    End Sub
-
-    'Wird vom Windows Form-Designer benötigt.
-    Private components As System.ComponentModel.IContainer
-
-    'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
-    'Das Bearbeiten ist mit dem Windows Form-Designer möglich.  
-    'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
-    <System.Diagnostics.DebuggerStepThrough()> _
-    Private Sub InitializeComponent()
-        Me.components = New System.ComponentModel.Container()
-        Dim WD_SEARCHLabel As System.Windows.Forms.Label
-        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmHotkey_User))
-        Dim HOTKEY2Label As System.Windows.Forms.Label
-        Dim ADDED_WHENLabel As System.Windows.Forms.Label
-        Dim CHANGED_WHOLabel As System.Windows.Forms.Label
-        Dim CHANGED_WHENLabel As System.Windows.Forms.Label
-        Dim HOTKEY1Label As System.Windows.Forms.Label
-        Me.StatusStrip1 = New System.Windows.Forms.StatusStrip()
-        Me.Label1 = New System.Windows.Forms.Label()
-        Me.MyDataset = New Global_Indexer.MyDataset()
-        Me.TBHOTKEY_PROFILEBindingSource = New System.Windows.Forms.BindingSource(Me.components)
-        Me.TBHOTKEY_PROFILETableAdapter = New Global_Indexer.MyDatasetTableAdapters.TBHOTKEY_PROFILETableAdapter()
-        Me.TableAdapterManager = New Global_Indexer.MyDatasetTableAdapters.TableAdapterManager()
-        Me.ListBox1 = New System.Windows.Forms.ListBox()
-        Me.ListBoxMyHK = New System.Windows.Forms.ListBox()
-        Me.TBMYHOTKEYSBindingSource = New System.Windows.Forms.BindingSource(Me.components)
-        Me.lblmeinehotkeys = New System.Windows.Forms.Label()
-        Me.TBMYHOTKEYSTableAdapter = New Global_Indexer.MyDatasetTableAdapters.TBMYHOTKEYSTableAdapter()
-        Me.btnAddtomyHK = New System.Windows.Forms.Button()
-        Me.TBHOTKEY_USER_PROFILEBindingSource = New System.Windows.Forms.BindingSource(Me.components)
-        Me.TBHOTKEY_USER_PROFILETableAdapter = New Global_Indexer.MyDatasetTableAdapters.TBHOTKEY_USER_PROFILETableAdapter()
-        Me.WD_SEARCHTextBox = New System.Windows.Forms.TextBox()
-        Me.HOTKEY2TextBox = New System.Windows.Forms.TextBox()
-        Me.ADDED_WHENTextBox = New System.Windows.Forms.TextBox()
-        Me.CHANGED_WHOTextBox = New System.Windows.Forms.TextBox()
-        Me.CHANGED_WHENTextBox = New System.Windows.Forms.TextBox()
-        Me.GroupBox1 = New System.Windows.Forms.GroupBox()
-        Me.chkbxMaximizeWS = New System.Windows.Forms.CheckBox()
-        Me.Button1 = New System.Windows.Forms.Button()
-        Me.lblSave = New System.Windows.Forms.Label()
-        Me.btnsave = New System.Windows.Forms.Button()
-        Me.HOTKEY1ComboBox = New System.Windows.Forms.ComboBox()
-        Me.btndelete = New System.Windows.Forms.Button()
-        Me.OFDWindreamsuche = New System.Windows.Forms.OpenFileDialog()
-        WD_SEARCHLabel = New System.Windows.Forms.Label()
-        HOTKEY2Label = New System.Windows.Forms.Label()
-        ADDED_WHENLabel = New System.Windows.Forms.Label()
-        CHANGED_WHOLabel = New System.Windows.Forms.Label()
-        CHANGED_WHENLabel = New System.Windows.Forms.Label()
-        HOTKEY1Label = New System.Windows.Forms.Label()
-        CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.TBHOTKEY_PROFILEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.TBMYHOTKEYSBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.TBHOTKEY_USER_PROFILEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
-        Me.GroupBox1.SuspendLayout()
-        Me.SuspendLayout()
-        '
-        'WD_SEARCHLabel
-        '
-        resources.ApplyResources(WD_SEARCHLabel, "WD_SEARCHLabel")
-        WD_SEARCHLabel.Name = "WD_SEARCHLabel"
-        '
-        'HOTKEY2Label
-        '
-        resources.ApplyResources(HOTKEY2Label, "HOTKEY2Label")
-        HOTKEY2Label.Name = "HOTKEY2Label"
-        '
-        'ADDED_WHENLabel
-        '
-        resources.ApplyResources(ADDED_WHENLabel, "ADDED_WHENLabel")
-        ADDED_WHENLabel.Name = "ADDED_WHENLabel"
-        '
-        'CHANGED_WHOLabel
-        '
-        resources.ApplyResources(CHANGED_WHOLabel, "CHANGED_WHOLabel")
-        CHANGED_WHOLabel.Name = "CHANGED_WHOLabel"
-        '
-        'CHANGED_WHENLabel
-        '
-        resources.ApplyResources(CHANGED_WHENLabel, "CHANGED_WHENLabel")
-        CHANGED_WHENLabel.Name = "CHANGED_WHENLabel"
-        '
-        'HOTKEY1Label
-        '
-        resources.ApplyResources(HOTKEY1Label, "HOTKEY1Label")
-        HOTKEY1Label.Name = "HOTKEY1Label"
-        '
-        'StatusStrip1
-        '
-        resources.ApplyResources(Me.StatusStrip1, "StatusStrip1")
-        Me.StatusStrip1.Name = "StatusStrip1"
-        '
-        'Label1
-        '
-        resources.ApplyResources(Me.Label1, "Label1")
-        Me.Label1.Name = "Label1"
-        '
-        'MyDataset
-        '
-        Me.MyDataset.DataSetName = "MyDataset"
-        Me.MyDataset.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
-        '
-        'TBHOTKEY_PROFILEBindingSource
-        '
-        Me.TBHOTKEY_PROFILEBindingSource.DataMember = "TBHOTKEY_PROFILE"
-        Me.TBHOTKEY_PROFILEBindingSource.DataSource = Me.MyDataset
-        '
-        'TBHOTKEY_PROFILETableAdapter
-        '
-        Me.TBHOTKEY_PROFILETableAdapter.ClearBeforeFill = True
-        '
-        'TableAdapterManager
-        '
-        Me.TableAdapterManager.BackupDataSetBeforeUpdate = False
-        Me.TableAdapterManager.TBDD_CONNECTIONTableAdapter = Nothing
-        Me.TableAdapterManager.TBDD_DOKUMENTARTTableAdapter = Nothing
-        Me.TableAdapterManager.TBDD_EINGANGSARTENTableAdapter = Nothing
-        Me.TableAdapterManager.TBDD_GROUPS_USERTableAdapter = Nothing
-        Me.TableAdapterManager.TBDD_INDEX_AUTOMTableAdapter = Nothing
-        Me.TableAdapterManager.TBDD_INDEX_MAN_POSTPROCESSINGTableAdapter = Nothing
-        Me.TableAdapterManager.TBDD_INDEX_MANTableAdapter = Nothing
-        Me.TableAdapterManager.TBDD_GROUPSTableAdapter = Nothing
-        Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing
-        Me.TableAdapterManager.TBGI_CONFIGURATIONTableAdapter = Nothing
-        Me.TableAdapterManager.TBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter = Nothing
-        Me.TableAdapterManager.TBHOTKEY_PATTERNS_REWORKTableAdapter = Nothing
-        Me.TableAdapterManager.TBHOTKEY_PATTERNSTableAdapter = Nothing
-        Me.TableAdapterManager.TBHOTKEY_PROFILETableAdapter = Me.TBHOTKEY_PROFILETableAdapter
-        Me.TableAdapterManager.TBHOTKEY_USER_PROFILETableAdapter = Nothing
-        Me.TableAdapterManager.TBHOTKEY_WINDOW_HOOKTableAdapter = Nothing
-        Me.TableAdapterManager.UpdateOrder = Global_Indexer.MyDatasetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete
-        '
-        'ListBox1
-        '
-        resources.ApplyResources(Me.ListBox1, "ListBox1")
-        Me.ListBox1.DataSource = Me.TBHOTKEY_PROFILEBindingSource
-        Me.ListBox1.DisplayMember = "String"
-        Me.ListBox1.FormattingEnabled = True
-        Me.ListBox1.Name = "ListBox1"
-        Me.ListBox1.ValueMember = "GUID"
-        '
-        'ListBoxMyHK
-        '
-        resources.ApplyResources(Me.ListBoxMyHK, "ListBoxMyHK")
-        Me.ListBoxMyHK.DataSource = Me.TBMYHOTKEYSBindingSource
-        Me.ListBoxMyHK.DisplayMember = "String"
-        Me.ListBoxMyHK.FormattingEnabled = True
-        Me.ListBoxMyHK.Name = "ListBoxMyHK"
-        Me.ListBoxMyHK.ValueMember = "GUID"
-        '
-        'TBMYHOTKEYSBindingSource
-        '
-        Me.TBMYHOTKEYSBindingSource.DataMember = "TBMYHOTKEYS"
-        Me.TBMYHOTKEYSBindingSource.DataSource = Me.MyDataset
-        '
-        'lblmeinehotkeys
-        '
-        resources.ApplyResources(Me.lblmeinehotkeys, "lblmeinehotkeys")
-        Me.lblmeinehotkeys.Name = "lblmeinehotkeys"
-        '
-        'TBMYHOTKEYSTableAdapter
-        '
-        Me.TBMYHOTKEYSTableAdapter.ClearBeforeFill = True
-        '
-        'btnAddtomyHK
-        '
-        resources.ApplyResources(Me.btnAddtomyHK, "btnAddtomyHK")
-        Me.btnAddtomyHK.Image = Global.Global_Indexer.My.Resources.Resources.arrow_Forward_16xMD
-        Me.btnAddtomyHK.Name = "btnAddtomyHK"
-        Me.btnAddtomyHK.UseVisualStyleBackColor = True
-        '
-        'TBHOTKEY_USER_PROFILEBindingSource
-        '
-        Me.TBHOTKEY_USER_PROFILEBindingSource.DataMember = "TBHOTKEY_USER_PROFILE"
-        Me.TBHOTKEY_USER_PROFILEBindingSource.DataSource = Me.MyDataset
-        '
-        'TBHOTKEY_USER_PROFILETableAdapter
-        '
-        Me.TBHOTKEY_USER_PROFILETableAdapter.ClearBeforeFill = True
-        '
-        'WD_SEARCHTextBox
-        '
-        resources.ApplyResources(Me.WD_SEARCHTextBox, "WD_SEARCHTextBox")
-        Me.WD_SEARCHTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBHOTKEY_USER_PROFILEBindingSource, "WD_SEARCH", True))
-        Me.WD_SEARCHTextBox.Name = "WD_SEARCHTextBox"
-        '
-        'HOTKEY2TextBox
-        '
-        resources.ApplyResources(Me.HOTKEY2TextBox, "HOTKEY2TextBox")
-        Me.HOTKEY2TextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBHOTKEY_USER_PROFILEBindingSource, "HOTKEY2", True))
-        Me.HOTKEY2TextBox.Name = "HOTKEY2TextBox"
-        '
-        'ADDED_WHENTextBox
-        '
-        resources.ApplyResources(Me.ADDED_WHENTextBox, "ADDED_WHENTextBox")
-        Me.ADDED_WHENTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBHOTKEY_USER_PROFILEBindingSource, "ADDED_WHEN", True))
-        Me.ADDED_WHENTextBox.Name = "ADDED_WHENTextBox"
-        '
-        'CHANGED_WHOTextBox
-        '
-        resources.ApplyResources(Me.CHANGED_WHOTextBox, "CHANGED_WHOTextBox")
-        Me.CHANGED_WHOTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBHOTKEY_USER_PROFILEBindingSource, "CHANGED_WHO", True))
-        Me.CHANGED_WHOTextBox.Name = "CHANGED_WHOTextBox"
-        '
-        'CHANGED_WHENTextBox
-        '
-        resources.ApplyResources(Me.CHANGED_WHENTextBox, "CHANGED_WHENTextBox")
-        Me.CHANGED_WHENTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBHOTKEY_USER_PROFILEBindingSource, "CHANGED_WHEN", True))
-        Me.CHANGED_WHENTextBox.Name = "CHANGED_WHENTextBox"
-        '
-        'GroupBox1
-        '
-        resources.ApplyResources(Me.GroupBox1, "GroupBox1")
-        Me.GroupBox1.Controls.Add(Me.chkbxMaximizeWS)
-        Me.GroupBox1.Controls.Add(Me.Button1)
-        Me.GroupBox1.Controls.Add(Me.lblSave)
-        Me.GroupBox1.Controls.Add(Me.btnsave)
-        Me.GroupBox1.Controls.Add(Me.HOTKEY1ComboBox)
-        Me.GroupBox1.Controls.Add(Me.CHANGED_WHENTextBox)
-        Me.GroupBox1.Controls.Add(CHANGED_WHENLabel)
-        Me.GroupBox1.Controls.Add(HOTKEY1Label)
-        Me.GroupBox1.Controls.Add(WD_SEARCHLabel)
-        Me.GroupBox1.Controls.Add(Me.CHANGED_WHOTextBox)
-        Me.GroupBox1.Controls.Add(CHANGED_WHOLabel)
-        Me.GroupBox1.Controls.Add(Me.WD_SEARCHTextBox)
-        Me.GroupBox1.Controls.Add(HOTKEY2Label)
-        Me.GroupBox1.Controls.Add(Me.ADDED_WHENTextBox)
-        Me.GroupBox1.Controls.Add(ADDED_WHENLabel)
-        Me.GroupBox1.Controls.Add(Me.HOTKEY2TextBox)
-        Me.GroupBox1.Name = "GroupBox1"
-        Me.GroupBox1.TabStop = False
-        '
-        'chkbxMaximizeWS
-        '
-        resources.ApplyResources(Me.chkbxMaximizeWS, "chkbxMaximizeWS")
-        Me.chkbxMaximizeWS.Checked = Global.Global_Indexer.My.MySettings.Default.WDSearch_maximized
-        Me.chkbxMaximizeWS.CheckState = System.Windows.Forms.CheckState.Checked
-        Me.chkbxMaximizeWS.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Global_Indexer.My.MySettings.Default, "WDSearch_maximized", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged))
-        Me.chkbxMaximizeWS.Name = "chkbxMaximizeWS"
-        Me.chkbxMaximizeWS.UseVisualStyleBackColor = True
-        '
-        'Button1
-        '
-        resources.ApplyResources(Me.Button1, "Button1")
-        Me.Button1.Name = "Button1"
-        Me.Button1.UseVisualStyleBackColor = True
-        '
-        'lblSave
-        '
-        resources.ApplyResources(Me.lblSave, "lblSave")
-        Me.lblSave.BackColor = System.Drawing.Color.Yellow
-        Me.lblSave.Name = "lblSave"
-        '
-        'btnsave
-        '
-        resources.ApplyResources(Me.btnsave, "btnsave")
-        Me.btnsave.Image = Global.Global_Indexer.My.Resources.Resources.save_16xLG
-        Me.btnsave.Name = "btnsave"
-        Me.btnsave.UseVisualStyleBackColor = True
-        '
-        'HOTKEY1ComboBox
-        '
-        resources.ApplyResources(Me.HOTKEY1ComboBox, "HOTKEY1ComboBox")
-        Me.HOTKEY1ComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBHOTKEY_USER_PROFILEBindingSource, "HOTKEY1", True))
-        Me.HOTKEY1ComboBox.FormattingEnabled = True
-        Me.HOTKEY1ComboBox.Items.AddRange(New Object() {resources.GetString("HOTKEY1ComboBox.Items"), resources.GetString("HOTKEY1ComboBox.Items1"), resources.GetString("HOTKEY1ComboBox.Items2"), resources.GetString("HOTKEY1ComboBox.Items3")})
-        Me.HOTKEY1ComboBox.Name = "HOTKEY1ComboBox"
-        '
-        'btndelete
-        '
-        resources.ApplyResources(Me.btndelete, "btndelete")
-        Me.btndelete.Image = Global.Global_Indexer.My.Resources.Resources.delete_12x12
-        Me.btndelete.Name = "btndelete"
-        Me.btndelete.UseVisualStyleBackColor = True
-        '
-        'OFDWindreamsuche
-        '
-        resources.ApplyResources(Me.OFDWindreamsuche, "OFDWindreamsuche")
-        Me.OFDWindreamsuche.RestoreDirectory = True
-        '
-        'frmHotkey_User
-        '
-        resources.ApplyResources(Me, "$this")
-        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.Controls.Add(Me.btndelete)
-        Me.Controls.Add(Me.GroupBox1)
-        Me.Controls.Add(Me.btnAddtomyHK)
-        Me.Controls.Add(Me.lblmeinehotkeys)
-        Me.Controls.Add(Me.ListBoxMyHK)
-        Me.Controls.Add(Me.ListBox1)
-        Me.Controls.Add(Me.Label1)
-        Me.Controls.Add(Me.StatusStrip1)
-        Me.Name = "frmHotkey_User"
-        CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.TBHOTKEY_PROFILEBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.TBMYHOTKEYSBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.TBHOTKEY_USER_PROFILEBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.GroupBox1.ResumeLayout(False)
-        Me.GroupBox1.PerformLayout()
-        Me.ResumeLayout(False)
-        Me.PerformLayout()
-
-    End Sub
-    Friend WithEvents StatusStrip1 As System.Windows.Forms.StatusStrip
-    Friend WithEvents Label1 As System.Windows.Forms.Label
-    Friend WithEvents MyDataset As Global_Indexer.MyDataset
-    Friend WithEvents TBHOTKEY_PROFILEBindingSource As System.Windows.Forms.BindingSource
-    Friend WithEvents TBHOTKEY_PROFILETableAdapter As Global_Indexer.MyDatasetTableAdapters.TBHOTKEY_PROFILETableAdapter
-    Friend WithEvents TableAdapterManager As Global_Indexer.MyDatasetTableAdapters.TableAdapterManager
-    Friend WithEvents ListBox1 As System.Windows.Forms.ListBox
-    Friend WithEvents ListBoxMyHK As System.Windows.Forms.ListBox
-    Friend WithEvents lblmeinehotkeys As System.Windows.Forms.Label
-    Friend WithEvents TBMYHOTKEYSBindingSource As System.Windows.Forms.BindingSource
-    Friend WithEvents TBMYHOTKEYSTableAdapter As Global_Indexer.MyDatasetTableAdapters.TBMYHOTKEYSTableAdapter
-    Friend WithEvents btnAddtomyHK As System.Windows.Forms.Button
-    Friend WithEvents TBHOTKEY_USER_PROFILEBindingSource As System.Windows.Forms.BindingSource
-    Friend WithEvents TBHOTKEY_USER_PROFILETableAdapter As Global_Indexer.MyDatasetTableAdapters.TBHOTKEY_USER_PROFILETableAdapter
-    Friend WithEvents WD_SEARCHTextBox As System.Windows.Forms.TextBox
-    Friend WithEvents HOTKEY2TextBox As System.Windows.Forms.TextBox
-    Friend WithEvents ADDED_WHENTextBox As System.Windows.Forms.TextBox
-    Friend WithEvents CHANGED_WHOTextBox As System.Windows.Forms.TextBox
-    Friend WithEvents CHANGED_WHENTextBox As System.Windows.Forms.TextBox
-    Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
-    Friend WithEvents HOTKEY1ComboBox As System.Windows.Forms.ComboBox
-    Friend WithEvents btnsave As System.Windows.Forms.Button
-    Friend WithEvents btndelete As System.Windows.Forms.Button
-    Friend WithEvents lblSave As System.Windows.Forms.Label
-    Friend WithEvents Button1 As System.Windows.Forms.Button
-    Friend WithEvents OFDWindreamsuche As System.Windows.Forms.OpenFileDialog
-    Friend WithEvents chkbxMaximizeWS As System.Windows.Forms.CheckBox
-End Class

Global_Indexer/frmHotkey_User.en-US.resx

@@ -1,330 +0,0 @@
-<?xml version="1.0" encoding="utf-8"?>
-<root>
-  <!-- 
-    Microsoft ResX Schema 
-    
-    Version 2.0
-    
-    The primary goals of this format is to allow a simple XML format 
-    that is mostly human readable. The generation and parsing of the 
-    various data types are done through the TypeConverter classes 
-    associated with the data types.
-    
-    Example:
-    
-    ... ado.net/XML headers & schema ...
-    <resheader name="resmimetype">text/microsoft-resx</resheader>
-    <resheader name="version">2.0</resheader>
-    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
-    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
-    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
-    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
-    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
-        <value>[base64 mime encoded serialized .NET Framework object]</value>
-    </data>
-    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
-        <comment>This is a comment</comment>
-    </data>
-                
-    There are any number of "resheader" rows that contain simple 
-    name/value pairs.
-    
-    Each data row contains a name, and value. The row also contains a 
-    type or mimetype. Type corresponds to a .NET class that support 
-    text/value conversion through the TypeConverter architecture. 
-    Classes that don't support this are serialized and stored with the 
-    mimetype set.
-    
-    The mimetype is used for serialized objects, and tells the 
-    ResXResourceReader how to depersist the object. This is currently not 
-    extensible. For a given mimetype the value must be set accordingly:
-    
-    Note - application/x-microsoft.net.object.binary.base64 is the format 
-    that the ResXResourceWriter will generate, however the reader can 
-    read any of the formats listed below.
-    
-    mimetype: application/x-microsoft.net.object.binary.base64
-    value   : The object must be serialized with 
-            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
-            : and then encoded with base64 encoding.
-    
-    mimetype: application/x-microsoft.net.object.soap.base64
-    value   : The object must be serialized with 
-            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
-            : and then encoded with base64 encoding.
-
-    mimetype: application/x-microsoft.net.object.bytearray.base64
-    value   : The object must be serialized into a byte array 
-            : using a System.ComponentModel.TypeConverter
-            : and then encoded with base64 encoding.
-    -->
-  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
-    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
-    <xsd:element name="root" msdata:IsDataSet="true">
-      <xsd:complexType>
-        <xsd:choice maxOccurs="unbounded">
-          <xsd:element name="metadata">
-            <xsd:complexType>
-              <xsd:sequence>
-                <xsd:element name="value" type="xsd:string" minOccurs="0" />
-              </xsd:sequence>
-              <xsd:attribute name="name" use="required" type="xsd:string" />
-              <xsd:attribute name="type" type="xsd:string" />
-              <xsd:attribute name="mimetype" type="xsd:string" />
-              <xsd:attribute ref="xml:space" />
-            </xsd:complexType>
-          </xsd:element>
-          <xsd:element name="assembly">
-            <xsd:complexType>
-              <xsd:attribute name="alias" type="xsd:string" />
-              <xsd:attribute name="name" type="xsd:string" />
-            </xsd:complexType>
-          </xsd:element>
-          <xsd:element name="data">
-            <xsd:complexType>
-              <xsd:sequence>
-                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
-                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
-              </xsd:sequence>
-              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
-              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
-              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
-              <xsd:attribute ref="xml:space" />
-            </xsd:complexType>
-          </xsd:element>
-          <xsd:element name="resheader">
-            <xsd:complexType>
-              <xsd:sequence>
-                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
-              </xsd:sequence>
-              <xsd:attribute name="name" type="xsd:string" use="required" />
-            </xsd:complexType>
-          </xsd:element>
-        </xsd:choice>
-      </xsd:complexType>
-    </xsd:element>
-  </xsd:schema>
-  <resheader name="resmimetype">
-    <value>text/microsoft-resx</value>
-  </resheader>
-  <resheader name="version">
-    <value>2.0</value>
-  </resheader>
-  <resheader name="reader">
-    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </resheader>
-  <resheader name="writer">
-    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </resheader>
-  <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
-  <data name="WD_SEARCHLabel.Size" type="System.Drawing.Size, System.Drawing">
-    <value>99, 13</value>
-  </data>
-  <data name="WD_SEARCHLabel.Text" xml:space="preserve">
-    <value>windream-Search:</value>
-  </data>
-  <data name="HOTKEY1Label.Size" type="System.Drawing.Size, System.Drawing">
-    <value>74, 13</value>
-  </data>
-  <data name="HOTKEY1Label.Text" xml:space="preserve">
-    <value>Modifier key:</value>
-  </data>
-  <data name="Label1.Size" type="System.Drawing.Size, System.Drawing">
-    <value>136, 15</value>
-  </data>
-  <data name="Label1.Text" xml:space="preserve">
-    <value>Current Global Hotkeys:</value>
-  </data>
-  <data name="lblmeinehotkeys.Size" type="System.Drawing.Size, System.Drawing">
-    <value>69, 15</value>
-  </data>
-  <data name="lblmeinehotkeys.Text" xml:space="preserve">
-    <value>My Hotkeys</value>
-  </data>
-  <data name="btnAddtomyHK.Text" xml:space="preserve">
-    <value>Add</value>
-  </data>
-  <data name="GroupBox1.Text" xml:space="preserve">
-    <value>Edit Hotkey:</value>
-  </data>
-  <data name="chkbxMaximizeWS.Size" type="System.Drawing.Size, System.Drawing">
-    <value>195, 17</value>
-  </data>
-  <data name="chkbxMaximizeWS.Text" xml:space="preserve">
-    <value>Start windream-Suche maximized</value>
-  </data>
-  <data name="lblSave.Size" type="System.Drawing.Size, System.Drawing">
-    <value>145, 13</value>
-  </data>
-  <data name="lblSave.Text" xml:space="preserve">
-    <value>Hotkey successfully saved!</value>
-  </data>
-  <data name="btnsave.Text" xml:space="preserve">
-    <value>Save</value>
-  </data>
-  <data name="btndelete.Text" xml:space="preserve">
-    <value>Delete</value>
-  </data>
-  <data name="OFDWindreamsuche.Filter" xml:space="preserve">
-    <value>windream-Search|*.wdf|All Files|*.*</value>
-  </data>
-  <data name="OFDWindreamsuche.Title" xml:space="preserve">
-    <value>Select windream-Search</value>
-  </data>
-  <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        AAABAAYAICAQAAEABADoAgAAZgAAABAQEAABAAQAKAEAAE4DAAAgIAAAAQAIAKgIAAB2BAAAEBAAAAEA
-        CABoBQAAHg0AACAgAAABABgAqAwAAIYSAAAQEAAAAQAYAGgDAAAuHwAAKAAAACAAAABAAAAAAQAEAAAA
-        AAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAIAAAACAgACAAAAAgACAAICAAACAgIAAwMDAAAAA
-        /wAA/wAAAP//AP8AAAD/AP8A//8AAP///wD///////////////////////////////////////////93
-        d3d3d3d3d3d3d3d3d///d3d3d3d3d3d3d3d3d3f//3d3d3d3d3d3d3d3d3d3//93d3d3d3d3d3d3d3d3
-        d///d3f/////////////d3f//3d3/////////////3d3//93d/////////////93d///d3f/////////
-        ////d3f//3d3///4j////////3d3//93d///h3j///j///93d///d3f//4d3j//3j///d3f//3d3///4
-        d3j/93j//3d3//93d////4d3j/d3//93d///d3f////4d3j3d///d3f//3d3/////4d3h3f//3d3//93
-        d//////4d3d3//93d///d3f//////4d3d///d3f//3d3///4d3d3d3f//3d3//93d////4d3d3d3//93
-        d///d3f////4d3d3d///d3f//3d3/////////////3d3//93d/////////////93d///d3f/////////
-        ////d3f//3d3/////////////3d3//93d3d3d3d3d3d3d3d3d///d3d3d3d3d3d3d3d3d3f//3d3d3d3
-        d3d3d3d3d3d3//93d3d3d3d3d3d3d3d3d////////////////////////////////////////////wAA
-        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
-        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
-        AAAAAAAAKAAAABAAAAAgAAAAAQAEAAAAAACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAIAAAACA
-        gACAAAAAgACAAICAAACAgIAAwMDAAAAA/wAA/wAAAP//AP8AAAD/AP8A//8AAP///wD///////////d3
-        d3d3d3d/93d3d3d3d3/3f//////3f/d///////d/93/4j/j/93/3f/h494/3f/d//4eHf/d/93//+Hd/
-        93/3f/h3d3/3f/d//4d3f/d/93//////93/3f//////3f/d3d3d3d3d/93d3d3d3d3///////////wAA
-        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
-        AAAoAAAAIAAAAEAAAAABAAgAAAAAAAAEAAAAAAAAAAAAAAABAAAAAQAAAAAAAEJCQgCvrq8A8e/wAPb2
-        9gAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
-        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
-        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
-        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
-        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
-        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
-        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
-        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
-        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
-        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
-        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
-        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
-        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
-        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
-        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
-        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
-        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA////AAQEBAQEBAQEBAQEBAQE
-        BAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAEBAQEBAQEB
-        AQEBAQEBAQEBAQEBAQEBAQEBAQEEBAQEAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQQEBAQBAQEB
-        AQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBBAQEBAEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEEBAQE
-        AQEBAQMDAwMDAwMDAwMDAwMDAwMDAwMDAQEBAQQEBAQBAQEBAwMDAwMDAwMDAwMDAwMDAwMDAwMBAQEB
-        BAQEBAEBAQEDAwMDAwMDAwMDAwMDAwMDAwMDAwEBAQEEBAQEAQEBAQMDAwMDAwMDAwMDAwMDAwMDAwMD
-        AQEBAQQEBAQBAQEBAwMDAwMCAgMDAwMDAwMDAwMDAwMBAQEBBAQEBAEBAQEDAwMDAgEBAgMDAwMDAgMD
-        AwMDAwEBAQEEBAQEAQEBAQMDAwMCAQEBAgMDAwMBAgMDAwMDAQEBAQQEBAQBAQEBAwMDAwMCAQEBAgMD
-        AwEBAgMDAwMBAQEBBAQEBAEBAQEDAwMDAwMCAQEBAgMDAQEBAwMDAwEBAQEEBAQEAQEBAQMDAwMDAwMC
-        AQEBAgMBAQEDAwMDAQEBAQQEBAQBAQEBAwMDAwMDAwMCAQEBAgEBAQMDAwMBAQEBBAQEBAEBAQEDAwMD
-        AwMDAwMCAQEBAQEBAwMDAwEBAQEEBAQEAQEBAQMDAwMDAwMDAwMCAQEBAQEDAwMDAQEBAQQEBAQBAQEB
-        AwMDAwMCAQEBAQEBAQEBAQMDAwMBAQEBBAQEBAEBAQEDAwMDAwMCAQEBAQEBAQEBAwMDAwEBAQEEBAQE
-        AQEBAQMDAwMDAwMCAQEBAQEBAQEDAwMDAQEBAQQEBAQBAQEBAwMDAwMDAwMDAwMDAwMDAwMDAwMBAQEB
-        BAQEBAEBAQEDAwMDAwMDAwMDAwMDAwMDAwMDAwEBAQEEBAQEAQEBAQMDAwMDAwMDAwMDAwMDAwMDAwMD
-        AQEBAQQEBAQBAQEBAwMDAwMDAwMDAwMDAwMDAwMDAwMBAQEBBAQEBAEBAQEBAQEBAQEBAQEBAQEBAQEB
-        AQEBAQEBAQEEBAQEAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQQEBAQBAQEBAQEBAQEBAQEBAQEB
-        AQEBAQEBAQEBAQEBBAQEBAEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEEBAQEBAQEBAQEBAQEBAQE
-        BAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQAAAAAAAAAAAAA
-        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
-        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACgA
-        AAAQAAAAIAAAAAEACAAAAAAAAAEAAAAAAAAAAAAAAAEAAAABAAAAAAAAQkJCAK+urwDx7/AA9vb2AAAA
-        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
-        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
-        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
-        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
-        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
-        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
-        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
-        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
-        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
-        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
-        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
-        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
-        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
-        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
-        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
-        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
-        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD///8ABAQEBAQEBAQEBAQEBAQEBAQB
-        AQEBAQEBAQEBAQEBAQQEAQEBAQEBAQEBAQEBAQEEBAEBAwMDAwMDAwMDAwEBBAQBAQMDAwMDAwMDAwMB
-        AQQEAQEDAwICAwMCAwMDAQEEBAEBAwMCAQIDAQIDAwEBBAQBAQMDAwIBAgEBAwMBAQQEAQEDAwMDAgEB
-        AQMDAQEEBAEBAwMCAQEBAQEDAwEBBAQBAQMDAwIBAQEBAwMBAQQEAQEDAwMDAwMDAwMDAQEEBAEBAwMD
-        AwMDAwMDAwEBBAQBAQEBAQEBAQEBAQEBAQQEAQEBAQEBAQEBAQEBAQEEBAQEBAQEBAQEBAQEBAQEBAAA
-        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
-        AAAoAAAAIAAAAEAAAAABABgAAAAAAAAMAAAAAAAAAAAAAAAAAAAAAAAA9vb29vb29vb29vb29vb29vb2
-        9vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb2
-        9vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb2
-        9vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb2
-        QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC
-        QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC9vb29vb29vb29vb2QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC
-        QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC
-        9vb29vb29vb29vb2QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC
-        QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC9vb29vb29vb29vb2QkJCQkJCQkJCQkJC
-        QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC
-        QkJCQkJCQkJCQkJC9vb29vb29vb29vb2QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w
-        8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/wQkJCQkJCQkJCQkJC9vb29vb29vb29vb2
-        QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w
-        8e/w8e/w8e/w8e/wQkJCQkJCQkJCQkJC9vb29vb29vb29vb2QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/w
-        8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/wQkJCQkJCQkJCQkJC
-        9vb29vb29vb29vb2QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w
-        8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/wQkJCQkJCQkJCQkJC9vb29vb29vb29vb2QkJCQkJCQkJCQkJC
-        8e/w8e/w8e/w8e/w8e/wr66vr66v8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w
-        QkJCQkJCQkJCQkJC9vb29vb29vb29vb2QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/wr66vQkJCQkJCr66v
-        8e/w8e/w8e/w8e/w8e/wr66v8e/w8e/w8e/w8e/w8e/w8e/wQkJCQkJCQkJCQkJC9vb29vb29vb29vb2
-        QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/wr66vQkJCQkJCQkJCr66v8e/w8e/w8e/w8e/wQkJCr66v8e/w
-        8e/w8e/w8e/w8e/wQkJCQkJCQkJCQkJC9vb29vb29vb29vb2QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/w
-        8e/wr66vQkJCQkJCQkJCr66v8e/w8e/w8e/wQkJCQkJCr66v8e/w8e/w8e/w8e/wQkJCQkJCQkJCQkJC
-        9vb29vb29vb29vb2QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/w8e/w8e/wr66vQkJCQkJCQkJCr66v8e/w
-        8e/wQkJCQkJCQkJC8e/w8e/w8e/w8e/wQkJCQkJCQkJCQkJC9vb29vb29vb29vb2QkJCQkJCQkJCQkJC
-        8e/w8e/w8e/w8e/w8e/w8e/w8e/wr66vQkJCQkJCQkJCr66v8e/wQkJCQkJCQkJC8e/w8e/w8e/w8e/w
-        QkJCQkJCQkJCQkJC9vb29vb29vb29vb2QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w
-        r66vQkJCQkJCQkJCr66vQkJCQkJCQkJC8e/w8e/w8e/w8e/wQkJCQkJCQkJCQkJC9vb29vb29vb29vb2
-        QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/wr66vQkJCQkJCQkJCQkJCQkJCQkJC
-        8e/w8e/w8e/w8e/wQkJCQkJCQkJCQkJC9vb29vb29vb29vb2QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/w
-        8e/w8e/w8e/w8e/w8e/w8e/wr66vQkJCQkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/wQkJCQkJCQkJCQkJC
-        9vb29vb29vb29vb2QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/w8e/wr66vQkJCQkJCQkJCQkJCQkJCQkJC
-        QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/wQkJCQkJCQkJCQkJC9vb29vb29vb29vb2QkJCQkJCQkJCQkJC
-        8e/w8e/w8e/w8e/w8e/w8e/wr66vQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/w
-        QkJCQkJCQkJCQkJC9vb29vb29vb29vb2QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/w8e/w8e/w8e/wr66v
-        QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/wQkJCQkJCQkJCQkJC9vb29vb29vb29vb2
-        QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w
-        8e/w8e/w8e/w8e/wQkJCQkJCQkJCQkJC9vb29vb29vb29vb2QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/w
-        8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/wQkJCQkJCQkJCQkJC
-        9vb29vb29vb29vb2QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w
-        8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/wQkJCQkJCQkJCQkJC9vb29vb29vb29vb2QkJCQkJCQkJCQkJC
-        8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w
-        QkJCQkJCQkJCQkJC9vb29vb29vb29vb2QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC
-        QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC9vb29vb29vb29vb2
-        QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC
-        QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC9vb29vb29vb29vb2QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC
-        QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC
-        9vb29vb29vb29vb2QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC
-        QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC9vb29vb29vb29vb29vb29vb29vb29vb2
-        9vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb2
-        9vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb2
-        9vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb2AAAAAAAA
-        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
-        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
-        AAAoAAAAEAAAACAAAAABABgAAAAAAAADAAAAAAAAAAAAAAAAAAAAAAAA9vb29vb29vb29vb29vb29vb2
-        9vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb2QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC
-        QkJCQkJCQkJCQkJCQkJC9vb29vb2QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC
-        QkJC9vb29vb2QkJCQkJC8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/wQkJCQkJC9vb29vb2QkJC
-        QkJC8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/wQkJCQkJC9vb29vb2QkJCQkJC8e/w8e/wr66v
-        r66v8e/w8e/wr66v8e/w8e/w8e/wQkJCQkJC9vb29vb2QkJCQkJC8e/w8e/wr66vQkJCr66v8e/wQkJC
-        r66v8e/w8e/wQkJCQkJC9vb29vb2QkJCQkJC8e/w8e/w8e/wr66vQkJCr66vQkJCQkJC8e/w8e/wQkJC
-        QkJC9vb29vb2QkJCQkJC8e/w8e/w8e/w8e/wr66vQkJCQkJCQkJC8e/w8e/wQkJCQkJC9vb29vb2QkJC
-        QkJC8e/w8e/wr66vQkJCQkJCQkJCQkJCQkJC8e/w8e/wQkJCQkJC9vb29vb2QkJCQkJC8e/w8e/w8e/w
-        r66vQkJCQkJCQkJCQkJC8e/w8e/wQkJCQkJC9vb29vb2QkJCQkJC8e/w8e/w8e/w8e/w8e/w8e/w8e/w
-        8e/w8e/w8e/wQkJCQkJC9vb29vb2QkJCQkJC8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/wQkJC
-        QkJC9vb29vb2QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC9vb29vb2QkJC
-        QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC9vb29vb29vb29vb29vb29vb29vb2
-        9vb29vb29vb29vb29vb29vb29vb29vb29vb29vb2AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
-        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA==
-</value>
-  </data>
-  <data name="$this.Text" xml:space="preserve">
-    <value>My Hotkeys</value>
-  </data>
-</root>

Global_Indexer/frmHotkey_User.vb

@@ -1,110 +0,0 @@
-Public Class frmHotkey_User
-
-    Private Sub TBHOTKEY_PROFILEBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs)
-        Me.Validate()
-        Me.TBHOTKEY_PROFILEBindingSource.EndEdit()
-        Me.TableAdapterManager.UpdateAll(Me.MyDataset)
-
-    End Sub
-
-    Private Sub frmHotkey_User_Load(sender As Object, e As EventArgs) Handles MyBase.Load
-        'TODO: Diese Codezeile lädt Daten in die Tabelle "MyDataset.TBHOTKEY_USER_PROFILE". Sie können sie bei Bedarf verschieben oder entfernen.
-
-        Try
-            Me.TBHOTKEY_PROFILETableAdapter.Connection.ConnectionString = MyConnectionString
-            Me.TBMYHOTKEYSTableAdapter.Connection.ConnectionString = MyConnectionString
-            Me.TBHOTKEY_USER_PROFILETableAdapter.Connection.ConnectionString = MyConnectionString
-            Me.TBHOTKEY_PROFILETableAdapter.Fill(Me.MyDataset.TBHOTKEY_PROFILE)
-
-            If USER_LANGUAGE <> "de-DE" Then
-                Me.lblmeinehotkeys.Text = "My (" & Environment.UserName & ") Hotkeys:"
-            Else
-                Me.lblmeinehotkeys.Text = "Meine (" & Environment.UserName & ") Hotkeys:"
-            End If
-
-            LoadMyHotkeys(USER_ID)
-        Catch ex As Exception
-            MsgBox("Error in Load Form: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
-        End Try
-      
-    End Sub
-
-    Private Sub LoadMyHotkeys(UserID As Integer)
-        Try
-            Me.TBMYHOTKEYSTableAdapter.Fill(Me.MyDataset.TBMYHOTKEYS, UserID)
-        Catch ex As System.Exception
-            MsgBox("Error in LoadMyHotkeys: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
-        End Try
-
-    End Sub
-
-    Private Sub btnAddtomyHK_Click(sender As Object, e As EventArgs) Handles btnAddtomyHK.Click
-        Try
-            If ListBox1.SelectedIndex <> -1 Then
-                TBHOTKEY_USER_PROFILETableAdapter.cmdInsert(USER_ID, ListBox1.SelectedValue)
-                LoadMyHotkeys(USER_ID)
-            End If
-        Catch ex As Exception
-            MsgBox("Error in Add MyHotkey: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
-        End Try
-      
-    End Sub
-    Sub Load_MyProfile(HKPROFILE_ID As Integer)
-        Try
-            Me.TBHOTKEY_USER_PROFILETableAdapter.Fill(Me.MyDataset.TBHOTKEY_USER_PROFILE, HKPROFILE_ID)
-        Catch ex As Exception
-            MsgBox("Error in Load_MyProfile: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
-        End Try
-
-    End Sub
-
-    Private Sub ListBoxMyHK_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBoxMyHK.SelectedIndexChanged
-        If ListBoxMyHK.SelectedIndex <> -1 Then
-            Console.WriteLine(ListBoxMyHK.SelectedValue)
-            Load_MyProfile(ListBoxMyHK.SelectedValue)
-        End If
-    End Sub
-
-    Private Sub btndelete_Click(sender As Object, e As EventArgs) Handles btndelete.Click
-        If ListBoxMyHK.SelectedIndex <> -1 Then
-            Me.TBHOTKEY_USER_PROFILETableAdapter.Delete(ListBoxMyHK.SelectedValue)
-            LoadMyHotkeys(USER_ID)
-            Me.MyDataset.TBHOTKEY_USER_PROFILE.Clear()
-        End If
-    End Sub
-
-    Private Sub btnsave_Click(sender As Object, e As EventArgs) Handles btnsave.Click
-        Try
-            TBHOTKEY_USER_PROFILEBindingSource.EndEdit()
-            If Me.MyDataset.TBHOTKEY_USER_PROFILE.GetChanges Is Nothing = False Then
-                Me.CHANGED_WHOTextBox.Text = Environment.UserName
-                TBHOTKEY_USER_PROFILEBindingSource.EndEdit()
-                TBHOTKEY_USER_PROFILETableAdapter.Update(MyDataset.TBHOTKEY_USER_PROFILE)
-                Me.lblSave.Visible = True
-                LoadMyHotkeys(USER_ID)
-            Else
-                Me.lblSave.Visible = False
-            End If
-        Catch ex As Exception
-            MsgBox("Error in Save My Profile: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
-        End Try
-    End Sub
-
-    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
-        If Not Me.WD_SEARCHTextBox.Text = "" Then
-            Me.OFDWindreamsuche.FileName = Me.WD_SEARCHTextBox.Text
-        End If
-
-        If Me.OFDWindreamsuche.ShowDialog = Windows.Forms.DialogResult.OK Then
-            Me.WD_SEARCHTextBox.Text = Me.OFDWindreamsuche.FileName
-        End If
-    End Sub
-
-    Private Sub HOTKEY2TextBox_KeyDown(sender As Object, e As KeyEventArgs) Handles HOTKEY2TextBox.KeyDown
-        HOTKEY2TextBox.Text = ""
-    End Sub
-
-    Private Sub chkbxMaximizeWS_CheckedChanged(sender As Object, e As EventArgs) Handles chkbxMaximizeWS.CheckedChanged
-        My.Settings.Save()
-    End Sub
-End Class

Global_Indexer/frmIndex.designer.vb

@@ -1,6 +1,6 @@
 <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
 Partial Class frmIndex
-    Inherits System.Windows.Forms.Form
+    Inherits DevExpress.XtraBars.Ribbon.RibbonForm
 
     'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
     <System.Diagnostics.DebuggerNonUserCode()>
@@ -24,26 +24,37 @@ Partial Class frmIndex
     Private Sub InitializeComponent()
         Me.components = New System.ComponentModel.Container()
         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmIndex))
+        Dim EditorButtonImageOptions1 As DevExpress.XtraEditors.Controls.EditorButtonImageOptions = New DevExpress.XtraEditors.Controls.EditorButtonImageOptions()
+        Dim SerializableAppearanceObject1 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject()
+        Dim SerializableAppearanceObject2 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject()
+        Dim SerializableAppearanceObject3 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject()
+        Dim SerializableAppearanceObject4 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject()
         Me.SplitContainer1 = New System.Windows.Forms.SplitContainer()
         Me.pnlIndex = New System.Windows.Forms.Panel()
-        Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.ComboboxDoctype = New DevExpress.XtraEditors.ComboBoxEdit()
-        Me.CheckBox1 = New System.Windows.Forms.CheckBox()
+        Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl()
-        Me.Button1 = New System.Windows.Forms.Button()
+        Me.BarToggleSwitchItem1 = New DevExpress.XtraBars.BarToggleSwitchItem()
-        Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
+        Me.BarToggleSwitchItem2 = New DevExpress.XtraBars.BarToggleSwitchItem()
-        Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton()
+        Me.checkItemTopMost = New DevExpress.XtraBars.BarCheckItem()
-        Me.lblerror = New System.Windows.Forms.Label()
+        Me.checkItemDeleteSource = New DevExpress.XtraBars.BarCheckItem()
-        Me.cmbDokumentart = New System.Windows.Forms.ComboBox()
+        Me.checkItemPreselection = New DevExpress.XtraBars.BarCheckItem()
-        Me.Label1 = New System.Windows.Forms.Label()
+        Me.labelError = New DevExpress.XtraBars.BarStaticItem()
+        Me.BarStaticItem1 = New DevExpress.XtraBars.BarStaticItem()
+        Me.BarStaticItem2 = New DevExpress.XtraBars.BarStaticItem()
+        Me.labelFilePath = New DevExpress.XtraBars.BarStaticItem()
+        Me.checkItemPreview = New DevExpress.XtraBars.BarCheckItem()
+        Me.labelNotice = New DevExpress.XtraBars.BarStaticItem()
+        Me.BarListItem1 = New DevExpress.XtraBars.BarListItem()
+        Me.BarStaticItem4 = New DevExpress.XtraBars.BarStaticItem()
+        Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem()
+        Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage()
+        Me.RibbonPageGroup3 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
+        Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
+        Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
         Me.Panel2 = New System.Windows.Forms.Panel()
-        Me.chkMultiIndexer = New System.Windows.Forms.CheckBox()
+        Me.checkMultiindex = New DevExpress.XtraEditors.CheckEdit()
-        Me.chkdelete_origin = New System.Windows.Forms.CheckBox()
+        Me.btnOK = New DevExpress.XtraEditors.SimpleButton()
-        Me.Label2 = New System.Windows.Forms.Label()
-        Me.txtIndexfilepath = New System.Windows.Forms.TextBox()
-        Me.btnOK = New System.Windows.Forms.Button()
         Me.DocumentViewer1 = New DigitalData.Controls.DocumentViewer.DocumentViewer()
-        Me.StatusStrip1 = New System.Windows.Forms.StatusStrip()
-        Me.lblhinweis = New System.Windows.Forms.ToolStripStatusLabel()
-        Me.tslblVorschau = New System.Windows.Forms.ToolStripStatusLabel()
         Me.MyDataset = New Global_Indexer.MyDataset()
         Me.VWDDINDEX_MANBindingSource = New System.Windows.Forms.BindingSource(Me.components)
         Me.VWDDINDEX_MANTableAdapter = New Global_Indexer.MyDatasetTableAdapters.VWDDINDEX_MANTableAdapter()
@@ -52,14 +63,15 @@ Partial Class frmIndex
         Me.VWINDEX_AUTOMTableAdapter = New Global_Indexer.MyDatasetTableAdapters.VWDDINDEX_AUTOMTableAdapter()
         Me.PdfBarController1 = New DevExpress.XtraPdfViewer.Bars.PdfBarController(Me.components)
         Me.PdfBarController2 = New DevExpress.XtraPdfViewer.Bars.PdfBarController(Me.components)
+        Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage()
         CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SplitContainer1.Panel1.SuspendLayout()
         Me.SplitContainer1.Panel2.SuspendLayout()
         Me.SplitContainer1.SuspendLayout()
-        Me.Panel1.SuspendLayout()
+        CType(Me.ComboboxDoctype.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
-        Me.ToolStrip1.SuspendLayout()
+        CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.Panel2.SuspendLayout()
-        Me.StatusStrip1.SuspendLayout()
+        CType(Me.checkMultiindex.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.VWDDINDEX_MANBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.VWINDEX_AUTOMBindingSource1, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -75,7 +87,7 @@ Partial Class frmIndex
         'SplitContainer1.Panel1
         '
         Me.SplitContainer1.Panel1.Controls.Add(Me.pnlIndex)
-        Me.SplitContainer1.Panel1.Controls.Add(Me.Panel1)
+        Me.SplitContainer1.Panel1.Controls.Add(Me.ComboboxDoctype)
         Me.SplitContainer1.Panel1.Controls.Add(Me.Panel2)
         '
         'SplitContainer1.Panel2
@@ -88,129 +100,194 @@ Partial Class frmIndex
         Me.pnlIndex.BackColor = System.Drawing.SystemColors.ControlLight
         Me.pnlIndex.Name = "pnlIndex"
         '
-        'Panel1
+        'ComboboxDoctype
         '
-        Me.Panel1.BackColor = System.Drawing.SystemColors.ButtonHighlight
+        resources.ApplyResources(Me.ComboboxDoctype, "ComboboxDoctype")
-        Me.Panel1.Controls.Add(Me.CheckBox1)
+        Me.ComboboxDoctype.MenuManager = Me.RibbonControl1
-        Me.Panel1.Controls.Add(Me.Button1)
+        Me.ComboboxDoctype.Name = "ComboboxDoctype"
-        Me.Panel1.Controls.Add(Me.ToolStrip1)
+        SerializableAppearanceObject1.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(214, Byte), Integer), CType(CType(49, Byte), Integer))
-        Me.Panel1.Controls.Add(Me.lblerror)
+        SerializableAppearanceObject1.Options.UseBackColor = True
-        Me.Panel1.Controls.Add(Me.cmbDokumentart)
+        Me.ComboboxDoctype.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(CType(resources.GetObject("ComboboxDoctype.Properties.Buttons"), DevExpress.XtraEditors.Controls.ButtonPredefines), resources.GetString("ComboboxDoctype.Properties.Buttons1"), CType(resources.GetObject("ComboboxDoctype.Properties.Buttons2"), Integer), CType(resources.GetObject("ComboboxDoctype.Properties.Buttons3"), Boolean), CType(resources.GetObject("ComboboxDoctype.Properties.Buttons4"), Boolean), CType(resources.GetObject("ComboboxDoctype.Properties.Buttons5"), Boolean), EditorButtonImageOptions1, New DevExpress.Utils.KeyShortcut(System.Windows.Forms.Keys.None), SerializableAppearanceObject1, SerializableAppearanceObject2, SerializableAppearanceObject3, SerializableAppearanceObject4, resources.GetString("ComboboxDoctype.Properties.Buttons6"), CType(resources.GetObject("ComboboxDoctype.Properties.Buttons7"), Object), CType(resources.GetObject("ComboboxDoctype.Properties.Buttons8"), DevExpress.Utils.SuperToolTip), CType(resources.GetObject("ComboboxDoctype.Properties.Buttons9"), DevExpress.Utils.ToolTipAnchor))})
-        Me.Panel1.Controls.Add(Me.Label1)
+        Me.ComboboxDoctype.Properties.ButtonsStyle = DevExpress.XtraEditors.Controls.BorderStyles.UltraFlat
-        resources.ApplyResources(Me.Panel1, "Panel1")
+        Me.ComboboxDoctype.Properties.NullText = resources.GetString("ComboboxDoctype.Properties.NullText")
-        Me.Panel1.Name = "Panel1"
+        Me.ComboboxDoctype.Properties.Padding = New System.Windows.Forms.Padding(5)
         '
-        'CheckBox1
+        'RibbonControl1
         '
-        resources.ApplyResources(Me.CheckBox1, "CheckBox1")
+        Me.RibbonControl1.ExpandCollapseItem.Id = 0
-        Me.CheckBox1.Checked = Global.Global_Indexer.My.MySettings.Default.DA_Vorauswahlaktiv
+        Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarToggleSwitchItem1, Me.BarToggleSwitchItem2, Me.checkItemTopMost, Me.checkItemDeleteSource, Me.checkItemPreselection, Me.labelError, Me.BarStaticItem1, Me.BarStaticItem2, Me.labelFilePath, Me.checkItemPreview, Me.labelNotice, Me.BarListItem1, Me.BarStaticItem4, Me.BarButtonItem1})
-        Me.CheckBox1.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Global_Indexer.My.MySettings.Default, "DA_Vorauswahlaktiv", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged))
+        resources.ApplyResources(Me.RibbonControl1, "RibbonControl1")
-        Me.CheckBox1.Name = "CheckBox1"
+        Me.RibbonControl1.MaxItemId = 22
-        Me.CheckBox1.UseVisualStyleBackColor = True
+        Me.RibbonControl1.Name = "RibbonControl1"
+        Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1})
+        Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False]
+        Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1
         '
-        'Button1
+        'BarToggleSwitchItem1
         '
-        resources.ApplyResources(Me.Button1, "Button1")
+        resources.ApplyResources(Me.BarToggleSwitchItem1, "BarToggleSwitchItem1")
-        Me.Button1.Image = Global.Global_Indexer.My.Resources.Resources.cancel
+        Me.BarToggleSwitchItem1.Id = 1
-        Me.Button1.Name = "Button1"
+        Me.BarToggleSwitchItem1.Name = "BarToggleSwitchItem1"
-        Me.Button1.UseVisualStyleBackColor = True
         '
-        'ToolStrip1
+        'BarToggleSwitchItem2
         '
-        Me.ToolStrip1.ImageScalingSize = New System.Drawing.Size(20, 20)
+        resources.ApplyResources(Me.BarToggleSwitchItem2, "BarToggleSwitchItem2")
-        Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton1})
+        Me.BarToggleSwitchItem2.Id = 2
-        resources.ApplyResources(Me.ToolStrip1, "ToolStrip1")
+        Me.BarToggleSwitchItem2.Name = "BarToggleSwitchItem2"
-        Me.ToolStrip1.Name = "ToolStrip1"
         '
-        'ToolStripButton1
+        'checkItemTopMost
         '
-        Me.ToolStripButton1.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
+        Me.checkItemTopMost.BindableChecked = True
-        Me.ToolStripButton1.BackColor = System.Drawing.SystemColors.ButtonHighlight
+        resources.ApplyResources(Me.checkItemTopMost, "checkItemTopMost")
-        Me.ToolStripButton1.Image = Global.Global_Indexer.My.Resources.Resources.bullet_arrow_top
+        Me.checkItemTopMost.Checked = True
-        resources.ApplyResources(Me.ToolStripButton1, "ToolStripButton1")
+        Me.checkItemTopMost.Id = 5
-        Me.ToolStripButton1.Name = "ToolStripButton1"
+        Me.checkItemTopMost.ImageOptions.SvgImage = CType(resources.GetObject("checkItemTopMost.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
+        Me.checkItemTopMost.Name = "checkItemTopMost"
         '
-        'lblerror
+        'checkItemDeleteSource
         '
-        resources.ApplyResources(Me.lblerror, "lblerror")
+        resources.ApplyResources(Me.checkItemDeleteSource, "checkItemDeleteSource")
-        Me.lblerror.Name = "lblerror"
+        Me.checkItemDeleteSource.Id = 7
+        Me.checkItemDeleteSource.ImageOptions.SvgImage = CType(resources.GetObject("checkItemDeleteSource.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
+        Me.checkItemDeleteSource.Name = "checkItemDeleteSource"
         '
-        'cmbDokumentart
+        'checkItemPreselection
         '
-        resources.ApplyResources(Me.cmbDokumentart, "cmbDokumentart")
+        resources.ApplyResources(Me.checkItemPreselection, "checkItemPreselection")
-        Me.cmbDokumentart.DisplayMember = "DOKART_ID"
+        Me.checkItemPreselection.Id = 9
-        Me.cmbDokumentart.FormattingEnabled = True
+        Me.checkItemPreselection.ImageOptions.SvgImage = CType(resources.GetObject("checkItemPreselection.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
-        Me.cmbDokumentart.Name = "cmbDokumentart"
+        Me.checkItemPreselection.Name = "checkItemPreselection"
-        Me.cmbDokumentart.ValueMember = "DOKART_ID"
         '
-        'Label1
+        'labelError
         '
-        resources.ApplyResources(Me.Label1, "Label1")
+        resources.ApplyResources(Me.labelError, "labelError")
-        Me.Label1.Name = "Label1"
+        Me.labelError.Id = 10
+        Me.labelError.ImageOptions.SvgImage = CType(resources.GetObject("labelError.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
+        Me.labelError.Name = "labelError"
+        Me.labelError.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph
+        Me.labelError.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
+        '
+        'BarStaticItem1
+        '
+        resources.ApplyResources(Me.BarStaticItem1, "BarStaticItem1")
+        Me.BarStaticItem1.Id = 12
+        Me.BarStaticItem1.Name = "BarStaticItem1"
+        '
+        'BarStaticItem2
+        '
+        resources.ApplyResources(Me.BarStaticItem2, "BarStaticItem2")
+        Me.BarStaticItem2.Id = 13
+        Me.BarStaticItem2.Name = "BarStaticItem2"
+        '
+        'labelFilePath
+        '
+        resources.ApplyResources(Me.labelFilePath, "labelFilePath")
+        Me.labelFilePath.Id = 14
+        Me.labelFilePath.ImageOptions.SvgImage = CType(resources.GetObject("labelFilePath.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
+        Me.labelFilePath.Name = "labelFilePath"
+        Me.labelFilePath.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph
+        '
+        'checkItemPreview
+        '
+        resources.ApplyResources(Me.checkItemPreview, "checkItemPreview")
+        Me.checkItemPreview.Id = 16
+        Me.checkItemPreview.ImageOptions.SvgImage = CType(resources.GetObject("checkItemPreview.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
+        Me.checkItemPreview.Name = "checkItemPreview"
+        '
+        'labelNotice
+        '
+        resources.ApplyResources(Me.labelNotice, "labelNotice")
+        Me.labelNotice.Id = 17
+        Me.labelNotice.ImageOptions.SvgImage = CType(resources.GetObject("labelNotice.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
+        Me.labelNotice.Name = "labelNotice"
+        Me.labelNotice.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph
+        Me.labelNotice.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
+        '
+        'BarListItem1
+        '
+        resources.ApplyResources(Me.BarListItem1, "BarListItem1")
+        Me.BarListItem1.Id = 19
+        Me.BarListItem1.Name = "BarListItem1"
+        '
+        'BarStaticItem4
+        '
+        resources.ApplyResources(Me.BarStaticItem4, "BarStaticItem4")
+        Me.BarStaticItem4.Id = 20
+        Me.BarStaticItem4.Name = "BarStaticItem4"
+        '
+        'BarButtonItem1
+        '
+        resources.ApplyResources(Me.BarButtonItem1, "BarButtonItem1")
+        Me.BarButtonItem1.Id = 21
+        Me.BarButtonItem1.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
+        Me.BarButtonItem1.Name = "BarButtonItem1"
+        '
+        'RibbonPage1
+        '
+        Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup3, Me.RibbonPageGroup2})
+        Me.RibbonPage1.Name = "RibbonPage1"
+        resources.ApplyResources(Me.RibbonPage1, "RibbonPage1")
+        '
+        'RibbonPageGroup3
+        '
+        Me.RibbonPageGroup3.ItemLinks.Add(Me.checkItemDeleteSource)
+        Me.RibbonPageGroup3.ItemLinks.Add(Me.checkItemPreselection)
+        Me.RibbonPageGroup3.ItemLinks.Add(Me.checkItemPreview)
+        Me.RibbonPageGroup3.ItemLinks.Add(Me.BarButtonItem1)
+        Me.RibbonPageGroup3.Name = "RibbonPageGroup3"
+        resources.ApplyResources(Me.RibbonPageGroup3, "RibbonPageGroup3")
+        '
+        'RibbonPageGroup2
+        '
+        Me.RibbonPageGroup2.Alignment = DevExpress.XtraBars.Ribbon.RibbonPageGroupAlignment.Far
+        Me.RibbonPageGroup2.ItemLinks.Add(Me.checkItemTopMost)
+        Me.RibbonPageGroup2.Name = "RibbonPageGroup2"
+        resources.ApplyResources(Me.RibbonPageGroup2, "RibbonPageGroup2")
+        '
+        'RibbonStatusBar1
+        '
+        Me.RibbonStatusBar1.ItemLinks.Add(Me.labelFilePath)
+        Me.RibbonStatusBar1.ItemLinks.Add(Me.labelError)
+        Me.RibbonStatusBar1.ItemLinks.Add(Me.labelNotice)
+        resources.ApplyResources(Me.RibbonStatusBar1, "RibbonStatusBar1")
+        Me.RibbonStatusBar1.Name = "RibbonStatusBar1"
+        Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1
         '
         'Panel2
         '
-        Me.Panel2.Controls.Add(Me.chkMultiIndexer)
+        Me.Panel2.BackColor = System.Drawing.Color.Transparent
-        Me.Panel2.Controls.Add(Me.chkdelete_origin)
+        Me.Panel2.Controls.Add(Me.checkMultiindex)
-        Me.Panel2.Controls.Add(Me.Label2)
-        Me.Panel2.Controls.Add(Me.txtIndexfilepath)
         Me.Panel2.Controls.Add(Me.btnOK)
         resources.ApplyResources(Me.Panel2, "Panel2")
         Me.Panel2.Name = "Panel2"
         '
-        'chkMultiIndexer
+        'checkMultiindex
         '
-        resources.ApplyResources(Me.chkMultiIndexer, "chkMultiIndexer")
+        resources.ApplyResources(Me.checkMultiindex, "checkMultiindex")
-        Me.chkMultiIndexer.BackColor = System.Drawing.Color.Yellow
+        Me.checkMultiindex.MenuManager = Me.RibbonControl1
-        Me.chkMultiIndexer.ForeColor = System.Drawing.Color.Maroon
+        Me.checkMultiindex.Name = "checkMultiindex"
-        Me.chkMultiIndexer.Name = "chkMultiIndexer"
+        Me.checkMultiindex.Properties.Appearance.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(214, Byte), Integer), CType(CType(49, Byte), Integer))
-        Me.chkMultiIndexer.UseVisualStyleBackColor = False
+        Me.checkMultiindex.Properties.Appearance.Font = CType(resources.GetObject("checkMultiindex.Properties.Appearance.Font"), System.Drawing.Font)
-        '
+        Me.checkMultiindex.Properties.Appearance.ForeColor = System.Drawing.Color.DarkRed
-        'chkdelete_origin
+        Me.checkMultiindex.Properties.Appearance.Options.UseBackColor = True
-        '
+        Me.checkMultiindex.Properties.Appearance.Options.UseFont = True
-        resources.ApplyResources(Me.chkdelete_origin, "chkdelete_origin")
+        Me.checkMultiindex.Properties.Appearance.Options.UseForeColor = True
-        Me.chkdelete_origin.Name = "chkdelete_origin"
+        Me.checkMultiindex.Properties.Caption = resources.GetString("checkMultiindex.Properties.Caption")
-        Me.chkdelete_origin.UseVisualStyleBackColor = True
-        '
-        'Label2
-        '
-        resources.ApplyResources(Me.Label2, "Label2")
-        Me.Label2.Name = "Label2"
-        '
-        'txtIndexfilepath
-        '
-        resources.ApplyResources(Me.txtIndexfilepath, "txtIndexfilepath")
-        Me.txtIndexfilepath.Name = "txtIndexfilepath"
-        Me.txtIndexfilepath.ReadOnly = True
         '
         'btnOK
         '
         resources.ApplyResources(Me.btnOK, "btnOK")
-        Me.btnOK.Image = Global.Global_Indexer.My.Resources.Resources.Go
+        Me.btnOK.Appearance.Font = CType(resources.GetObject("btnOK.Appearance.Font"), System.Drawing.Font)
+        Me.btnOK.Appearance.Options.UseFont = True
+        Me.btnOK.ImageOptions.SvgImage = CType(resources.GetObject("btnOK.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
         Me.btnOK.Name = "btnOK"
         '
         'DocumentViewer1
         '
         resources.ApplyResources(Me.DocumentViewer1, "DocumentViewer1")
+        Me.DocumentViewer1.FileLoaded = False
         Me.DocumentViewer1.Name = "DocumentViewer1"
         '
-        'StatusStrip1
-        '
-        Me.StatusStrip1.ImageScalingSize = New System.Drawing.Size(20, 20)
-        Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.lblhinweis, Me.tslblVorschau})
-        resources.ApplyResources(Me.StatusStrip1, "StatusStrip1")
-        Me.StatusStrip1.Name = "StatusStrip1"
-        '
-        'lblhinweis
-        '
-        Me.lblhinweis.Name = "lblhinweis"
-        resources.ApplyResources(Me.lblhinweis, "lblhinweis")
-        '
-        'tslblVorschau
-        '
-        Me.tslblVorschau.Name = "tslblVorschau"
-        resources.ApplyResources(Me.tslblVorschau, "tslblVorschau")
-        '
         'MyDataset
         '
         Me.MyDataset.DataSetName = "MyDataset"
@@ -233,7 +310,6 @@ Partial Class frmIndex
         Me.TableAdapterManager.TBDD_DOKUMENTARTTableAdapter = Nothing
         Me.TableAdapterManager.TBDD_EINGANGSARTENTableAdapter = Nothing
         Me.TableAdapterManager.TBDD_GROUPS_USERTableAdapter = Nothing
-        Me.TableAdapterManager.TBDD_GROUPSTableAdapter = Nothing
         Me.TableAdapterManager.TBDD_INDEX_AUTOMTableAdapter = Nothing
         Me.TableAdapterManager.TBDD_INDEX_MAN_POSTPROCESSINGTableAdapter = Nothing
         Me.TableAdapterManager.TBDD_INDEX_MANTableAdapter = Nothing
@@ -241,11 +317,6 @@ Partial Class frmIndex
         Me.TableAdapterManager.TBGI_CONFIGURATIONTableAdapter = Nothing
         Me.TableAdapterManager.TBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter = Nothing
         Me.TableAdapterManager.TBGI_REGEX_DOCTYPETableAdapter = Nothing
-        Me.TableAdapterManager.TBHOTKEY_PATTERNS_REWORKTableAdapter = Nothing
-        Me.TableAdapterManager.TBHOTKEY_PATTERNSTableAdapter = Nothing
-        Me.TableAdapterManager.TBHOTKEY_PROFILETableAdapter = Nothing
-        Me.TableAdapterManager.TBHOTKEY_USER_PROFILETableAdapter = Nothing
-        Me.TableAdapterManager.TBHOTKEY_WINDOW_HOOKTableAdapter = Nothing
         Me.TableAdapterManager.UpdateOrder = Global_Indexer.MyDatasetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete
         '
         'VWINDEX_AUTOMBindingSource1
@@ -257,29 +328,31 @@ Partial Class frmIndex
         '
         Me.VWINDEX_AUTOMTableAdapter.ClearBeforeFill = True
         '
+        'RibbonPage2
+        '
+        Me.RibbonPage2.Name = "RibbonPage2"
+        resources.ApplyResources(Me.RibbonPage2, "RibbonPage2")
+        '
         'frmIndex
         '
+        Me.Appearance.Options.UseFont = True
         resources.ApplyResources(Me, "$this")
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ControlBox = False
         Me.Controls.Add(Me.SplitContainer1)
-        Me.Controls.Add(Me.StatusStrip1)
+        Me.Controls.Add(Me.RibbonStatusBar1)
-        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.SizableToolWindow
+        Me.Controls.Add(Me.RibbonControl1)
-        Me.MaximizeBox = False
+        Me.IconOptions.Image = Global.Global_Indexer.My.Resources.Resources.DD_Icons_ICO_GLOBIX_128
-        Me.MinimizeBox = False
         Me.Name = "frmIndex"
+        Me.Ribbon = Me.RibbonControl1
+        Me.StatusBar = Me.RibbonStatusBar1
         Me.SplitContainer1.Panel1.ResumeLayout(False)
         Me.SplitContainer1.Panel2.ResumeLayout(False)
         CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).EndInit()
         Me.SplitContainer1.ResumeLayout(False)
-        Me.Panel1.ResumeLayout(False)
+        CType(Me.ComboboxDoctype.Properties, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.Panel1.PerformLayout()
+        CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.ToolStrip1.ResumeLayout(False)
-        Me.ToolStrip1.PerformLayout()
         Me.Panel2.ResumeLayout(False)
-        Me.Panel2.PerformLayout()
+        CType(Me.checkMultiindex.Properties, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.StatusStrip1.ResumeLayout(False)
-        Me.StatusStrip1.PerformLayout()
         CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.VWDDINDEX_MANBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.VWINDEX_AUTOMBindingSource1, System.ComponentModel.ISupportInitialize).EndInit()
@@ -289,42 +362,46 @@ Partial Class frmIndex
         Me.PerformLayout()
 
     End Sub
-    Friend WithEvents btnOK As System.Windows.Forms.Button
-
-    Friend WithEvents Label1 As System.Windows.Forms.Label
-    Friend WithEvents cmbDokumentart As System.Windows.Forms.ComboBox
     Friend WithEvents VWINDEX_MANBindingSource As System.Windows.Forms.BindingSource
-
-    Friend WithEvents Panel1 As System.Windows.Forms.Panel
     Friend WithEvents TBCONNECTIONBindingSource As System.Windows.Forms.BindingSource
-
-    Friend WithEvents lblerror As System.Windows.Forms.Label
-    Friend WithEvents StatusStrip1 As System.Windows.Forms.StatusStrip
-    Friend WithEvents lblhinweis As System.Windows.Forms.ToolStripStatusLabel
     Friend WithEvents VWINDEX_AUTOMBindingSource As System.Windows.Forms.BindingSource
 
     Friend WithEvents Panel2 As System.Windows.Forms.Panel
-    Friend WithEvents tslblVorschau As System.Windows.Forms.ToolStripStatusLabel
     Friend WithEvents VWDMS_DOKUMENTARTZUORDNUNGBindingSource As System.Windows.Forms.BindingSource
 
     Friend WithEvents VWIORDNER_DOKARTBindingSource As System.Windows.Forms.BindingSource
-    Friend WithEvents Label2 As System.Windows.Forms.Label
-    Friend WithEvents txtIndexfilepath As System.Windows.Forms.TextBox
     Friend WithEvents MyDataset As Global_Indexer.MyDataset
     Friend WithEvents VWDDINDEX_MANBindingSource As System.Windows.Forms.BindingSource
     Friend WithEvents VWDDINDEX_MANTableAdapter As Global_Indexer.MyDatasetTableAdapters.VWDDINDEX_MANTableAdapter
     Friend WithEvents TableAdapterManager As Global_Indexer.MyDatasetTableAdapters.TableAdapterManager
     Friend WithEvents VWINDEX_AUTOMBindingSource1 As System.Windows.Forms.BindingSource
     Friend WithEvents VWINDEX_AUTOMTableAdapter As Global_Indexer.MyDatasetTableAdapters.VWDDINDEX_AUTOMTableAdapter
-    Friend WithEvents chkdelete_origin As System.Windows.Forms.CheckBox
     Friend WithEvents SplitContainer1 As System.Windows.Forms.SplitContainer
     Friend WithEvents pnlIndex As System.Windows.Forms.Panel
     Friend WithEvents PdfBarController1 As DevExpress.XtraPdfViewer.Bars.PdfBarController
     Friend WithEvents PdfBarController2 As DevExpress.XtraPdfViewer.Bars.PdfBarController
-    Friend WithEvents chkMultiIndexer As System.Windows.Forms.CheckBox
-    Friend WithEvents ToolStrip1 As System.Windows.Forms.ToolStrip
-    Friend WithEvents ToolStripButton1 As System.Windows.Forms.ToolStripButton
-    Friend WithEvents Button1 As System.Windows.Forms.Button
-    Friend WithEvents CheckBox1 As System.Windows.Forms.CheckBox
     Friend WithEvents DocumentViewer1 As DigitalData.Controls.DocumentViewer.DocumentViewer
+    Friend WithEvents RibbonControl1 As DevExpress.XtraBars.Ribbon.RibbonControl
+    Friend WithEvents RibbonPage1 As DevExpress.XtraBars.Ribbon.RibbonPage
+    Friend WithEvents RibbonPageGroup2 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
+    Friend WithEvents RibbonStatusBar1 As DevExpress.XtraBars.Ribbon.RibbonStatusBar
+    Friend WithEvents RibbonPage2 As DevExpress.XtraBars.Ribbon.RibbonPage
+    Friend WithEvents BarToggleSwitchItem1 As DevExpress.XtraBars.BarToggleSwitchItem
+    Friend WithEvents BarToggleSwitchItem2 As DevExpress.XtraBars.BarToggleSwitchItem
+    Friend WithEvents checkItemTopMost As DevExpress.XtraBars.BarCheckItem
+    Friend WithEvents checkItemDeleteSource As DevExpress.XtraBars.BarCheckItem
+    Friend WithEvents checkItemPreselection As DevExpress.XtraBars.BarCheckItem
+    Friend WithEvents labelError As DevExpress.XtraBars.BarStaticItem
+    Friend WithEvents BarStaticItem1 As DevExpress.XtraBars.BarStaticItem
+    Friend WithEvents BarStaticItem2 As DevExpress.XtraBars.BarStaticItem
+    Friend WithEvents RibbonPageGroup3 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
+    Friend WithEvents labelFilePath As DevExpress.XtraBars.BarStaticItem
+    Friend WithEvents checkItemPreview As DevExpress.XtraBars.BarCheckItem
+    Friend WithEvents labelNotice As DevExpress.XtraBars.BarStaticItem
+    Friend WithEvents BarListItem1 As DevExpress.XtraBars.BarListItem
+    Friend WithEvents BarStaticItem4 As DevExpress.XtraBars.BarStaticItem
+    Friend WithEvents btnOK As DevExpress.XtraEditors.SimpleButton
+    Friend WithEvents checkMultiindex As DevExpress.XtraEditors.CheckEdit
+    Friend WithEvents BarButtonItem1 As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents ComboboxDoctype As DevExpress.XtraEditors.ComboBoxEdit
 End Class

Global_Indexer/frmIndex.en.resx

@@ -0,0 +1,357 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+  <data name="Label1.Size" type="System.Drawing.Size, System.Drawing">
+    <value>138, 17</value>
+  </data>
+  <data name="Label1.Text" xml:space="preserve">
+    <value>Please select a profile:</value>
+  </data>
+  <data name="checkItemTopMost.Caption" xml:space="preserve">
+    <value>Cover all other windows</value>
+  </data>
+  <assembly alias="DevExpress.Data.v19.2" name="DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
+  <data name="checkItemTopMost.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
+        LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
+        dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAEMEAAAC77u/
+        PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
+        IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
+        MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
+        Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
+        MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9Cgku
+        WWVsbG93e2ZpbGw6I0ZGQjExNTt9CgkuQmx1ZXtmaWxsOiMxMTc3RDc7fQoJLkdyZWVue2ZpbGw6IzAz
+        OUMyMzt9CgkuUmVke2ZpbGw6I0QxMUMxQzt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh
+        Y2l0eTowLjc1O30KCS5zdDF7b3BhY2l0eTowLjU7fQoJLnN0MntvcGFjaXR5OjAuMjU7fQo8L3N0eWxl
+        Pg0KICA8ZyBpZD0iV2luZG93cyI+DQogICAgPHBhdGggZD0iTTE4LDE4LjFWMTZoMnYwLjlDMTkuMywx
+        Ny4yLDE4LjYsMTcuNiwxOCwxOC4xeiBNMTQuNywyNkgyVjE2SDB2MTFjMCwwLjUsMC41LDEsMSwxaDE1
+        LjEgICBDMTUuNSwyNy4zLDE1LjEsMjYuNiwxNC43LDI2eiBNMjQsMThjNS43LDAsOCw2LDgsNnMtMi4z
+        LDYtOCw2Yy01LjcsMC04LTYtOC02UzE4LjMsMTgsMjQsMTggTTI0LDIwYy0zLjMsMC01LjEsMi43LTUu
+        OCw0ICAgYzAuNywxLjMsMi41LDQsNS44LDRjMy4zLDAsNS4xLTIuNyw1LjgtNEMyOS4xLDIyLjcsMjcu
+        MywyMCwyNCwyMEwyNCwyMHogTTI0LDIyYy0xLjEsMC0yLDAuOS0yLDJzMC45LDIsMiwyYzEuMSwwLDIt
+        MC45LDItMiAgIFMyNS4xLDIyLDI0LDIyeiBNMjYsMTYuMlY4aDJ2OC45QzI3LjQsMTYuNiwyNi43LDE2
+        LjQsMjYsMTYuMnogTTEwLDhIOHYyaDJWOHoiIGNsYXNzPSJCbGFjayIgLz4NCiAgICA8cGF0aCBkPSJN
+        MCwxNnYtNWMwLTAuNSwwLjUtMSwxLTFoMThjMC41LDAsMSwwLjUsMSwxdjVIMHogTTI4LDhWM2MwLTAu
+        NS0wLjUtMS0xLTFIOUM4LjUsMiw4LDIuNSw4LDN2NUgyOHoiIGNsYXNzPSJCbHVlIiAvPg0KICA8L2c+
+        DQo8L3N2Zz4L
+</value>
+  </data>
+  <data name="checkItemDeleteSource.Caption" xml:space="preserve">
+    <value>Delete Source File</value>
+  </data>
+  <data name="checkItemDeleteSource.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
+        LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
+        dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAPECAAAC77u/
+        PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
+        IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
+        MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
+        Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
+        MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9Cgku
+        WWVsbG93e2ZpbGw6I0ZGQjExNTt9CgkuQmx1ZXtmaWxsOiMxMTc3RDc7fQoJLkdyZWVue2ZpbGw6IzAz
+        OUMyMzt9CgkuUmVke2ZpbGw6I0QxMUMxQzt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh
+        Y2l0eTowLjc1O30KCS5zdDF7b3BhY2l0eTowLjU7fQoJLnN0MntvcGFjaXR5OjAuMjU7fQo8L3N0eWxl
+        Pg0KICA8ZyBpZD0iRGVsZXRlTGlzdCI+DQogICAgPHBhdGggZD0iTTYsMjZWNGgxOHYxMy4ybDItMlYz
+        YzAtMC42LTAuNC0xLTEtMUg1QzQuNCwyLDQsMi40LDQsM3YyNGMwLDAuNiwwLjQsMSwxLDFoOC4ybDIt
+        Mkg2eiIgY2xhc3M9IkJsYWNrIiAvPg0KICAgIDxwb2x5Z29uIHBvaW50cz0iMjgsMjAgMjYsMTggMjIs
+        MjIgMTgsMTggMTYsMjAgMjAsMjQgMTYsMjggMTgsMzAgMjIsMjYgMjYsMzAgMjgsMjggMjQsMjQgICIg
+        Y2xhc3M9IlJlZCIgLz4NCiAgPC9nPg0KPC9zdmc+Cw==
+</value>
+  </data>
+  <data name="checkItemPreselection.Caption" xml:space="preserve">
+    <value>Remember Selected Profile</value>
+  </data>
+  <data name="checkItemPreselection.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
+        LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
+        dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAPcFAAAC77u/
+        PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
+        IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
+        MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
+        Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
+        MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkdyZWVue2ZpbGw6IzAzOUMyMzt9Cgku
+        QmxhY2t7ZmlsbDojNzI3MjcyO30KCS5SZWR7ZmlsbDojRDExQzFDO30KCS5ZZWxsb3d7ZmlsbDojRkZC
+        MTE1O30KCS5CbHVle2ZpbGw6IzExNzdENzt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh
+        Y2l0eTowLjU7fQoJLnN0MXtvcGFjaXR5OjAuNzU7fQo8L3N0eWxlPg0KICA8ZyBpZD0iSXRlbVR5cGVD
+        aGVja2VkIj4NCiAgICA8Zz4NCiAgICAgIDxnPg0KICAgICAgICA8cmVjdCB4PSIyMCIgeT0iOCIgd2lk
+        dGg9IjEwIiBoZWlnaHQ9IjQiIHJ4PSIwIiByeT0iMCIgY2xhc3M9IkJsYWNrIiAvPg0KICAgICAgICA8
+        cmVjdCB4PSIyMCIgeT0iMjIiIHdpZHRoPSIxMCIgaGVpZ2h0PSI0IiByeD0iMCIgcnk9IjAiIGNsYXNz
+        PSJCbGFjayIgLz4NCiAgICAgICAgPHBhdGggZD0iTTE1LDE4SDNjLTAuNSwwLTEsMC41LTEsMXYxMmMw
+        LDAuNSwwLjUsMSwxLDFoMTJjMC41LDAsMS0wLjUsMS0xVjE5QzE2LDE4LjUsMTUuNSwxOCwxNSwxOHog
+        TTE0LDMwSDRWMjAgICAgIGgxMFYzMHoiIGNsYXNzPSJCbGFjayIgLz4NCiAgICAgICAgPHBhdGggZD0i
+        TTE0LDEwLjhWMTRINFY0aDguMmwyLTJIM0MyLjUsMiwyLDIuNSwyLDN2MTJjMCwwLjUsMC41LDEsMSwx
+        aDEyYzAuNSwwLDEtMC41LDEtMVY4LjhMMTQsMTAuOHoiIGNsYXNzPSJCbGFjayIgLz4NCiAgICAgIDwv
+        Zz4NCiAgICAgIDxnPg0KICAgICAgICA8cmVjdCB4PSIyMCIgeT0iOCIgd2lkdGg9IjEwIiBoZWlnaHQ9
+        IjQiIHJ4PSIwIiByeT0iMCIgY2xhc3M9IkJsYWNrIiAvPg0KICAgICAgICA8cmVjdCB4PSIyMCIgeT0i
+        MjIiIHdpZHRoPSIxMCIgaGVpZ2h0PSI0IiByeD0iMCIgcnk9IjAiIGNsYXNzPSJCbGFjayIgLz4NCiAg
+        ICAgICAgPHBhdGggZD0iTTE1LDE4SDNjLTAuNSwwLTEsMC41LTEsMXYxMmMwLDAuNSwwLjUsMSwxLDFo
+        MTJjMC41LDAsMS0wLjUsMS0xVjE5QzE2LDE4LjUsMTUuNSwxOCwxNSwxOHogTTE0LDMwSDRWMjAgICAg
+        IGgxMFYzMHoiIGNsYXNzPSJCbGFjayIgLz4NCiAgICAgICAgPHBhdGggZD0iTTE0LDEwLjhWMTRINFY0
+        aDguMmwyLTJIM0MyLjUsMiwyLDIuNSwyLDN2MTJjMCwwLjUsMC41LDEsMSwxaDEyYzAuNSwwLDEtMC41
+        LDEtMVY4LjhMMTQsMTAuOHoiIGNsYXNzPSJCbGFjayIgLz4NCiAgICAgIDwvZz4NCiAgICA8L2c+DQog
+        ICAgPHBvbHlnb24gcG9pbnRzPSI2LDUgNiw4IDEwLDEyIDE4LDQgMTgsMSAxMCw5ICAiIGNsYXNzPSJH
+        cmVlbiIgLz4NCiAgPC9nPg0KPC9zdmc+Cw==
+</value>
+  </data>
+  <data name="labelError.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
+        LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
+        dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAABIDAAAC77u/
+        PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
+        IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
+        MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
+        Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
+        MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlllbGxvd3tmaWxsOiNGRkIxMTU7fQoJ
+        LlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5HcmVlbntmaWxsOiMwMzlD
+        MjM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh
+        Y2l0eTowLjU7fQoJLnN0MXtkaXNwbGF5Om5vbmU7fQoJLnN0MntkaXNwbGF5OmlubGluZTtmaWxsOiMw
+        MzlDMjM7fQoJLnN0M3tkaXNwbGF5OmlubGluZTtmaWxsOiNEMTFDMUM7fQoJLnN0NHtkaXNwbGF5Omlu
+        bGluZTtmaWxsOiM3MjcyNzI7fQo8L3N0eWxlPg0KICA8ZyBpZD0iSGlnaEltcG9ydGFuY2UiPg0KICAg
+        IDxwYXRoIGQ9Ik0xNiwyQzguMywyLDIsOC4zLDIsMTZzNi4zLDE0LDE0LDE0czE0LTYuMywxNC0xNFMy
+        My43LDIsMTYsMnogTTE2LDI0Yy0xLjEsMC0yLTAuOS0yLTJzMC45LTIsMi0yczIsMC45LDIsMiAgIFMx
+        Ny4xLDI0LDE2LDI0eiBNMTgsMThoLTRWOGg0VjE4eiIgY2xhc3M9IlJlZCIgLz4NCiAgPC9nPg0KPC9z
+        dmc+Cw==
+</value>
+  </data>
+  <data name="labelFilePath.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
+        LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
+        dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAOMCAAAC77u/
+        PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
+        IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
+        MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
+        Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
+        MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlllbGxvd3tmaWxsOiNGRkIxMTU7fQoJ
+        LlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5HcmVlbntmaWxsOiMwMzlD
+        MjM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh
+        Y2l0eTowLjc1O30KPC9zdHlsZT4NCiAgPGcgaWQ9IlNpbmdsZVBhZ2VWaWV3Ij4NCiAgICA8cGF0aCBk
+        PSJNMjcsMEgzQzIuNCwwLDIsMC40LDIsMXYyOGMwLDAuNiwwLjQsMSwxLDFoMjRjMC42LDAsMS0wLjQs
+        MS0xVjFDMjgsMC40LDI3LjYsMCwyNywweiBNMjYsMjhINFYyaDIyVjI4eiIgY2xhc3M9IkJsYWNrIiAv
+        Pg0KICAgIDxwYXRoIGQ9Ik0yMiw4SDhWNmgxNFY4eiBNMjIsMTBIOHYyaDE0VjEweiBNMjIsMTRIOHYy
+        aDE0VjE0eiBNMjIsMThIOHYyaDE0VjE4eiBNMjIsMjJIOHYyaDE0VjIyeiIgY2xhc3M9IkJsdWUiIC8+
+        DQogIDwvZz4NCjwvc3ZnPgs=
+</value>
+  </data>
+  <data name="checkItemPreview.Caption" xml:space="preserve">
+    <value>Filepreview active</value>
+  </data>
+  <data name="checkItemPreview.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
+        LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
+        dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAHcDAAAC77u/
+        PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
+        IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
+        MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
+        Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
+        MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlllbGxvd3tmaWxsOiNGRkIxMTU7fQoJ
+        LlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5HcmVlbntmaWxsOiMwMzlD
+        MjM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh
+        Y2l0eTowLjc1O30KPC9zdHlsZT4NCiAgPGcgaWQ9IlByZXZpZXciPg0KICAgIDxwYXRoIGQ9Ik0yMS40
+        LDI4SDE4bDAsMGwwLDBIOFY0aDEydjVjMCwwLjYsMC40LDEsMSwxaDV2MTMuNGwyLDJWOWwtNy03SDdD
+        Ni40LDIsNiwyLjQsNiwzdjI2YzAsMC42LDAuNCwxLDEsMWgxNi40ICAgTDIxLjQsMjh6IiBjbGFzcz0i
+        QmxhY2siIC8+DQogICAgPHBhdGggZD0iTTE4LDE0YzMuMywwLDYsMi43LDYsNmMwLDEuMi0wLjQsMi4z
+        LTEsMy4zbDQuNiw0LjZjMC41LDAuNSwwLjUsMS4zLDAsMS43Yy0wLjUsMC41LTEuMywwLjUtMS43LDBM
+        MjEuMywyNSAgIGMtMC45LDAuNi0yLjEsMS0zLjMsMWMtMy4zLDAtNi0yLjctNi02QzEyLDE2LjcsMTQu
+        NywxNCwxOCwxNHogTTE4LDI0YzIuMiwwLDQtMS44LDQtNHMtMS44LTQtNC00cy00LDEuOC00LDRTMTUu
+        OCwyNCwxOCwyNHoiIGNsYXNzPSJCbHVlIiAvPg0KICA8L2c+DQo8L3N2Zz4L
+</value>
+  </data>
+  <data name="labelNotice.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
+        LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
+        dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAABsDAAAC77u/
+        PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
+        IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
+        MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
+        Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
+        MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlllbGxvd3tmaWxsOiNGRkIxMTU7fQoJ
+        LlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5HcmVlbntmaWxsOiMwMzlD
+        MjM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh
+        Y2l0eTowLjU7fQoJLnN0MXtkaXNwbGF5Om5vbmU7fQoJLnN0MntkaXNwbGF5OmlubGluZTtmaWxsOiMw
+        MzlDMjM7fQoJLnN0M3tkaXNwbGF5OmlubGluZTtmaWxsOiNEMTFDMUM7fQoJLnN0NHtkaXNwbGF5Omlu
+        bGluZTtmaWxsOiM3MjcyNzI7fQo8L3N0eWxlPg0KICA8ZyBpZD0iQWJvdXQiPg0KICAgIDxwYXRoIGQ9
+        Ik0xNiwyQzguMywyLDIsOC4zLDIsMTZzNi4zLDE0LDE0LDE0czE0LTYuMywxNC0xNFMyMy43LDIsMTYs
+        MnogTTE2LDZjMS4xLDAsMiwwLjksMiwycy0wLjksMi0yLDJzLTItMC45LTItMiAgIFMxNC45LDYsMTYs
+        NnogTTIwLDI0aC04di0yaDJ2LThoLTJ2LTJoMmg0djEwaDJWMjR6IiBjbGFzcz0iQmx1ZSIgLz4NCiAg
+        PC9nPg0KPC9zdmc+Cw==
+</value>
+  </data>
+  <data name="BarButtonItem1.Caption" xml:space="preserve">
+    <value>Skip current file</value>
+  </data>
+  <data name="BarButtonItem1.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
+        LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
+        dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAJkCAAAC77u/
+        PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
+        IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
+        MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
+        Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
+        MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMzU3NUJCO30KCS5C
+        bGFja3tmaWxsOiM3MzczNzQ7fQoJLldoaXRle2ZpbGw6I0ZGRkZGRjt9CgkuWWVsbG93e2ZpbGw6I0ZD
+        QjAxQjt9CgkuUmVke2ZpbGw6I0QwMjAyNzt9CgkuR3JlZW57ZmlsbDojMTI5QzQ5O30KCS5zdDB7b3Bh
+        Y2l0eTowLjU7fQo8L3N0eWxlPg0KICA8cGF0aCBkPSJNMzEsMkgxMWMtMC41LDAtMSwwLjUtMSwxdjlo
+        MlY0aDE4djI0SDEydi04aC0ydjljMCwwLjUsMC41LDEsMSwxaDIwYzAuNSwwLDEtMC41LDEtMVYzQzMy
+        LDIuNSwzMS41LDIsMzEsMnogICIgY2xhc3M9IkJsYWNrIiAvPg0KICA8cG9seWdvbiBwb2ludHM9IjQs
+        MTQgMTQsMTQgMTQsOCAyMiwxNiAxNCwyNCAxNCwxOCA0LDE4ICIgY2xhc3M9IkJsdWUiIC8+DQo8L3N2
+        Zz4L
+</value>
+  </data>
+  <data name="RibbonPageGroup3.Text" xml:space="preserve">
+    <value>Indexing</value>
+  </data>
+  <data name="RibbonPageGroup2.Text" xml:space="preserve">
+    <value>Windows</value>
+  </data>
+  <data name="checkMultiindex.Properties.Caption" xml:space="preserve">
+    <value>Multi-Indexing - Index all follwing files (0) identical</value>
+  </data>
+  <data name="btnOK.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
+        LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
+        dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAEQCAAAC77u/
+        PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
+        IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
+        MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
+        Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
+        MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5Z
+        ZWxsb3d7ZmlsbDojRkZCMTE1O30KCS5CbGFja3tmaWxsOiM3MjcyNzI7fQoJLkdyZWVue2ZpbGw6IzAz
+        OUMyMzt9CgkuUmVke2ZpbGw6I0QxMUMxQzt9Cgkuc3Qwe29wYWNpdHk6MC43NTt9Cgkuc3Qxe29wYWNp
+        dHk6MC41O30KPC9zdHlsZT4NCiAgPGcgaWQ9IkFycm93NFJpZ2h0Ij4NCiAgICA8cG9seWdvbiBwb2lu
+        dHM9IjE4LDYgMTIuMyw2IDIwLjMsMTQgNCwxNCA0LDE4IDIwLjMsMTggMTIuMywyNiAxOCwyNiAyOCwx
+        NiAgIiBjbGFzcz0iR3JlZW4iIC8+DQogIDwvZz4NCjwvc3ZnPgs=
+</value>
+  </data>
+  <data name="btnOK.Text" xml:space="preserve">
+    <value>Index file</value>
+  </data>
+  <data name="$this.Text" xml:space="preserve">
+    <value>File Indexing</value>
+  </data>
+</root>

Global_Indexer/frmIndexFileList.Designer.vb

@@ -1,9 +1,9 @@
-<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
 Partial Class frmIndexFileList
-    Inherits System.Windows.Forms.Form
+    Inherits DevExpress.XtraEditors.XtraForm
 
     'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
-    <System.Diagnostics.DebuggerNonUserCode()> _
+    <System.Diagnostics.DebuggerNonUserCode()>
     Protected Overrides Sub Dispose(ByVal disposing As Boolean)
         Try
             If disposing AndAlso components IsNot Nothing Then
@@ -20,7 +20,7 @@ Partial Class frmIndexFileList
     'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
     'Das Bearbeiten ist mit dem Windows Form-Designer möglich.  
     'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
-    <System.Diagnostics.DebuggerStepThrough()> _
+    <System.Diagnostics.DebuggerStepThrough()>
     Private Sub InitializeComponent()
         Me.components = New System.ComponentModel.Container()
         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmIndexFileList))
@@ -29,24 +29,23 @@ Partial Class frmIndexFileList
         Me.Label1 = New System.Windows.Forms.Label()
         Me.CheckedListBoxControl1 = New DevExpress.XtraEditors.CheckedListBoxControl()
         Me.Button1 = New System.Windows.Forms.Button()
-        Me.TBGI_FILES_USERBindingSource = New System.Windows.Forms.BindingSource(Me.components)
         Me.MyDataset1 = New Global_Indexer.MyDataset()
         Me.TBGI_FILES_USERTableAdapter = New Global_Indexer.MyDatasetTableAdapters.TBGI_FILES_USERTableAdapter()
         Me.TableAdapterManager = New Global_Indexer.MyDatasetTableAdapters.TableAdapterManager()
         Me.Button2 = New System.Windows.Forms.Button()
         Me.btnstartIndex = New System.Windows.Forms.Button()
-        Me.btnCancel = New System.Windows.Forms.Button()
+        Me.TBGI_FILES_USERBindingSource = New System.Windows.Forms.BindingSource(Me.components)
         Me.Panel1.SuspendLayout()
         CType(Me.CheckedListBoxControl1, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.TBGI_FILES_USERBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.MyDataset1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TBGI_FILES_USERBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
         'Panel1
         '
+        resources.ApplyResources(Me.Panel1, "Panel1")
         Me.Panel1.Controls.Add(Me.Label2)
         Me.Panel1.Controls.Add(Me.Label1)
-        resources.ApplyResources(Me.Panel1, "Panel1")
         Me.Panel1.Name = "Panel1"
         '
         'Label2
@@ -62,6 +61,13 @@ 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"
         '
         'Button1
@@ -88,7 +94,6 @@ Partial Class frmIndexFileList
         Me.TableAdapterManager.TBDD_DOKUMENTARTTableAdapter = Nothing
         Me.TableAdapterManager.TBDD_EINGANGSARTENTableAdapter = Nothing
         Me.TableAdapterManager.TBDD_GROUPS_USERTableAdapter = Nothing
-        Me.TableAdapterManager.TBDD_GROUPSTableAdapter = Nothing
         Me.TableAdapterManager.TBDD_INDEX_AUTOMTableAdapter = Nothing
         Me.TableAdapterManager.TBDD_INDEX_MAN_POSTPROCESSINGTableAdapter = Nothing
         Me.TableAdapterManager.TBDD_INDEX_MANTableAdapter = Nothing
@@ -96,11 +101,6 @@ Partial Class frmIndexFileList
         Me.TableAdapterManager.TBGI_CONFIGURATIONTableAdapter = Nothing
         Me.TableAdapterManager.TBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter = Nothing
         Me.TableAdapterManager.TBGI_REGEX_DOCTYPETableAdapter = Nothing
-        Me.TableAdapterManager.TBHOTKEY_PATTERNS_REWORKTableAdapter = Nothing
-        Me.TableAdapterManager.TBHOTKEY_PATTERNSTableAdapter = Nothing
-        Me.TableAdapterManager.TBHOTKEY_PROFILETableAdapter = Nothing
-        Me.TableAdapterManager.TBHOTKEY_USER_PROFILETableAdapter = Nothing
-        Me.TableAdapterManager.TBHOTKEY_WINDOW_HOOKTableAdapter = Nothing
         Me.TableAdapterManager.UpdateOrder = Global_Indexer.MyDatasetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete
         '
         'Button2
@@ -117,24 +117,18 @@ Partial Class frmIndexFileList
         Me.btnstartIndex.Name = "btnstartIndex"
         Me.btnstartIndex.UseVisualStyleBackColor = True
         '
-        'btnCancel
-        '
-        resources.ApplyResources(Me.btnCancel, "btnCancel")
-        Me.btnCancel.Image = Global.Global_Indexer.My.Resources.Resources.cancel
-        Me.btnCancel.Name = "btnCancel"
-        Me.btnCancel.UseVisualStyleBackColor = True
-        '
         'frmIndexFileList
         '
         resources.ApplyResources(Me, "$this")
+        Me.Appearance.Options.UseFont = True
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ControlBox = False
         Me.Controls.Add(Me.Button2)
         Me.Controls.Add(Me.Button1)
         Me.Controls.Add(Me.CheckedListBoxControl1)
-        Me.Controls.Add(Me.btnCancel)
         Me.Controls.Add(Me.btnstartIndex)
         Me.Controls.Add(Me.Panel1)
+        Me.IconOptions.Icon = CType(resources.GetObject("frmIndexFileList.IconOptions.Icon"), System.Drawing.Icon)
+        Me.IconOptions.SvgImage = Global.Global_Indexer.My.Resources.Resources.itemtypechecked
         Me.MaximizeBox = False
         Me.MinimizeBox = False
         Me.Name = "frmIndexFileList"
@@ -142,8 +136,8 @@ Partial Class frmIndexFileList
         Me.Panel1.ResumeLayout(False)
         Me.Panel1.PerformLayout()
         CType(Me.CheckedListBoxControl1, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.TBGI_FILES_USERBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.MyDataset1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TBGI_FILES_USERBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
 
     End Sub
@@ -158,5 +152,4 @@ Partial Class frmIndexFileList
     Friend WithEvents Button1 As System.Windows.Forms.Button
     Friend WithEvents Button2 As System.Windows.Forms.Button
     Friend WithEvents Label2 As Label
-    Friend WithEvents btnCancel As Button
 End Class

Global_Indexer/frmIndexFileList.en-US.resx

@@ -117,17 +117,17 @@
   <resheader name="writer">
     <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </resheader>
+  <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+  <data name="Label2.Location" type="System.Drawing.Point, System.Drawing">
+    <value>3, 40</value>
+  </data>
   <assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
   <data name="Label1.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
     <value>NoControl</value>
   </data>
-  <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
-  <data name="Label1.Size" type="System.Drawing.Size, System.Drawing">
-    <value>233, 30</value>
-  </data>
   <data name="Label1.Text" xml:space="preserve">
     <value>The following files will be indexed!
-You can prevent indexing the selected files.</value>
+You can prevent indexing by unchecking files.</value>
   </data>
   <data name="Button1.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
     <value>NoControl</value>
@@ -141,19 +141,13 @@ You can prevent indexing the selected files.</value>
   <data name="Button2.Text" xml:space="preserve">
     <value>Select None</value>
   </data>
-  <data name="btnCancel.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
-    <value>NoControl</value>
-  </data>
-  <data name="btnCancel.Text" xml:space="preserve">
-    <value>Cancel</value>
-  </data>
   <data name="btnstartIndex.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
     <value>NoControl</value>
   </data>
   <data name="btnstartIndex.Text" xml:space="preserve">
     <value>Start Indexing</value>
   </data>
-  <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+  <data name="frmIndexFileList.IconOptions.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         AAABAAMAEBAQAAEABAAoAQAANgAAABAQAAABAAgAaAUAAF4BAAAQEAAAAQAgAGgEAADGBgAAKAAAABAA
         AAAgAAAAAQAEAAAAAACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAIAAAACAgACAAAAAgACAAICA
@@ -206,6 +200,6 @@ You can prevent indexing the selected files.</value>
 </value>
   </data>
   <data name="$this.Text" xml:space="preserve">
-    <value>Files to index:</value>
+    <value>Select Files to Index</value>
   </data>
 </root>

Global_Indexer/frmIndexFileList.en.resx

@@ -0,0 +1,189 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <data name="Label1.Text" xml:space="preserve">
+    <value>The following files will be indexed!
+You can prevent indexing by unchecking files.</value>
+  </data>
+  <data name="Button1.Text" xml:space="preserve">
+    <value>Select All</value>
+  </data>
+  <data name="Button2.Text" xml:space="preserve">
+    <value>Select None</value>
+  </data>
+  <data name="btnstartIndex.Text" xml:space="preserve">
+    <value>Start Indexing</value>
+  </data>
+  <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+  <data name="frmIndexFileList.IconOptions.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        AAABAAMAEBAQAAEABAAoAQAANgAAABAQAAABAAgAaAUAAF4BAAAQEAAAAQAgAGgEAADGBgAAKAAAABAA
+        AAAgAAAAAQAEAAAAAACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAIAAAACAgACAAAAAgACAAICA
+        AACAgIAAwMDAAAAA/wAA/wAAAP//AP8AAAD/AP8A//8AAP///wAAAP///////wAA93d3d3d/AAD3d3d3
+        d38AAPd////3fwAA93////d/AAD3f///938AD/d////3fwD3eH////d/D3Zn////93/3ZmZ///d3f/Z2
+        Z2//93fw9/Zvf3d3fwD/9m//d3fwAPD2bw///wAAAP//AAAAAAAAAAAAAAAAAPAAAADwAAAA8AAAAPAA
+        AADwAAAA8AAAAOAAAADAAAAAgAAAAAAAAAAAAQAAAAMAAAAHAABCDwAAw/8AAP//AAAoAAAAEAAAACAA
+        AAABAAgAAAAAAAABAAAAAAAAAAAAAAABAAAAAQAAAAAAAEJCQgCcUwAAvpBcAIaGhgCzs7MA8e/wAPTz
+        9AD29vYAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA////AAAAAAAICAgICAgICAgICAgAAAAACAEBAQEB
+        AQEBAQEIAAAAAAgBAQEBAQEBAQEBCAAAAAAIAQEGBgYGBgYBAQgAAAAACAEBBgYGBgYGAQEIAAAAAAgB
+        AQYGBgYGBgEBCAAAAAgIAQEGBgYGBgYBAQgAAAgDAwUBBgYGBgYGAQEIAAgDAgIDCAYGBgYGBgEBCAgD
+        AgICAgMIBgYGAQEBBAgIAgMCAgMCCAYGBgEBBAgACAMIAgIIAwgBAQEBBAgAAAgICAICCAgIAQEBBAgA
+        AAAIAAgCAggACAgICAgAAAAAAAAICAgIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADwAAAA8AAAAPAA
+        AADwAAAA8AAAAPAAAADgAAAAwAAAAIAAAAAAAAAAAAEAAAADAAAABwAAQg8AAMP/AAD//wAAKAAAABAA
+        AAAgAAAAAQAgAAAAAABABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD29vb/9vb2//b2
+        9v/29vb/9vb2//b29v/29vb/9vb2//b29v/29vb/9vb2//b29v8AAAAAAAAAAAAAAAAAAAAA9vb2/0JC
+        Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv/29vb/AAAAAAAAAAAAAAAAAAAAAPb2
+        9v9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/9vb2/wAAAAAAAAAAAAAAAAAA
+        AAD29vb/QkJC/0JCQv/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv8P9CQkL/QkJC//b29v8AAAAAAAAAAAAA
+        AAAAAAAA9vb2/0JCQv9CQkL/8e/w//Hv8P/x7/D/8e/w//Hv8P/x7/D/QkJC/0JCQv/29vb/AAAAAAAA
+        AAAAAAAA9vb2MPb29v9CQkL/QkJC//Hv8P/x7/D/8e/w//Hv8P/x7/D/8e/w/0JCQv9CQkL/9vb2/wAA
+        AAAAAAAA9vb2MPb29u/29vb/QkJC/0JCQv/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv8P9CQkL/QkJC//b2
+        9v8AAAAA9vb2MPb29u++kFz/vpBc/7Ozs/9CQkL/8e/w//Hv8P/x7/D/8e/w//Hv8P/x7/D/QkJC/0JC
+        Qv/29vb/9vb2MPb29u++kFz/nFMA/5xTAP++kFz/9vb2//Hv8P/x7/D/8e/w//Hv8P/x7/D/8e/w/0JC
+        Qv9CQkL/9vb2//b29u++kFz/nFMA/5xTAP+cUwD/nFMA/76QXP/08/T/8e/w//Hv8P/x7/D/QkJC/0JC
+        Qv9CQkL/hoaG//b29u/29vb/nFMA/76QXP+cUwD/nFMA/76QXP+cUwD/9vb2//Hv8P/x7/D/8e/w/0JC
+        Qv9CQkL/hoaG//b29u/29vYw9vb2/76QXP/29vb/nFMA/5xTAP/29vb/vpBc//b29v9CQkL/QkJC/0JC
+        Qv9CQkL/hoaG//b29u/29vYwAAAAAPb29v/29vbv9vb2/5xTAP+cUwD/9vb2//b29u/29vb/QkJC/0JC
+        Qv9CQkL/hoaG//b29u/29vYwAAAAAAAAAAD29vbv9vb2MPb29v+cUwD/nFMA//b29v/29vYw9vb2//b2
+        9v/29vb/9vb2//b29u/29vYwAAAAAAAAAAAAAAAA9vb2MAAAAAD29vb/9vb2//b29v/29vb/AAAAAPb2
+        9jAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADwAAAA8AAAAPAAAADwAAAA8AAAAOAA
+        AADAAAAAgAAAAAAAAAAAAAAAAAAAAAABAAAAAwAAAAcAAEL/AAD//wAA
+</value>
+  </data>
+  <data name="$this.Text" xml:space="preserve">
+    <value>Select Files to Index</value>
+  </data>
+</root>

Global_Indexer/frmIndexFileList.resx

@@ -117,295 +117,39 @@
   <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>5</value>
-  </data>
-  <data name="Label2.AutoSize" type="System.Boolean, mscorlib">
-    <value>True</value>
-  </data>
-  <data name="Label2.Font" type="System.Drawing.Font, System.Drawing">
-    <value>Segoe UI, 9.75pt, style=Bold</value>
-  </data>
-  <data name="Label2.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
-    <value>NoControl</value>
-  </data>
-  <data name="Label2.Location" type="System.Drawing.Point, System.Drawing">
-    <value>3, 31</value>
-  </data>
-  <data name="Label2.Size" type="System.Drawing.Size, System.Drawing">
-    <value>522, 17</value>
-  </data>
-  <data name="Label2.TabIndex" type="System.Int32, mscorlib">
-    <value>1</value>
-  </data>
-  <data name="Label2.Text" xml:space="preserve">
-    <value>Sie haben nun Möglichkeit die Indexierung für ausgewählte Dateien zu verhindern.</value>
-  </data>
   <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="Label1.AutoSize" type="System.Boolean, mscorlib">
-    <value>True</value>
-  </data>
-  <data name="Label1.Font" type="System.Drawing.Font, System.Drawing">
-    <value>Segoe UI, 9.75pt</value>
-  </data>
-  <data name="Label1.Location" type="System.Drawing.Point, System.Drawing">
-    <value>3, 9</value>
-  </data>
-  <data name="Label1.Size" type="System.Drawing.Size, System.Drawing">
-    <value>326, 17</value>
-  </data>
-  <data name="Label1.TabIndex" type="System.Int32, mscorlib">
-    <value>0</value>
-  </data>
-  <data name="Label1.Text" xml:space="preserve">
-    <value>Folgende Dateien werden zur Indexierung angeboten! </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>
-  <data name="CheckedListBoxControl1.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
-    <value>Top, Bottom, Left, Right</value>
-  </data>
-  <data name="CheckedListBoxControl1.Location" type="System.Drawing.Point, System.Drawing">
-    <value>0, 63</value>
-  </data>
-  <data name="CheckedListBoxControl1.Size" type="System.Drawing.Size, System.Drawing">
-    <value>647, 261</value>
-  </data>
-  <data name="CheckedListBoxControl1.TabIndex" type="System.Int32, mscorlib">
-    <value>8</value>
-  </data>
-  <data name="&gt;&gt;CheckedListBoxControl1.Name" xml:space="preserve">
-    <value>CheckedListBoxControl1</value>
-  </data>
-  <data name="&gt;&gt;CheckedListBoxControl1.Type" xml:space="preserve">
-    <value>DevExpress.XtraEditors.CheckedListBoxControl, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
-  </data>
-  <data name="&gt;&gt;CheckedListBoxControl1.Parent" xml:space="preserve">
-    <value>$this</value>
-  </data>
-  <data name="&gt;&gt;CheckedListBoxControl1.ZOrder" xml:space="preserve">
-    <value>2</value>
-  </data>
-  <data name="Button1.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
-    <value>Bottom, Left</value>
-  </data>
-  <data name="Button1.Location" type="System.Drawing.Point, System.Drawing">
-    <value>12, 344</value>
-  </data>
-  <data name="Button1.Size" type="System.Drawing.Size, System.Drawing">
-    <value>115, 36</value>
-  </data>
-  <data name="Button1.TabIndex" type="System.Int32, mscorlib">
-    <value>1</value>
-  </data>
-  <data name="Button1.Text" xml:space="preserve">
-    <value>Alle auswählen</value>
-  </data>
   <data name="&gt;&gt;Button1.Name" xml:space="preserve">
     <value>Button1</value>
   </data>
-  <data name="&gt;&gt;Button1.Type" xml:space="preserve">
+  <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
-    <value>System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="&gt;&gt;Button1.Parent" xml:space="preserve">
-    <value>$this</value>
-  </data>
-  <data name="&gt;&gt;Button1.ZOrder" xml:space="preserve">
-    <value>1</value>
-  </data>
-  <metadata name="TBGI_FILES_USERBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>17, 17</value>
-  </metadata>
-  <metadata name="MyDataset1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>240, 17</value>
-  </metadata>
-  <metadata name="TBGI_FILES_USERTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>357, 17</value>
-  </metadata>
-  <metadata name="TableAdapterManager.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>574, 17</value>
-  </metadata>
-  <data name="Button2.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
-    <value>Bottom, Left</value>
-  </data>
-  <data name="Button2.Location" type="System.Drawing.Point, System.Drawing">
-    <value>133, 344</value>
-  </data>
   <data name="Button2.Size" type="System.Drawing.Size, System.Drawing">
     <value>115, 36</value>
   </data>
-  <data name="Button2.TabIndex" type="System.Int32, mscorlib">
+  <data name="&gt;&gt;Button1.Type" xml:space="preserve">
-    <value>6</value>
+    <value>System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </data>
+  <data name="&gt;&gt;$this.Name" xml:space="preserve">
+    <value>frmIndexFileList</value>
+  </data>
+  <assembly alias="mscorlib" name="mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
+  <data name="CheckedListBoxControl1.TabIndex" type="System.Int32, mscorlib">
+    <value>8</value>
+  </data>
+  <data name="Button1.Location" type="System.Drawing.Point, System.Drawing">
+    <value>12, 344</value>
   </data>
   <data name="Button2.Text" xml:space="preserve">
     <value>Alle abwählen</value>
   </data>
-  <data name="&gt;&gt;Button2.Name" xml:space="preserve">
+  <data name="Label2.Font" type="System.Drawing.Font, System.Drawing">
-    <value>Button2</value>
+    <value>Segoe UI, 9.75pt, style=Bold</value>
   </data>
-  <data name="&gt;&gt;Button2.Type" xml:space="preserve">
+  <data name="frmIndexFileList.IconOptions.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="&gt;&gt;Button2.Parent" xml:space="preserve">
-    <value>$this</value>
-  </data>
-  <data name="&gt;&gt;Button2.ZOrder" xml:space="preserve">
-    <value>0</value>
-  </data>
-  <data name="btnstartIndex.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
-    <value>Bottom, Right</value>
-  </data>
-  <data name="btnstartIndex.Font" type="System.Drawing.Font, System.Drawing">
-    <value>Segoe UI, 9pt, style=Bold</value>
-  </data>
-  <data name="btnstartIndex.ImageAlign" type="System.Drawing.ContentAlignment, System.Drawing">
-    <value>MiddleLeft</value>
-  </data>
-  <data name="btnstartIndex.Location" type="System.Drawing.Point, System.Drawing">
-    <value>490, 344</value>
-  </data>
-  <data name="btnstartIndex.Size" type="System.Drawing.Size, System.Drawing">
-    <value>145, 36</value>
-  </data>
-  <data name="btnstartIndex.TabIndex" type="System.Int32, mscorlib">
-    <value>3</value>
-  </data>
-  <data name="btnstartIndex.Text" xml:space="preserve">
-    <value>Starte Indexierung</value>
-  </data>
-  <data name="btnstartIndex.TextAlign" type="System.Drawing.ContentAlignment, System.Drawing">
-    <value>MiddleRight</value>
-  </data>
-  <data name="&gt;&gt;btnstartIndex.Name" xml:space="preserve">
-    <value>btnstartIndex</value>
-  </data>
-  <data name="&gt;&gt;btnstartIndex.Type" xml:space="preserve">
-    <value>System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="&gt;&gt;btnstartIndex.Parent" xml:space="preserve">
-    <value>$this</value>
-  </data>
-  <data name="&gt;&gt;btnstartIndex.ZOrder" xml:space="preserve">
-    <value>4</value>
-  </data>
-  <data name="btnCancel.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
-    <value>Bottom, Right</value>
-  </data>
-  <data name="btnCancel.Font" type="System.Drawing.Font, System.Drawing">
-    <value>Segoe UI, 9pt, style=Bold</value>
-  </data>
-  <data name="btnCancel.ImageAlign" type="System.Drawing.ContentAlignment, System.Drawing">
-    <value>MiddleLeft</value>
-  </data>
-  <data name="btnCancel.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
-    <value>NoControl</value>
-  </data>
-  <data name="btnCancel.Location" type="System.Drawing.Point, System.Drawing">
-    <value>289, 344</value>
-  </data>
-  <data name="btnCancel.Size" type="System.Drawing.Size, System.Drawing">
-    <value>195, 36</value>
-  </data>
-  <data name="btnCancel.TabIndex" type="System.Int32, mscorlib">
-    <value>3</value>
-  </data>
-  <data name="btnCancel.Text" xml:space="preserve">
-    <value>Indexierung Abbrechen</value>
-  </data>
-  <data name="&gt;&gt;btnCancel.Name" xml:space="preserve">
-    <value>btnCancel</value>
-  </data>
-  <data name="&gt;&gt;btnCancel.Type" xml:space="preserve">
-    <value>System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="&gt;&gt;btnCancel.Parent" xml:space="preserve">
-    <value>$this</value>
-  </data>
-  <data name="&gt;&gt;btnCancel.ZOrder" xml:space="preserve">
-    <value>3</value>
-  </data>
-  <metadata name="$this.Localizable" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-    <value>True</value>
-  </metadata>
-  <data name="$this.AutoScaleDimensions" type="System.Drawing.SizeF, System.Drawing">
-    <value>7, 15</value>
-  </data>
-  <data name="$this.ClientSize" type="System.Drawing.Size, System.Drawing">
-    <value>647, 392</value>
-  </data>
-  <data name="$this.Font" type="System.Drawing.Font, System.Drawing">
-    <value>Segoe UI, 9pt</value>
-  </data>
-  <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         AAABAAMAEBAQAAEABAAoAQAANgAAABAQAAABAAgAaAUAAF4BAAAQEAAAAQAgAGgEAADGBgAAKAAAABAA
         AAAgAAAAAQAEAAAAAACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAIAAAACAgACAAAAAgACAAICA
@@ -457,37 +201,237 @@
         AADAAAAAgAAAAAAAAAAAAAAAAAAAAAABAAAAAwAAAAcAAEL/AAD//wAA
 </value>
   </data>
-  <data name="$this.Text" xml:space="preserve">
-    <value>Zu indexierende Dateien:</value>
-  </data>
   <data name="&gt;&gt;TBGI_FILES_USERBindingSource.Name" xml:space="preserve">
     <value>TBGI_FILES_USERBindingSource</value>
   </data>
-  <data name="&gt;&gt;TBGI_FILES_USERBindingSource.Type" xml:space="preserve">
+  <data name="Label1.TabIndex" type="System.Int32, mscorlib">
-    <value>System.Windows.Forms.BindingSource, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+    <value>0</value>
+  </data>
+  <data name="Label2.TabIndex" type="System.Int32, mscorlib">
+    <value>1</value>
+  </data>
+  <data name="&gt;&gt;Button1.ZOrder" xml:space="preserve">
+    <value>1</value>
+  </data>
+  <data name="Label2.Size" type="System.Drawing.Size, System.Drawing">
+    <value>0, 17</value>
+  </data>
+  <data name="&gt;&gt;Button2.Name" xml:space="preserve">
+    <value>Button2</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;Button2.Type" xml:space="preserve">
+    <value>System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </data>
+  <data name="&gt;&gt;Label1.Name" xml:space="preserve">
+    <value>Label1</value>
+  </data>
+  <assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
+  <data name="CheckedListBoxControl1.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
+    <value>Top, Bottom, Left, Right</value>
+  </data>
+  <data name="Button1.Text" xml:space="preserve">
+    <value>Alle auswählen</value>
+  </data>
+  <data name="Label1.Padding" type="System.Windows.Forms.Padding, System.Windows.Forms">
+    <value>10, 10, 10, 10</value>
+  </data>
+  <data name="&gt;&gt;btnstartIndex.ZOrder" xml:space="preserve">
+    <value>3</value>
+  </data>
+  <data name="&gt;&gt;btnstartIndex.Type" xml:space="preserve">
+    <value>System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</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;Button1.Parent" xml:space="preserve">
+    <value>$this</value>
   </data>
   <data name="&gt;&gt;MyDataset1.Name" xml:space="preserve">
     <value>MyDataset1</value>
   </data>
-  <data name="&gt;&gt;MyDataset1.Type" xml:space="preserve">
+  <data name="&gt;&gt;CheckedListBoxControl1.ZOrder" xml:space="preserve">
-    <value>Global_Indexer.MyDataset, MyDataset.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value>
+    <value>2</value>
-  </data>
-  <data name="&gt;&gt;TBGI_FILES_USERTableAdapter.Name" xml:space="preserve">
-    <value>TBGI_FILES_USERTableAdapter</value>
   </data>
   <data name="&gt;&gt;TBGI_FILES_USERTableAdapter.Type" xml:space="preserve">
     <value>Global_Indexer.MyDatasetTableAdapters.TBGI_FILES_USERTableAdapter, MyDataset.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value>
   </data>
+  <data name="$this.AutoScaleDimensions" type="System.Drawing.SizeF, System.Drawing">
+    <value>7, 15</value>
+  </data>
+  <data name="Panel1.Location" type="System.Drawing.Point, System.Drawing">
+    <value>0, 0</value>
+  </data>
+  <data name="&gt;&gt;Panel1.ZOrder" xml:space="preserve">
+    <value>4</value>
+  </data>
+  <data name="&gt;&gt;TBGI_FILES_USERTableAdapter.Name" xml:space="preserve">
+    <value>TBGI_FILES_USERTableAdapter</value>
+  </data>
+  <data name="&gt;&gt;btnstartIndex.Parent" xml:space="preserve">
+    <value>$this</value>
+  </data>
+  <data name="btnstartIndex.Location" type="System.Drawing.Point, System.Drawing">
+    <value>490, 344</value>
+  </data>
   <data name="&gt;&gt;TableAdapterManager.Name" xml:space="preserve">
     <value>TableAdapterManager</value>
   </data>
+  <data name="btnstartIndex.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
+    <value>Bottom, Right</value>
+  </data>
+  <data name="CheckedListBoxControl1.Location" type="System.Drawing.Point, System.Drawing">
+    <value>0, 63</value>
+  </data>
+  <data name="Panel1.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
+    <value>Top</value>
+  </data>
+  <data name="&gt;&gt;Label1.Parent" xml:space="preserve">
+    <value>Panel1</value>
+  </data>
+  <data name="$this.Font" type="System.Drawing.Font, System.Drawing">
+    <value>Segoe UI, 9pt</value>
+  </data>
+  <data name="btnstartIndex.Size" type="System.Drawing.Size, System.Drawing">
+    <value>145, 36</value>
+  </data>
+  <data name="Label1.Text" xml:space="preserve">
+    <value>Folgende Dateien werden zur Indexierung angeboten! 
+Sie haben nun Möglichkeit die Indexierung für ausgewählte Dateien zu verhindern.</value>
+  </data>
+  <data name="Panel1.TabIndex" type="System.Int32, mscorlib">
+    <value>0</value>
+  </data>
+  <data name="Button2.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
+    <value>Bottom, Left</value>
+  </data>
+  <data name="&gt;&gt;Panel1.Name" xml:space="preserve">
+    <value>Panel1</value>
+  </data>
+  <data name="Button2.Location" type="System.Drawing.Point, System.Drawing">
+    <value>133, 344</value>
+  </data>
+  <data name="btnstartIndex.ImageAlign" type="System.Drawing.ContentAlignment, System.Drawing">
+    <value>MiddleLeft</value>
+  </data>
+  <data name="btnstartIndex.TextAlign" type="System.Drawing.ContentAlignment, System.Drawing">
+    <value>MiddleRight</value>
+  </data>
   <data name="&gt;&gt;TableAdapterManager.Type" xml:space="preserve">
     <value>Global_Indexer.MyDatasetTableAdapters.TableAdapterManager, MyDataset.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value>
   </data>
-  <data name="&gt;&gt;$this.Name" xml:space="preserve">
+  <data name="Label2.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
-    <value>frmIndexFileList</value>
+    <value>NoControl</value>
+  </data>
+  <data name="&gt;&gt;TBGI_FILES_USERBindingSource.Type" xml:space="preserve">
+    <value>System.Windows.Forms.BindingSource, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </data>
+  <data name="&gt;&gt;Button2.Parent" xml:space="preserve">
+    <value>$this</value>
+  </data>
+  <data name="btnstartIndex.TabIndex" type="System.Int32, mscorlib">
+    <value>3</value>
+  </data>
+  <data name="&gt;&gt;Button2.ZOrder" xml:space="preserve">
+    <value>0</value>
+  </data>
+  <data name="Label1.Location" type="System.Drawing.Point, System.Drawing">
+    <value>0, 0</value>
+  </data>
+  <data name="&gt;&gt;MyDataset1.Type" xml:space="preserve">
+    <value>Global_Indexer.MyDataset, MyDataset.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value>
+  </data>
+  <data name="Label2.AutoSize" type="System.Boolean, mscorlib">
+    <value>True</value>
+  </data>
+  <data name="Label2.Location" type="System.Drawing.Point, System.Drawing">
+    <value>3, 31</value>
+  </data>
+  <data name="Label1.Font" type="System.Drawing.Font, System.Drawing">
+    <value>Segoe UI, 9.75pt</value>
+  </data>
+  <data name="Panel1.Size" type="System.Drawing.Size, System.Drawing">
+    <value>647, 57</value>
+  </data>
+  <data name="&gt;&gt;Label2.ZOrder" xml:space="preserve">
+    <value>0</value>
+  </data>
+  <data name="btnstartIndex.Text" xml:space="preserve">
+    <value>Starte Indexierung</value>
+  </data>
+  <data name="&gt;&gt;Label1.ZOrder" xml:space="preserve">
+    <value>1</value>
+  </data>
+  <data name="$this.Text" xml:space="preserve">
+    <value>Zu indexierende Dateien auswählen</value>
+  </data>
+  <data name="Button2.TabIndex" type="System.Int32, mscorlib">
+    <value>6</value>
+  </data>
+  <data name="&gt;&gt;CheckedListBoxControl1.Name" xml:space="preserve">
+    <value>CheckedListBoxControl1</value>
+  </data>
+  <data name="Label1.Size" type="System.Drawing.Size, System.Drawing">
+    <value>647, 57</value>
+  </data>
+  <data name="&gt;&gt;Label2.Parent" xml:space="preserve">
+    <value>Panel1</value>
+  </data>
+  <data name="CheckedListBoxControl1.Size" type="System.Drawing.Size, System.Drawing">
+    <value>647, 261</value>
+  </data>
+  <data name="&gt;&gt;btnstartIndex.Name" xml:space="preserve">
+    <value>btnstartIndex</value>
+  </data>
+  <data name="btnstartIndex.Font" type="System.Drawing.Font, System.Drawing">
+    <value>Segoe UI, 9pt, style=Bold</value>
+  </data>
+  <data name="Label1.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
+    <value>Fill</value>
+  </data>
+  <data name="Button1.Size" type="System.Drawing.Size, System.Drawing">
+    <value>115, 36</value>
+  </data>
+  <data name="Button1.TabIndex" type="System.Int32, mscorlib">
+    <value>1</value>
+  </data>
+  <data name="Button1.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
+    <value>Bottom, Left</value>
+  </data>
+  <data name="$this.ClientSize" type="System.Drawing.Size, System.Drawing">
+    <value>647, 392</value>
   </data>
   <data name="&gt;&gt;$this.Type" xml:space="preserve">
-    <value>System.Windows.Forms.Form, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+    <value>DevExpress.XtraEditors.XtraForm, DevExpress.Utils.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
+  <data name="&gt;&gt;CheckedListBoxControl1.Parent" xml:space="preserve">
+    <value>$this</value>
+  </data>
+  <data name="&gt;&gt;Panel1.Parent" xml:space="preserve">
+    <value>$this</value>
+  </data>
+  <data name="&gt;&gt;CheckedListBoxControl1.Type" xml:space="preserve">
+    <value>DevExpress.XtraEditors.CheckedListBoxControl, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+  </data>
+  <metadata name="TBGI_FILES_USERTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>357, 17</value>
+  </metadata>
+  <metadata name="TableAdapterManager.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>574, 17</value>
+  </metadata>
+  <metadata name="$this.Language" type="System.Globalization.CultureInfo, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>en</value>
+  </metadata>
+  <metadata name="$this.Localizable" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>True</value>
+  </metadata>
+  <metadata name="MyDataset1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>240, 17</value>
+  </metadata>
+  <metadata name="TBGI_FILES_USERBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 17</value>
+  </metadata>
 </root>

Global_Indexer/frmIndexFileList.resx.bak

@@ -1,472 +0,0 @@
-<?xml version="1.0" encoding="utf-8"?>
-<root>
-  <!-- 
-    Microsoft ResX Schema 
-    
-    Version 2.0
-    
-    The primary goals of this format is to allow a simple XML format 
-    that is mostly human readable. The generation and parsing of the 
-    various data types are done through the TypeConverter classes 
-    associated with the data types.
-    
-    Example:
-    
-    ... ado.net/XML headers & schema ...
-    <resheader name="resmimetype">text/microsoft-resx</resheader>
-    <resheader name="version">2.0</resheader>
-    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
-    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
-    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
-    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
-    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
-        <value>[base64 mime encoded serialized .NET Framework object]</value>
-    </data>
-    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
-        <comment>This is a comment</comment>
-    </data>
-                
-    There are any number of "resheader" rows that contain simple 
-    name/value pairs.
-    
-    Each data row contains a name, and value. The row also contains a 
-    type or mimetype. Type corresponds to a .NET class that support 
-    text/value conversion through the TypeConverter architecture. 
-    Classes that don't support this are serialized and stored with the 
-    mimetype set.
-    
-    The mimetype is used for serialized objects, and tells the 
-    ResXResourceReader how to depersist the object. This is currently not 
-    extensible. For a given mimetype the value must be set accordingly:
-    
-    Note - application/x-microsoft.net.object.binary.base64 is the format 
-    that the ResXResourceWriter will generate, however the reader can 
-    read any of the formats listed below.
-    
-    mimetype: application/x-microsoft.net.object.binary.base64
-    value   : The object must be serialized with 
-            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
-            : and then encoded with base64 encoding.
-    
-    mimetype: application/x-microsoft.net.object.soap.base64
-    value   : The object must be serialized with 
-            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
-            : and then encoded with base64 encoding.
-
-    mimetype: application/x-microsoft.net.object.bytearray.base64
-    value   : The object must be serialized into a byte array 
-            : using a System.ComponentModel.TypeConverter
-            : and then encoded with base64 encoding.
-    -->
-  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
-    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
-    <xsd:element name="root" msdata:IsDataSet="true">
-      <xsd:complexType>
-        <xsd:choice maxOccurs="unbounded">
-          <xsd:element name="metadata">
-            <xsd:complexType>
-              <xsd:sequence>
-                <xsd:element name="value" type="xsd:string" minOccurs="0" />
-              </xsd:sequence>
-              <xsd:attribute name="name" use="required" type="xsd:string" />
-              <xsd:attribute name="type" type="xsd:string" />
-              <xsd:attribute name="mimetype" type="xsd:string" />
-              <xsd:attribute ref="xml:space" />
-            </xsd:complexType>
-          </xsd:element>
-          <xsd:element name="assembly">
-            <xsd:complexType>
-              <xsd:attribute name="alias" type="xsd:string" />
-              <xsd:attribute name="name" type="xsd:string" />
-            </xsd:complexType>
-          </xsd:element>
-          <xsd:element name="data">
-            <xsd:complexType>
-              <xsd:sequence>
-                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
-                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
-              </xsd:sequence>
-              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
-              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
-              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
-              <xsd:attribute ref="xml:space" />
-            </xsd:complexType>
-          </xsd:element>
-          <xsd:element name="resheader">
-            <xsd:complexType>
-              <xsd:sequence>
-                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
-              </xsd:sequence>
-              <xsd:attribute name="name" type="xsd:string" use="required" />
-            </xsd:complexType>
-          </xsd:element>
-        </xsd:choice>
-      </xsd:complexType>
-    </xsd:element>
-  </xsd:schema>
-  <resheader name="resmimetype">
-    <value>text/microsoft-resx</value>
-  </resheader>
-  <resheader name="version">
-    <value>2.0</value>
-  </resheader>
-  <resheader name="reader">
-    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </resheader>
-  <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>655, 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>5</value>
-  </data>
-  <data name="Label2.AutoSize" type="System.Boolean, mscorlib">
-    <value>True</value>
-  </data>
-  <data name="Label2.Font" type="System.Drawing.Font, System.Drawing">
-    <value>Segoe UI, 9.75pt, style=Bold</value>
-  </data>
-  <data name="Label2.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
-    <value>NoControl</value>
-  </data>
-  <data name="Label2.Location" type="System.Drawing.Point, System.Drawing">
-    <value>3, 31</value>
-  </data>
-  <data name="Label2.Size" type="System.Drawing.Size, System.Drawing">
-    <value>522, 17</value>
-  </data>
-  <data name="Label2.TabIndex" type="System.Int32, mscorlib">
-    <value>1</value>
-  </data>
-  <data name="Label2.Text" xml:space="preserve">
-    <value>Sie haben nun Möglichkeit die Indexierung für ausgewählte Dateien zu verhindern.</value>
-  </data>
-  <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="Label1.AutoSize" type="System.Boolean, mscorlib">
-    <value>True</value>
-  </data>
-  <data name="Label1.Font" type="System.Drawing.Font, System.Drawing">
-    <value>Segoe UI, 9.75pt</value>
-  </data>
-  <data name="Label1.Location" type="System.Drawing.Point, System.Drawing">
-    <value>3, 9</value>
-  </data>
-  <data name="Label1.Size" type="System.Drawing.Size, System.Drawing">
-    <value>326, 17</value>
-  </data>
-  <data name="Label1.TabIndex" type="System.Int32, mscorlib">
-    <value>0</value>
-  </data>
-  <data name="Label1.Text" xml:space="preserve">
-    <value>Folgende Dateien werden zur Indexierung angeboten! </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>
-  <data name="&gt;&gt;CheckedListBoxControl1.Name" xml:space="preserve">
-    <value>CheckedListBoxControl1</value>
-  </data>
-  <data name="&gt;&gt;CheckedListBoxControl1.Type" xml:space="preserve">
-    <value>DevExpress.XtraEditors.CheckedListBoxControl, DevExpress.XtraEditors.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
-  </data>
-  <data name="&gt;&gt;CheckedListBoxControl1.Parent" xml:space="preserve">
-    <value>$this</value>
-  </data>
-  <data name="&gt;&gt;CheckedListBoxControl1.ZOrder" xml:space="preserve">
-    <value>3</value>
-  </data>
-  <data name="Button1.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
-    <value>Bottom, Left</value>
-  </data>
-  <data name="Button1.Location" type="System.Drawing.Point, System.Drawing">
-    <value>6, 292</value>
-  </data>
-  <data name="Button1.Size" type="System.Drawing.Size, System.Drawing">
-    <value>115, 23</value>
-  </data>
-  <data name="Button1.TabIndex" type="System.Int32, mscorlib">
-    <value>1</value>
-  </data>
-  <data name="Button1.Text" xml:space="preserve">
-    <value>Alle auswählen</value>
-  </data>
-  <data name="&gt;&gt;Button1.Name" xml:space="preserve">
-    <value>Button1</value>
-  </data>
-  <data name="&gt;&gt;Button1.Type" xml:space="preserve">
-    <value>System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="&gt;&gt;Button1.Parent" xml:space="preserve">
-    <value>$this</value>
-  </data>
-  <data name="&gt;&gt;Button1.ZOrder" xml:space="preserve">
-    <value>2</value>
-  </data>
-  <metadata name="TBGI_FILES_USERTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>357, 17</value>
-  </metadata>
-  <metadata name="TableAdapterManager.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>574, 17</value>
-  </metadata>
-  <data name="Button2.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
-    <value>Bottom, Left</value>
-  </data>
-  <data name="Button2.Location" type="System.Drawing.Point, System.Drawing">
-    <value>6, 319</value>
-  </data>
-  <data name="Button2.Size" type="System.Drawing.Size, System.Drawing">
-    <value>115, 23</value>
-  </data>
-  <data name="Button2.TabIndex" type="System.Int32, mscorlib">
-    <value>6</value>
-  </data>
-  <data name="Button2.Text" xml:space="preserve">
-    <value>Alle unselektieren</value>
-  </data>
-  <data name="&gt;&gt;Button2.Name" xml:space="preserve">
-    <value>Button2</value>
-  </data>
-  <data name="&gt;&gt;Button2.Type" xml:space="preserve">
-    <value>System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="&gt;&gt;Button2.Parent" xml:space="preserve">
-    <value>$this</value>
-  </data>
-  <data name="&gt;&gt;Button2.ZOrder" xml:space="preserve">
-    <value>1</value>
-  </data>
-  <data name="btnCancel.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
-    <value>Bottom, Right</value>
-  </data>
-  <data name="btnCancel.ImageAlign" type="System.Drawing.ContentAlignment, System.Drawing">
-    <value>MiddleLeft</value>
-  </data>
-  <data name="btnCancel.Location" type="System.Drawing.Point, System.Drawing">
-    <value>406, 292</value>
-  </data>
-  <data name="btnCancel.Size" type="System.Drawing.Size, System.Drawing">
-    <value>86, 36</value>
-  </data>
-  <data name="btnCancel.TabIndex" type="System.Int32, mscorlib">
-    <value>7</value>
-  </data>
-  <data name="btnCancel.Text" xml:space="preserve">
-    <value>Abbruch</value>
-  </data>
-  <data name="btnCancel.TextAlign" type="System.Drawing.ContentAlignment, System.Drawing">
-    <value>MiddleRight</value>
-  </data>
-  <data name="&gt;&gt;btnCancel.Name" xml:space="preserve">
-    <value>btnCancel</value>
-  </data>
-  <data name="&gt;&gt;btnCancel.Type" xml:space="preserve">
-    <value>System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="&gt;&gt;btnCancel.Parent" xml:space="preserve">
-    <value>$this</value>
-  </data>
-  <data name="&gt;&gt;btnCancel.ZOrder" xml:space="preserve">
-    <value>0</value>
-  </data>
-  <data name="btnstartIndex.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
-    <value>Bottom, Right</value>
-  </data>
-  <data name="btnstartIndex.Font" type="System.Drawing.Font, System.Drawing">
-    <value>Segoe UI, 9pt, style=Bold</value>
-  </data>
-  <data name="btnstartIndex.ImageAlign" type="System.Drawing.ContentAlignment, System.Drawing">
-    <value>MiddleLeft</value>
-  </data>
-  <data name="btnstartIndex.Location" type="System.Drawing.Point, System.Drawing">
-    <value>498, 292</value>
-  </data>
-  <data name="btnstartIndex.Size" type="System.Drawing.Size, System.Drawing">
-    <value>145, 36</value>
-  </data>
-  <data name="btnstartIndex.TabIndex" type="System.Int32, mscorlib">
-    <value>3</value>
-  </data>
-  <data name="btnstartIndex.Text" xml:space="preserve">
-    <value>Starte Indexierung</value>
-  </data>
-  <data name="btnstartIndex.TextAlign" type="System.Drawing.ContentAlignment, System.Drawing">
-    <value>MiddleRight</value>
-  </data>
-  <data name="&gt;&gt;btnstartIndex.Name" xml:space="preserve">
-    <value>btnstartIndex</value>
-  </data>
-  <data name="&gt;&gt;btnstartIndex.Type" xml:space="preserve">
-    <value>System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="&gt;&gt;btnstartIndex.Parent" xml:space="preserve">
-    <value>$this</value>
-  </data>
-  <data name="&gt;&gt;btnstartIndex.ZOrder" xml:space="preserve">
-    <value>4</value>
-  </data>
-  <metadata name="$this.Localizable" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-    <value>True</value>
-  </metadata>
-  <data name="$this.AutoScaleDimensions" type="System.Drawing.SizeF, System.Drawing">
-    <value>7, 15</value>
-  </data>
-  <data name="$this.ClientSize" type="System.Drawing.Size, System.Drawing">
-    <value>655, 354</value>
-  </data>
-  <data name="$this.Font" type="System.Drawing.Font, System.Drawing">
-    <value>Segoe UI, 9pt</value>
-  </data>
-  <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        AAABAAMAEBAQAAEABAAoAQAANgAAABAQAAABAAgAaAUAAF4BAAAQEAAAAQAgAGgEAADGBgAAKAAAABAA
-        AAAgAAAAAQAEAAAAAACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAIAAAACAgACAAAAAgACAAICA
-        AACAgIAAwMDAAAAA/wAA/wAAAP//AP8AAAD/AP8A//8AAP///wAAAP///////wAA93d3d3d/AAD3d3d3
-        d38AAPd////3fwAA93////d/AAD3f///938AD/d////3fwD3eH////d/D3Zn////93/3ZmZ///d3f/Z2
-        Z2//93fw9/Zvf3d3fwD/9m//d3fwAPD2bw///wAAAP//AAAAAAAAAAAAAAAAAPAAAADwAAAA8AAAAPAA
-        AADwAAAA8AAAAOAAAADAAAAAgAAAAAAAAAAAAQAAAAMAAAAHAABCDwAAw/8AAP//AAAoAAAAEAAAACAA
-        AAABAAgAAAAAAAABAAAAAAAAAAAAAAABAAAAAQAAAAAAAEJCQgCcUwAAvpBcAIaGhgCzs7MA8e/wAPTz
-        9AD29vYAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
-        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
-        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
-        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
-        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
-        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
-        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
-        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
-        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
-        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
-        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
-        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
-        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
-        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
-        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
-        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
-        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA////AAAAAAAICAgICAgICAgICAgAAAAACAEBAQEB
-        AQEBAQEIAAAAAAgBAQEBAQEBAQEBCAAAAAAIAQEGBgYGBgYBAQgAAAAACAEBBgYGBgYGAQEIAAAAAAgB
-        AQYGBgYGBgEBCAAAAAgIAQEGBgYGBgYBAQgAAAgDAwUBBgYGBgYGAQEIAAgDAgIDCAYGBgYGBgEBCAgD
-        AgICAgMIBgYGAQEBBAgIAgMCAgMCCAYGBgEBBAgACAMIAgIIAwgBAQEBBAgAAAgICAICCAgIAQEBBAgA
-        AAAIAAgCAggACAgICAgAAAAAAAAICAgIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADwAAAA8AAAAPAA
-        AADwAAAA8AAAAPAAAADgAAAAwAAAAIAAAAAAAAAAAAEAAAADAAAABwAAQg8AAMP/AAD//wAAKAAAABAA
-        AAAgAAAAAQAgAAAAAABABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD29vb/9vb2//b2
-        9v/29vb/9vb2//b29v/29vb/9vb2//b29v/29vb/9vb2//b29v8AAAAAAAAAAAAAAAAAAAAA9vb2/0JC
-        Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv/29vb/AAAAAAAAAAAAAAAAAAAAAPb2
-        9v9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/9vb2/wAAAAAAAAAAAAAAAAAA
-        AAD29vb/QkJC/0JCQv/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv8P9CQkL/QkJC//b29v8AAAAAAAAAAAAA
-        AAAAAAAA9vb2/0JCQv9CQkL/8e/w//Hv8P/x7/D/8e/w//Hv8P/x7/D/QkJC/0JCQv/29vb/AAAAAAAA
-        AAAAAAAA9vb2MPb29v9CQkL/QkJC//Hv8P/x7/D/8e/w//Hv8P/x7/D/8e/w/0JCQv9CQkL/9vb2/wAA
-        AAAAAAAA9vb2MPb29u/29vb/QkJC/0JCQv/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv8P9CQkL/QkJC//b2
-        9v8AAAAA9vb2MPb29u++kFz/vpBc/7Ozs/9CQkL/8e/w//Hv8P/x7/D/8e/w//Hv8P/x7/D/QkJC/0JC
-        Qv/29vb/9vb2MPb29u++kFz/nFMA/5xTAP++kFz/9vb2//Hv8P/x7/D/8e/w//Hv8P/x7/D/8e/w/0JC
-        Qv9CQkL/9vb2//b29u++kFz/nFMA/5xTAP+cUwD/nFMA/76QXP/08/T/8e/w//Hv8P/x7/D/QkJC/0JC
-        Qv9CQkL/hoaG//b29u/29vb/nFMA/76QXP+cUwD/nFMA/76QXP+cUwD/9vb2//Hv8P/x7/D/8e/w/0JC
-        Qv9CQkL/hoaG//b29u/29vYw9vb2/76QXP/29vb/nFMA/5xTAP/29vb/vpBc//b29v9CQkL/QkJC/0JC
-        Qv9CQkL/hoaG//b29u/29vYwAAAAAPb29v/29vbv9vb2/5xTAP+cUwD/9vb2//b29u/29vb/QkJC/0JC
-        Qv9CQkL/hoaG//b29u/29vYwAAAAAAAAAAD29vbv9vb2MPb29v+cUwD/nFMA//b29v/29vYw9vb2//b2
-        9v/29vb/9vb2//b29u/29vYwAAAAAAAAAAAAAAAA9vb2MAAAAAD29vb/9vb2//b29v/29vb/AAAAAPb2
-        9jAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
-        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADwAAAA8AAAAPAAAADwAAAA8AAAAOAA
-        AADAAAAAgAAAAAAAAAAAAAAAAAAAAAABAAAAAwAAAAcAAEL/AAD//wAA
-</value>
-  </data>
-  <data name="$this.Text" xml:space="preserve">
-    <value>Zu indexierende Dateien:</value>
-  </data>
-  <data name="&gt;&gt;TBGI_FILES_USERBindingSource.Name" xml:space="preserve">
-    <value>TBGI_FILES_USERBindingSource</value>
-  </data>
-  <data name="&gt;&gt;TBGI_FILES_USERBindingSource.Type" xml:space="preserve">
-    <value>System.Windows.Forms.BindingSource, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="&gt;&gt;MyDataset1.Name" xml:space="preserve">
-    <value>MyDataset1</value>
-  </data>
-  <data name="&gt;&gt;MyDataset1.Type" xml:space="preserve">
-    <value>Global_Indexer.MyDataset, MyDataset.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value>
-  </data>
-  <data name="&gt;&gt;TBGI_FILES_USERTableAdapter.Name" xml:space="preserve">
-    <value>TBGI_FILES_USERTableAdapter</value>
-  </data>
-  <data name="&gt;&gt;TBGI_FILES_USERTableAdapter.Type" xml:space="preserve">
-    <value>Global_Indexer.MyDatasetTableAdapters.TBGI_FILES_USERTableAdapter, MyDataset.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value>
-  </data>
-  <data name="&gt;&gt;TableAdapterManager.Name" xml:space="preserve">
-    <value>TableAdapterManager</value>
-  </data>
-  <data name="&gt;&gt;TableAdapterManager.Type" xml:space="preserve">
-    <value>Global_Indexer.MyDatasetTableAdapters.TableAdapterManager, MyDataset.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value>
-  </data>
-  <data name="&gt;&gt;$this.Name" xml:space="preserve">
-    <value>frmIndexFileList</value>
-  </data>
-  <data name="&gt;&gt;$this.Type" xml:space="preserve">
-    <value>System.Windows.Forms.Form, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-</root>

Global_Indexer/frmIndexFileList.vb

@@ -1,44 +1,94 @@
 Imports System.ComponentModel
+Imports DevExpress.XtraEditors.Controls
 
 Public Class frmIndexFileList
 
     Private Sub frmIndexFileList_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         Try
             Me.TBGI_FILES_USERTableAdapter.Connection.ConnectionString = MyConnectionString
-            'TODO: Diese Codezeile lädt Daten in die Tabelle "MyDataset1.TBGI_FILES_USER". Sie können sie bei Bedarf verschieben oder entfernen.
             Me.TBGI_FILES_USERTableAdapter.Fill(Me.MyDataset1.TBGI_FILES_USER, Environment.UserName)
-            If MyDataset1.TBGI_FILES_USER.Rows.Count > 0 Then
-                CheckedListBoxControl1.DataSource = MyDataset1.TBGI_FILES_USER
-                CheckedListBoxControl1.DisplayMember = MyDataset1.TBGI_FILES_USER.Columns("FILENAME_ONLY").ColumnName
-                CheckedListBoxControl1.ValueMember = MyDataset1.TBGI_FILES_USER.Columns(0).ColumnName
 
-            End If
+            'If MyDataset1.TBGI_FILES_USER.Rows.Count > 0 Then
+            '    CheckedListBoxControl1.DataSource = MyDataset1.TBGI_FILES_USER
+            '    CheckedListBoxControl1.DisplayMember = MyDataset1.TBGI_FILES_USER.Columns("FILENAME_ONLY").ColumnName
+            '    CheckedListBoxControl1.ValueMember = MyDataset1.TBGI_FILES_USER.Columns(0).ColumnName
+            'End If
+
+            CheckedListBoxControl1.DisplayMember = "FileName"
+            CheckedListBoxControl1.ValueMember = "FileName"
+            CheckedListBoxControl1.Items.Clear()
+
+            For Each oFile As DataRow In MyDataset1.TBGI_FILES_USER.Rows
+                Dim oFilename = oFile.Item("FILENAME_ONLY")
+                Dim oPath = oFile.Item("FILENAME2WORK")
+                Dim oHash = oFile.Item("FILE_HASH")
+                Dim oHandleType = oFile.Item("HANDLE_TYPE")
+
+                Dim oImportDate = ClassIndexFunctions.FileExistsinDropTable(oPath, oHandleType)
+                Dim oFileExists As Boolean = True
+
+                If oImportDate = DateTime.MinValue Then
+                    oFileExists = False
+                End If
+
+                CheckedListBoxControl1.Items.Add(New SplitFile With {
+                    .FileName = oFilename,
+                    .Exists = oFileExists,
+                    .[Date] = oImportDate
+                })
+            Next
+
+            CheckedListBoxControl1.CheckAll()
 
         Catch ex As Exception
+            LOGGER.Error(ex)
             MsgBox("Error in Load Form: " & ex.Message, MsgBoxStyle.Critical)
         End Try
-
     End Sub
 
+    Public Class SplitFile
+        Public FileName As String
+        Public Exists As Boolean
+        Public [Date] As Date
+
+        Public Overrides Function ToString() As String
+            If Exists Then
+                Return $"{FileName} (Die Datei wurde bereits am [{[Date]}] verarbeitet)"
+            Else
+                Return FileName
+            End If
+        End Function
+    End Class
+
     Private Sub btnstartIndex_Click(sender As Object, e As EventArgs) Handles btnstartIndex.Click
         Try
-            For Each item In CheckedListBoxControl1.CheckedItems
+            LOGGER.Debug("Starting indexing of {0} files", CheckedListBoxControl1.Items.Count - CheckedListBoxControl1.CheckedItems.Count)
-                Dim row As DataRowView = CType(item, DataRowView)
-                Dim _file = row.Item(1)
-                Dim handletype As String = row.Item("HANDLE_TYPE")
 
-                If handletype = "|MSGONLY|" Or handletype = "|ATTMNTEXTRACTED|" Then
+            For index = 0 To CheckedListBoxControl1.ItemCount - 1
-                    Try
+                Dim oRow = MyDataset1.TBGI_FILES_USER.Item(index)
-                        IO.File.Delete(_file)
+                Dim oChecked = CheckedListBoxControl1.GetItemChecked(index)
-                    Catch ex As Exception
 
-                    End Try
+                Dim oFilePath = oRow.Item("FILENAME2WORK")
+                Dim oHandletype As String = oRow.Item("HANDLE_TYPE")
+                Dim oGuid = oRow.Item("GUID")
 
+                If oChecked = False Then
+                    If oHandletype = "|MSGONLY|" Or oHandletype = "|ATTMNTEXTRACTED|" Then
+                        Try
+                            IO.File.Delete(oFilePath)
+                        Catch ex As Exception
+                            LOGGER.Error(ex)
+                        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
-                'System.IO.File.Delete(filestring)
-                ClassDatabase.Execute_non_Query("DELETE FROM TBGI_FILES_USER WHERE GUID = " & row.Item(0), True)
             Next
+
+            DialogResult = DialogResult.OK
         Catch ex As Exception
+            LOGGER.Error(ex)
             MsgBox("Unexpected Error in Clear Multiple Documents: " & ex.Message, MsgBoxStyle.Critical)
         End Try
 
@@ -58,8 +108,22 @@ Public Class frmIndexFileList
         CheckedListBoxControl1.Focus()
     End Sub
 
-    Private Sub btnCancel_Click(sender As Object, e As EventArgs) Handles btnCancel.Click
+    Private Sub CheckedListBoxControl1_DrawItem(sender As Object, e As DevExpress.XtraEditors.ListBoxDrawItemEventArgs) Handles CheckedListBoxControl1.DrawItem
-        ClassDatabase.Execute_non_Query("DELETE FROM TBGI_FILES_USER WHERE UPPER(USER@WORK) = UPPER('" & Environment.UserName & "')", True)
+        If e.State = (DrawItemState.Selected Or DrawItemState.Checked) Or e.State = DrawItemState.Checked Then
-        Close()
+            e.Appearance.BackColor = Color.LightGreen
+        Else
+            e.Appearance.BackColor = Color.Transparent
+        End If
+    End Sub
+
+    Private Sub frmIndexFileList_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
+        If DialogResult = DialogResult.Cancel Then
+            Try
+                ClassDatabase.Execute_non_Query("DELETE FROM TBGI_FILES_USER WHERE UPPER(USER@WORK) = UPPER('" & Environment.UserName & "')", True)
+            Catch ex As Exception
+                MsgBox("Error while deleting User Files: " & ex.Message, MsgBoxStyle.Critical, Text)
+                LOGGER.Error(ex)
+            End Try
+        End If
     End Sub
 End Class

Global_Indexer/frmNamenkonvention.designer.vb

@@ -40,7 +40,6 @@ Partial Class frmNamenkonvention
         Me.Button2 = New System.Windows.Forms.Button()
         Me.btnVersionTZ = New System.Windows.Forms.Button()
         Me.btnTrennzeichen = New System.Windows.Forms.Button()
-        Me.btnVersion = New System.Windows.Forms.Button()
         Me.btndelete = New System.Windows.Forms.Button()
         Me.btnOK = New System.Windows.Forms.Button()
         Me.btnclose = New System.Windows.Forms.Button()
@@ -74,13 +73,13 @@ Partial Class frmNamenkonvention
         '
         'GroupBox1
         '
-        resources.ApplyResources(Me.GroupBox1, "GroupBox1")
         Me.GroupBox1.Controls.Add(Me.btnAddIndexA)
         Me.GroupBox1.Controls.Add(Me.btnAddIndexM)
         Me.GroupBox1.Controls.Add(Me.cmbIndex_A)
         Me.GroupBox1.Controls.Add(Me.cmbIndex_m)
         Me.GroupBox1.Controls.Add(Me.Label3)
         Me.GroupBox1.Controls.Add(Me.Label2)
+        resources.ApplyResources(Me.GroupBox1, "GroupBox1")
         Me.GroupBox1.Name = "GroupBox1"
         Me.GroupBox1.TabStop = False
         '
@@ -98,10 +97,10 @@ Partial Class frmNamenkonvention
         '
         'cmbIndex_A
         '
-        resources.ApplyResources(Me.cmbIndex_A, "cmbIndex_A")
         Me.cmbIndex_A.DataSource = Me.TBDD_INDEX_AUTOMBindingSource
         Me.cmbIndex_A.DisplayMember = "INDEXNAME"
         Me.cmbIndex_A.FormattingEnabled = True
+        resources.ApplyResources(Me.cmbIndex_A, "cmbIndex_A")
         Me.cmbIndex_A.Name = "cmbIndex_A"
         Me.cmbIndex_A.ValueMember = "GUID"
         '
@@ -117,10 +116,10 @@ Partial Class frmNamenkonvention
         '
         'cmbIndex_m
         '
-        resources.ApplyResources(Me.cmbIndex_m, "cmbIndex_m")
         Me.cmbIndex_m.DataSource = Me.TBDD_INDEX_MANBindingSource
         Me.cmbIndex_m.DisplayMember = "NAME"
         Me.cmbIndex_m.FormattingEnabled = True
+        resources.ApplyResources(Me.cmbIndex_m, "cmbIndex_m")
         Me.cmbIndex_m.Name = "cmbIndex_m"
         Me.cmbIndex_m.ValueMember = "GUID"
         '
@@ -141,11 +140,10 @@ Partial Class frmNamenkonvention
         '
         'GroupBox2
         '
-        resources.ApplyResources(Me.GroupBox2, "GroupBox2")
         Me.GroupBox2.Controls.Add(Me.Button2)
         Me.GroupBox2.Controls.Add(Me.btnVersionTZ)
         Me.GroupBox2.Controls.Add(Me.btnTrennzeichen)
-        Me.GroupBox2.Controls.Add(Me.btnVersion)
+        resources.ApplyResources(Me.GroupBox2, "GroupBox2")
         Me.GroupBox2.Name = "GroupBox2"
         Me.GroupBox2.TabStop = False
         '
@@ -167,30 +165,24 @@ Partial Class frmNamenkonvention
         Me.btnTrennzeichen.Name = "btnTrennzeichen"
         Me.btnTrennzeichen.UseVisualStyleBackColor = True
         '
-        'btnVersion
-        '
-        resources.ApplyResources(Me.btnVersion, "btnVersion")
-        Me.btnVersion.Name = "btnVersion"
-        Me.btnVersion.UseVisualStyleBackColor = True
-        '
         'btndelete
         '
-        resources.ApplyResources(Me.btndelete, "btndelete")
         Me.btndelete.Image = Global.Global_Indexer.My.Resources.Resources.delete2
+        resources.ApplyResources(Me.btndelete, "btndelete")
         Me.btndelete.Name = "btndelete"
         Me.btndelete.UseVisualStyleBackColor = True
         '
         'btnOK
         '
-        resources.ApplyResources(Me.btnOK, "btnOK")
         Me.btnOK.Image = Global.Global_Indexer.My.Resources.Resources.save_16xLG
+        resources.ApplyResources(Me.btnOK, "btnOK")
         Me.btnOK.Name = "btnOK"
         Me.btnOK.UseVisualStyleBackColor = True
         '
         'btnclose
         '
-        resources.ApplyResources(Me.btnclose, "btnclose")
         Me.btnclose.Image = Global.Global_Indexer.My.Resources.Resources.Close_16xLG
+        resources.ApplyResources(Me.btnclose, "btnclose")
         Me.btnclose.Name = "btnclose"
         Me.btnclose.UseVisualStyleBackColor = True
         '
@@ -212,15 +204,10 @@ Partial Class frmNamenkonvention
         Me.TableAdapterManager.TBDD_INDEX_AUTOMTableAdapter = Nothing
         Me.TableAdapterManager.TBDD_INDEX_MAN_POSTPROCESSINGTableAdapter = Nothing
         Me.TableAdapterManager.TBDD_INDEX_MANTableAdapter = Me.TBDD_INDEX_MANTableAdapter
-        Me.TableAdapterManager.TBDD_GROUPSTableAdapter = Nothing
         Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing
         Me.TableAdapterManager.TBGI_CONFIGURATIONTableAdapter = Nothing
         Me.TableAdapterManager.TBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter = Nothing
-        Me.TableAdapterManager.TBHOTKEY_PATTERNS_REWORKTableAdapter = Nothing
+        Me.TableAdapterManager.TBGI_REGEX_DOCTYPETableAdapter = Nothing
-        Me.TableAdapterManager.TBHOTKEY_PATTERNSTableAdapter = Nothing
-        Me.TableAdapterManager.TBHOTKEY_PROFILETableAdapter = Nothing
-        Me.TableAdapterManager.TBHOTKEY_USER_PROFILETableAdapter = Nothing
-        Me.TableAdapterManager.TBHOTKEY_WINDOW_HOOKTableAdapter = Nothing
         Me.TableAdapterManager.UpdateOrder = Global_Indexer.MyDatasetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete
         '
         'TBDD_INDEX_AUTOMTableAdapter
@@ -308,7 +295,6 @@ Partial Class frmNamenkonvention
     Friend WithEvents Label2 As System.Windows.Forms.Label
     Friend WithEvents btnAddIndexA As System.Windows.Forms.Button
     Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
-    Friend WithEvents btnVersion As System.Windows.Forms.Button
     Friend WithEvents btndelete As System.Windows.Forms.Button
     Friend WithEvents btnOK As System.Windows.Forms.Button
     Friend WithEvents btnclose As System.Windows.Forms.Button

Global_Indexer/frmNamenkonvention.en-US.resx

@@ -125,6 +125,9 @@
     <value>Define the Nameconvention for the selected Documenttype. 
 You can assemble the filename from the Indicies and Textpatterns below.</value>
   </data>
+  <data name="GroupBox1.Text" xml:space="preserve">
+    <value>Indicies:</value>
+  </data>
   <data name="btnAddIndexA.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
@@ -153,8 +156,8 @@ You can assemble the filename from the Indicies and Textpatterns below.</value>
   <data name="Label2.Text" xml:space="preserve">
     <value>Manual Index:</value>
   </data>
-  <data name="GroupBox1.Text" xml:space="preserve">
+  <data name="GroupBox2.Text" xml:space="preserve">
-    <value>Indicies:</value>
+    <value>Variables:</value>
   </data>
   <data name="Button2.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
@@ -165,7 +168,7 @@ You can assemble the filename from the Indicies and Textpatterns below.</value>
 </value>
   </data>
   <data name="Button2.Location" type="System.Drawing.Point, System.Drawing">
-    <value>6, 139</value>
+    <value>6, 107</value>
   </data>
   <data name="Button2.Text" xml:space="preserve">
     <value>Add original filename</value>
@@ -179,10 +182,10 @@ You can assemble the filename from the Indicies and Textpatterns below.</value>
 </value>
   </data>
   <data name="btnVersionTZ.Location" type="System.Drawing.Point, System.Drawing">
-    <value>6, 91</value>
+    <value>6, 59</value>
   </data>
   <data name="btnVersionTZ.Text" xml:space="preserve">
-    <value>Add Versionseperator:</value>
+    <value>Add Versionseparator:</value>
   </data>
   <data name="btnTrennzeichen.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
@@ -192,25 +195,14 @@ You can assemble the filename from the Indicies and Textpatterns below.</value>
         TkSuQmCC
 </value>
   </data>
+  <data name="btnTrennzeichen.Location" type="System.Drawing.Point, System.Drawing">
+    <value>6, 24</value>
+  </data>
   <data name="btnTrennzeichen.Size" type="System.Drawing.Size, System.Drawing">
     <value>163, 29</value>
   </data>
   <data name="btnTrennzeichen.Text" xml:space="preserve">
-    <value>Add Fileseperator:</value>
+    <value>Add Fileseparator:</value>
-  </data>
-  <data name="btnVersion.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
-        xAAADsQBlSsOGwAAAFxJREFUOE/NjFEKgDAMQ3e23v88/Y1YOslqhE1hGHgfS5fXAHxCliuMD4q7o5Kn
-        yJTAzC72CM5PTBUwfXMT8OiJnwuYOmL6ZhBwlCBPkT2CSp4iUvAGWa4gy3nQDiNEflNl/3oXAAAAAElF
-        TkSuQmCC
-</value>
-  </data>
-  <data name="btnVersion.Text" xml:space="preserve">
-    <value>Add Version:</value>
-  </data>
-  <data name="GroupBox2.Text" xml:space="preserve">
-    <value>Variables:</value>
   </data>
   <data name="btnOK.Text" xml:space="preserve">
     <value>Save</value>

Global_Indexer/frmNamenkonvention.vb

@@ -47,7 +47,7 @@
 
     End Sub
 
-    Private Sub btnVersion_Click(sender As Object, e As EventArgs) Handles btnVersion.Click
+    Private Sub btnVersion_Click(sender As Object, e As EventArgs)
         If txtnamenKonv.Text.Contains("[%Version]") Then
             If USER_LANGUAGE = "de-DE" Then
                 MsgBox("Versionstag ist bereits enthalten!", MsgBoxStyle.Exclamation)

Global_Indexer/frmSQLConfigAutoIndex.Designer.vb

@@ -124,18 +124,12 @@ Partial Class SQLConfigAutoIndex
         Me.TableAdapterManager.TBDD_DOKUMENTARTTableAdapter = Nothing
         Me.TableAdapterManager.TBDD_EINGANGSARTENTableAdapter = Nothing
         Me.TableAdapterManager.TBDD_GROUPS_USERTableAdapter = Nothing
-        Me.TableAdapterManager.TBDD_GROUPSTableAdapter = Nothing
         Me.TableAdapterManager.TBDD_INDEX_AUTOMTableAdapter = Nothing
         Me.TableAdapterManager.TBDD_INDEX_MAN_POSTPROCESSINGTableAdapter = Nothing
         Me.TableAdapterManager.TBDD_INDEX_MANTableAdapter = Nothing
         Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing
         Me.TableAdapterManager.TBGI_CONFIGURATIONTableAdapter = Nothing
         Me.TableAdapterManager.TBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter = Nothing
-        Me.TableAdapterManager.TBHOTKEY_PATTERNS_REWORKTableAdapter = Nothing
-        Me.TableAdapterManager.TBHOTKEY_PATTERNSTableAdapter = Nothing
-        Me.TableAdapterManager.TBHOTKEY_PROFILETableAdapter = Nothing
-        Me.TableAdapterManager.TBHOTKEY_USER_PROFILETableAdapter = Nothing
-        Me.TableAdapterManager.TBHOTKEY_WINDOW_HOOKTableAdapter = Nothing
         Me.TableAdapterManager.UpdateOrder = Global_Indexer.MyDatasetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete
         '
         'Button1

Global_Indexer/frmSQLConfigAutoIndex.vb

@@ -46,7 +46,7 @@ Public Class SQLConfigAutoIndex
                         MsgBox("Excactly 1 record was returned!", MsgBoxStyle.Information)
                     End If
                 End If
-                    CURRENT_SQLRESULT = sql_command
+                CURRENT_SQLRESULT = sql_command
                 DTSQL_RESULT = dt
                 frmSQL_Result.ShowDialog()
             End If
@@ -115,7 +115,8 @@ Public Class SQLConfigAutoIndex
             '    End If
 
         Catch ex As Exception
-            ClassLogger.Add(" - Unexpected error in TestSQL - Fehler: " & vbNewLine & ex.Message)
+            LOGGER.Info(" - Unexpected error in TestSQL - Fehler: " & vbNewLine & ex.Message)
+            LOGGER.Error(ex)
             MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error in TestSQL:")
         End Try
     End Sub

Global_Indexer/frmSQLSuggestion.Designer.vb

@@ -134,15 +134,9 @@ Partial Class frmSQLSuggestion
         Me.TableAdapterManager.TBDD_INDEX_AUTOMTableAdapter = Nothing
         Me.TableAdapterManager.TBDD_INDEX_MAN_POSTPROCESSINGTableAdapter = Nothing
         Me.TableAdapterManager.TBDD_INDEX_MANTableAdapter = Nothing
-        Me.TableAdapterManager.TBDD_GROUPSTableAdapter = Nothing
         Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing
         Me.TableAdapterManager.TBGI_CONFIGURATIONTableAdapter = Nothing
         Me.TableAdapterManager.TBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter = Nothing
-        Me.TableAdapterManager.TBHOTKEY_PATTERNS_REWORKTableAdapter = Nothing
-        Me.TableAdapterManager.TBHOTKEY_PATTERNSTableAdapter = Nothing
-        Me.TableAdapterManager.TBHOTKEY_PROFILETableAdapter = Nothing
-        Me.TableAdapterManager.TBHOTKEY_USER_PROFILETableAdapter = Nothing
-        Me.TableAdapterManager.TBHOTKEY_WINDOW_HOOKTableAdapter = Nothing
         Me.TableAdapterManager.UpdateOrder = Global_Indexer.MyDatasetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete
         '
         'Button1

Global_Indexer/frmSQLSuggestion.vb

@@ -89,7 +89,8 @@ Public Class frmSQLSuggestion
             End If
 
         Catch ex As Exception
-            ClassLogger.Add(" - Unexpected error in TestSQL - Fehler: " & vbNewLine & ex.Message)
+            LOGGER.Info(" - Unexpected error in TestSQL - Fehler: " & vbNewLine & ex.Message)
+            LOGGER.Error(ex)
             MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error in TestSQL:")
         End Try
     End Sub
@@ -111,7 +112,6 @@ Public Class frmSQLSuggestion
         Catch ex As Exception
             MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error in Open Form:")
         End Try
-       
     End Sub
 
     Private Sub TBDD_CONNECTIONBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs)

Global_Indexer/frmSQL_Admin.resx.bak

@@ -1,795 +0,0 @@
-<?xml version="1.0" encoding="utf-8"?>
-<root>
-  <!-- 
-    Microsoft ResX Schema 
-    
-    Version 2.0
-    
-    The primary goals of this format is to allow a simple XML format 
-    that is mostly human readable. The generation and parsing of the 
-    various data types are done through the TypeConverter classes 
-    associated with the data types.
-    
-    Example:
-    
-    ... ado.net/XML headers & schema ...
-    <resheader name="resmimetype">text/microsoft-resx</resheader>
-    <resheader name="version">2.0</resheader>
-    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
-    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
-    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
-    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
-    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
-        <value>[base64 mime encoded serialized .NET Framework object]</value>
-    </data>
-    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
-        <comment>This is a comment</comment>
-    </data>
-                
-    There are any number of "resheader" rows that contain simple 
-    name/value pairs.
-    
-    Each data row contains a name, and value. The row also contains a 
-    type or mimetype. Type corresponds to a .NET class that support 
-    text/value conversion through the TypeConverter architecture. 
-    Classes that don't support this are serialized and stored with the 
-    mimetype set.
-    
-    The mimetype is used for serialized objects, and tells the 
-    ResXResourceReader how to depersist the object. This is currently not 
-    extensible. For a given mimetype the value must be set accordingly:
-    
-    Note - application/x-microsoft.net.object.binary.base64 is the format 
-    that the ResXResourceWriter will generate, however the reader can 
-    read any of the formats listed below.
-    
-    mimetype: application/x-microsoft.net.object.binary.base64
-    value   : The object must be serialized with 
-            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
-            : and then encoded with base64 encoding.
-    
-    mimetype: application/x-microsoft.net.object.soap.base64
-    value   : The object must be serialized with 
-            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
-            : and then encoded with base64 encoding.
-
-    mimetype: application/x-microsoft.net.object.bytearray.base64
-    value   : The object must be serialized into a byte array 
-            : using a System.ComponentModel.TypeConverter
-            : and then encoded with base64 encoding.
-    -->
-  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
-    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
-    <xsd:element name="root" msdata:IsDataSet="true">
-      <xsd:complexType>
-        <xsd:choice maxOccurs="unbounded">
-          <xsd:element name="metadata">
-            <xsd:complexType>
-              <xsd:sequence>
-                <xsd:element name="value" type="xsd:string" minOccurs="0" />
-              </xsd:sequence>
-              <xsd:attribute name="name" use="required" type="xsd:string" />
-              <xsd:attribute name="type" type="xsd:string" />
-              <xsd:attribute name="mimetype" type="xsd:string" />
-              <xsd:attribute ref="xml:space" />
-            </xsd:complexType>
-          </xsd:element>
-          <xsd:element name="assembly">
-            <xsd:complexType>
-              <xsd:attribute name="alias" type="xsd:string" />
-              <xsd:attribute name="name" type="xsd:string" />
-            </xsd:complexType>
-          </xsd:element>
-          <xsd:element name="data">
-            <xsd:complexType>
-              <xsd:sequence>
-                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
-                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
-              </xsd:sequence>
-              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
-              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
-              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
-              <xsd:attribute ref="xml:space" />
-            </xsd:complexType>
-          </xsd:element>
-          <xsd:element name="resheader">
-            <xsd:complexType>
-              <xsd:sequence>
-                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
-              </xsd:sequence>
-              <xsd:attribute name="name" type="xsd:string" use="required" />
-            </xsd:complexType>
-          </xsd:element>
-        </xsd:choice>
-      </xsd:complexType>
-    </xsd:element>
-  </xsd:schema>
-  <resheader name="resmimetype">
-    <value>text/microsoft-resx</value>
-  </resheader>
-  <resheader name="version">
-    <value>2.0</value>
-  </resheader>
-  <resheader name="reader">
-    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </resheader>
-  <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;BindingNavigatorSeparator2.Type" xml:space="preserve">
-    <value>System.Windows.Forms.ToolStripSeparator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="BindingNavigator1.Text" xml:space="preserve">
-    <value>BindingNavigator1</value>
-  </data>
-  <assembly alias="mscorlib" name="mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
-  <data name="GridView1.Appearance.OddRow.FontSizeDelta" type="System.Int32, mscorlib">
-    <value>0</value>
-  </data>
-  <data name="&gt;&gt;BindingNavigatorSeparator1.Type" xml:space="preserve">
-    <value>System.Windows.Forms.ToolStripSeparator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
-  <data name="GridControl1.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
-    <value>Fill</value>
-  </data>
-  <data name="&gt;&gt;BindingNavigatorMoveNextItem.Name" xml:space="preserve">
-    <value>BindingNavigatorMoveNextItem</value>
-  </data>
-  <data name="&gt;&gt;XtraTabPage1.Parent" xml:space="preserve">
-    <value>XtraTabControl1</value>
-  </data>
-  <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
-  <data name="Button1.TextAlign" type="System.Drawing.ContentAlignment, System.Drawing">
-    <value>BottomCenter</value>
-  </data>
-  <data name="&gt;&gt;BindingNavigatorPositionItem.Name" xml:space="preserve">
-    <value>BindingNavigatorPositionItem</value>
-  </data>
-  <data name="&gt;&gt;BindingNavigatorMoveNextItem.Type" xml:space="preserve">
-    <value>System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="GridControl1.EmbeddedNavigator.ToolTipTitle" xml:space="preserve">
-    <value />
-  </data>
-  <data name="txtSQL.TabIndex" type="System.Int32, mscorlib">
-    <value>3</value>
-  </data>
-  <data name="BindingNavigatorPositionItem.AutoSize" type="System.Boolean, mscorlib">
-    <value>False</value>
-  </data>
-  <data name="&gt;&gt;OpenFileDialog1.Name" xml:space="preserve">
-    <value>OpenFileDialog1</value>
-  </data>
-  <data name="BindingNavigatorMoveFirstItem.RightToLeftAutoMirrorImage" type="System.Boolean, mscorlib">
-    <value>True</value>
-  </data>
-  <data name="GridControl1.EmbeddedNavigator.MaximumSize" type="System.Drawing.Size, System.Drawing">
-    <value>0, 0</value>
-  </data>
-  <data name="BindingNavigatorMoveLastItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
-        wwAADsMBx2+oZAAAASxJREFUOE9jGFygcNbz/1AmBgDJNS14/j9z4mOcahhyZz77n9B9D6sCkNyqI+//
-        h7c/wG1AxpSn/+ft//0/oesOhiKQ3MJ9H/4HN1zDbUBCz5P/s/f9+t+59e9/t9LLKApBctO2vP/vX30B
-        twGRXY/+T9n263/J0r//E6b//W+TexauGCTXu/rDf6/SE7gNCGx++L917XuwZuOSL/+lo6/9N45cBtYA
-        kqub/+6/S/4B3AZ4VN3/XzL3HVyzoksPXDFILn/am//2GdtxG2Bfevd/YMszDM0gAJLLnvz6v0XCetwG
-        WOTd+W9TcAVDMwiA5FL7X8O9hBUYZt3GqhkEQHJhLS//6wbPw22ATtoNnJIgOb/qh/81fKfhNgAfcMq9
-        8l/FYwIYQ4UGBWBgAAC+0b+zuQxOnAAAAABJRU5ErkJggg==
-</value>
-  </data>
-  <data name="&gt;&gt;XtraTabPage2.Name" xml:space="preserve">
-    <value>XtraTabPage2</value>
-  </data>
-  <data name="GridView1.Appearance.EvenRow.GradientMode" type="System.Drawing.Drawing2D.LinearGradientMode, System.Drawing">
-    <value>Horizontal</value>
-  </data>
-  <data name="BindingNavigatorMoveNextItem.Size" type="System.Drawing.Size, System.Drawing">
-    <value>23, 22</value>
-  </data>
-  <data name="txtSQL.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
-    <value>Top, Bottom, Left, Right</value>
-  </data>
-  <data name="XtraTabPage1.Size" type="System.Drawing.Size, System.Drawing">
-    <value>721, 377</value>
-  </data>
-  <data name="&gt;&gt;txtSQL.Type" xml:space="preserve">
-    <value>System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="&gt;&gt;TextBox1.Parent" xml:space="preserve">
-    <value>$this</value>
-  </data>
-  <data name="TextBox1.Font" type="System.Drawing.Font, System.Drawing">
-    <value>Segoe UI, 9.75pt, style=Italic</value>
-  </data>
-  <data name="$this.Font" type="System.Drawing.Font, System.Drawing">
-    <value>Segoe UI, 9.75pt</value>
-  </data>
-  <data name="&gt;&gt;GridControl1.Name" xml:space="preserve">
-    <value>GridControl1</value>
-  </data>
-  <data name="Label1.Location" type="System.Drawing.Point, System.Drawing">
-    <value>14, 12</value>
-  </data>
-  <data name="$this.Text" xml:space="preserve">
-    <value>SQL-Admin</value>
-  </data>
-  <data name="GridControl1.EmbeddedNavigator.AccessibleDescription" type="System.Resources.ResXNullRef, System.Windows.Forms">
-    <value />
-  </data>
-  <data name="&gt;&gt;XtraTabPage2.ZOrder" xml:space="preserve">
-    <value>1</value>
-  </data>
-  <assembly alias="DevExpress.Data.v15.2" name="DevExpress.Data.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
-  <data name="GridControl1.EmbeddedNavigator.AllowHtmlTextInToolTip" type="DevExpress.Utils.DefaultBoolean, DevExpress.Data.v15.2">
-    <value>Default</value>
-  </data>
-  <data name="&gt;&gt;Label1.Name" xml:space="preserve">
-    <value>Label1</value>
-  </data>
-  <data name="&gt;&gt;BindingNavigatorMoveLastItem.Type" xml:space="preserve">
-    <value>System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="GridView1.Appearance.OddRow.Image" type="System.Resources.ResXNullRef, System.Windows.Forms">
-    <value />
-  </data>
-  <data name="&gt;&gt;BindingNavigatorMoveFirstItem.Type" xml:space="preserve">
-    <value>System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="TextBox1.Size" type="System.Drawing.Size, System.Drawing">
-    <value>727, 25</value>
-  </data>
-  <data name="&gt;&gt;BindingNavigatorSeparator1.Name" xml:space="preserve">
-    <value>BindingNavigatorSeparator1</value>
-  </data>
-  <data name="BindingNavigatorMoveNextItem.Text" xml:space="preserve">
-    <value>Nächste verschieben</value>
-  </data>
-  <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        AAABAAMAEBAAAAEACABoBQAANgAAACAgAAABAAgAqAgAAJ4FAAAwMAAAAQAIAKgOAABGDgAAKAAAABAA
-        AAAgAAAAAQAIAAAAAABAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAADO3NEAvP+7AK/9rwCj+aMApvumAKT5
-        pQCn+qcAmfqbAJ35ngCX8ZgAkfSTAJHzkwC1/7cAOCw4AK3/sACs4asApd6nAI/WjwCH1YcAd9J3AGfN
-        ZwBpzGkAac5oAGPLYwBYyVgAQsVCAAChAAC4/7gAsfuyAKffpwCg3KAAgNSBAIHVgQBqzmoA2/HbAJ/j
-        oQBQx1AAQ8VDAErFSgAdtRwAm9ieAKH5pACO148Af9OAANTv0wBw03EATsdPAM7uzQCP35AAG7cbAH/U
-        fwCJ2okAOL84ADG9MQCb2Z4AnvmgAIbVhQCA1YEAhteHAP///wBXylcAteW1AG3PbgBz1XIAILwgADq+
-        OgAruywAnNudAJr2nQB00XMAas9qAFbIVwB303gAteS1ACy/LAAVuBUAze3OABK1EgAduR0AKMMoACW3
-        JACc2p4AlPeXAF3KXQDI7sgAxO3EAJ/fngBJxUgAVctWAE/HUAALvQsAp+CoAKPtowCj4aMABK8EAJ/Z
-        oQCI8owAVcdVAKbhqACl4acAiNmKADrEOwBWylYAVsZVAADJAACE34UAheiHAILfgwAIuAcAn9ihAIj1
-        jABMyEwAW8hbAELCQACO3I4A0O7QACi/KAAlyyUA7vHuACrNKgAN3g0AHeIdAAjACACg16IAgu+EAEPD
-        QgBJyEkAnN6dADPAMwDH6scAiNeIAD7PQAA12jYAJeIlAAy/CwCg16EAhO+HADXANQA6xDoAteS0AE3H
-        TAA8xT0AzO3LAIPhhgAqzCoASthMAG3abQAe4x4ADcAMAIXwhwAluSQARcVFADLAMgAswCwAxezFAIPg
-        hQAY3xgAIOIgAB/iHwAn5ScADLkMAJzWngCJ540AAJ4AABqwGAAftB4AIrUiACq7KQACrQAAALMAAB3C
-        HQAAvQAABMEDAAO+AwAAmAAAxf/GANfi2QCf76IAk9ibAJTYmwCS25kAkdyYAJPfmQCU3ZoAk9yZAJXc
-        mwCS2pkAvP++ADwyPAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
-        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
-        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
-        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
-        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADw8PDw8PDw8PDw8PAAAALGys7S1
-        tre4ubq6u7w8ADyjpKWmp6ipqqusra6vsDw8lpeYmRqaPJydnp+goaI8PImKizyNjjyQkZI8lJV8PDx9
-        fn+APIE8g4Q8hYaHiDw8b3BxcnM8dXY8eHl6e3w8PGFiY2RlZmdoaWprbG1uPDxTVDw8PFhZWls8PDxf
-        YDw8RUZHSEk8S0w8Tk9QUVI8PDg5Ojs8PTw/QDxBQkNEPDwqKyw8Li88MTIzPDU2Nzw8HR4fICEiPCQV
-        JSYnKCk8PA8QERITFBUWFxgZGhscPAA8AgMEBQYHCAkKCwwNPAAAADw8PDw8PDw8PDw8PAAAwAMAAIAB
-        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAQAAwAMAACgA
-        AAAgAAAAQAAAAAEACAAAAAAAgAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
-        AAAAAAAAAAAAAAAAAAABAgEABQkFAAsZDAAOOxAADlYQAAxnDwAKcg4ACXkMAAh7DAAIfAwAB34LAAd/
-        CgAHgQoABoIJAAaECAAFhQcABYgHAAaLBwAGkQcACJcIAAibCQAJogkACaUJAAinCAAIqQcACKwIAAiu
-        CAAIrwgACq8KAAyvDAAQrg8AEq0SABSrFAAWqBYAGKcXABioGAAarBkAG7AbABy1HAAbuBsAG7wbABq/
-        GgAawhoAGcYZABjKGAAYzhgAGNEYABjTGAAZ1RkAGNgZABvZGwAd2h0AHtweAB/dHwAg3iAAId4hACHd
-        IQAj2yMAJNYlACfRJwAozSgAKcgpACrCKgAqwCoAKr4qACq8KgApuykAKbopACm3KQAqtCoAKrMqACu0
-        KwAtti0AL7gvADG5MQAxuTIAMrkzADO6MwAzvDMAM780ADPBNAA0wTQANME0ADa/NgA3vjcAOL84ADnC
-        OQA6wzoAO8M7ADzBPAA8wDwAPL48ADy+PAA8vzwAPcA9AD7BPgA/wj8AP8M/AEDDQABBw0EAQsNCAEPE
-        RABFxEUARsRGAEfESABIxkgAScZJAErGSgBLxksAS8ZMAEzGTQBNxk0ATcZOAE7GTgBPxk8AUMVQAFHG
-        UQBSxlIAU8dTAFTHVQBVx1UAVsdWAFfHVwBYx1gAWcdZAFrIWgBbyFwAXMlcAF3JXQBfyl8AYMpgAGHL
-        YQBiy2EAY8tjAGTMZABkzGQAZs1lAGfNZwBozWgAaM1oAGnNaQBpzWkAas1qAGzObABtzm0Abs5uAG/O
-        bwBwz3EActByAHTQdAB20XYAeNJ5AHrSegB703sAfdN9AH/TfwCB1IEAg9SDAIXUhQCH1YcAidWKAIrV
-        igCL1YsAjNaNAI7WjgCO1o8Aj9aQAJDWkACR15IAk9eTAJTYlQCW2ZYAmNqYAJvbmwCe3Z4AoN6gAKPf
-        owCn4KgAq+GrAK7jrwCy5LIAs+S0ALXltgC25rcAuOe5ALzovQC/6b8AwevCAMPsxADE7cYAxe7HAMbw
-        yADH8soAyPXLAMj3zQDJ+c4AyfrOAMn6zwDK+c8Ay/fQAM330QDO99IAz/fTAND21ADR9tUA0/XWANT0
-        1gDU9NcA1vLYANjw2gDa8NsA2/DdANzw3gDd8uAA3/TiAOD35ADg+uYA4PznAOH96ADh/ukA4f7pAOL+
-        6ADi/ugA4/7oAOT+6ADl/ukA5v7pAOf+6QDo/uoA6v7rAOv+6wDs/u0A////AO/+7gDw/u8A8P7wAPH9
-        8QDy/fIA8/zzAPX89QD3/PcA+fz4APr9+gD8/fwA/f79AP7+/gD+/v4ACAgICAgICAgICAgICAgICAgI
-        CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICN7s5eXl5uXl5eXl
-        5eXk5eXl5eXl5eTl6P8ICAgICAjfyk8UExERERMWFBgYFxcXFxcXFxcXFxcXafAICAgICNgqGSgrKysr
-        K09PT08sJiQtJiEhISEjJB8QfP8ICAgI0BknLU9NXVRSU1NKTSUxUmA+Nzc3PDQ1NR4X9ggICAjOHi9M
-        VF1kZGRhZkl717U4Oz9AQkJAPjgyKBPzCAgICM0jT1JnZ1xMXGNkWIn802FEO0A6Oj4/QDUqEvQICAgI
-        zSFTXmRqf5F0bnlhlPrDWWE+OltgOz0/OSoS9QgICAjNIVlebWCv/rdce2KU+tBEdUQ519dEPUA4KhL1
-        CAgICM0hZG14YaX4/8FpXJf9yXo5Wf7/vD49QjgqEvUICAgIzSJkdHV/eaT+/7Voh9q3W3PH/8k4Oj9C
-        OCoS9QgICAjNJm9zgIWFaKH1/6JbYW8+vP++Rjo/PkI4KhL1CAgICM4vdX+Eg4OGbqi/l2tydluOwUU4
-        Qj49QDcoEvUICAgIzimCiHZ7gnV7cVp9enV7azY6NDY3NzU2QysS9QgICAjOL4CG29/e3uCsdnt0dX1n
-        ZjK/3NXV3rgxKxT1CAgICM5NgJLy+PX4+rF4gHZ1dnFcNcX57/D6vDAsEvUICAgI0kyRlJmXl5iRfXx4
-        d3RjZ1MyVlxEWVtbSSsU9QgICAjSV5WVkp2Nl3yTp4d0enFYe5dLS0xJSUlZTxL0CAgICNRVmKKZlZSA
-        kd7/nldLSybB/6kkL1hIXFIrFfQICAgI1F2joqOjiZnv/8WGe7unTJju/7slSlxTXVAU8wgICAjTaaOm
-        oJ+o2f/femOd/sdTMI3//6oxVVNVTxTzCAgICNNnorCplb//yYKJd537x2htKIn38FZSZF1PFPUICAgI
-        1nmqrK6mpbmciJiAnfrJbWdvUoqSXWReZFAU9QgICAjYgLG5sbCml5+jmIWj+9N8hId8Y1xmZGRdLRT1
-        CAgICNiNtLu6rbGooKKjm6X+yYqUjISGe3lyZFQrE/QICAgI1Yq7vbqura2noaCgn5WKlJSUiIODg25k
-        VCsX9ggICAjrcaa7urOqpKWkmZiZlpubjYqLi3p4bWNRGlH/CAgICN/KhG1ra0lTWEpLS0tKMTExLycp
-        JCQjIRxV3ggICAgICNz/8vLy7u/v7/Dw8PDr7Ozs6+zt6+ns5v8ICAgICAgICAgICAgICAgICAgICAgI
-        CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICP//////////4AAAD8AA
-        AAfAAAADwAAAA8AAAAPAAAADwAAAA8AAAAPAAAADwAAAA8AAAAPAAAADwAAAA8AAAAPAAAADwAAAA8AA
-        AAPAAAADwAAAA8AAAAPAAAADwAAAA8AAAAPAAAADwAAAA8AAAAPAAAAH4AAAD///////////KAAAADAA
-        AABgAAAAAQAIAAAAAACACgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
-        AAAAAAAAAAIAAAAhAAABSgEAAmcCAAJzAgADdQIAAncCAAJ5AgACewIAAX0BAAF/AQABgAEAAYIBAAKE
-        AgAFiAUACo0KAA+SDwAUlRMAE5cTABKZEgAQmxAADJwMAAefBwAGogYABaUFAASnBAAEqQQACKwHAAuv
-        CwAOsA4AELAQABOvEwATshMAErYSABG5EQARvREAD8QPAA7KDgAN0A0ADNUMABDVEAAU1hQAFtcWABfX
-        FwAZ2RkAGtoaABvcGwAc3RwAHdsdAB/YHwAg1SAAINIgACDMIAAgxiAAH7sfAB+3HwAesh4AHq0eAB6n
-        HgAeoR4AIKEgACGjIQAiqCIAJK0kACWxJQAmuCYAJ7onACe6JwAnuicAKLgoACu0KwAssi0ALLEtAC2y
-        LgAusy4ALrguAC66LwAvuy8AL7swAC+9MAAwvDEAM7kzADS3NAA0tjQANbg1ADa9NgA3wTcAOMY5ADrD
-        OgA6wTsAO8A7ADy/PAA9vj0APb49AD6/PgA/vz8AQMBAAEHAQQBBwEIAQsFCAEPCQwBDxEQARcRGAEbI
-        RwBGyEcAR8dIAEjESQBIw0kASL1KAEexSwBGpksARp9MAEeeTgBKnlEATZ5UAE6fVgBPo1YAT7lRAE/B
-        UABPwk8AUMNQAFDEUABQxlAAUcZRAFLJUgBTyVMAU8pUAFXJVQBWyFYAWMdYAFnHWgBbyFsAXMhdAF3J
-        XgBeyV4AX8pfAGDKYABhymEAYstjAGTMZABkyWUAZMdmAGbIZwBoy2gAactqAGrMawBszWwAbc5uAG/P
-        bwBwz3AAcc9xAHHPcgByz3MAc89zAHTPdAB10HUAddF2AHbUdwB41XkAetR6AHzSfAB90n0AftJ+AH/S
-        fwCA0oAAgdGCAIPRgwCE0YUAhdKGAIfShwCJ0okAitOKAIrUigCM1owAjtmOAJDakACS2pMAlNqVAJfa
-        mACa3JoAm92cAJ3enQCf3p8AoN6gAKPeowCl3aUAp96nAKnfqQCr36sAreCtAK7hrgCv4q8AsOOwALLl
-        sgCz5rMAtOe0ALfotgC56bkAv+q/AMXrxQDL7MoAzuzNANDtzwDT7dEA1O7SANbu0wDY79YA2vDYANvy
-        2gDf9N4A4/bjAOf45wDp+ekA6vnrAOv57ADs+e4A7PnvAOz58QDr+fMA6/jzAOv48wDr+PQA6/j0AOr4
-        9ADq+PQA6vj0AOv59QDs+fQA7vr0APD69ADy+/QA8/v0APT79QD2+/YA9/v2APn79wD7+vgA/fn4AP75
-        +AD++fgA/vn5AP37+wD9/f0A/v7+AP7+/gD+/v4A////AP7+/gAHBwcHBwcHBwcHBwcHBwcHBwcHBwcH
-        BwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcH
-        BwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcH
-        BwcHBwcHB+LV3+rq5uLi4urq5urm5urq6urm6urq6urq6ubm5ubm5urq7eIHBwcHBwcHBwcH4tW2fHd3
-        eHd3d3h4eHh4d3d3d3d4eHh4eHh4eHh4eHh4eHd3lcbiBwcHBwcHBwfi15ZEFA4ODAwMDAwMEBAPEBIS
-        EhITFBMTExQUFBQUFBQUFBQREVvB4gcHBwcHBwfPrRgVGBgYGRkZGRkZQ0NDQ0NDQxsgICAdHR8fHx8f
-        Hx8fICAfFQ13yOIHBwcHBwfiQxgXGhpDQkdHR0dGREdHR0dHR0hMKT9XTCkkJiYmJiYmJSokHhUSmfYH
-        BwcHBwfiFRklJ0ZGQUhbUVFQTlZUTExMQCg/SVNXOjQ0NDQ0NDUzJjMzJB4Qe/gHBwcHBwfiHxwnQEBI
-        UFFbW1tbWF1ZWElYnse1VzM1NjY3Nzc3Nzc2MiwrKR0Pe/YHBwcHBwfiIiNBR0lVW1tZWVxZWVlZXU1d
-        w//ecTs5NzY2Nzg4NzY2NzIrKBsOe/YHBwcHBwfiIiRBSFNdXV1dTUlUXV1ZZ1hlxP/th2ZfNDM4Mi8v
-        MTg2NzcxKRoOe/gHBwcHBwfiIkFJT1tcXWJpZ2hjY2hnbV1uxf/ebWFfODMzMjQ1NDY2NTcyKRoOe/gH
-        BwcHBwfiIkFMU1tcYmKFu8SrYWdycl1yyf/ecDxfXzkvX7e3cS81NjcyKRoOe/gHBwcHBwfiIkFNV11i
-        a2GO7v/Wk2Vscl1uyP/hlTtfcDo5uf/trC80NjcyKRoOe/gHBwcHBwfiIkFTXGJsbl6M2v//3I9qgV1u
-        yP/gi4JfMV7O///boS80NjcyKRoOe/gHBwcHBwfiIlBbYmtubG5/ndT6/9uZVVVyyP/fX18zOMf7/9qc
-        NDI2NjcyKRoOe/gHBwcHBwfiIkhSYm1tboB+bKrS+v/Sq2Zmrc26cF+Evd7/2qU0Lzg2NjcyKRoOe/gH
-        BwcHBwfiIkxdY2xzf4CAfmmi1vr/zX5ecXFohDyl2v/esTsvNDg2NjcyKRoOe/gHBwcHBwfiJlRna3N/
-        gICAhXNqnNn/zoVdZ2BiczGT3P2mO1c6NDY2NjcxKRwOe/gHBwcHBwfiJ1lncoCAgICAgIdzc6OxnYFr
-        a2xubGBfjqVfLzo5NDg2NjcxKRwOe/gHBwcHBwfiJ1NshYBpY2xzaGZoaWldbIBzaW1tbl88MzMsLS8v
-        Ly8vLDE4PhoOe/gHBwcHBwfiJ1l/foqjrqyxq6isp4pzc3NubG1tcztXXzxtkYeGhoaHk188SRsOe/gH
-        BwcHBwfiJ2aBY6HY//Dy8vP/2pdzf25sbW1ucl5dTT6///Hv7+/w/6o/QRsPe/gHBwcHBwfiJ2eAaKjY
-        //Pz8/r62pdzgHNubG1ubmRbSTy+//Py8vLz/6tJQBsOe/gHBwcHBwfiKGWDhZ7CzcbIx8jMvox+gHNu
-        bGtjZV1cTDyTv7m2t7m5v4hMPxsOe/gHBwcHBwfiP2iLlIyBf4F/f4FzZ3R+c25tbmhdWV1VTElAJiot
-        LCcpJj5MSBsPe/gHBwcHBwfiP3OMkY6QmpuOjpGKf39/gIBza21sXV1YTExMTExMTExMTExMVUQNe/YH
-        BwcHBwfiSX6Kl5mRj5KQkZJ/is/wwHJecWtdXD+Y1NmKJE1ISVdMTExMSBsPe/gHBwcHBwfiTXSQnaKa
-        l5SPj3ORzvP/zYFZXT8/WCiu3//SiyMnU0xMTFtQRxsPe/YHBwcHBwfiTX+aoqGhop2Pf5nL8v/fvnNi
-        kqycZj+Oz/r/0IkpKVVSTFJRUEQPe/YHBwcHBwfiTYmco6OioqKZl83w//O5iGdyv/HUc05Ji9L//9CI
-        Pk5bTU5SUUQPe/YHBwcHBwfiTYubqKujnZyqzvD/8L+AameFzP/ugVM/P4vR//rPiylSTFNRUEQPe/YH
-        BwcHBwfiTYmZq7Otope0+v/uwIF/imyHzP/eiF1lUyiK0f/vuCVMV1pRUEQPe/gHBwcHBwfiU4yeqrKz
-        q5ms1NnFf4mTj26Ay//fjmdjXV1AitTQo0JVXFRbW0QPe/gHBwcHBwfiYpmts7Kxsqyfo6iajo+Qkn+J
-        y//fjWZiYmliWWJlXVlcW1tbW0MPe/gHBwcHBwfiYpmtubqzsLKrmZeanZyUkYGPzf/glHRzf39zYllY
-        WVlZW1xbUEMPe/gHBwcHBwfiY6OtusG7s7Gyq6Geo6OamYqSzf/tnYCKi4B/cnJuZmJiXVxSRxsPe/gH
-        BwcHBwfiZa22usLCuK+zs6yjn5+ip5iYx+/Rn4yRkYmAh4Bzc3JuXVtRRxsOe/gHBwcHBwfiY6u9wcPB
-        uK+xsbOsoZ+hoqGho6OXkZCQkZCJgICAgH9sXVtRRxsOe/gHBwcHBwfiYqOzvMXDubGzqKeno6Oak5eX
-        lIuKj5SPiYmHgIBycmxdXVlNRxsXlfgHBwcHBwfip3KXs7q6ta6ooZ2fn5qRjo6Pj5GUlIyHg4OEh4Nt
-        Z2liWlNOGxVEuuIHBwcHBwfi2KWNiICAgXNkZGRkZFxZWVlZWVlUVE1JSUhASEAnJycmHyAeFlCv4gcH
-        BwcHBwcH4tW3koaGhoZxcXFxcXFxcXFxcXFfX19fX11ZXV1dWVhMWVdAdb7iBwcHBwcHBwcHB+L/////
-        /////////////////////////////////////////+IHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcH
-        BwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcH
-        BwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcH
-        Bwf///////8AAP///////wAA////////AAD4AAAAAD8AAPAAAAAAHwAA4AAAAAAPAADgAAAAAAcAAOAA
-        AAAABwAA4AAAAAAHAADgAAAAAAcAAOAAAAAABwAA4AAAAAAHAADgAAAAAAcAAOAAAAAABwAA4AAAAAAH
-        AADgAAAAAAcAAOAAAAAABwAA4AAAAAAHAADgAAAAAAcAAOAAAAAABwAA4AAAAAAHAADgAAAAAAcAAOAA
-        AAAABwAA4AAAAAAHAADgAAAAAAcAAOAAAAAABwAA4AAAAAAHAADgAAAAAAcAAOAAAAAABwAA4AAAAAAH
-        AADgAAAAAAcAAOAAAAAABwAA4AAAAAAHAADgAAAAAAcAAOAAAAAABwAA4AAAAAAHAADgAAAAAAcAAOAA
-        AAAABwAA4AAAAAAHAADgAAAAAAcAAOAAAAAABwAA4AAAAAAHAADgAAAAAA8AAPAAAAAAHwAA+AAAAAA/
-        AAD///////8AAP///////wAA////////AAA=
-</value>
-  </data>
-  <data name="&gt;&gt;BindingNavigator1.Parent" xml:space="preserve">
-    <value>XtraTabPage2</value>
-  </data>
-  <data name="&gt;&gt;OpenFileDialog1.Type" xml:space="preserve">
-    <value>System.Windows.Forms.OpenFileDialog, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="GridControl1.Size" type="System.Drawing.Size, System.Drawing">
-    <value>721, 352</value>
-  </data>
-  <data name="Label1.AutoSize" type="System.Boolean, mscorlib">
-    <value>True</value>
-  </data>
-  <data name="&gt;&gt;btnrunSQL.Name" xml:space="preserve">
-    <value>btnrunSQL</value>
-  </data>
-  <data name="GridControl1.EmbeddedNavigator.BackgroundImageLayout" type="System.Windows.Forms.ImageLayout, System.Windows.Forms">
-    <value>Tile</value>
-  </data>
-  <data name="btnrunSQL.Location" type="System.Drawing.Point, System.Drawing">
-    <value>17, 474</value>
-  </data>
-  <data name="BindingNavigatorSeparator.Size" type="System.Drawing.Size, System.Drawing">
-    <value>6, 25</value>
-  </data>
-  <data name="&gt;&gt;Label1.ZOrder" xml:space="preserve">
-    <value>4</value>
-  </data>
-  <data name="BindingNavigatorMoveFirstItem.Size" type="System.Drawing.Size, System.Drawing">
-    <value>23, 22</value>
-  </data>
-  <data name="XtraTabPage2.Text" xml:space="preserve">
-    <value>Ergebnis:</value>
-  </data>
-  <data name="&gt;&gt;BindingSource1.Type" xml:space="preserve">
-    <value>System.Windows.Forms.BindingSource, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="&gt;&gt;Button1.Type" xml:space="preserve">
-    <value>System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="BindingNavigator1.TabIndex" type="System.Int32, mscorlib">
-    <value>0</value>
-  </data>
-  <data name="&gt;&gt;BindingNavigatorMovePreviousItem.Name" xml:space="preserve">
-    <value>BindingNavigatorMovePreviousItem</value>
-  </data>
-  <data name="BindingNavigatorMoveFirstItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
-        wwAADsMBx2+oZAAAASpJREFUOE9jGDygcNbz/00Lnv/PnPj4P1QIA4S3P8Apx5A789n/VUfe/8elKL77
-        wf/ghmu4DciY8vT/wn0fsCqK73n4f+n+///9qy/gNiCh58n/aVveYyiKaL8P1pw56/9/r9ITuA2I7Hr0
-        v3f1BxRFoa33wJpb1wFt7/z73yX/AG4DApsf/q+b/w6uKLjl7v9Fe///7wBqzpjz879d3c//9hnbcRvg
-        UXX/f/60NyiK7Ipv/0+f8/u/f9e3/zqF7/5bJKzHbYB96d3/2ZNfYyjSTzn/36ToxX+VrE//jSOX4TbA
-        Iu/O/9T+11gVGSSd+C+b9vW/bvA83AYYZt3+H9byEqci/dTL/zV8p+E2QCftxn+/6od4Fal4TMBtgFPu
-        lf8gBXgVDULAwAAA8HbAq6XlmnAAAAAASUVORK5CYII=
-</value>
-  </data>
-  <data name="&gt;&gt;BindingNavigator1.ZOrder" xml:space="preserve">
-    <value>1</value>
-  </data>
-  <data name="GridControl1.TabIndex" type="System.Int32, mscorlib">
-    <value>1</value>
-  </data>
-  <data name="BindingNavigatorPositionItem.Text" xml:space="preserve">
-    <value>0</value>
-  </data>
-  <data name="BindingNavigatorMoveFirstItem.Text" xml:space="preserve">
-    <value>Erste verschieben</value>
-  </data>
-  <data name="XtraTabPage2.Size" type="System.Drawing.Size, System.Drawing">
-    <value>721, 377</value>
-  </data>
-  <data name="BindingNavigatorMovePreviousItem.RightToLeftAutoMirrorImage" type="System.Boolean, mscorlib">
-    <value>True</value>
-  </data>
-  <data name="BindingNavigatorMoveNextItem.RightToLeftAutoMirrorImage" type="System.Boolean, mscorlib">
-    <value>True</value>
-  </data>
-  <data name="&gt;&gt;XtraTabPage1.Type" xml:space="preserve">
-    <value>DevExpress.XtraTab.XtraTabPage, DevExpress.XtraEditors.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
-  </data>
-  <data name="txtSQL.Font" type="System.Drawing.Font, System.Drawing">
-    <value>Consolas, 9pt</value>
-  </data>
-  <data name="&gt;&gt;$this.Name" xml:space="preserve">
-    <value>frmSQL_Admin</value>
-  </data>
-  <data name="Label1.TabIndex" type="System.Int32, mscorlib">
-    <value>0</value>
-  </data>
-  <data name="&gt;&gt;GridView1.Name" xml:space="preserve">
-    <value>GridView1</value>
-  </data>
-  <assembly alias="DevExpress.Utils.v15.2" name="DevExpress.Utils.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
-  <data name="GridControl1.EmbeddedNavigator.ToolTipIconType" type="DevExpress.Utils.ToolTipIconType, DevExpress.Utils.v15.2">
-    <value>None</value>
-  </data>
-  <data name="&gt;&gt;BindingNavigatorPositionItem.Type" xml:space="preserve">
-    <value>System.Windows.Forms.ToolStripTextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="btnrunSQL.TabIndex" type="System.Int32, mscorlib">
-    <value>4</value>
-  </data>
-  <data name="XtraTabControl1.Location" type="System.Drawing.Point, System.Drawing">
-    <value>17, 63</value>
-  </data>
-  <data name="BindingNavigatorSeparator1.Size" type="System.Drawing.Size, System.Drawing">
-    <value>6, 25</value>
-  </data>
-  <assembly alias="DevExpress.XtraEditors.v15.2" name="DevExpress.XtraEditors.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
-  <data name="GridControl1.EmbeddedNavigator.TextLocation" type="DevExpress.XtraEditors.NavigatorButtonsTextLocation, DevExpress.XtraEditors.v15.2">
-    <value>Center</value>
-  </data>
-  <data name="&gt;&gt;GridControl1.ZOrder" xml:space="preserve">
-    <value>0</value>
-  </data>
-  <data name="&gt;&gt;Button1.Parent" xml:space="preserve">
-    <value>$this</value>
-  </data>
-  <data name="&gt;&gt;GridControl1.Parent" xml:space="preserve">
-    <value>XtraTabPage2</value>
-  </data>
-  <data name="BindingNavigator1.Size" type="System.Drawing.Size, System.Drawing">
-    <value>721, 25</value>
-  </data>
-  <data name="btnrunSQL.Size" type="System.Drawing.Size, System.Drawing">
-    <value>125, 33</value>
-  </data>
-  <data name="BindingNavigatorSeparator2.Size" type="System.Drawing.Size, System.Drawing">
-    <value>6, 25</value>
-  </data>
-  <data name="&gt;&gt;XtraTabPage1.ZOrder" xml:space="preserve">
-    <value>0</value>
-  </data>
-  <data name="GridControl1.EmbeddedNavigator.BackgroundImage" type="System.Resources.ResXNullRef, System.Windows.Forms">
-    <value />
-  </data>
-  <data name="&gt;&gt;BindingNavigatorMovePreviousItem.Type" xml:space="preserve">
-    <value>System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="&gt;&gt;GridControl1.Type" xml:space="preserve">
-    <value>DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
-  </data>
-  <data name="&gt;&gt;TextBox1.ZOrder" xml:space="preserve">
-    <value>3</value>
-  </data>
-  <data name="txtSQL.Location" type="System.Drawing.Point, System.Drawing">
-    <value>-1, 11</value>
-  </data>
-  <data name="BindingNavigatorPositionItem.Size" type="System.Drawing.Size, System.Drawing">
-    <value>50, 23</value>
-  </data>
-  <data name="BindingNavigator1.Location" type="System.Drawing.Point, System.Drawing">
-    <value>0, 0</value>
-  </data>
-  <data name="$this.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms">
-    <value>3, 4, 3, 4</value>
-  </data>
-  <data name="&gt;&gt;GridView1.Type" xml:space="preserve">
-    <value>DevExpress.XtraGrid.Views.Grid.GridView, DevExpress.XtraGrid.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
-  </data>
-  <data name="&gt;&gt;Button1.Name" xml:space="preserve">
-    <value>Button1</value>
-  </data>
-  <data name="&gt;&gt;XtraTabPage1.Name" xml:space="preserve">
-    <value>XtraTabPage1</value>
-  </data>
-  <data name="&gt;&gt;Button1.ZOrder" xml:space="preserve">
-    <value>1</value>
-  </data>
-  <data name="btnrunSQL.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
-    <value>Bottom, Left</value>
-  </data>
-  <data name="&gt;&gt;BindingNavigatorSeparator.Name" xml:space="preserve">
-    <value>BindingNavigatorSeparator</value>
-  </data>
-  <data name="txtSQL.Multiline" type="System.Boolean, mscorlib">
-    <value>True</value>
-  </data>
-  <data name="GridControl1.Location" type="System.Drawing.Point, System.Drawing">
-    <value>0, 25</value>
-  </data>
-  <data name="BindingNavigatorCountItem.Text" xml:space="preserve">
-    <value>von {0} Datensätzen</value>
-  </data>
-  <data name="Button1.Location" type="System.Drawing.Point, System.Drawing">
-    <value>750, 86</value>
-  </data>
-  <data name="&gt;&gt;BindingNavigatorCountItem.Name" xml:space="preserve">
-    <value>BindingNavigatorCountItem</value>
-  </data>
-  <data name="GridView1.Appearance.OddRow.FontStyleDelta" type="System.Drawing.FontStyle, System.Drawing">
-    <value>Regular</value>
-  </data>
-  <data name="&gt;&gt;Label1.Parent" xml:space="preserve">
-    <value>$this</value>
-  </data>
-  <data name="&gt;&gt;TextBox1.Name" xml:space="preserve">
-    <value>TextBox1</value>
-  </data>
-  <data name="GridControl1.EmbeddedNavigator.ToolTip" xml:space="preserve">
-    <value />
-  </data>
-  <data name="XtraTabControl1.TabIndex" type="System.Int32, mscorlib">
-    <value>6</value>
-  </data>
-  <data name="Button1.ImageAlign" type="System.Drawing.ContentAlignment, System.Drawing">
-    <value>TopCenter</value>
-  </data>
-  <data name="GridView1.Appearance.OddRow.BackColor" type="System.Drawing.Color, System.Drawing">
-    <value>White</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;XtraTabPage2.Type" xml:space="preserve">
-    <value>DevExpress.XtraTab.XtraTabPage, DevExpress.XtraEditors.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
-  </data>
-  <data name="&gt;&gt;BindingNavigatorMoveFirstItem.Name" xml:space="preserve">
-    <value>BindingNavigatorMoveFirstItem</value>
-  </data>
-  <data name="Label1.Size" type="System.Drawing.Size, System.Drawing">
-    <value>122, 17</value>
-  </data>
-  <data name="XtraTabPage1.Text" xml:space="preserve">
-    <value>Auszuführender SQL-Befehl</value>
-  </data>
-  <data name="btnrunSQL.ImageAlign" type="System.Drawing.ContentAlignment, System.Drawing">
-    <value>MiddleLeft</value>
-  </data>
-  <data name="&gt;&gt;XtraTabControl1.Parent" xml:space="preserve">
-    <value>$this</value>
-  </data>
-  <data name="BindingNavigatorMoveLastItem.Size" type="System.Drawing.Size, System.Drawing">
-    <value>23, 22</value>
-  </data>
-  <data name="&gt;&gt;txtSQL.Parent" xml:space="preserve">
-    <value>XtraTabPage1</value>
-  </data>
-  <data name="Label1.Text" xml:space="preserve">
-    <value>Aktuelle Verbindung:</value>
-  </data>
-  <data name="&gt;&gt;BindingNavigatorSeparator2.Name" xml:space="preserve">
-    <value>BindingNavigatorSeparator2</value>
-  </data>
-  <data name="GridView1.Appearance.EvenRow.Image" type="System.Resources.ResXNullRef, System.Windows.Forms">
-    <value />
-  </data>
-  <data name="&gt;&gt;$this.Type" xml:space="preserve">
-    <value>System.Windows.Forms.Form, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="GridControl1.EmbeddedNavigator.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
-    <value>Inherit</value>
-  </data>
-  <data name="TextBox1.Location" type="System.Drawing.Point, System.Drawing">
-    <value>17, 32</value>
-  </data>
-  <data name="txtSQL.ScrollBars" type="System.Windows.Forms.ScrollBars, System.Windows.Forms">
-    <value>Both</value>
-  </data>
-  <data name="BindingNavigatorMoveLastItem.Text" xml:space="preserve">
-    <value>Letzte verschieben</value>
-  </data>
-  <data name="BindingNavigatorPositionItem.AccessibleName" xml:space="preserve">
-    <value>Position</value>
-  </data>
-  <data name="&gt;&gt;btnrunSQL.Type" xml:space="preserve">
-    <value>System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="&gt;&gt;XtraTabPage2.Parent" xml:space="preserve">
-    <value>XtraTabControl1</value>
-  </data>
-  <data name="&gt;&gt;BindingNavigatorCountItem.Type" xml:space="preserve">
-    <value>System.Windows.Forms.ToolStripLabel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="BindingNavigatorPositionItem.ToolTipText" xml:space="preserve">
-    <value>Aktuelle Position</value>
-  </data>
-  <data name="XtraTabControl1.Size" type="System.Drawing.Size, System.Drawing">
-    <value>727, 405</value>
-  </data>
-  <data name="&gt;&gt;XtraTabControl1.ZOrder" xml:space="preserve">
-    <value>0</value>
-  </data>
-  <data name="BindingNavigatorMoveLastItem.RightToLeftAutoMirrorImage" type="System.Boolean, mscorlib">
-    <value>True</value>
-  </data>
-  <data name="&gt;&gt;btnrunSQL.ZOrder" xml:space="preserve">
-    <value>2</value>
-  </data>
-  <data name="btnrunSQL.Font" type="System.Drawing.Font, System.Drawing">
-    <value>Segoe UI Semibold, 9.75pt, style=Bold, Italic</value>
-  </data>
-  <data name="Button1.Size" type="System.Drawing.Size, System.Drawing">
-    <value>75, 43</value>
-  </data>
-  <data name="&gt;&gt;TextBox1.Type" xml:space="preserve">
-    <value>System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="Label1.Font" type="System.Drawing.Font, System.Drawing">
-    <value>Segoe UI, 9.75pt, style=Italic</value>
-  </data>
-  <data name="&gt;&gt;txtSQL.Name" xml:space="preserve">
-    <value>txtSQL</value>
-  </data>
-  <data name="BindingNavigatorMovePreviousItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
-        wwAADsMBx2+oZAAAALZJREFUOE9jGDogvP3BfyiTdBDf/eB/cMM18gyI73n4f+n+///9qy+QbkBE+32w
-        5sxZ//97lZ4gzYDQ1ntgza3rgLZ3/v3vkn+AeAOCW+7+X7T3//8OoOaMOT//29X9/G+fsZ00F9gV3/6f
-        Puf3f/+ub/91Ct/9t0hYT3oY6Kec/29S9OK/Stan/8aRy0g3AAQMkk78l037+l83eB55BoCAfurl/xq+
-        08g3AARUPCZQZsBgBQwMANAUYJgEulBVAAAAAElFTkSuQmCC
-</value>
-  </data>
-  <data name="GridView1.Appearance.EvenRow.FontSizeDelta" type="System.Int32, mscorlib">
-    <value>0</value>
-  </data>
-  <data name="GridControl1.EmbeddedNavigator.AccessibleName" type="System.Resources.ResXNullRef, System.Windows.Forms">
-    <value />
-  </data>
-  <data name="btnrunSQL.Text" xml:space="preserve">
-    <value>SQL ausführen</value>
-  </data>
-  <data name="BindingNavigatorMoveNextItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
-        wwAADsMBx2+oZAAAAKNJREFUOE9jGHygcNbz/1AmeSB35rP/Cd33yDckY8rT//P2//6f0HWHPEMSep78
-        n73v1//OrX//u5VeJt2QyK5H/6ds+/W/ZOnf/wnT//63yT1LmiGBzQ//t659D9ZsXPLlv3T0tf/GkcuI
-        N8Sj6v7/krnv4JoVXXpIc4F96d3/gS3PyNMMAhZ5d/7bFFwhTzMIGGbdJl8zCOik3SBf81AEDAwAoH5f
-        oAc0QjgAAAAASUVORK5CYII=
-</value>
-  </data>
-  <data name="Button1.TabIndex" type="System.Int32, mscorlib">
-    <value>5</value>
-  </data>
-  <data name="BindingNavigatorMovePreviousItem.Size" type="System.Drawing.Size, System.Drawing">
-    <value>23, 22</value>
-  </data>
-  <data name="txtSQL.Size" type="System.Drawing.Size, System.Drawing">
-    <value>715, 371</value>
-  </data>
-  <data name="BindingNavigatorCountItem.ToolTipText" xml:space="preserve">
-    <value>Die Gesamtanzahl der Elemente.</value>
-  </data>
-  <data name="&gt;&gt;BindingNavigator1.Name" xml:space="preserve">
-    <value>BindingNavigator1</value>
-  </data>
-  <data name="GridView1.Appearance.EvenRow.BackColor" type="System.Drawing.Color, System.Drawing">
-    <value>Cyan</value>
-  </data>
-  <data name="BindingNavigatorCountItem.Size" type="System.Drawing.Size, System.Drawing">
-    <value>111, 22</value>
-  </data>
-  <data name="$this.ClientSize" type="System.Drawing.Size, System.Drawing">
-    <value>826, 519</value>
-  </data>
-  <data name="&gt;&gt;XtraTabControl1.Name" xml:space="preserve">
-    <value>XtraTabControl1</value>
-  </data>
-  <data name="TextBox1.TabIndex" type="System.Int32, mscorlib">
-    <value>1</value>
-  </data>
-  <data name="&gt;&gt;txtSQL.ZOrder" xml:space="preserve">
-    <value>0</value>
-  </data>
-  <data name="BindingNavigatorMovePreviousItem.Text" xml:space="preserve">
-    <value>Vorherige verschieben</value>
-  </data>
-  <data name="&gt;&gt;BindingSource1.Name" xml:space="preserve">
-    <value>BindingSource1</value>
-  </data>
-  <data name="Button1.Text" xml:space="preserve">
-    <value>Open SQL</value>
-  </data>
-  <data name="$this.AutoScaleDimensions" type="System.Drawing.SizeF, System.Drawing">
-    <value>7, 17</value>
-  </data>
-  <data name="&gt;&gt;BindingNavigatorSeparator.Type" xml:space="preserve">
-    <value>System.Windows.Forms.ToolStripSeparator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="&gt;&gt;XtraTabControl1.Type" xml:space="preserve">
-    <value>DevExpress.XtraTab.XtraTabControl, DevExpress.XtraEditors.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
-  </data>
-  <data name="&gt;&gt;BindingNavigatorMoveLastItem.Name" xml:space="preserve">
-    <value>BindingNavigatorMoveLastItem</value>
-  </data>
-  <data name="btnrunSQL.TextAlign" type="System.Drawing.ContentAlignment, System.Drawing">
-    <value>MiddleRight</value>
-  </data>
-  <data name="GridView1.Appearance.OddRow.GradientMode" type="System.Drawing.Drawing2D.LinearGradientMode, System.Drawing">
-    <value>Horizontal</value>
-  </data>
-  <data name="GridView1.Appearance.EvenRow.FontStyleDelta" type="System.Drawing.FontStyle, System.Drawing">
-    <value>Regular</value>
-  </data>
-  <data name="GridControl1.EmbeddedNavigator.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
-    <value>Top, Left</value>
-  </data>
-  <data name="&gt;&gt;btnrunSQL.Parent" xml:space="preserve">
-    <value>$this</value>
-  </data>
-  <data name="&gt;&gt;BindingNavigator1.Type" xml:space="preserve">
-    <value>System.Windows.Forms.BindingNavigator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <metadata name="OpenFileDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>17, 17</value>
-  </metadata>
-  <metadata name="BindingSource1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>313, 17</value>
-  </metadata>
-  <metadata name="$this.Language" type="System.Globalization.CultureInfo, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-    <value>en-US</value>
-  </metadata>
-  <metadata name="$this.Localizable" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-    <value>True</value>
-  </metadata>
-  <metadata name="BindingNavigator1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>159, 17</value>
-  </metadata>
-</root>

Global_Indexer/frmSplash.vb

@@ -55,25 +55,25 @@ Public NotInheritable Class frmSplash
         bw.ReportProgress(CalcProgress(1), "Initialize Logging")
         Init.InitLogger()
 
-        Thread.Sleep(600)
+        Thread.Sleep(300)
 
         bw.ReportProgress(CalcProgress(2), "Initialize Config")
         Init.InitConfig()
 
-        Thread.Sleep(600)
+        Thread.Sleep(300)
 
         bw.ReportProgress(CalcProgress(3), "Initialize Database")
         If Init.InitDatabase() = True Then
-            Thread.Sleep(600)
+            Thread.Sleep(300)
             bw.ReportProgress(CalcProgress(4), "Initialize UserConfiguration")
             Init.InitUserLogin()
 
-            Thread.Sleep(600)
+            Thread.Sleep(300)
 
             bw.ReportProgress(CalcProgress(5), "Initialize windream-Settings")
             Init.InitBasics()
 
-            Thread.Sleep(500)
+            Thread.Sleep(300)
         Else
             Throw New Exception("Database could not be reached! Application will be closed now!")
         End If

Global_Indexer/frmStart.Designer.vb

@@ -1,9 +1,9 @@
-<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
 Partial Class frmStart
-    Inherits System.Windows.Forms.Form
+    Inherits DevExpress.XtraEditors.XtraForm
 
     'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
-    <System.Diagnostics.DebuggerNonUserCode()> _
+    <System.Diagnostics.DebuggerNonUserCode()>
     Protected Overrides Sub Dispose(ByVal disposing As Boolean)
         Try
             If disposing AndAlso components IsNot Nothing Then
@@ -20,18 +20,15 @@ Partial Class frmStart
     'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
     'Das Bearbeiten ist mit dem Windows Form-Designer möglich.  
     'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
-    <System.Diagnostics.DebuggerStepThrough()> _
+    <System.Diagnostics.DebuggerStepThrough()>
     Private Sub InitializeComponent()
         Me.components = New System.ComponentModel.Container()
         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmStart))
         Me.MenuStrip1 = New System.Windows.Forms.MenuStrip()
         Me.KonfigurationToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.AdministrationToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
-        Me.GlobalIndexerEinstellungenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
-        Me.HotkeyEisntellungenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
         Me.GrundeinstellungenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
-        Me.FrmHotkeyAddToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.HistoryIndexierteDateienToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.InfoToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.StatusStrip1 = New System.Windows.Forms.StatusStrip()
@@ -48,12 +45,11 @@ Partial Class frmStart
         Me.LabelVersion = New DevExpress.XtraBars.BarStaticItem()
         Me.RibbonMiniToolbar1 = New DevExpress.XtraBars.Ribbon.RibbonMiniToolbar(Me.components)
         Me.MyDataset = New Global_Indexer.MyDataset()
-        Me.TBHOTKEY_USER_PROFILEBindingSource = New System.Windows.Forms.BindingSource(Me.components)
-        Me.TBHOTKEY_USER_PROFILETableAdapter = New Global_Indexer.MyDatasetTableAdapters.TBHOTKEY_USER_PROFILETableAdapter()
         Me.TableAdapterManager = New Global_Indexer.MyDatasetTableAdapters.TableAdapterManager()
         Me.btnChoosefiles = New System.Windows.Forms.Button()
         Me.MenuStrip1.SuspendLayout()
         Me.StatusStrip1.SuspendLayout()
+        CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
         'MenuStrip1
@@ -65,29 +61,17 @@ Partial Class frmStart
         'KonfigurationToolStripMenuItem
         '
         Me.KonfigurationToolStripMenuItem.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
-        Me.KonfigurationToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.AdministrationToolStripMenuItem, Me.ToolStripSeparator1, Me.GrundeinstellungenToolStripMenuItem, Me.FrmHotkeyAddToolStripMenuItem, Me.HistoryIndexierteDateienToolStripMenuItem, Me.InfoToolStripMenuItem})
+        Me.KonfigurationToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.AdministrationToolStripMenuItem, Me.ToolStripSeparator1, Me.GrundeinstellungenToolStripMenuItem, Me.HistoryIndexierteDateienToolStripMenuItem, Me.InfoToolStripMenuItem})
         Me.KonfigurationToolStripMenuItem.Image = Global.Global_Indexer.My.Resources.Resources.gear_32xLG
         Me.KonfigurationToolStripMenuItem.Name = "KonfigurationToolStripMenuItem"
         resources.ApplyResources(Me.KonfigurationToolStripMenuItem, "KonfigurationToolStripMenuItem")
         '
         'AdministrationToolStripMenuItem
         '
-        Me.AdministrationToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.GlobalIndexerEinstellungenToolStripMenuItem, Me.HotkeyEisntellungenToolStripMenuItem})
         Me.AdministrationToolStripMenuItem.Image = Global.Global_Indexer.My.Resources.Resources.Einstellungen6
         Me.AdministrationToolStripMenuItem.Name = "AdministrationToolStripMenuItem"
         resources.ApplyResources(Me.AdministrationToolStripMenuItem, "AdministrationToolStripMenuItem")
         '
-        'GlobalIndexerEinstellungenToolStripMenuItem
-        '
-        Me.GlobalIndexerEinstellungenToolStripMenuItem.Name = "GlobalIndexerEinstellungenToolStripMenuItem"
-        resources.ApplyResources(Me.GlobalIndexerEinstellungenToolStripMenuItem, "GlobalIndexerEinstellungenToolStripMenuItem")
-        '
-        'HotkeyEisntellungenToolStripMenuItem
-        '
-        Me.HotkeyEisntellungenToolStripMenuItem.Image = Global.Global_Indexer.My.Resources.Resources.Shortcut_8169_16x
-        Me.HotkeyEisntellungenToolStripMenuItem.Name = "HotkeyEisntellungenToolStripMenuItem"
-        resources.ApplyResources(Me.HotkeyEisntellungenToolStripMenuItem, "HotkeyEisntellungenToolStripMenuItem")
-        '
         'ToolStripSeparator1
         '
         Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
@@ -98,12 +82,6 @@ Partial Class frmStart
         Me.GrundeinstellungenToolStripMenuItem.Name = "GrundeinstellungenToolStripMenuItem"
         resources.ApplyResources(Me.GrundeinstellungenToolStripMenuItem, "GrundeinstellungenToolStripMenuItem")
         '
-        'FrmHotkeyAddToolStripMenuItem
-        '
-        Me.FrmHotkeyAddToolStripMenuItem.Image = Global.Global_Indexer.My.Resources.Resources.Shortcut_8169_16x
-        Me.FrmHotkeyAddToolStripMenuItem.Name = "FrmHotkeyAddToolStripMenuItem"
-        resources.ApplyResources(Me.FrmHotkeyAddToolStripMenuItem, "FrmHotkeyAddToolStripMenuItem")
-        '
         'HistoryIndexierteDateienToolStripMenuItem
         '
         Me.HistoryIndexierteDateienToolStripMenuItem.Name = "HistoryIndexierteDateienToolStripMenuItem"
@@ -120,6 +98,7 @@ Partial Class frmStart
         Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tslblFW})
         resources.ApplyResources(Me.StatusStrip1, "StatusStrip1")
         Me.StatusStrip1.Name = "StatusStrip1"
+        Me.StatusStrip1.SizingGrip = False
         '
         'tslblFW
         '
@@ -148,7 +127,12 @@ Partial Class frmStart
         '
         Me.LabelControl1.AllowDrop = True
         Me.LabelControl1.Appearance.Font = CType(resources.GetObject("LabelControl1.Appearance.Font"), System.Drawing.Font)
+        Me.LabelControl1.Appearance.Options.UseFont = True
         resources.ApplyResources(Me.LabelControl1, "LabelControl1")
+        Me.LabelControl1.ImageAlignToText = DevExpress.XtraEditors.ImageAlignToText.LeftCenter
+        Me.LabelControl1.ImageOptions.Alignment = System.Drawing.ContentAlignment.MiddleLeft
+        Me.LabelControl1.ImageOptions.SvgImage = Global.Global_Indexer.My.Resources.Resources.trackingchanges_next
+        Me.LabelControl1.IndentBetweenImageAndText = 10
         Me.LabelControl1.Name = "LabelControl1"
         '
         'OpenFileDialog1
@@ -161,80 +145,74 @@ Partial Class frmStart
         resources.ApplyResources(Me.LabelMachine, "LabelMachine")
         Me.LabelMachine.Id = 3
         Me.LabelMachine.Name = "LabelMachine"
-        Me.LabelMachine.TextAlignment = System.Drawing.StringAlignment.Near
         '
         'LabelUser
         '
         resources.ApplyResources(Me.LabelUser, "LabelUser")
         Me.LabelUser.Id = 4
         Me.LabelUser.Name = "LabelUser"
-        Me.LabelUser.TextAlignment = System.Drawing.StringAlignment.Near
         '
         'LabelLoggedIn
         '
         resources.ApplyResources(Me.LabelLoggedIn, "LabelLoggedIn")
         Me.LabelLoggedIn.Id = 5
         Me.LabelLoggedIn.Name = "LabelLoggedIn"
-        Me.LabelLoggedIn.TextAlignment = System.Drawing.StringAlignment.Near
         '
         'LabelVersion
         '
         resources.ApplyResources(Me.LabelVersion, "LabelVersion")
         Me.LabelVersion.Id = 6
         Me.LabelVersion.Name = "LabelVersion"
-        Me.LabelVersion.TextAlignment = System.Drawing.StringAlignment.Near
         '
-        'TBHOTKEY_USER_PROFILETableAdapter
+        'MyDataset
         '
-        Me.TBHOTKEY_USER_PROFILETableAdapter.ClearBeforeFill = True
+        Me.MyDataset.DataSetName = "MyDataset"
+        Me.MyDataset.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
         '
         'TableAdapterManager
         '
         Me.TableAdapterManager.BackupDataSetBeforeUpdate = False
+        Me.TableAdapterManager.Connection = Nothing
         Me.TableAdapterManager.TBDD_CONNECTIONTableAdapter = Nothing
         Me.TableAdapterManager.TBDD_DOKUMENTARTTableAdapter = Nothing
         Me.TableAdapterManager.TBDD_EINGANGSARTENTableAdapter = Nothing
         Me.TableAdapterManager.TBDD_GROUPS_USERTableAdapter = Nothing
-        Me.TableAdapterManager.TBDD_GROUPSTableAdapter = Nothing
         Me.TableAdapterManager.TBDD_INDEX_AUTOMTableAdapter = Nothing
         Me.TableAdapterManager.TBDD_INDEX_MAN_POSTPROCESSINGTableAdapter = Nothing
         Me.TableAdapterManager.TBDD_INDEX_MANTableAdapter = Nothing
         Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing
         Me.TableAdapterManager.TBGI_CONFIGURATIONTableAdapter = Nothing
         Me.TableAdapterManager.TBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter = Nothing
-        Me.TableAdapterManager.TBHOTKEY_PATTERNS_REWORKTableAdapter = Nothing
+        Me.TableAdapterManager.TBGI_REGEX_DOCTYPETableAdapter = Nothing
-        Me.TableAdapterManager.TBHOTKEY_PATTERNSTableAdapter = Nothing
-        Me.TableAdapterManager.TBHOTKEY_PROFILETableAdapter = Nothing
-        Me.TableAdapterManager.TBHOTKEY_USER_PROFILETableAdapter = Me.TBHOTKEY_USER_PROFILETableAdapter
-        Me.TableAdapterManager.TBHOTKEY_WINDOW_HOOKTableAdapter = Nothing
         Me.TableAdapterManager.UpdateOrder = Global_Indexer.MyDatasetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete
         '
         'btnChoosefiles
         '
         Me.btnChoosefiles.AllowDrop = True
         resources.ApplyResources(Me.btnChoosefiles, "btnChoosefiles")
+        Me.btnChoosefiles.FlatAppearance.BorderColor = System.Drawing.SystemColors.ControlLight
         Me.btnChoosefiles.Name = "btnChoosefiles"
         Me.btnChoosefiles.UseVisualStyleBackColor = True
         '
         'frmStart
         '
         Me.AllowDrop = True
+        Me.Appearance.Options.UseFont = True
         resources.ApplyResources(Me, "$this")
-        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.BackColor = System.Drawing.SystemColors.ControlLight
         Me.Controls.Add(Me.btnChoosefiles)
         Me.Controls.Add(Me.LabelControl1)
         Me.Controls.Add(Me.StatusStrip1)
         Me.Controls.Add(Me.MenuStrip1)
-        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
+        Me.IconOptions.Icon = CType(resources.GetObject("frmStart.IconOptions.Icon"), System.Drawing.Icon)
+        Me.IconOptions.Image = Global.Global_Indexer.My.Resources.Resources.DD_Icons_ICO_GLOBIX_128
+        Me.KeyPreview = True
         Me.MaximizeBox = False
         Me.Name = "frmStart"
-        Me.SizeGripStyle = System.Windows.Forms.SizeGripStyle.Hide
-        Me.TopMost = True
         Me.MenuStrip1.ResumeLayout(False)
         Me.MenuStrip1.PerformLayout()
         Me.StatusStrip1.ResumeLayout(False)
         Me.StatusStrip1.PerformLayout()
+        CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
         Me.PerformLayout()
 
@@ -242,16 +220,12 @@ Partial Class frmStart
     Friend WithEvents MenuStrip1 As System.Windows.Forms.MenuStrip
     Friend WithEvents KonfigurationToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
     Friend WithEvents AdministrationToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
-    Friend WithEvents GlobalIndexerEinstellungenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
-    Friend WithEvents HotkeyEisntellungenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
     Friend WithEvents ToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator
     Friend WithEvents GrundeinstellungenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
-    Friend WithEvents FrmHotkeyAddToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
     Friend WithEvents StatusStrip1 As System.Windows.Forms.StatusStrip
     Friend WithEvents tslblFW As System.Windows.Forms.ToolStripStatusLabel
     Friend WithEvents MyDataset As Global_Indexer.MyDataset
     Friend WithEvents TBHOTKEY_USER_PROFILEBindingSource As System.Windows.Forms.BindingSource
-    Friend WithEvents TBHOTKEY_USER_PROFILETableAdapter As Global_Indexer.MyDatasetTableAdapters.TBHOTKEY_USER_PROFILETableAdapter
     Friend WithEvents TableAdapterManager As Global_Indexer.MyDatasetTableAdapters.TableAdapterManager
     Friend WithEvents TimerFolderWatch As System.Windows.Forms.Timer
     Friend WithEvents TimerClose3Minutes As System.Windows.Forms.Timer

Global_Indexer/frmStart.en-US.resx

@@ -405,6 +405,25 @@
         /+AAH/////////////////////////////////////////////8=
 </value>
   </data>
+  <assembly alias="DevExpress.XtraEditors.v19.2" name="DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
+  <data name="LabelControl1.AutoSizeMode" type="DevExpress.XtraEditors.LabelAutoSizeMode, DevExpress.XtraEditors.v19.2">
+    <value>None</value>
+  </data>
+  <data name="LabelControl1.Size" type="System.Drawing.Size, System.Drawing">
+    <value>294, 56</value>
+  </data>
+  <data name="LabelControl1.Text" xml:space="preserve">
+    <value>Drag and Drop Files here, or</value>
+  </data>
+  <data name="btnChoosefiles.Location" type="System.Drawing.Point, System.Drawing">
+    <value>0, 80</value>
+  </data>
+  <data name="btnChoosefiles.Size" type="System.Drawing.Size, System.Drawing">
+    <value>294, 59</value>
+  </data>
+  <data name="btnChoosefiles.Text" xml:space="preserve">
+    <value>Choose Files..</value>
+  </data>
   <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         AAABAAEAgIUAAAEAGAD4zwAAFgAAACgAAACAAAAACgEAAAEAGAAAAAAAAAAAAEgAAABIAAAAAAAAAAAA
@@ -1297,4 +1316,8 @@
         /////////////wA///////////////////8f////////////////////
 </value>
   </data>
+  <assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
+  <data name="$this.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
+    <value>NoControl</value>
+  </data>
 </root>

Global_Indexer/frmStart.en.resx

@@ -118,18 +118,6 @@
     <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </resheader>
   <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
-  <data name="GlobalIndexerEinstellungenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
-    <value>234, 22</value>
-  </data>
-  <data name="GlobalIndexerEinstellungenToolStripMenuItem.Text" xml:space="preserve">
-    <value>Global Indexer - Configuration</value>
-  </data>
-  <data name="HotkeyEisntellungenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
-    <value>234, 22</value>
-  </data>
-  <data name="HotkeyEisntellungenToolStripMenuItem.Text" xml:space="preserve">
-    <value>Hotkey - Configuration</value>
-  </data>
   <data name="AdministrationToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
     <value>204, 22</value>
   </data>
@@ -142,12 +130,6 @@
   <data name="GrundeinstellungenToolStripMenuItem.Text" xml:space="preserve">
     <value>Basic Configuration User</value>
   </data>
-  <data name="FrmHotkeyAddToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
-    <value>204, 22</value>
-  </data>
-  <data name="FrmHotkeyAddToolStripMenuItem.Text" xml:space="preserve">
-    <value>Hotkey-Function User</value>
-  </data>
   <data name="HistoryIndexierteDateienToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
     <value>204, 22</value>
   </data>
@@ -166,27 +148,12 @@
   <data name="KonfigurationToolStripMenuItem.Text" xml:space="preserve">
     <value>Configuration</value>
   </data>
-  <data name="MenuStrip1.Size" type="System.Drawing.Size, System.Drawing">
-    <value>329, 24</value>
-  </data>
   <data name="tslblFW.Size" type="System.Drawing.Size, System.Drawing">
     <value>131, 17</value>
   </data>
   <data name="tslblFW.Text" xml:space="preserve">
     <value>folderwatch is active</value>
   </data>
-  <data name="tslblCultureInfo.Size" type="System.Drawing.Size, System.Drawing">
-    <value>0, 17</value>
-  </data>
-  <data name="tslblCultureInfo.Text" xml:space="preserve">
-    <value />
-  </data>
-  <data name="StatusStrip1.Location" type="System.Drawing.Point, System.Drawing">
-    <value>0, 123</value>
-  </data>
-  <data name="StatusStrip1.Size" type="System.Drawing.Size, System.Drawing">
-    <value>329, 22</value>
-  </data>
   <data name="NotifyIcon1.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         AAABAAEAQEAAAAEAIAAoQgAAFgAAACgAAABAAAAAgAAAAAEAIAAAAAAAAEAAABILAAASCwAAAAAAAAAA
@@ -474,25 +441,59 @@
         /+AAH/////////////////////////////////////////////8=
 </value>
   </data>
-  <data name="LabelControl1.Location" type="System.Drawing.Point, System.Drawing">
-    <value>24, 44</value>
-  </data>
   <data name="LabelControl1.Size" type="System.Drawing.Size, System.Drawing">
-    <value>280, 23</value>
+    <value>294, 41</value>
   </data>
   <data name="LabelControl1.Text" xml:space="preserve">
     <value>Place files with drag and drop here or,</value>
   </data>
+  <assembly alias="mscorlib" name="mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
+  <data name="LabelMachine.ImageOptions.ImageIndex" type="System.Int32, mscorlib">
+    <value>-1</value>
+  </data>
+  <data name="LabelMachine.ImageOptions.LargeImageIndex" type="System.Int32, mscorlib">
+    <value>-1</value>
+  </data>
+  <assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
+  <data name="LabelMachine.ImageOptions.SvgImage" type="System.Resources.ResXNullRef, System.Windows.Forms">
+    <value />
+  </data>
+  <data name="LabelUser.ImageOptions.ImageIndex" type="System.Int32, mscorlib">
+    <value>-1</value>
+  </data>
+  <data name="LabelUser.ImageOptions.LargeImageIndex" type="System.Int32, mscorlib">
+    <value>-1</value>
+  </data>
+  <data name="LabelUser.ImageOptions.SvgImage" type="System.Resources.ResXNullRef, System.Windows.Forms">
+    <value />
+  </data>
+  <data name="LabelLoggedIn.ImageOptions.ImageIndex" type="System.Int32, mscorlib">
+    <value>-1</value>
+  </data>
+  <data name="LabelLoggedIn.ImageOptions.LargeImageIndex" type="System.Int32, mscorlib">
+    <value>-1</value>
+  </data>
+  <data name="LabelLoggedIn.ImageOptions.SvgImage" type="System.Resources.ResXNullRef, System.Windows.Forms">
+    <value />
+  </data>
+  <data name="LabelVersion.ImageOptions.ImageIndex" type="System.Int32, mscorlib">
+    <value>-1</value>
+  </data>
+  <data name="LabelVersion.ImageOptions.LargeImageIndex" type="System.Int32, mscorlib">
+    <value>-1</value>
+  </data>
+  <data name="LabelVersion.ImageOptions.SvgImage" type="System.Resources.ResXNullRef, System.Windows.Forms">
+    <value />
+  </data>
   <data name="btnChoosefiles.Location" type="System.Drawing.Point, System.Drawing">
-    <value>22, 73</value>
+    <value>0, 65</value>
+  </data>
+  <data name="btnChoosefiles.Size" type="System.Drawing.Size, System.Drawing">
+    <value>294, 74</value>
   </data>
   <data name="btnChoosefiles.Text" xml:space="preserve">
     <value>choose files here</value>
   </data>
-  <data name="$this.ClientSize" type="System.Drawing.Size, System.Drawing">
-    <value>329, 145</value>
-  </data>
-  <assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
   <data name="$this.Icon" type="System.Resources.ResXNullRef, System.Windows.Forms">
     <value />
   </data>

Global_Indexer/frmStart.vb

@@ -1,6 +1,5 @@
 Imports System.IO
 Imports Microsoft.Office.Interop
-Imports Independentsoft
 Imports DLLLicenseManager
 Imports System.Text
 Imports System.Globalization
@@ -11,38 +10,13 @@ Public Class frmStart
     Public _lizenzManager As ClassLicenseManager
     Dim loaded As Boolean = False
     Dim WithEvents HotKey As New clsHotkey(Me)
-    'Public Sub SetLanguage()
-    '    Dim de = System.Globalization.CultureInfo.CurrentUICulture
-    '    'Neue Sprache festlegen und entfernen aller Controls
-
-
-    '    Thread.CurrentThread.CurrentUICulture = New CultureInfo(USER_LANGUAGE)
-    '    Me.Controls.Clear()
-
-    '    'Me.Events.Dispose()
-
-    '    InitializeComponent()
-    '    tslblCultureInfo.Text = "Culture/Language: " & USER_LANGUAGE
-    '    Try
-    '        Dim Ic As Icon = New Icon(Application.StartupPath & "\DD_Icons_ICO_GLOBIX_128.ico")
-    '        If Not IsNothing(Ic) Then
-    '            Me.Icon = Ic
-    '        End If
-
-    '    Catch ex As Exception
-    '        ClassLogger.Add(">> Icon file could not be read: " & ex.Message, False)
-    '    End Try
-
-    '    'Me.i()
-    '    'Wiederherstellen der Fensterposition
-    '    'Me.Size = sz
-    '    'Me.Location = pt
-    'End Sub
 
     Private Const mSnapOffset As Integer = 35
     Private Const WM_WINDOWPOSCHANGING As Integer = &H46
 
-    <StructLayout(LayoutKind.Sequential)> _
+    Private IndexForm As frmIndex
+
+    <StructLayout(LayoutKind.Sequential)>
     Public Structure WINDOWPOS
         Public hwnd As IntPtr
         Public hwndInsertAfter As IntPtr
@@ -75,7 +49,7 @@ Public Class frmStart
         Try
             ' Marshal the LPARAM value which is a WINDOWPOS struct
             Dim NewPosition As New WINDOWPOS
-            NewPosition = CType(Runtime.InteropServices.Marshal.PtrToStructure( _
+            NewPosition = CType(Runtime.InteropServices.Marshal.PtrToStructure(
                 LParam, GetType(WINDOWPOS)), WINDOWPOS)
 
             If NewPosition.y = 0 OrElse NewPosition.x = 0 Then
@@ -83,36 +57,36 @@ Public Class frmStart
             End If
 
             ' Adjust the client size for borders and caption bar
-            Dim ClientRect As Rectangle = _
+            Dim ClientRect As Rectangle =
                 clientForm.RectangleToScreen(clientForm.ClientRectangle)
-            ClientRect.Width += _
+            ClientRect.Width +=
                 SystemInformation.FrameBorderSize.Width - widthAdjustment
-            ClientRect.Height += (SystemInformation.FrameBorderSize.Height + _
+            ClientRect.Height += (SystemInformation.FrameBorderSize.Height +
                                   SystemInformation.CaptionHeight)
 
             ' Now get the screen working area (without taskbar)
-            Dim WorkingRect As Rectangle = _
+            Dim WorkingRect As Rectangle =
                 Screen.GetWorkingArea(clientForm.ClientRectangle)
 
             ' Left border
-            If NewPosition.x >= WorkingRect.X - mSnapOffset AndAlso _
+            If NewPosition.x >= WorkingRect.X - mSnapOffset AndAlso
                 NewPosition.x <= WorkingRect.X + mSnapOffset Then
                 NewPosition.x = WorkingRect.X
             End If
 
             ' Get screen bounds and taskbar height
             ' (when taskbar is horizontal)
-            Dim ScreenRect As Rectangle = _
+            Dim ScreenRect As Rectangle =
                 Screen.GetBounds(Screen.PrimaryScreen.Bounds)
-            Dim TaskbarHeight As Integer = _
+            Dim TaskbarHeight As Integer =
                 ScreenRect.Height - WorkingRect.Height
 
             ' Top border (check if taskbar is on top
             ' or bottom via WorkingRect.Y)
-            If NewPosition.y >= -mSnapOffset AndAlso _
+            If NewPosition.y >= -mSnapOffset AndAlso
-                 (WorkingRect.Y > 0 AndAlso NewPosition.y <= _
+                 (WorkingRect.Y > 0 AndAlso NewPosition.y <=
-                 (TaskbarHeight + mSnapOffset)) OrElse _
+                 (TaskbarHeight + mSnapOffset)) OrElse
-                 (WorkingRect.Y <= 0 AndAlso NewPosition.y <= _
+                 (WorkingRect.Y <= 0 AndAlso NewPosition.y <=
                  (mSnapOffset)) Then
                 If TaskbarHeight > 0 Then
                     NewPosition.y = WorkingRect.Y ' Horizontal Taskbar
@@ -122,25 +96,25 @@ Public Class frmStart
             End If
 
             ' Right border
-            If NewPosition.x + ClientRect.Width <= _
+            If NewPosition.x + ClientRect.Width <=
-                 WorkingRect.Right + mSnapOffset AndAlso _
+                 WorkingRect.Right + mSnapOffset AndAlso
-                 NewPosition.x + ClientRect.Width >= _
+                 NewPosition.x + ClientRect.Width >=
                  WorkingRect.Right - mSnapOffset Then
-                NewPosition.x = WorkingRect.Right - (ClientRect.Width + _
+                NewPosition.x = WorkingRect.Right - (ClientRect.Width +
                                 SystemInformation.FrameBorderSize.Width)
             End If
 
             ' Bottom border
-            If NewPosition.y + ClientRect.Height <= _
+            If NewPosition.y + ClientRect.Height <=
-                   WorkingRect.Bottom + mSnapOffset AndAlso _
+                   WorkingRect.Bottom + mSnapOffset AndAlso
-                   NewPosition.y + ClientRect.Height >= _
+                   NewPosition.y + ClientRect.Height >=
                    WorkingRect.Bottom - mSnapOffset Then
-                NewPosition.y = WorkingRect.Bottom - (ClientRect.Height + _
+                NewPosition.y = WorkingRect.Bottom - (ClientRect.Height +
                                 SystemInformation.FrameBorderSize.Height)
             End If
 
             ' Marshal it back
-            Runtime.InteropServices.Marshal.StructureToPtr(NewPosition, _
+            Runtime.InteropServices.Marshal.StructureToPtr(NewPosition,
                                                            LParam, True)
         Catch ex As ArgumentException
         End Try
@@ -150,72 +124,18 @@ Public Class frmStart
         DragDropForm(e)
     End Sub
     Sub DragDropForm(e As DragEventArgs)
-        Dim frmCollection = System.Windows.Forms.Application.OpenForms
+        Dim frmCollection = Application.OpenForms
         If frmCollection.OfType(Of frmIndexFileList).Any Then
             MsgBox("Please index the active file/mail first!", MsgBoxStyle.Exclamation, "Drag 'n Drop not allowed!")
-            ' TimerCheckDroppedFiles.Start()
             Exit Sub
         End If
         'Erstmal alles löschen
         ClassDatabase.Execute_non_Query("DELETE FROM TBGI_FILES_USER WHERE UPPER(USER@WORK) = UPPER('" & Environment.UserName & "')")
-        If ClassDragDrop.Drop_File(e) = True Then
+        If ClassFileDrop.Drop_File(e) = True Then
             TimerCheckDroppedFiles.Start()
         End If
     End Sub
-    Private Sub ReceiveHotKey(ByVal HotKeyID As String) Handles HotKey.HotKeyPressed
-        Dim CapTxt As String = ClassHotkey_Windream.GetCaption()
-        CURRENT_FOCUSES_WINDOWNAME = CapTxt
-        If CURRENT_FOCUSES_WINDOWNAME.ToUpper.StartsWith("GLOB") Then Exit Sub
-        If LogErrorsOnly = False Then ClassLogger.Add(" ...Focused window result: '" & CURRENT_FOCUSES_WINDOWNAME & "'", False)
 
-        Me.Cursor = Cursors.WaitCursor
-        Me.NotifyIcon1.Visible = True
-        NotifyIcon1.ShowBalloonTip(1000, "Hotkey", "Hotkey wird ausgeführt!", ToolTipIcon.Info)
-        Try
-            Dim _focusedWindowfound As Boolean = False
-            Dim HK1 As String
-            Dim HK2 As String
-            'Die Hotkeys definieren
-            Dim SQL As String = "SELECT * FROM TBHOTKEYTEMP_USER_HOTKEYS WHERE HOTKEY_ID = " & HotKeyID
-            Dim DTHOTKEYSTEMP As DataTable = ClassDatabase.Return_Datatable(SQL, True)
-            If Not IsNothing(DTHOTKEYSTEMP) Then
-                HK1 = DTHOTKEYSTEMP.Rows(0).Item("HOTKEY1")
-                HK2 = DTHOTKEYSTEMP.Rows(0).Item("HOTKEY2")
-                'Alle Profile raussuchen die die Tastaturkombination enthalten
-                SQL = "select * from TBHOTKEY_USER_PROFILE where UPPER(HOTKEY1) = UPPER('" & HK1 & "') AND UPPER(HOTKEY2) = UPPER('" & HK2 & "') AND USER_ID = " & USER_ID
-                Dim DTHOTKEY_PROFILES As DataTable = ClassDatabase.Return_Datatable(SQL, True)
-                Dim Result As String = ""
-                If Not IsNothing(DTHOTKEY_PROFILES) Then
-
-                    'Jedes Hotkeyprofil des Users durchlaufen um zu überprüfen ob das CURRENT_FOCUSES_WINDOWNAME = dem konfiguriertem ist
-                    For Each row As DataRow In DTHOTKEY_PROFILES.Rows
-                        SQL = "select WINDOW_NAME from TBHOTKEY_PROFILE where GUID = " & row.Item("HKPROFILE_ID")
-                        'Konfigurierte windows-String speichern
-                        Dim windowconfigured = ClassDatabase.Execute_Scalar(SQL, MyConnectionString, True)
-                        'Focuses window enthalten??
-                        If CURRENT_FOCUSES_WINDOWNAME.ToUpper.Contains(windowconfigured.ToString.ToUpper) Or CURRENT_FOCUSES_WINDOWNAME.ToUpper = windowconfigured.ToString.ToUpper Then
-                            'Ja - also die windream-Suche ausführen
-                            _focusedWindowfound = True
-                            Result = ClassHotkey_Windream.RUN_WD_SEARCH(row.Item("GUID"))
-                        End If
-                    Next
-                    If _focusedWindowfound = False Then
-                        Result = "Focused Window not configured in hotkey"
-                    End If
-                End If
-
-
-                If Result = "" Then
-                    Me.NotifyIcon1.Visible = False
-                Else
-                    NotifyIcon1.ShowBalloonTip(5000, "Hotkey-Fehler:", Result.ToString, ToolTipIcon.Warning)
-                End If
-            End If
-        Catch ex As Exception
-            MsgBox("Error in ReceiveHotKey: " & ex.Message, MsgBoxStyle.Critical)
-        End Try
-        Me.Cursor = Cursors.Default
-    End Sub
     Private Sub frmMain_DragEnter(sender As Object, e As DragEventArgs) Handles Me.DragEnter
         Drag_Enter(sender, e)
     End Sub
@@ -238,92 +158,119 @@ Public Class frmStart
 
     Sub Check_Dropped_Files()
         Try
-            Me.TopMost = False
+            ClassDatabase.Execute_non_Query($"DELETE FROM TBGI_FILES_USER WHERE WORKED = 1 AND UPPER(USER@WORK) = UPPER('{Environment.UserName}')")
-            ClassDatabase.Execute_non_Query("DELETE FROM TBGI_FILES_USER WHERE WORKED = 1 AND UPPER(USER@WORK) = UPPER('" & Environment.UserName & "')")
-            Dim i As Integer
-            For Each Str As Object In ClassDragDrop.files_dropped
-                If Not Str Is Nothing Then
-                    If LogErrorsOnly = False Then ClassLogger.Add(">> Check Drop-File: " & Str.ToString, False)
-                    Dim handleType As String = Str.Substring(0, Str.LastIndexOf("|") + 1)
-                    Dim filename As String = Str.Substring(Str.LastIndexOf("|") + 1)
-                    If ClassIndexFunctions.FileExistsinDropTable(filename) = False Then
-                        ClassFilehandle.Decide_FileHandle(filename, handleType)
-                        i += 1
-                    Else
-                        ' Console.WriteLine("File gibt es bereits")
-                    End If
 
+            For Each oFiledropString As String In ClassFileDrop.files_dropped
+                If oFiledropString IsNot Nothing Then
+                    LOGGER.Info(">> Check Drop-File: " & oFiledropString.ToString)
+                    Dim oLastPipe = oFiledropString.LastIndexOf("|")
+                    Dim oHandleType As String = oFiledropString.Substring(0, oLastPipe + 1)
+                    Dim oFilename As String = oFiledropString.Substring(oLastPipe + 1)
+
+                    If ClassIndexFunctions.CheckDuplicateFiles(oFilename, "Manuelle Ablage", oHandleType) Then
+                        ClassFilehandle.Decide_FileHandle(oFilename, oHandleType)
+                    End If
                 End If
             Next
 
-            Dim sql As String = "SELECT * FROM TBGI_FILES_USER WHERE WORKED = 0 AND UPPER(USER@WORK) = UPPER('" & Environment.UserName & "')"
+            Dim sql As String = $"SELECT * FROM TBGI_FILES_USER WHERE WORKED = 0 AND UPPER(USER@WORK) = UPPER('{Environment.UserName}')"
             DTACTUAL_FILES = Nothing
             DTACTUAL_FILES = ClassDatabase.Return_Datatable(sql, True)
             ABORT_INDEXING = False
-            If DTACTUAL_FILES.Rows.Count > 1 Then
+
+            Dim oOnlyFilesFromFilesystem = True
+            For Each oRow As DataRow In DTACTUAL_FILES.Rows
+                If oRow.Item("HANDLE_TYPE") <> "|DROPFROMFSYSTEM|" Then
+                    oOnlyFilesFromFilesystem = False
+                    Exit For
+                End If
+            Next
+
+            If DTACTUAL_FILES.Rows.Count > 1 And oOnlyFilesFromFilesystem = False Then
                 frmIndexFileList.ShowDialog()
+                LOGGER.Debug("Email Indexing Dialog closed, checking for files to be indexed")
+
                 DTACTUAL_FILES = Nothing
                 DTACTUAL_FILES = ClassDatabase.Return_Datatable(sql, True)
             End If
 
+            If DTACTUAL_FILES.Rows.Count = 0 Then
+                LOGGER.Debug("No files to be indexed, aborting!")
+
+                If USER_LANGUAGE = "de-DE" Then
+                    MessageBox.Show("Es wurden keine Dateien für die Indexierung ausgewählt. Der Indexierungsvorgang wird beendet.", Text, MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1, MessageBoxOptions.DefaultDesktopOnly)
+                Else
+                    MessageBox.Show("You did not select any files for indexing. Indexing will be stopped.", Text, MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1, MessageBoxOptions.DefaultDesktopOnly)
+                End If
+            End If
+
             For Each Filerow As DataRow In DTACTUAL_FILES.Rows
-                Dim filestring As String = Filerow.Item("FILENAME2WORK")
+                Dim oFileString As String = Filerow.Item("FILENAME2WORK")
+                LOGGER.Info("Processing user file {0}", oFileString)
+
                 CURRENT_FILENAME = Filerow.Item("FILENAME2WORK")
                 CURRENT_WORKFILE_GUID = Filerow.Item(0)
                 CURRENT_WORKFILE = Filerow.Item("FILENAME2WORK")
-                If LogErrorsOnly = False Then ClassLogger.Add(">> CURRENT_WORKFILE: " & CURRENT_WORKFILE, False)
+                CURRENT_WORKFILE_HASH = NotNull(Filerow.Item("FILE_HASH"), "")
+
+                LOGGER.Info(">> CURRENT_WORKFILE: " & CURRENT_WORKFILE)
                 If File.Exists(CURRENT_WORKFILE) = True And DTACTUAL_FILES.Rows.Count > 0 Then
                     Open_IndexDialog()
                 End If
 
+                ' If multi-indexing is active, all files have been indexed by now, so we can leave the loop
+                If MULTIINDEXING_ACTIVE Then
+                    Exit For
+                End If
             Next
+
+            Show()
         Catch ex As Exception
-            If Not ex.Message.StartsWith("Die Auflistung wurde geändert") Then
+            LOGGER.Error(ex)
-                MsgBox("Unexpected Error in Check_Dropped_Files:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
+            MsgBox("Unexpected Error in Check_Dropped_Files:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
-            End If
         End Try
-        Me.TopMost = True
     End Sub
 
     Sub Open_IndexDialog()
         Try
-            Me.Hide()
+            Hide()
-            Me.TopMost = False
+            IndexForm.ShowDialog()
-            frmIndex.Show()
-            Me.Visible = True
-            Me.TopMost = True
-            Me.BringToFront()
         Catch ex As Exception
             LOGGER.Error(ex)
             MsgBox(ex.Message, MsgBoxStyle.Critical)
+        Finally
+            Show()
         End Try
     End Sub
 
     Private Sub frmStart_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
-        If My.Settings.AppTerminate = False Then
+        Try
-            Try
+            If START_INCOMPLETE = False Then
-
+                Dim Sql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_ID & " AND UPPER(MODULE) = UPPER('Global-Indexer')"
-                ClassLogger.Add("", False)
+                ClassDatabase.Execute_non_Query(Sql, True)
-                If START_INCOMPLETE = False Then
-                    Dim Sql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_ID & " AND UPPER(MODULE) = UPPER('Global-Indexer')"
-                    ClassDatabase.Execute_non_Query(Sql, True)
-                End If
-                ClassWindowLocation.SaveFormLocationSize(Me)
-            Catch ex As Exception
-                MsgBox("Unexpected Error in Closing Application: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
-            End Try
-            If USER_ID > 0 Then
-                Unregister_Hotkeys()
             End If
-            'TempDateien löschen
+            ClassWindowLocation.SaveFormLocationSize(Me)
-            Try
+        Catch ex As Exception
-                For Each _file In TEMP_FILES
+            MsgBox("Unexpected Error in Closing Application: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
-                    System.IO.File.Delete(_file)
+        End Try
-                Next
-            Catch ex As Exception
 
+        EMAIL.Clear_TempFiles()
+
+        'TempDateien löschen
+        For Each oFile In TEMP_FILES
+            Try
+                System.IO.File.Delete(oFile)
+            Catch ex As Exception
+                LOGGER.Error(ex)
             End Try
-        End If
+        Next
+
+        Try
+            IndexForm.DisposeViewer()
+            IndexForm.Dispose()
+        Catch ex As Exception
+            LOGGER.Error(ex)
+        End Try
     End Sub
 
     Public Sub New()
@@ -338,28 +285,14 @@ Public Class frmStart
     End Sub
 
     Private Sub frmStart_Load(sender As Object, e As EventArgs) Handles Me.Load
-        If My.Settings.AppTerminate = True Then
-            Exit Sub
-        End If
-        'Me.TransparencyKey = Color.Transparent
-        ' Me.BackColor = Color.Transparent
         Cursor = Cursors.WaitCursor
-        ' My.Application.ChangeUICulture("en")
-        'My.Application.ChangeCulture("en")
-        Dim i = My.Application.UICulture.ToString()
-
         Try
-
+            IndexForm = New frmIndex()
-
-            'Dim sql = sql_UserID
-
-            'Dim splash As New frmSplash()
-            'splash.ShowDialog()
 
             'Lizenz abgellaufen, überprüfen ob User Admin ist
-            If LICENSE_COUNT < UserLoggedin Then
+            If LICENSE_COUNT < USERCOUNT_LOGGED_IN Then
                 If USER_IS_ADMIN = True Then
-                    ClassLogger.Add(">> User is Admin - Timer will be started", False)
+                    LOGGER.Info(">> User is Admin - Timer will be started")
                     If USER_LANGUAGE = "de-DE" Then
                         MsgBox("Sie haben nun 3 Minuten Zeit eine neue Lizenz zu vergeben!", MsgBoxStyle.Information)
                     Else
@@ -374,7 +307,7 @@ Public Class frmStart
             End If
             If DOCTYPE_COUNT_ACTUAL > LICENSE_DOCTYPE_COUNT Then
                 If USER_IS_ADMIN = True Then
-                    ClassLogger.Add(">> User is Admin - Timer will be started", False)
+                    LOGGER.Info(">> User is Admin - Timer will be started")
                     If USER_LANGUAGE = "de-DE" Then
                         MsgBox("Sie haben nun 3 Minuten Zeit eine neue Lizenz zu vergeben!", MsgBoxStyle.Information)
                     Else
@@ -396,9 +329,8 @@ Public Class frmStart
                 AdministrationToolStripMenuItem.Visible = False
             End If
             ClassDatabase.Execute_non_Query("DELETE FROM TBGI_FILES_USER WHERE UPPER(USER@WORK) = UPPER('" & Environment.UserName & "')", True)
-            Unregister_Hotkeys()
+
-            Load_Hotkeys()
+            TopMost = True
-            Me.Opacity = 30
 
         Catch ex As Exception
             MsgBox("Unexpected Error in Load-Form" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
@@ -424,74 +356,73 @@ Public Class frmStart
 
             Try
                 If CONFIG.Config.FolderWatchScanStarted = True Then
-                    If LogErrorsOnly = False Then ClassLogger.Add(">> FWSCAN started - Checking file:" & CURRENT_SCAN_FOLDERWATCH, False)
+                    LOGGER.Info(">> FWSCAN started - Checking file:" & CURRENT_SCAN_FOLDERWATCH)
                     Dim fileEntries As String() = Directory.GetFiles(CURRENT_SCAN_FOLDERWATCH)
                     ' Process the list of files found in the directory.
-                    Dim fileName As String
+                    Dim oFileName As String
-                    For Each fileName In fileEntries
+                    For Each oFileName In fileEntries
-                        If LogErrorsOnly = False Then ClassLogger.Add(">> Scanfolder after startup: Checking file:" & fileName, False)
+                        LOGGER.Info(">> Scanfolder after startup: Checking file:" & oFileName)
                         For Each row As DataRow In DTEXCLUDE_FILES.Rows
                             Dim content As String = row.Item(0).ToString.ToLower
-                            If fileName.ToLower.Contains(content) Then
+                            If oFileName.ToLower.Contains(content) Then
                                 Exit Sub
                             End If
                         Next
-                        Dim handleType As String
+                        Dim oHandleType As String
-                        If fileName.ToLower.EndsWith(".msg") Then
+                        If oFileName.ToLower.EndsWith(".msg") Then
-                            handleType = "|FW_OUTLOOK_MESSAGE|"
+                            oHandleType = "|FW_OUTLOOK_MESSAGE|"
                         Else
-                            handleType = "|FW_SIMPLEINDEXER|"
+                            oHandleType = "|FW_SIMPLEINDEXER|"
                         End If
                         'Die Datei übergeben
-                        If LogErrorsOnly = False Then ClassLogger.Add(">> Adding file from Scanfolder after startup:" & fileName, False)
+                        LOGGER.Info(">> Adding file from Scanfolder after startup:" & oFileName)
-                        If ClassIndexFunctions.FileExistsinDropTable(fileName) = False Then
+
-                            ClassFilehandle.Decide_FileHandle(fileName, handleType)
+                        If ClassIndexFunctions.CheckDuplicateFiles(oFileName, "FolderWatch/Scan") Then
-                        Else
+                            ClassFilehandle.Decide_FileHandle(oFileName, oHandleType)
-                            ClassLogger.Add(">> Scanfolder Startup: File already exists:" & fileName, False)
                         End If
-                    Next fileName
+                    Next oFileName
 
                 Else
-                    If LogErrorsOnly = False Then ClassLogger.Add(">> FWSCAN not started", False)
+                    LOGGER.Info(">> FWSCAN not started")
                 End If
             Catch ex As Exception
-                ClassLogger.Add(">> Error while starting folderwatch scan: " & ex.Message, False)
+                LOGGER.Info(">> Error while starting folderwatch scan: " & ex.Message)
+                LOGGER.Error(ex)
             End Try
 
             Try
                 If FW_started = True Then
-                    If LogErrorsOnly = False Then ClassLogger.Add(">> FW_started started - Checking file:" & CURRENT_FOLDERWATCH, False)
+                    LOGGER.Info(">> FW_started started - Checking file:" & CURRENT_FOLDERWATCH)
                     Dim fileEntries As String() = Directory.GetFiles(CURRENT_FOLDERWATCH)
                     ' Process the list of files found in the directory.
-                    Dim fileName As String
+                    Dim oFileName As String
-                    For Each fileName In fileEntries
+                    For Each oFileName In fileEntries
-                        If LogErrorsOnly = False Then ClassLogger.Add(">> Folderwach after startup: Checking file:" & fileName, False)
+                        LOGGER.Info(">> Folderwach after startup: Checking file:" & oFileName)
                         For Each row As DataRow In DTEXCLUDE_FILES.Rows
                             Dim content As String = row.Item(0).ToString.ToLower
-                            If fileName.ToLower.Contains(content) Then
+                            If oFileName.ToLower.Contains(content) Then
                                 Exit Sub
                             End If
                         Next
                         Dim handleType As String
-                        If fileName.ToLower.EndsWith(".msg") Then
+                        If oFileName.ToLower.EndsWith(".msg") Then
                             handleType = "|FW_OUTLOOK_MESSAGE|"
                         Else
                             handleType = "|FW_SIMPLEINDEXER|"
                         End If
                         'Die Datei übergeben
-                        If LogErrorsOnly = False Then ClassLogger.Add(">> Adding file from Folderwatch after startup:" & fileName, False)
+                        LOGGER.Info(">> Adding file from Folderwatch after startup:" & oFileName)
-                        If ClassIndexFunctions.FileExistsinDropTable(fileName) = False Then
-                            ClassFilehandle.Decide_FileHandle(fileName, handleType)
-                        Else
-                            ClassLogger.Add(">> Folderwatch Startup: File already exists:" & fileName, False)
-                        End If
-                    Next fileName
 
+                        If ClassIndexFunctions.CheckDuplicateFiles(oFileName, "FolderWatch/Scan") Then
+                            ClassFilehandle.Decide_FileHandle(oFileName, handleType)
+                        End If
+                    Next oFileName
                 Else
-                    If LogErrorsOnly = False Then ClassLogger.Add(">> FW_started not started", False)
+                    LOGGER.Info(">> FW_started not started")
                 End If
             Catch ex As Exception
-                ClassLogger.Add(">> Error while starting folderwatch: " & ex.Message, False)
+                LOGGER.Info(">> Error while starting folderwatch: " & ex.Message)
+                LOGGER.Error(ex)
             End Try
 
             If TimerFolderWatch.Enabled = False Then
@@ -500,81 +431,16 @@ Public Class frmStart
         End If
 
     End Sub
-    Sub Unregister_Hotkeys()
+
+    Private Sub GlobalIndexerEinstellungenToolStripMenuItem_Click(sender As Object, e As EventArgs)
         Try
-            Dim sql As String = "Select * from TBHOTKEYTEMP_USER_HOTKEYS where [USER_ID] = " & USER_ID
-            Dim DT As DataTable = ClassDatabase.Return_Datatable(sql, True)
-            If Not IsNothing(DT) Then
-                For Each row As DataRow In DT.Rows
-                    HotKey.RemoveHotKey(row.Item("HOTKEY_ID"))
-                Next
-                sql = "delete from TBHOTKEYTEMP_USER_HOTKEYS where [USER_ID] = " & USER_ID
-                ClassDatabase.Execute_non_Query(sql, True)
-            End If
-
-        Catch ex As Exception
-            MsgBox("Error in Unregister_Hotkeys:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
-        End Try
-    End Sub
-    Sub Load_Hotkeys()
-        Try
-            Dim DT As DataTable = ClassDatabase.Return_Datatable("SELECT HOTKEY1, HOTKEY2, ABS(CONVERT(INT, CONVERT(binary(4), NEWID()))) AS HOTKEY_ID FROM  TBHOTKEY_USER_PROFILE WHERE USER_ID = " & USER_ID & " GROUP BY HOTKEY1, HOTKEY2", True)
-            If DT.Rows.Count > 0 Then
-                If LogErrorsOnly = False Then ClassLogger.Add(" >> " & DT.Rows.Count & " Hotkey-Profile", False)
-                Dim i As Integer = 0
-                For Each row As DataRow In DT.Rows
-                    i += 1
-                    Dim sql As String = "INSERT INTO TBHOTKEYTEMP_USER_HOTKEYS (HOTKEY_ID,HOTKEY1,HOTKEY2,[USER_ID]) VALUES (" & row.Item("HOTKEY_ID") & ", '" & row.Item("HOTKEY1") & "', '" & row.Item("HOTKEY2") & "', " & USER_ID & ")"
-                    ClassDatabase.Execute_non_Query(sql, True)
-
-                    Dim keyCode As Keys
-                    Try
-                        Dim kc As New KeysConverter
-                        Dim obj As Object = kc.ConvertFromString(row.Item("HOTKEY2").ToString.ToUpper)
-                        keyCode = CType(obj, Keys)
-                    Catch ex As Exception
-                        MsgBox("Error in Convert Key:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
-                        Exit Sub
-                    End Try
-
-                    Select Case row.Item("HOTKEY1")
-                        Case "Strg"
-                            If LogErrorsOnly = False Then ClassLogger.Add(" >>" & i.ToString + "|Strg " & row.Item("HOTKEY2").ToString.ToUpper, False)
-                            HotKey.AddHotKey(keyCode, clsHotkey.MODKEY.MOD_CONTROL, row.Item("HOTKEY_ID"))
-                        Case "Shift"
-                            If LogErrorsOnly = False Then ClassLogger.Add(" >>" & i.ToString + "|Shift " & row.Item("HOTKEY2").ToString.ToUpper, False)
-                            HotKey.AddHotKey(keyCode, clsHotkey.MODKEY.MOD_SHIFT, row.Item("HOTKEY_ID"))
-                        Case "Alt"
-                            If LogErrorsOnly = False Then ClassLogger.Add(" >>" & i.ToString + "|Alt " & row.Item("HOTKEY2").ToString.ToUpper, False)
-                            HotKey.AddHotKey(keyCode, clsHotkey.MODKEY.MOD_ALT, row.Item("HOTKEY_ID"))
-                        Case "win"
-                            If LogErrorsOnly = False Then ClassLogger.Add(" >>" & i.ToString + "|Win " & row.Item("HOTKEY2").ToString.ToUpper, False)
-                            HotKey.AddHotKey(keyCode, clsHotkey.MODKEY.MOD_WIN, row.Item("HOTKEY_ID"))
-                    End Select
-                Next
-            Else
-                If LogErrorsOnly = False Then ClassLogger.Add(" >> Keine Hotkeys!", False)
-            End If
-        Catch ex As Exception
-            MsgBox("Error in Load_Hotkeys:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
-        End Try
-    End Sub
-    Private Sub HotkeyEisntellungenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles HotkeyEisntellungenToolStripMenuItem.Click
-        If ClassLicence.license_is_Valid = True Then
             Me.Hide()
-            Unregister_Hotkeys()
+            frmAdministration.ShowDialog()
-            frmHotKey_Add.ShowDialog()
+            Me.Show()
-            Load_Hotkeys()
+        Catch ex As Exception
-            Me.Visible = True
+            MsgBox("Fehler in der Administration:" & vbCrLf & vbCrLf & ex.Message, MsgBoxStyle.Critical, Text)
-        End If
+            LOGGER.Error(ex)
-
+        End Try
-
-    End Sub
-
-    Private Sub GlobalIndexerEinstellungenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles GlobalIndexerEinstellungenToolStripMenuItem.Click
-        Me.Hide()
-        frmAdministration.ShowDialog()
-        Me.Visible = True
     End Sub
 
     Private Sub GrundeinstellungenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles GrundeinstellungenToolStripMenuItem.Click
@@ -582,36 +448,21 @@ Public Class frmStart
         frmConfig_Basic.ShowDialog()
         'Wurde die Sprache in der Konfiguration geändert
         If LANGUAGE_CHANGED = True Then
-            If USER_LANGUAGE = "de-DE" Then
+            Try
-                MsgBox("Zur letzendlichen Neukonfiguration der Sprache ist ein Neustart notwendig!", MsgBoxStyle.Information)
+                If USER_LANGUAGE = "de-DE" Then
-            Else
+                    MsgBox("Zur letzendlichen Neukonfiguration der Sprache ist ein Neustart notwendig!", MsgBoxStyle.Information, Text)
-                MsgBox("For the final changing of language, a restart is required!", MsgBoxStyle.Information)
+                Else
-            End If
+                    MsgBox("For the final changing of language, a restart is required!", MsgBoxStyle.Information, Text)
-            Application.Restart()
+                End If
-            ''Sprache anpassen
+                Application.Restart()
-            'SetLanguage()
+            Catch ex As Exception
-            'LANGUAGE_CHANGED = False
+                LOGGER.Error(ex)
-            'If USER_IS_ADMIN = True Then
+                MsgBox("Please restart the application manually.", MsgBoxStyle.Information, Text)
-            '    ToolStripSeparator1.Visible = True
+            End Try
-            '    AdministrationToolStripMenuItem.Visible = True
+        Else
-            'Else
+            Start_Folderwatch()
-            '    ToolStripSeparator1.Visible = False
+            Me.TopMost = True
-            '    AdministrationToolStripMenuItem.Visible = False
-            'End If
         End If
-        Start_Folderwatch()
-        Me.TopMost = True
-    End Sub
-
-    Private Sub FrmHotkeyAddToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles FrmHotkeyAddToolStripMenuItem.Click
-        If ClassLicence.license_is_Valid = True Then
-            Me.Hide()
-            Unregister_Hotkeys()
-            frmHotkey_User.ShowDialog()
-            Load_Hotkeys()
-            Me.Visible = True
-        End If
-
     End Sub
 
     Private Sub TimerFolderWatch_Tick(sender As Object, e As EventArgs) Handles TimerFolderWatch.Tick
@@ -656,22 +507,24 @@ Public Class frmStart
                                 Exit For
                             End If
                             Dim FileForWork As String = row.Item(1)
-                            If LogErrorsOnly = False Then ClassLogger.Add(">> In Timer Folderwatch - File: " & FileForWork, False)
+                            LOGGER.Info(">> In Timer Folderwatch - File: " & FileForWork)
                             Dim fileInUse As Boolean = ClassFilehandle.IsFileInUse(FileForWork)
                             Dim fileexists As Boolean = System.IO.File.Exists(FileForWork)
                             If fileInUse = False Then
                                 If fileexists = True Then
-                                    CURRENT_WORKFILE = FileForWork
                                     CURRENT_FILENAME = FileForWork
+                                    CURRENT_WORKFILE = FileForWork
                                     CURRENT_WORKFILE_GUID = row.Item("GUID")
+                                    CURRENT_WORKFILE_HASH = row.Item("FILE_HASH")
+
                                     Open_IndexDialog()
                                 Else
-                                    ClassLogger.Add(">> File not existing - Row will be deleted!", False)
+                                    LOGGER.Info(">> File not existing - Row will be deleted!")
                                     Dim del = String.Format("DELETE FROM TBGI_FILES_USER WHERE GUID = {0}", FILEGUID)
                                     ClassDatabase.Execute_non_Query(del)
                                 End If
                             Else
-                                ClassLogger.Add(">> file '" & row.Item(1) & "' could not be opened exclusively - fileInUse!", False)
+                                LOGGER.Info(">> file '" & row.Item(1) & "' could not be opened exclusively - fileInUse!")
                             End If
 
                         Next
@@ -690,11 +543,9 @@ Public Class frmStart
 
             End Try
         End If
-
-
     End Sub
     Private Sub TimerClose3Minutes_Tick(sender As Object, e As EventArgs) Handles TimerClose3Minutes.Tick
-        If LICENSE_EXPIRED = True Or LICENSE_COUNT < UserLoggedin Then
+        If LICENSE_EXPIRED = True Or LICENSE_COUNT < USERCOUNT_LOGGED_IN Then
             If USER_LANGUAGE = "de-DE" Then
                 MsgBox("Global Indexer wird nun geschlossen, weil keine neue Lizenzdaten eingegeben wurden!", MsgBoxStyle.Information)
             Else
@@ -707,9 +558,6 @@ Public Class frmStart
         End If
     End Sub
     Private Sub frmStart_Shown(sender As Object, e As EventArgs) Handles Me.Shown
-        If My.Settings.AppTerminate = True Then
-            Me.Close()
-        End If
         ' SetLanguage()
         If START_INCOMPLETE = True Then
             If LICENSE_COUNT = 0 And LICENSE_EXPIRED = True Then
@@ -721,19 +569,19 @@ Public Class frmStart
             TimerFolderWatch.Start()
         End If
         loaded = True
-        Opacity = 0.6
+        Opacity = 0.7
 
         ClassHelper.Refresh_RegexTable()
 
         Start_Folderwatch()
-        ClassWindowLocation.LoadFormLocationSize(Me)
+        ClassWindowLocation.LoadFormLocationSize(Me, LoadSize:=False)
         Try
             Me.LabelControl1.Location = New Point(13, 37)
         Catch ex As Exception
             Me.btnChoosefiles.Location = New Point(269, 37)
         End Try
-
     End Sub
+
     Private Sub HistoryIndexierteDateienToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles HistoryIndexierteDateienToolStripMenuItem.Click
         frmHistory.ShowDialog()
     End Sub
@@ -744,10 +592,6 @@ Public Class frmStart
         Me.TopMost = True
     End Sub
 
-    Private Sub frmStart_SizeChanged(sender As Object, e As EventArgs) Handles Me.SizeChanged
-
-    End Sub
-
     Private Sub TimerCheckDroppedFiles_Tick(sender As Object, e As EventArgs) Handles TimerCheckDroppedFiles.Tick
         TimerCheckDroppedFiles.Stop()
         Check_Dropped_Files()
@@ -762,23 +606,19 @@ Public Class frmStart
 
     Private Sub btnChoosefiles_Click(sender As Object, e As EventArgs) Handles btnChoosefiles.Click
         Try
-            Dim openFileDialog1 As New OpenFileDialog
+            Dim oFileName As String
-            Dim fName As String
+            Dim oOpenFileDialog As New OpenFileDialog With {
-            'openFileDialog1.InitialDirectory = "c:\"
+                .RestoreDirectory = True,
-            'openFileDialog1.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*"
+                .Multiselect = True
-            'openFileDialog1.FilterIndex = 2
+            }
 
-            openFileDialog1.RestoreDirectory = True
+            If oOpenFileDialog.ShowDialog() = DialogResult.OK Then
-
-            openFileDialog1.Multiselect = True
-
-            If openFileDialog1.ShowDialog() = DialogResult.OK Then
                 Dim i As Integer = 0
-                ClassDragDrop.files_dropped = Nothing
+                ClassFileDrop.files_dropped = Nothing
-                For Each fName In openFileDialog1.FileNames
+                For Each oFileName In oOpenFileDialog.FileNames
-                    ReDim Preserve ClassDragDrop.files_dropped(i)
+                    ReDim Preserve ClassFileDrop.files_dropped(i)
-                    ClassLogger.Add(">> Chosen File: " & fName, False)
+                    LOGGER.Info(">> Chosen File: " & oFileName)
-                    ClassDragDrop.files_dropped(i) = "|DROPFROMFSYSTEM|" & fName
+                    ClassFileDrop.files_dropped(i) = "|DROPFROMFSYSTEM|" & oFileName
                     i += 1
                 Next
                 TimerCheckDroppedFiles.Start()
@@ -786,7 +626,24 @@ Public Class frmStart
         Catch ex As Exception
             MsgBox("Unexpected Error in Choose Files for Indexing:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
         End Try
-
     End Sub
 
+    Private Sub frmStart_KeyUp(sender As Object, e As KeyEventArgs) Handles Me.KeyUp
+        If e.KeyCode = Keys.F12 Then
+            If START_INCOMPLETE Then
+                frmLicense.ShowDialog()
+            End If
+        End If
+    End Sub
+
+    Private Sub AdministrationToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AdministrationToolStripMenuItem.Click
+        Try
+            Me.Hide()
+            frmAdministration.ShowDialog()
+            Me.Show()
+        Catch ex As Exception
+            MsgBox("Fehler in der Administration:" & vbCrLf & vbCrLf & ex.Message, MsgBoxStyle.Critical, Text)
+            LOGGER.Error(ex)
+        End Try
+    End Sub
 End Class

Global_Indexer/frmTestvb.Designer.vb

@@ -1,29 +0,0 @@
-<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
-Partial Class frmTestvb
-    Inherits System.Windows.Forms.Form
-
-    'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
-    <System.Diagnostics.DebuggerNonUserCode()> _
-    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
-        Try
-            If disposing AndAlso components IsNot Nothing Then
-                components.Dispose()
-            End If
-        Finally
-            MyBase.Dispose(disposing)
-        End Try
-    End Sub
-
-    'Wird vom Windows Form-Designer benötigt.
-    Private components As System.ComponentModel.IContainer
-
-    'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
-    'Das Bearbeiten ist mit dem Windows Form-Designer möglich.  
-    'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
-    <System.Diagnostics.DebuggerStepThrough()> _
-    Private Sub InitializeComponent()
-        components = New System.ComponentModel.Container
-        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.Text = "frmTestvb"
-    End Sub
-End Class