Version 2.3.0.1

Global_Indexer/ClassConfig.vb

@@ -14,6 +14,7 @@ Public Class ClassConfig
     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 LogErrorsOnly As Boolean = True

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
@@ -49,7 +50,7 @@ Public Class ClassControls
             Return chk
         Catch ex As Exception
             LOGGER.Info("Unhandled Exception in AddCheckBox: " & ex.Message)
-            LOGGER.Error(ex.message)
+            LOGGER.Error(ex.Message)
             Return Nothing
         End Try
     End Function
@@ -58,7 +59,7 @@ 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
             Dim oSql As String = sql_Vorschlag
             Dim oConnectionString As String
@@ -74,12 +75,22 @@ Public Class ClassControls
                     .IndexType = DataType
                 }
             }
+            oControl.Properties.AppearanceFocused.BackColor = Color.Lime
 
             If Not String.IsNullOrEmpty(Vorgabe) Then
-                Dim oDefaultValues = Vorgabe.
-                    Split(",").ToList().
-                    Select(Function(item) item.Trim()).
-                    ToList()
+                Dim oDefaultValues As New List(Of String)
+
+                If Vorgabe.Contains(",") Then
+                    oDefaultValues = Vorgabe.
+                        Split(",").ToList().
+                        Select(Function(item) item.Trim()).
+                        ToList()
+                Else
+                    oDefaultValues = Vorgabe.
+                        Split(ClassConstants.VECTORSEPARATOR).ToList().
+                        Select(Function(item) item.Trim()).
+                        ToList()
+                End If
                 oControl.SelectedValues = oDefaultValues
             End If
 
@@ -87,12 +98,15 @@ Public Class ClassControls
 
             oConnectionString = ClassFormFunctions.GetConnectionString(conid)
 
-            If oConnectionString IsNot Nothing Then
+            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
@@ -103,7 +117,7 @@ Public Class ClassControls
             Return oControl
         Catch ex As Exception
             LOGGER.Info(" - Unvorhergesehener Unexpected error in AddVorschlag_ComboBox - Indexname: " & indexname & " - Fehler: " & vbNewLine & ex.Message)
-            LOGGER.Error(ex.message)
+            LOGGER.Error(ex.Message)
             MsgBox(ex.Message, MsgBoxStyle.Critical, "Unvorhergesehener Unexpected error in AddVorschlag_ComboBox:")
             Return Nothing
         End Try
@@ -281,54 +295,62 @@ Public Class ClassControls
             End If
         Catch ex As Exception
             LOGGER.Info(" - Unvorhergesehener Unexpected error in Renew_ComboboxResults - Fehler: " & vbNewLine & ex.Message)
-            LOGGER.Error(ex.message)
+            LOGGER.Error(ex.Message)
             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
-        Dim txt As New TextBox With {
+    Public Function AddTextBox(indexname As String, y As Integer, text As String, DataType As String) As DevExpress.XtraEditors.TextEdit
+        Dim oEdit As New DevExpress.XtraEditors.TextEdit With {
             .Name = "txt" & indexname,
             .Size = New Size(260, 27),
             .Location = New Point(11, y),
-            .Tag = New ControlMeta() With {
+             .Tag = New ControlMeta() With {
                 .IndexName = indexname,
                 .IndexType = DataType
             }
         }
 
-        If text <> "" Then
-            txt.Text = text
-            txt.Size = New Size(CInt(text.Length * 15), 27)
-            txt.SelectAll()
+        Select Case DataType
+            Case "INTEGER"
+                oEdit.Properties.Mask.MaskType = DevExpress.XtraEditors.Mask.MaskType.Numeric
+                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 txt.KeyUp, AddressOf OnTextBoxKeyUp
-        AddHandler txt.TextChanged, AddressOf OnTextBoxTextChanged
-        Return txt
+
+        AddHandler oEdit.GotFocus, AddressOf OnTextBoxFocus
+        AddHandler oEdit.LostFocus, AddressOf OnTextBoxLostFocus
+        AddHandler oEdit.KeyUp, AddressOf OnTextBoxKeyUp
+        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.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
@@ -344,11 +366,10 @@ Public Class ClassControls
     End Sub
 
 
-    Public Function AddDateTimePicker(indexname As String, y As Integer, DataType As String)
-        Dim dtp As New DateTimePicker With {
+    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,
-            .Format = DateTimePickerFormat.Short,
-            .Size = New Size(133, 27),
+            .Size = New Size(260, 27),
             .Location = New Point(11, y),
             .Tag = New ControlMeta() With {
                 .IndexName = indexname,
@@ -356,9 +377,15 @@ Public Class ClassControls
             }
         }
 
-        AddHandler dtp.ValueChanged, AddressOf OndtpChanged
+        If Vorgabe.ToUpper = "$NULL" Then
+            oPicker.EditValue = Nothing
+        ElseIf Vorgabe IsNot Nothing Then
+            oPicker.EditValue = Vorgabe
+        End If
 
-        Return dtp
+        oPicker.Properties.AppearanceFocused.BackColor = Color.Lime
+
+        Return oPicker
     End Function
     Sub OndtpChanged()
         'offen was hier zu tun ist
@@ -388,11 +415,10 @@ 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)
@@ -436,24 +462,27 @@ Public Class ClassControls
                 LOGGER.Warn("Error in SQL Command: {0}", SqlCommand)
             End If
 
-            If TypeOf oFoundControl Is TextBox Then
-                If oDatatable.Rows.Count > 0 Then
-                    Dim oFirstRow As DataRow = oDatatable.Rows.Item(0)
+            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()
+                        If oFirstRow.ItemArray.Length > 0 Then
+                            Dim oValue = oFirstRow.Item(0).ToString()
 
-                        LOGGER.Debug("Setting Value for control [{0}]: [{1}]", oFoundControl.Name, oValue)
-                        DirectCast(oFoundControl, TextBox).Text = oValue
+                            LOGGER.Debug("Setting Value for TextEdit [{0}]: [{1}]", oFoundControl.Name, oValue)
+                            DirectCast(oFoundControl, DevExpress.XtraEditors.TextEdit).Text = oValue
+                        End If
                     End If
-                End If
-            ElseIf TypeOf oFoundControl Is LookupControl2 Then
-                LOGGER.Debug("Setting Value for control [{0}]: [{1}]", oFoundControl.Name, "DATATABLE")
-                DirectCast(oFoundControl, LookupControl2).DataSource = oDatatable
-            ElseIf TypeOf oFoundControl Is ComboBox Then
-                LOGGER.Debug("Setting Value for control [{0}]: [{1}]", oFoundControl.Name, "DATATABLE")
-                DirectCast(oFoundControl, ComboBox).DataSource = oDatatable
-            End If
+                Case GetType(LookupControl2).Name
+                    LOGGER.Debug("Setting Value for LookupControl [{0}]: [{1}]", oFoundControl.Name, "DATATABLE")
+                    DirectCast(oFoundControl, LookupControl2).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

@@ -18,7 +18,7 @@ Public Class ClassDatabase
             Return True
         Catch ex As Exception
             LOGGER.Info("Unexpected error in Database-Init: " & ex.Message)
-            LOGGER.Error(ex.Message)
+            LOGGER.Error(ex)
             Return False
         End Try
     End Function
@@ -95,7 +95,7 @@ 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
-                LOGGER.Info("Unexpected error in Return_Datatable: " & ex.Message)
+                LOGGER.Error(ex)
                 LOGGER.Info("#SQL: " & sql_command)
             End If
 
@@ -104,7 +104,7 @@ 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
-            LOGGER.Info("Unexpected error in Return_Datatable: " & ex.Message)
+            LOGGER.Error(ex)
             LOGGER.Info("#SQL: " & sql_command)
             Return Nothing
         End Try
@@ -134,7 +134,7 @@ 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
-                LOGGER.Info("Unexpected error in Return_Datatable_CS: " & ex.Message)
+                LOGGER.Error(ex)
                 LOGGER.Info("#SQL: " & sql_command)
             End If
 
@@ -143,7 +143,7 @@ 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
-            LOGGER.Info("Unexpected error in Return_Datatable_CS: " & ex.Message)
+            LOGGER.Error(ex)
             LOGGER.Info("#SQL: " & sql_command)
             Return Nothing
         End Try
@@ -172,7 +172,7 @@ 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
-                LOGGER.Info("Unexpected error in Execute_non_Query: " & ex.Message)
+                LOGGER.Error(ex)
                 LOGGER.Info("#SQL: " & sql_command)
             End If
 
@@ -181,12 +181,38 @@ 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
-            LOGGER.Info("Unexpected error in Execute_non_Query: " & ex.Message)
+            LOGGER.Error(ex)
             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
+    End Function
     Public Shared Function Execute_Scalar(sql_command As String, ConString As String, Optional userInput As Boolean = False)
         Dim result
         Try
@@ -212,7 +238,7 @@ 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
-                LOGGER.Info("Unexpected error in Execute_non_Query: " & ex.Message)
+                LOGGER.Error(ex)
                 LOGGER.Info("#SQL: " & sql_command)
             End If
 
@@ -221,7 +247,7 @@ 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
-            LOGGER.Info("Unexpected error in Execute_Scalar: " & ex.Message)
+            LOGGER.Error(ex)
             LOGGER.Info("#SQL: " & sql_command)
             Return Nothing
         End Try
@@ -264,7 +290,7 @@ 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
-            LOGGER.Info("Unexpected error in OracleExecute_non_Query: " & ex.Message)
+            LOGGER.Error(ex)
             LOGGER.Info("#SQL: " & ExecuteCMD)
 
             Return False
@@ -289,7 +315,7 @@ 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
-            LOGGER.Info("Unexpected error in Oracle_Return_Datatable: " & ex.Message)
+            LOGGER.Error(ex)
             LOGGER.Info("#SQL: " & Select_anweisung)
             Return Nothing
         End Try

Global_Indexer/ClassFilehandle.vb

@@ -25,9 +25,9 @@ Public Class ClassFilehandle
                     Dim result As MsgBoxResult
 
                     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)
+                        result = MessageBox.Show(New Form With {.TopMost = True}, "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)
                     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)
+                        result = MessageBox.Show(New Form With {.TopMost = True}, "Attention: This Email contains Attachments!" & vbNewLine & "Do you want to extract the attachments and index them seperately?", "Question about Indexing:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
                     End If
 
                     If result = MsgBoxResult.Yes Then
@@ -39,6 +39,16 @@ Public Class ClassFilehandle
                     End If
                 End If
             End If
+
+            If filename.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(filename, handletype)
         Catch ex As Exception
             MsgBox("Unexpected Error in Decide_FileHandle: " & ex.Message, MsgBoxStyle.Critical)
@@ -94,7 +104,20 @@ Public Class ClassFilehandle
                     Else
                         attachment_name = attachment.LongFileName
                     End If
-                    If Not attachment_name.Contains("inline") Then
+                    If attachment.EmbeddedMessage IsNot Nothing Then
+                        attachment_name = ClassFilehandle.InvalidCharacters(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.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 = ClassFilehandle.InvalidCharacters(attachment_name)
                         tempfile = Path.Combine(Path.GetTempPath, attachment_name)

Global_Indexer/ClassHotkey_Windream.vb

@@ -1,341 +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()
-                LOGGER.Info(" ... top-window Name: " & top.MainWindowTitle)
-                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
-                                    LOGGER.Info(" ... Control-Sequence: " & myControlNo.ToString & " entspricht nicht dem Matchvalue.")
-                                    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)
-            LOGGER.Info(">> Error in IsRelevantWindow:" & ex.Message)
-            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
-                                LOGGER.Info(" ... Control-Sequence: " & myControlID.ToString & " - Gelesener Wert: " & vControl.MainWindowTitle)
-                                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)
-            LOGGER.Info(">> Error in Get_windowContent:" & ex.Message)
-            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
-            LOGGER.Info(" ...RUN_WD_SEARCH with HK_USR_PROFILE_ID '" & HK_USR_PROFILE_ID & "'")
-            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
-                LOGGER.Info(" ...KEINE USER_PROFILES hinterlegt")
-                Return "Uncexpected Error in Hotkey - Check Log for Hotkey"
-            End If
-            If DTWD.Rows.Count > 1 Then
-                LOGGER.Info("Das Ergebnis von '" & _sql & "' liefert mehr als eine Zeile zurück!")
-                Return "Uncexpected Error in Hotkey - Check Log for Hotkey"
-            End If
-            If DTWD.Rows(0).Item(0) = "" Then
-                LOGGER.Info(">> KEINE Windream-Suche hinterlegt!")
-                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
-                LOGGER.Info("Die Windream-Suche existiert nicht oder ist nicht zugreifbar!")
-
-                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
-                LOGGER.Info(" ...Unicode is used (Encoding.GetEncoding(1252))")
-            Else
-                LOGGER.Info(" ...UTF8 (Encoding.GetEncoding(65001))")
-                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
-                        LOGGER.Info(" ...Not the relevant window")
-                        Return "Not the Relevant window......"
-                    End If
-                Next
-            End If
-
-
-            LOGGER.Info(" ...ReadAlltext: " & BaseSearch)
-            fileContents = My.Computer.FileSystem.ReadAllText(BaseSearch, EncodingFormat) ', System.Text.Encoding.Unicode
-            LOGGER.Info(" ...fileContents geladen")
-            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
-                        LOGGER.Info(" ...Get Value for Control# '" & row.Item("SEQUENCE_NUMBER").ToString & "'")
-                        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
-                                LOGGER.Info(">> Hot Key received an irregular value.")
-                                Return "Hotkey konnte nur einen irregulären Wert auswerten."
-                            End If
-                            LOGGER.Info(" ...fileContents.length: " & fileContents.Length)
-                            LOGGER.Info(" ...Replace pattern '" & row.Item(2).ToString & "' with '" & foundresult & "'")
-                            fileContents = fileContents.Replace(row.Item(2).ToString, foundresult)
-                            LOGGER.Info(" ...fileContents.length: " & fileContents.Length)
-                        Else
-                            LOGGER.Info(">> Hot Key could not read any value.")
-                            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)
-                    LOGGER.Info(" ...wrote Text to windream_temp_search: " & windream_temp_search)
-                    ' 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)
-                    LOGGER.Info(" ...Xml Generiert: " & windream_temp_search)
-                Catch ex As Exception
-                    LOGGER.Info("TempFile could not be created: " & ex.Message)
-                    LOGGER.Error(ex.Message)
-                    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 CONFIG.Config.WindreamSearchMaximized 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
-                        LOGGER.Info(" ...Top-Position: " & rctMain.Top.ToString)
-                        LOGGER.Info(" ...Left-Position: " & rctMain.Left.ToString)
-                        LOGGER.Info(" ...Right-Position: " & rctMain.Right.ToString)
-                        LOGGER.Info(" ...Bottom-Position: " & rctMain.Bottom.ToString)
-                    End If
-                Catch ex As Exception
-                    MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error while executing windream-Search:")
-                    LOGGER.Info("Unexpected error while executing search: " & ex.Message)
-                    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 CONFIG.Config.WindreamSearchMaximized = 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
-                    LOGGER.Info("Unexpected error while Setting foreground: " & ex.Message)
-                    LOGGER.Error(ex.Message)
-                End Try
-                Return ""
-            Catch ex As Exception
-                LOGGER.Info("Unexpected error in Create Search: " & ex.Message)
-                LOGGER.Error(ex.Message)
-                MsgBox("Error in Create Search:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
-                Return "Unexpected error in Create Search"
-            End Try
-
-        Catch ex As Exception
-            LOGGER.Info("Unexpected error in RUN_WD_SEARCH: " & ex.Message)
-            LOGGER.Error(ex.message)
-            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/ClassInit.vb

@@ -2,15 +2,16 @@
 Imports DLLLicenseManager
 Imports DigitalData.Modules.Logging
 Imports DigitalData.Modules.Config
+Imports DigitalData.Modules.Windream
 
 Public Class ClassInit
     Public _lizenzManager As ClassLicenseManager
-    Public Sub New()
-    End Sub
 
     Public Sub InitLogger()
         ClassLogger.Init("", Environment.UserName)
-        LOGCONFIG = New LogConfig(LogConfig.PathType.AppData)
+        LOGCONFIG = New LogConfig(LogConfig.PathType.AppData, Nothing, Nothing,
+                                  CompanyName:=My.Application.Info.CompanyName,
+                                  ProductName:=My.Application.Info.ProductName)
         LOGGER = LOGCONFIG.GetLogger("Globix")
         LOGGER.Info("Programmstart: " & Now)
         LOGGER.Info("Username: {0}", Environment.UserName)
@@ -70,19 +71,39 @@ Public Class ClassInit
             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")
-
-                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")
+                'vWLaufwerk = DT.Rows(0).Item("STRING1")
+            End If
+            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
@@ -200,36 +221,10 @@ Public Class ClassInit
     End Sub
     Public Sub InitUserLogin()
         Try
-            Dim sql = "SELECT MAX(GUID) FROM TBDD_USER WHERE (LOWER(USERNAME) = LOWER('@user'))"
-            sql = sql.Replace("@user", Environment.UserName)
-            ' LOGGER.Info(">> Username: " & Environment.UserName)
+            Dim oSql As String
 
-            USER_ID = ClassDatabase.Execute_Scalar(sql, MyConnectionString, True)
-            Try
-                Dim USERID = CInt(USER_ID)
-            Catch ex As Exception
-                LOGGER.Info("User '" & Environment.UserName & "' not configured in Useradministration! (DBNull)")
-                LOGGER.Error(ex.Message)
-                '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)
+            oSql = String.Format("SELECT * FROM [dbo].[FNDD_CHECK_USER_MODULE] ('{0}','GLOBIX',{1})", Environment.UserName, 1)
+            Dim DT_CHECKUSER_MODULE As DataTable = ClassDatabase.Return_Datatable(oSql)
             If DT_CHECKUSER_MODULE.Rows.Count = 0 Then
                 LOGGER.Info("DT_CHECKUSER_MODULE.Rows.Count = 0")
                 START_INCOMPLETE = True
@@ -238,7 +233,23 @@ Public Class ClassInit
                 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
                     LOGGER.Info(" - User: " & Environment.UserName & " nicht für Modul freigegben!")
                     START_INCOMPLETE = True
@@ -262,22 +273,22 @@ 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')"
-                ClassDatabase.Execute_non_Query(sql, True)
-                sql = "INSERT INTO TBDD_USER_MODULE_LOG_IN (USER_ID,MODULE) VALUES (" & USER_ID & ",'Global-Indexer')"
-                ClassDatabase.Execute_non_Query(sql)
-                sql = "SELECT COUNT(*) AS Expr1 FROM TBDD_USER_MODULE_LOG_IN WHERE Upper(MODULE) = UPPER('Global-Indexer')"
-                Dim anzahl = ClassDatabase.Execute_Scalar(sql, MyConnectionString, True)
-                LOGGER.Info(" >> Anzahl Angemeldete User: " & anzahl.ToString)
-                UserLoggedin = CInt(anzahl)
-                UserLoggedin += 1
-                If LICENSE_COUNT < UserLoggedin 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:")
-                    LOGGER.Info(" >> Die Anzahl der aktuell angemeldeten User (" & UserLoggedin.ToString & ") überschreitet die Anzahl der Lizenzen (" & LICENSE_COUNT & ") für 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(oSql, True)
+                oSql = "INSERT INTO TBDD_USER_MODULE_LOG_IN (USER_ID,MODULE, CLIENT_ID) VALUES (" & USER_ID & ",'Global-Indexer', 1)"
+                ClassDatabase.Execute_non_Query(oSql)
+                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)
+                'LOGGER.Info(" >> Anzahl Angemeldete User: " & anzahl.ToString)
+                ' UserLoggedin = CInt(anzahl)
+                ' UserLoggedin += 1
+                If LICENSE_COUNT < USERCOUNT_LOGGED_IN And LICENSE_EXPIRED = False Then
+                    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:")
+                    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'"
-                        ClassDatabase.Execute_non_Query(sql, True)
+                        oSql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_ID & " AND MODULE= 'Global-Indexer'"
+                        ClassDatabase.Execute_non_Query(oSql, True)
                         LOGGER.Info(" - Wieder abgemeldet")
                         START_INCOMPLETE = True
                     End If

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

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,4 +1,5 @@
 Imports System.Text.RegularExpressions
+Imports DevExpress.XtraEditors
 Imports DigitalData.Controls.LookupGrid
 Imports WINDREAMLib
 
@@ -39,7 +40,7 @@ Public Class ClassPatterns
 
     Public Const MAX_TRY_COUNT = 500
 
-    Private Shared regex As Regex = New Regex("{#(\w+)#([\w\d\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}
@@ -176,7 +177,7 @@ Public Class ClassPatterns
                         Continue For
                     End If
 
-                    LOGGER.Debug("Getting control metadata from object: [{0}]", oControl?.Tag?.ToString())
+                    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)
@@ -208,9 +209,9 @@ Public Class ClassPatterns
 
                     LOGGER.Debug("Found Control [{0}], continuing with setting value..", oFoundControl.Name)
 
-                    If TypeOf oFoundControl Is TextBox Then
+                    If TypeOf oFoundControl Is TextEdit Then
                         Try
-                            oValue = DirectCast(oFoundControl, TextBox).Text
+                            oValue = DirectCast(oFoundControl, TextEdit).Text
                         Catch ex As Exception
                             LOGGER.Error(ex)
                             LOGGER.Warn("Control Value for TextBox [{0}] could not be retrieved!", oFoundControl.Name)
@@ -231,7 +232,7 @@ Public Class ClassPatterns
                                     Case "INTEGER"
                                         oValue = String.Join(",", oLookupControl.SelectedValues)
                                     Case "VARCHAR"
-                                        Dim oWrapped = oLookupControl.SelectedValues.Select(Function(v) $"'{v}'")
+                                        Dim oWrapped = oLookupControl.SelectedValues
                                         oValue = String.Join(",", oWrapped)
                                     Case Else
                                         LOGGER.Warn("Lookup Control with [{0}] is not supported!", oFoundType)
@@ -257,7 +258,7 @@ Public Class ClassPatterns
 
                 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)

Global_Indexer/ClassPostprocessing.vb

@@ -62,51 +62,6 @@ Public Class ClassPostprocessing
         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"
-        '                LOGGER.Info(" ...Nachbearbeitung mit VBSPLIT")
-        '                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
-        '                        LOGGER.Info(" ...Split-Ergebnis für Index (" & i.ToString & "): " & strSplit(i))
-        '                        result = strSplit(i).ToString
-        '                    End If
-        '                Next
-        '            Case "VBREPLACE"
-        '                If LogErrorsOnly = False Then
-        '                    LOGGER.Info(" ...Nachbearbeitung mit VBREPLACE")
-        '                    LOGGER.Info(" ...Ersetze '" & row.Item("TEXT1") & "' mit '" & row.Item("TEXT2") & "'")
-        '                    result = result.Replace(row.Item("TEXT1"), row.Item("TEXT2"))
-        '                End If
-
-        '                result = result.Replace(row.Item("TEXT1"), row.Item("TEXT2"))
-        '            Case "REG. EXPRESSION"
-        '                LOGGER.Info(" ...Nachbearbeitung mit RegEx")
-        '                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
-        '                    LOGGER.Info(" ...Ergebnis des RegEx: " & resultRegex.ToString)
-        '                    result = resultRegex.ToString
-        '                Else
-        '                    LOGGER.Info("Postprocessing RegEx konnte kein Ergebnis auswerten!")
-        '                End If
-        '        End Select
-        '    Next
-        '    Return result
-        'Catch ex As Exception
-        '    LOGGER.Info(" - 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/ClassWindream.vb

@@ -8,6 +8,7 @@ Imports WINDREAMLib.WMSearchRelation
 Imports WMOBRWSLib
 Imports WMOSRCHLib
 Imports System.IO
+Imports System.Text.RegularExpressions
 
 Public Class ClassWindream
 
@@ -18,6 +19,8 @@ Public Class ClassWindream
     Const VARIABLEN = 2
     Const WMObjectStreamOpenModeReadWrite = 2
 
+    Const STREAM_BinaryObject = "BinaryObject"
+
     Public Const WMObjectVariableValueTypeUndefined = 0
     Public Const WMObjectVariableValueTypeString = 1
     Public Const WMObjectVariableValueTypeInteger = 2
@@ -38,12 +41,12 @@ Public Class ClassWindream
 
 #Region "+++++ Variablen +++++"
     Public Shared oConnect ' der Typ darf nicht festgelegt werden (warum auch immer... geht sonst nicht)
-    Public Shared oSession 'As WINDREAMLib.WMSession ' der Typ darf nicht festgelegt werden (warum auch immer... geht sonst nicht)
+    Public Shared _session 'As WINDREAMLib.WMSession ' der Typ darf nicht festgelegt werden (warum auch immer... geht sonst nicht)
     Public Shared oBrowser As New WMOBRWSLib.ServerBrowser
-    Public Shared oDokumentTypen As WINDREAMLib.WMObjects
-    Private oController As New WMOSearchController
+    Public Shared _DocumentTypes As WINDREAMLib.WMObjects
+    Private _SearchController As New WMOSearchController
     Public Shared _WDObjekttyp As String
-    Private Shared aktWMObject As WINDREAMLib.WMObject
+    Private Shared _currentWMObject As WINDREAMLib.WMObject
 #End Region
 
 
@@ -71,13 +74,13 @@ Public Class ClassWindream
                 Dim ProfileName = wdfLocation.Substring(wdfLocation.LastIndexOf("\") + 1)
                 Dim ProfilePath = wdfLocation.Substring(0, wdfLocation.Length - ProfileName.Length)
 
-                oController = New WMOSearchController
+                _SearchController = New WMOSearchController
 
-                Me.oController.CheckSearchProfile(wdfLocation.ToLower)
-                Dim suchTyp = Me.oController.SearchProfileTargetProgID
+                Me._SearchController.CheckSearchProfile(wdfLocation.ToLower)
+                Dim suchTyp = Me._SearchController.SearchProfileTargetProgID
                 Dim ExSettings As Object
                 Dim oSearch As Object
-                ExSettings = Me.oController.SearchProfileExSettings
+                ExSettings = Me._SearchController.SearchProfileExSettings
                 If ExSettings = 0 Then ExSettings = 7
 
                 Dim srchQuick As WMOSRCHLib.WMQuickSearch = CreateObject("WMOSrch.WMQuickSearch")
@@ -195,7 +198,7 @@ Public Class ClassWindream
         Try
             Try
                 ' Session-Objekt instanziieren und mit dem im Client ausgewählten Server belegen
-                oSession = CreateObject("Windream.WMSession", GetCurrentServer)
+                _session = CreateObject("Windream.WMSession", GetCurrentServer)
                 LOGGER.Info(" ...windream-Server: '" & GetCurrentServer() & "'")
                 ' Connection-Objekt instanziieren
                 oConnect = CreateObject("Windream.WMConnect")
@@ -224,8 +227,8 @@ Public Class ClassWindream
                 ' oConnect.Password "windream"
 
                 ' Verbindung mit Session-Objekt (und dem ausgewählten Server) aufbauen
-                oConnect.LoginSession(oSession)
-                If oSession.aLoggedin = False Then
+                oConnect.LoginSession(_session)
+                If _session.aLoggedin = False Then
                     MsgBox("Es konnte keine Verbindung mit dem windream-Server hergestellt werden", MsgBoxStyle.Exclamation, "Verbindung konnte nicht hergestellt werden")
                     Return False
                 End If
@@ -251,10 +254,10 @@ Public Class ClassWindream
                 'MsgBox(WMCtrl.WMServerName)
 
                 Try
-                    oSession.SwitchEvents(WMCOMEventWMSessionNeedIndex, False)
+                    _session.SwitchEvents(WMCOMEventWMSessionNeedIndex, False)
                     ' der Parameter WMEntityDocument definiert, dass nur Dokumenttypen und keine 
                     ' Ordnertypen ausgelesen werden
-                    oDokumentTypen = oSession.GetWMObjectTypes(WINDREAMLib.WMEntity.WMEntityDocument)
+                    _DocumentTypes = _session.GetWMObjectTypes(WINDREAMLib.WMEntity.WMEntityDocument)
                 Catch ex As Exception
                     Return False
                 End Try
@@ -288,80 +291,18 @@ Public Class ClassWindream
     ''' <remarks></remarks>
     Public Shared Function GetObjecttypesAsObjects() As WMObjects
         Try
-            Return oDokumentTypen
+            Return _DocumentTypes
         Catch ex As Exception
             MsgBox("Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Unexpected error inm Auslesen der Objekttypen")
             Return Nothing
         End Try
     End Function
 
-    ''' <summary>
-    ''' Liefert alle Objekttypen des aktuellen Servers als Array aus Strings.
-    ''' </summary>
-    ''' <returns>Array mit allen Objekttypen als Strings</returns>
-    ''' <remarks></remarks>
-    Public Function GetObjecttypesAsStrings() As String()
 
-        Try
-            Dim objektTypenStr(Me.oDokumentTypen.Count) As String
-
-            For i As Integer = 0 To Me.oDokumentTypen.Count
-                objektTypenStr(i) = Me.oDokumentTypen.Item(i).aName
-            Next
-
-            Return objektTypenStr
-
-        Catch ex As Exception
-            MsgBox("Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Unexpected error inm Auslesen der Objekttypen als String")
-            Return Nothing
-        End Try
-
-    End Function
-    Public Function GetTypeOfIndex(ByVal indexname As String) As Integer
-        Try
-            Dim oAttribute = oSession.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityAttribute, indexname)
-            Dim vType = oAttribute.getVariableValue("dwAttrType")
-            Return vType
-        Catch ex As Exception
-            Return Nothing
-        End Try
-    End Function
-    Public Shared Function GetSystemIndices(ByVal name As String)
-        Dim oObjectType As WMObject
-        ' den Objekttyp laden
-        oObjectType = oSession.GetWMObjectByName(WMEntityObjectType, name)
-
-
-        Dim msg As String
-        Dim oSystemIndexes = oObjectType.GetVariableNames(1, False)
-        msg = "System indices (internal column names): " & vbNewLine
-        For Each oSystemIndex In oSystemIndexes
-            msg = msg & vbNewLine & oSystemIndex
-        Next
-        MsgBox(msg)
-
-
-    End Function
-    Public Shared Function GetTypIndexNames(ByVal name As String)
-        Dim oObjectType As WMObject
-        ' den Objekttyp laden
-        oObjectType = oSession.GetWMObjectByName(WMEntityObjectType, name)
-
-
-        Dim msg As String
-        Dim oSystemIndexes = oObjectType.GetVariableNames(2, False)
-        msg = "Type Indices (type Index names): " & vbNewLine
-        For Each oSystemIndex In oSystemIndexes
-            msg = msg & vbNewLine & oSystemIndex
-        Next
-        MsgBox(msg)
-
-
-    End Function
     ''' <summary>
     ''' Liefert alle Indexe eines Objekttypen.
     ''' </summary>
-    ''' <param name="name">Name des Objekttyps</param>
+    ''' <param name="Objecttype_name">Name des Objekttyps</param>
     ''' <returns>Array mit allen Objekttyp zugeordneten Indexen als String</returns>
     ''' <remarks></remarks>
     Public Shared Function GetIndicesByObjecttype(ByVal Objecttype_name As String) As String()
@@ -373,7 +314,7 @@ Public Class ClassWindream
             Dim oRelProperties As WMObjectRelationClass
 
             ' den Objekttyp laden
-            oObjectType = oSession.GetWMObjectByName(WMEntityObjectType, Objecttype_name)
+            oObjectType = _session.GetWMObjectByName(WMEntityObjectType, Objecttype_name)
 
             ' Beziehung zu Indizes des Objekttyp auslesen
             oIndexAttributes = oObjectType.GetWMObjectRelationByName("TypeAttributes")
@@ -406,31 +347,6 @@ Public Class ClassWindream
             Return Nothing
         End Try
     End Function
-    ''' <summary>
-    ''' Liefert einen Objekttyp als WMObject an Hand dessen Name.
-    ''' </summary>
-    ''' <param name="objekttypName">Name des Objekttyps</param>
-    ''' <returns>Objekttyp als WMObject</returns>
-    ''' <remarks></remarks>
-    Public Function GetObjecttypeByName(ByVal objekttypName As String) As WMObject
-        Try
-            ' alle Objekttypen auslesen
-            Dim oObjectTypes As WMObjects = Me.oSession.GetWMObjectTypes(WINDREAMLib.WMEntity.WMEntityDocument)
-
-            ' alle Objekttypen durchlaufen und nach dem mit dem angegebenen Namen suchen
-            For Each oObjectType As WMObject In oObjectTypes
-                If oObjectType.aName = objekttypName Then
-                    Return oObjectType
-                End If
-            Next
-
-            Return Nothing
-
-        Catch ex As Exception
-            MsgBox("Es konnte ein Objekttyp nicht erstellt werden." & vbNewLine & vbNewLine & "Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Exclamation, "Objekttyp konnte nicht erstellt werden")
-            Return Nothing
-        End Try
-    End Function
 
     ''' <summary>
     ''' Überprüft ob der angegebene Index im Objekttyp existiert
@@ -467,7 +383,7 @@ Public Class ClassWindream
     ''' <remarks></remarks>
     Public Shared Function IsLoggedIn() As Boolean
         Try
-            Return oSession.aLoggedin
+            Return _session.aLoggedin
         Catch ex As Exception
             MsgBox("Es konnte nicht erfolgreich geprüft werden, ob das Programm am windream-Server angemeldted ist." & vbNewLine & vbNewLine & "Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Unexpected error in Loggedin-Prüfung")
         End Try
@@ -490,119 +406,52 @@ Public Class ClassWindream
         Return ""
     End Function
 
-
-    ''' <summary>
-    ''' Liefert das Windream-Laufwerk des windream-Servers, in Form '[Laufwerksbuchstabe]:'. (z.B. 'W:')
-    ''' </summary>
-    ''' <returns>Laufwerksbuchstabe mit Doppelpunkt als String</returns>
-    ''' <remarks></remarks>
-    'Public Function GetWindreamDriveLetter() As String
-
-    '    Try
-    '        Dim oControl As AISCONTROLDATACOMLib.AISControlData
-    '        Dim sDrive As String = ""
-
-    '        oControl = New AISCONTROLDATACOMLib.AISControlData
-
-    '        sDrive = oControl.GetStringValue(&H10040003)
-
-    '        Return sDrive & ":"
-
-    '    Catch ex As Exception
-    '        MsgBox("Fehlernachricht: " & ex.Message, MsgBoxStyle.Critical, "Unexpected error inm Auslesen des windream-Laufwerks")
-    '    End Try
-
-    '    Return ""
-    'End Function
-
-    ''' <summary>
-    ''' Liefert den Typen eines Indexes als Integer.
-    ''' </summary>
-    ''' <param name="indexname">Name des zu überprüfenden Indexfeldes</param>
-    ''' <returns>Liefert eine Zahl, die einen Typen beschreibt</returns>
-    ''' <remarks></remarks>
-
-    Public Function GetValuesfromAuswahlliste(ByVal _auswahlliste As String) As Object
-        Try
-            'Dim oAttribute = Me.oSession.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityAttribute, indexname)
-            'Dim vType = oAttribute.getVariableValue("vItems")
-            'Return vType
-            Dim oChoiceList = oSession.GetWMObjectByName(WMEntityChoiceList, _auswahlliste)
-            If Err.Number = 0 And TypeName(oChoiceList) <> "Nothing" Then
-                Dim Values = oChoiceList
-                Values = oChoiceList.GetVariableValue("vItems")
-                Dim anz As Integer = 0
-
-                For Each CLItem In Values
-                    If oChoiceList.aName IsNot Nothing Then
-                        anz += 1
-                    End If
-                Next
-                Dim strListe(anz - 1)
-                Dim zahl As Integer = 0
-                For Each CLItem In Values
-                    If oChoiceList.aName IsNot Nothing Then
-                        strListe(zahl) = CLItem
-                        zahl += 1
-                    End If
-                Next
-                Return strListe
-            Else
-                MsgBox("Auswahlliste: " & _auswahlliste & " nicht gefunden!", MsgBoxStyle.Critical, "Fehler:")
-                Return Nothing
-            End If
-
-        Catch ex As Exception
-            MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler in GetValuesfromAuswahlliste:")
-            Return Nothing
-        End Try
-    End Function
 #End Region
-    Public Shared Function Stream_File(ByVal filenameQuelle As String, ByVal newfilename As String)
-        On Error Resume Next
-        aktWMObject = Nothing
-        Dim Zielverzeichnis As String = Path.GetDirectoryName(newfilename)
-        If My.Computer.FileSystem.DirectoryExists(Zielverzeichnis) = False Then
-            My.Computer.FileSystem.CreateDirectory(Zielverzeichnis)
+    Public Shared Function Stream_File(ByVal SourceFilePath As String, ByVal NewFileName As String)
+        _currentWMObject = Nothing
+
+        Dim oWindreamFilename As String = NewFileName
+        Dim oFileName As String = NewFileName
+        Dim oWDriveRegex As New Regex("^\w{1}:")
+
+        If oWDriveRegex.IsMatch(NewFileName) Then
+            oFileName = oWDriveRegex.Replace(NewFileName, vWLaufwerk)
+            oWindreamFilename = oWDriveRegex.Replace(NewFileName, String.Empty)
+        Else
+            oWindreamFilename = NewFileName.Replace(vWLaufwerk, String.Empty)
+        End If
+
+        'If NewFileName.StartsWith("W:") Then
+        '    oFileName = NewFileName.Replace("W:", vWLaufwerk)
+        '    oWindreamFilename = NewFileName.Replace("W:", String.Empty)
+        'Else
+        '    oWindreamFilename = NewFileName.Replace(vWLaufwerk, String.Empty)
+        'End If
+
+        Dim oSourceFilename As String = Path.GetFileName(SourceFilePath)
+        Dim oDestination As String = Path.GetDirectoryName(oFileName)
+
+        If My.Computer.FileSystem.DirectoryExists(oDestination) = False Then
+            My.Computer.FileSystem.CreateDirectory(oDestination)
             LOGGER.Info(" - Zielverzeichnis neu erzeugt!")
         End If
 
-        Const STREAM_BinaryObject = "BinaryObject"
-
         LOGGER.Info(" ...Stream_File wurde gestartet")
-        Dim windreamFilename As String = ""
+
         ' Objekt für Datei und Zielverzeichnis anlegen
-        Dim Quelldatei_Name As String = Path.GetFileName(filenameQuelle)
+
 
         LOGGER.Info(" ...Quelldatei gelesen")
-        '"Version-KZ entfernen
-        newfilename = newfilename.Replace("\\", "\")
-        windreamFilename = newfilename.Substring(2)
-        If windreamFilename.Contains("[%Version]") Then
-            windreamFilename = windreamFilename.Replace("[%Version]", "")
-            newfilename = windreamFilename
-        End If
 
-        If My.Computer.FileSystem.DirectoryExists(Zielverzeichnis) Then
+        If My.Computer.FileSystem.DirectoryExists(oDestination) Then
             LOGGER.Info(" ...targetPath existiert")
             ' Überprüfen ob der zu Kopieren notwendige Speicherplatz auf Ziellaufwerk vorhanden ist
-            Dim dvr As New DriveInfo(vWLaufwerk & ":")
-            Dim freeSpace = dvr.TotalFreeSpace
 
-            Dim info As New FileInfo(filenameQuelle)
-            ' Get length of the file.
-            Dim length As Long = info.Length
-            If freeSpace < length Then
-                If USER_LANGUAGE = "de-DE" Then
-                    MsgBox("Auf dem Zielverzeichnis ist nicht genug Speicherplatz zum Übertragen frei.", MsgBoxStyle.Exclamation, "Nicht genug Speicherplatz")
-                Else
-                    MsgBox("Not enough diskspace in Target-Directory.", MsgBoxStyle.Exclamation, "Not enough diskspace")
-                End If
+            Dim oFileInfo As New FileInfo(SourceFilePath)
+            Dim oFileLength As Long = oFileInfo.Length
 
-                Return -10
-            End If
 
-            LOGGER.Info(" ...Datei kopieren von '" & filenameQuelle & "' nach '" & newfilename & "'.")
+            LOGGER.Info(" ...Datei kopieren von '" & SourceFilePath & "' nach '" & NewFileName & "'.")
             Dim Connect
             Dim Session
             Dim WMObject
@@ -613,13 +462,6 @@ Public Class ClassWindream
             LOGGER.Info(" ...Connect definieren:  CreateObject('Windream.WMConnect')")
             Connect = CreateObject("Windream.WMConnect")
             aFileIO = New WMOTOOLLib.WMFileIO
-            'If My.Settings.DLL_WMOTOOL = "" Then
-            '    aFileIO = New WMOTOOLLib.WMFileIO
-            '    LOGGER.Info(" ...Direkter Verweis auf New WMOTOOLLib.WMFileIO")
-            'Else
-            '    aFileIO = CreateObject(My.Settings.DLL_WMOTOOL) 'WMOTool.WMFileIO oder WMOTOOLLib.WMFileIO
-            '    LOGGER.Info(" ...Verwendeter Verweis aus Anwendungsstring: '" & My.Settings.DLL_WMOTOOL & "'")
-            'End If
 
             wmbrwsr = CreateObject("WMOBrws.ServerBrowser")
             '==================================================================
@@ -642,7 +484,7 @@ Public Class ClassWindream
                 LOGGER.Info(" >> Login on dms-Server failed")
                 ' MsgBox("Login failed. ")
             End If
-            oSession = Session
+            _session = Session
             Const WMCOMEventWMSessionNeedIndex = 1
 
             'windream Objekte erstellen ohne Indexierungs-Event
@@ -650,10 +492,10 @@ Public Class ClassWindream
             '==================================================================
             ' check if files exist
             '==================================================================
-            LOGGER.Info(" ...ÜBERPRÜFTER DATEINAME => " & windreamFilename)
+            LOGGER.Info(" ...ÜBERPRÜFTER DATEINAME => " & oWindreamFilename)
             Dim wdFilexists As Boolean
             LOGGER.Info(" ...Versuch auf die Datei in W: zuzugreifen und zu sperren...")
-            wdFilexists = Session.WMObjectExists(WMEntityDocument, windreamFilename, 0, 0)
+            wdFilexists = Session.WMObjectExists(WMEntityDocument, oWindreamFilename, 0, 0)
             Err.Clear()
             If wdFilexists = False Then
                 LOGGER.Info(" ...Datei ist NICHT vorhanden, kann also einfach neu angelegt werden")
@@ -661,7 +503,7 @@ Public Class ClassWindream
                 '==================================================================
                 ' create an object
                 '==================================================================
-                WMObject = Session.GetNewWMObjectFS(WMEntityDocument, windreamFilename, WMObjectEditModeObject) 'WMEntityDocument, windreamFilename, WMObjectEditModeObject
+                WMObject = Session.GetNewWMObjectFS(WMEntityDocument, oWindreamFilename, WMObjectEditModeObject) 'WMEntityDocument, windreamFilename, WMObjectEditModeObject
                 If Err.Number > 0 Then
                     LOGGER.Info(" FEHLER: WMObject konnte nicht erzeugt werden - Error: '" & Err.Description & "'")
                     'MsgBox(Err.Description)
@@ -670,43 +512,54 @@ Public Class ClassWindream
             Else
                 ' wenn auf die Datei zugeriffen werden konnte ist sie bereits vorhanden -> Datum anhängen
                 LOGGER.Info(" ...Es konnte zugegriffen werden -> DATEI IST BEREITS VORHANDEN")
-                If CURRENT_DOKART_DUPLICATE_HANDLING = "Default" Or CURRENT_DOKART_DUPLICATE_HANDLING = "Question" Then
-                    ''##########
-                    Dim msg = String.Format("Eine Datei mit identischem Namen " & vbNewLine & "'{0}'" & vbNewLine & "existiert bereits!" & vbNewLine & "Wollen Sie die bestehende Datei ersetzen?", newfilename)
-                    If USER_LANGUAGE <> "de-DE" Then
-                        msg = "There is already a file with the same name! Would You like to replace the file?"
-                    End If
-                    Dim result As MsgBoxResult
-                    result = MessageBox.Show(msg, "File alredy exists:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
-                    If result = MsgBoxResult.No Then
-                        windreamFilename = ClassFilehandle.Versionierung_Datei(newfilename).ToString.Substring(2)
-                    Else
-                        If Delete_WDFile(windreamFilename) = False Then
+
+
+                Select Case CURRENT_DOKART_DUPLICATE_HANDLING
+
+                    Case "New version"
+                        LOGGER.Info("Creating new version of file [{0}]", NewFileName)
+                        oWindreamFilename = ClassFilehandle.Versionierung_Datei(NewFileName).ToString.Substring(2)
+                        CURRENT_NEWFILENAME = oWindreamFilename
+                    Case "Question"
+                        Dim oMessage = $"Eine Datei mit identischem Namen {vbNewLine}'{NewFileName}'{vbNewLine}existiert bereits!{vbNewLine}Wollen Sie die bestehende Datei ersetzen?"
+                        If USER_LANGUAGE <> "de-DE" Then
+                            oMessage = $"There is already a file with the name {NewFileName}!{vbNewLine}Would You like to replace the file?"
+                        End If
+
+                        Dim oResult = MessageBox.Show(oMessage, "File exists", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
+
+                        If oResult = DialogResult.No Then
+                            oWindreamFilename = ClassFilehandle.Versionierung_Datei(NewFileName).ToString.Substring(2)
+                        Else
+                            If Delete_WDFile(oWindreamFilename) = False Then
+                                Return False
+                            End If
+                        End If
+                    Case Else
+                        If Delete_WDFile(oWindreamFilename) = False Then
                             Return False
                         End If
-                    End If
-                ElseIf CURRENT_DOKART_DUPLICATE_HANDLING = "New version" Then
-                    windreamFilename = ClassFilehandle.Versionierung_Datei(newfilename).ToString.Substring(2)
-                End If
-                WMObject = Session.GetNewWMObjectFS(1, windreamFilename, 31) 'WMEntityDocument, windreamFilename, WMObjectEditModeObject
+                End Select
+
+                WMObject = Session.GetNewWMObjectFS(1, oWindreamFilename, 31) 'WMEntityDocument, windreamFilename, WMObjectEditModeObject
                 If Err.Number > 0 Then
                     LOGGER.Info(" FEHLER: Neues WMObject (Kopie) konnte nicht erzeugt werden - Error: '" & Err.Description & "'")
                     'MsgBox(Err.Description)
                 End If
                 LOGGER.Info(" ...WMObject zugewiesen")
             End If
-            LOGGER.Info(" ...ENDGÜLTIGER DATEINAME => " & windreamFilename)
+            LOGGER.Info(" ...ENDGÜLTIGER DATEINAME => " & oWindreamFilename)
             If WMObject IsNot Nothing Then
-                newfilename = vWLaufwerk & ":" & windreamFilename
+                'NewFileName = vWLaufwerk & ":" & oWindreamFilename
                 ' lock object for file system access (to change the file itself)
                 WMObject.lock()
                 ' set fileIO the local source file
-                aFileIO.bstrOriginalFileName = filenameQuelle
+                aFileIO.bstrOriginalFileName = SourceFilePath
                 If Err.Number > 0 Then
                     LOGGER.Info(" FEHLER: fileIO konnte nicht gesetzt werden - Datei wird wieder gelöscht - Error: '" & Err.Description & "'")
                     LOGGER.Info(" HINWEIS: Überprüfen Sie den Verweis auf die Bibliotheken 'WMOTool.WMFileIO' UND 'WMOTOOLLib.WMFileIO' und ändern diese in den Anwendungseinstellungen (DLL_WMOTOOL)'")
                     WMObject.Unlock()
-                    Delete_WDFile(windreamFilename)
+                    Delete_WDFile(oWindreamFilename)
 
                     Return False
                     ' MsgBox(Err.Description)
@@ -716,7 +569,7 @@ Public Class ClassWindream
                 If Err.Number > 0 Then
                     LOGGER.Info(" Unexpected error in OpenStream - Datei wird wieder gelöscht - Error: '" & Err.Description & "'")
                     WMObject.Unlock()
-                    Delete_WDFile(windreamFilename)
+                    Delete_WDFile(oWindreamFilename)
                     Return False
                     'MsgBox(Err.Description)
                 End If
@@ -726,7 +579,7 @@ Public Class ClassWindream
                 If Err.Number > 0 Then
                     LOGGER.Info(" Unexpected error in Zuweisen aWMStream zu aFileIO - Datei wird wieder gelöscht - Error: '" & Err.Description & "'")
                     WMObject.Unlock()
-                    Delete_WDFile(windreamFilename)
+                    Delete_WDFile(oWindreamFilename)
                     Return False
                     'MsgBox(Err.Description)
                 End If
@@ -735,7 +588,7 @@ Public Class ClassWindream
                 If Err.Number > 0 Then
                     LOGGER.Info(" Unexpected error in FileIO.ImportOriginal(True) - Datei wird wieder gelöscht - Error: '" & Err.Description & "'")
                     WMObject.Unlock()
-                    Delete_WDFile(windreamFilename)
+                    Delete_WDFile(oWindreamFilename)
                     Return False
                     ' MsgBox(Err.Description)
                 End If
@@ -745,7 +598,7 @@ Public Class ClassWindream
                 If Err.Number > 0 Then
                     LOGGER.Info(" Unexpected error in aWMStream.Close() - Datei wird wieder gelöscht - Error: '" & Err.Description & "'")
                     WMObject.Unlock()
-                    Delete_WDFile(windreamFilename)
+                    Delete_WDFile(oWindreamFilename)
                     Return False
                     'MsgBox(Err.Description)
                 End If
@@ -754,7 +607,7 @@ Public Class ClassWindream
                 If Err.Number > 0 Then
                     LOGGER.Info(" Unexpected error in WMObject.save - Datei wird wieder gelöscht - Error: '" & Err.Description & "'")
                     WMObject.Unlock()
-                    Delete_WDFile(windreamFilename)
+                    Delete_WDFile(oWindreamFilename)
                     Return False
                     'MsgBox(Err.Description)
                 End If
@@ -764,37 +617,41 @@ Public Class ClassWindream
                 If Err.Number > 0 Then
                     LOGGER.Info(" Unexpected error in WMObject.unlock - Datei wird wieder gelöscht - Error: '" & Err.Description & "'")
                     WMObject.Unlock()
-                    Delete_WDFile(windreamFilename)
+                    Delete_WDFile(oWindreamFilename)
                     Return False
                     'MsgBox(Err.Description)
                 End If
                 'DATEI GRÖSSE ERMITTELN - MANCHMAL KOMMT ES VOR DAS DATEIGRÖße 0 ist
-                Dim info2 As New FileInfo(newfilename)
+                Dim info2 As New FileInfo(oFileName)
                 Dim length1 As Long = info2.Length
                 LOGGER.Info(" ...Length der Zieldatei: " & length1.ToString)
-                If length > 0 And Err.Number = 0 Then
-                    Dim p As String
-                    If windreamFilename.StartsWith("\") Then
-                        If windreamFilename.StartsWith("\\") Then
-                            p = windreamFilename.Replace("\\", "\")
-                        Else
-                            p = windreamFilename
-                        End If
-                    Else
-                        p = "\" & windreamFilename
-                    End If
-                    CURRENT_NEWFILENAME = vWLaufwerk & ":" & p
+                If oFileLength > 0 And Err.Number = 0 Then
+
+                    'Dim p As String
+                    'If oWindreamFilename.StartsWith("\") Then
+                    '    If oWindreamFilename.StartsWith("\\") Then
+                    '        p = oWindreamFilename.Replace("\\", "\")
+                    '    Else
+                    '        p = oWindreamFilename
+                    '    End If
+                    'Else
+                    '    p = "\" & oWindreamFilename
+                    'End If
+                    'CURRENT_NEWFILENAME = vWLaufwerk & ":" & p
+
+                    CURRENT_NEWFILENAME = oFileName
+
                     LOGGER.Info(" >> Datei '" & CURRENT_NEWFILENAME & "' wurde erfolgreich importiert!")
-                    aktWMObject = WMObject
+                    _currentWMObject = WMObject
                     Return True
                 Else
-                    Delete_WDFile(windreamFilename)
-                    Console.WriteLine(Err.Number.ToString)
+                    Delete_WDFile(oWindreamFilename)
+                    LOGGER.Info("Error Number: [{0}]", Err.Number)
                     LOGGER.Info(" Unexpected error in Datei-Übertragen - FileLength ist 0, Übertragene Datei wurde gelöscht")
                     Return False
                 End If
             Else
-                LOGGER.Info(" Could not create a WMObject for file:'" & windreamFilename)
+                LOGGER.Info(" Could not create a WMObject for file:'" & oWindreamFilename)
                 If Not Err() Is Nothing Then
                     If Not Err.Description Is Nothing Then
                         LOGGER.Info(Err.Description)
@@ -815,7 +672,7 @@ Public Class ClassWindream
             End If
             Dim WMObject As WINDREAMLib.WMObject '= CreateObject("WINDREAMLib.WMObject")  'New WINDREAMLib.WMObject
             Try
-                WMObject = oSession.GetWMObjectByPath(WINDREAMLib.WMEntity.WMEntityDocument, WD_File) 'WINDREAMLib.WMEntity.WMEntityDocument
+                WMObject = _session.GetWMObjectByPath(WINDREAMLib.WMEntity.WMEntityDocument, WD_File) 'WINDREAMLib.WMEntity.WMEntityDocument
             Catch ex As Exception
                 LOGGER.Info(">> Could not create WMObject for file '" & WD_File & "' - so it is not existing")
                 LOGGER.Error(ex.Message)
@@ -848,7 +705,7 @@ Public Class ClassWindream
             ' den Dokumenttyp schreiben
             LOGGER.Info(" ## Indexieren wird gestartet ##")
             ' ein windream-Objekt der Datei anlegen
-            WMObject = aktWMObject 'oSession.GetWMObjectByPath(WINDREAMLib.WMEntity.WMEntityDocument, WD_File)
+            WMObject = _currentWMObject 'oSession.GetWMObjectByPath(WINDREAMLib.WMEntity.WMEntityDocument, WD_File)
             Try
                 LOGGER.Info(" ...Datei wird gesperrt")
                 ' die Datei sperren
@@ -873,7 +730,7 @@ Public Class ClassWindream
             If WMObject.aObjectType.aName = "Standard" Then
 
                 ' ihr den entsprechenden Dokumenttyp zuweisen
-                WMObject.aObjectType = oSession.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityObjectType, _WDObjekttyp)
+                WMObject.aObjectType = _session.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityObjectType, _WDObjekttyp)
                 ' WMObject.aObjectType = Me.selectedProfile.Dokumenttyp
                 LOGGER.Info(" ...Objekttyp wurde gesetzt")
             Else
@@ -963,7 +820,7 @@ Public Class ClassWindream
                     ' wenn der Datei noch kein Dokumenttyp zugewiesen wurde
                     If oDocument.aObjectType.aName <> _WDObjekttyp Then
                         ' ihr den entsprechenden Dokumenttyp zuweisen
-                        oDocument.aObjectType = oSession.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityObjectType, _WDObjekttyp)
+                        oDocument.aObjectType = _session.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityObjectType, _WDObjekttyp)
                         ' WMObject.aObjectType = Me.selectedProfile.Dokumenttyp
                         LOGGER.Info(" ...Objekttyp '" & oDocument.aObjectType.aName & "' wurde in '" & _WDObjekttyp & "' geändert.")
                     Else
@@ -986,7 +843,7 @@ Public Class ClassWindream
                             LOGGER.Info(" >> Indexierung von Index '" & indexname & "'")
                         End If
                         ' das entsprechende Attribut aus windream auslesen
-                        Dim oAttribute = oSession.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityAttribute, Indizes(i))
+                        Dim oAttribute = _session.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityAttribute, Indizes(i))
                         ' den Variablentyp (String, Integer, ...) auslesen 
                         Dim vType = oAttribute.getVariableValue("dwAttrType")
                         ' wenn in aValues an Position i ein Wert steht
@@ -1079,6 +936,11 @@ Public Class ClassWindream
                                     LOGGER.Info(" ...Typ des windream-Indexes: 4099 Vektor Kommazahl")
                                     'Vektor Kommazahl
                                     convertValue = CStr(value)
+                                Case 4100
+                                    vektor = True
+                                    LOGGER.Info(" ...Typ des windream-Indexes: 4100 Vektor Boolean")
+                                    'Vektor Kommazahl
+                                    convertValue = ToBoolean(value)
                                 Case 4101
                                     vektor = True
                                     LOGGER.Info(" ...Typ des windream-Indexes: 4101 Vektor Date")
@@ -1170,6 +1032,10 @@ Public Class ClassWindream
                                             Str = Str.ToString.Replace(" ", "")
                                             'Umwandeln in Double
                                             myArray(0) = CDbl(Str.Replace(".", ","))
+
+                                        Case 4100
+                                            ' Umwandeln in Boolean
+                                            myArray(0) = ToBoolean(value)
                                         Case 4101
                                             'Umwandeln in Date
                                             myArray(0) = CDate(value)
@@ -1374,7 +1240,7 @@ Public Class ClassWindream
                                 'Das Array anpassen
                                 ReDim Preserve ValueArray(Anzahl)
                                 'Den Wert im Array speichern
-                                ValueArray(Anzahl) = NewValue.ToString
+                                ValueArray(Anzahl) = NewValue '.ToString
                                 Anzahl += 1
                             Else
                                 LOGGER.Info(" >> Value '" & NewValue.ToString & "' bereits in Array enthalten")
@@ -1383,7 +1249,7 @@ Public Class ClassWindream
                             'Das Array anpassen
                             ReDim Preserve ValueArray(Anzahl)
                             'Den Wert im Array speichern
-                            ValueArray(Anzahl) = NewValue.ToString
+                            ValueArray(Anzahl) = NewValue '.ToString
                             Anzahl += 1
 
                         End If
@@ -1461,7 +1327,7 @@ Public Class ClassWindream
             Loop
             ' wenn die Datei existiert
             If fileExists Then
-                WMObject = oSession.GetWMObjectByPath(WINDREAMLib.WMEntity.WMEntityDocument, filenameZiel)
+                WMObject = _session.GetWMObjectByPath(WINDREAMLib.WMEntity.WMEntityDocument, filenameZiel)
 
                 ' eine Variable für den umgewandelten Indexwert anlegen (kein Typ, da noch unklar ist was reingeschrieben wird)
                 'Dim convertValue = Nothing
@@ -1472,7 +1338,7 @@ Public Class ClassWindream
                 Try
 
                     ' ein windream-Objekt der Datei anlegen
-                    WMObject = oSession.GetWMObjectByPath(WINDREAMLib.WMEntity.WMEntityDocument, filenameZiel)
+                    WMObject = _session.GetWMObjectByPath(WINDREAMLib.WMEntity.WMEntityDocument, filenameZiel)
                     If LogErrorsOnly = False Then
                         LOGGER.Info(" - windream-Objekt der Datei erzeugt")
                         LOGGER.Info(" - Ziel: W:\" & filenameZiel)
@@ -1492,7 +1358,7 @@ Public Class ClassWindream
                     ' wenn der Datei noch kein Dokumenttyp zugewiesen wurde
                     If WMObject.aObjectType.aName = "Standard" Then
                         ' ihr den entsprechenden Dokumenttyp zuweisen
-                        WMObject.aObjectType = oSession.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityObjectType, _WDObjekttyp)
+                        WMObject.aObjectType = _session.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityObjectType, _WDObjekttyp)
                         ' WMObject.aObjectType = Me.selectedProfile.Dokumenttyp
                     End If
 
@@ -1873,7 +1739,7 @@ Public Class ClassWindream
     ''' <remarks></remarks>
     Public Shared Function GetTypeOfIndexAsIntByName(ByVal indexname As String) As Integer
         Try
-            Dim oAttribute = oSession.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityAttribute, indexname)
+            Dim oAttribute = _session.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityAttribute, indexname)
             Dim vType = oAttribute.getVariableValue("dwAttrType")
             Return vType
         Catch ex As Exception
@@ -1895,9 +1761,15 @@ Public Class ClassWindream
             Return input
         Catch ex As Exception
             LOGGER.Info("Fehler in CheckIndexValue: " & ex.Message)
-            LOGGER.Error(ex.message)
+            LOGGER.Error(ex.Message)
             Return Nothing
         End Try
 
     End Function
+
+    Private Shared Function ToBoolean(input As String) As Boolean
+        If String.IsNullOrEmpty(input) Then Return False
+        Return (input.Trim().ToLower() = "true") OrElse (input.Trim() = "1")
+    End Function
+
 End Class

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>
@@ -160,19 +160,25 @@
     <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 Include="DigitalData.Modules.Filesystem, Version=1.0.1.1, Culture=neutral, processorArchitecture=MSIL">
+      <HintPath>..\..\DDMonorepo\Modules.Filesystem\bin\Debug\DigitalData.Modules.Filesystem.dll</HintPath>
+      <SpecificVersion>False</SpecificVersion>
     </Reference>
-    <Reference Include="DigitalData.Modules.Logging">
-      <HintPath>..\..\DDMonorepo\Modules.Config\bin\Debug\DigitalData.Modules.Logging.dll</HintPath>
+    <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.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.2.0.570.21482, Version=2.0.570.21482, Culture=neutral, PublicKeyToken=76be97fe952f1ec7, processorArchitecture=MSIL">
+    <Reference Include="Independentsoft.Msg, Version=2.0.570.21482, Culture=neutral, PublicKeyToken=76be97fe952f1ec7, processorArchitecture=MSIL">
       <SpecificVersion>False</SpecificVersion>
-      <HintPath>P:\Visual Studio Projekte\Bibliotheken\MSG .NET\Bin\Independentsoft.Msg.2.0.570.21482.dll</HintPath>
+      <HintPath>P:\Visual Studio Projekte\Bibliotheken\MSG .NET\Bin\22_11_19\Independentsoft.Msg.dll</HintPath>
     </Reference>
     <Reference Include="Interop.WINDREAMLib">
       <HintPath>P:\Visual Studio Projekte\Bibliotheken\windream\Interop.WINDREAMLib.dll</HintPath>
@@ -240,16 +246,16 @@
     <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">
@@ -270,24 +276,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>
@@ -366,15 +366,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="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" />
@@ -417,9 +411,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>
@@ -439,21 +435,15 @@
     <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>
@@ -532,6 +522,7 @@
     </EmbeddedResource>
     <EmbeddedResource Include="frmStart.resx">
       <DependentUpon>frmStart.vb</DependentUpon>
+      <SubType>Designer</SubType>
     </EmbeddedResource>
     <EmbeddedResource Include="My Project\licenses.licx" />
     <EmbeddedResource Include="My Project\Resources.resx">
@@ -753,11 +744,15 @@
     <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="Resources\DD_Icons_ICO_GLOBIX_1.ico" />
+    <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/ModuleCURRENT.vb

@@ -31,14 +31,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
-
-Module ModuleMySettings
+Imports DigitalData.Modules.Windream
+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: AssemblyDescription("")> 
+<Assembly: AssemblyTitle("Global Indexer")>
+<Assembly: AssemblyDescription("")>
 <Assembly: AssemblyCompany("Digital Data")> 
 <Assembly: AssemblyProduct("Global Indexer")>
 <Assembly: AssemblyCopyright("Copyright © 2020")>
-<Assembly: AssemblyTrademark("")> 
+<Assembly: AssemblyTrademark("2201")>
 
 <Assembly: ComVisible(False)> 
 
@@ -33,7 +33,7 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("2.0.0.8")>
-<Assembly: AssemblyFileVersion("1.0.0.0")> 
+<Assembly: AssemblyVersion("2.3.0.1")>
+<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>

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,8 +136,8 @@
   <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 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="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>
@@ -145,21 +148,12 @@
   <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">
-    <value>..\Resources\refresh_16xMD.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>
   </data>
@@ -190,24 +184,36 @@
   <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="save_16xLG" 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>
+  </data>
   <data name="handdrawn_arrow_right_green" 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>
   </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="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="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="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>
@@ -217,24 +223,18 @@
   <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">
-    <value>..\Resources\save_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  <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_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 +256,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">
-    <value>..\Resources\refresh_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  <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="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 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="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 +277,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">
-    <value>..\Resources\Save_6530.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  <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="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">
-    <value>..\Resources\Close_16xLG.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 name="GLOBIX_short" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\GLOBIX_short.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
 </root>

Global_Indexer/MyDataset.vb

@@ -1,6 +1,9 @@
 
 
 Partial Public Class MyDataset
+    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

Global_Indexer/MyDataset.xsc

@@ -247,81 +247,6 @@
         </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">

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="-11" 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_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_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_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_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_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_CONNECTION" ZOrder="43" 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_AUTOM" ZOrder="41" 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: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_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: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: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: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="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="9" X="845" Y="494" Height="248" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="197" />
-    <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: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: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:TBMYHOTKEYS" ZOrder="20" X="25" Y="-1" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
-    <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: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:TBDD_USER" ZOrder="10" X="765" Y="247" Height="305" Width="213" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="235" />
+    <Shape ID="DesignTable:TBDD_DOKUMENTART" ZOrder="12" X="119" Y="308" Height="381" Width="278" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="275" />
+    <Shape ID="DesignTable:TBDD_EINGANGSARTEN" ZOrder="16" 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="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="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="5" X="456" Y="638" Height="360" Width="244" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="292" />
+    <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="8" X="1040" Y="444" Height="381" Width="256" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="313" />
+    <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="9" X="668" Y="605" Height="305" Width="272" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
+    <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="17" 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="3" 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="2" X="135" Y="27" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
+    <Shape ID="DesignTable:TBDD_GROUPS_USER" ZOrder="4" X="1040" Y="71" Height="229" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="159" />
+    <Shape ID="DesignTable:VWGI_USER_GROUPS_RELATION" ZOrder="11" 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="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" />
+    <Shape ID="DesignTable:TBGI_HISTORY" ZOrder="1" X="120" Y="153" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
+    <Shape ID="DesignTable:TBGI_REGEX_DOCTYPE" ZOrder="7" X="1027" Y="881" Height="210" Width="276" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="159" />
+    <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: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:TBAD_Users" ZOrder="13" X="1363" Y="639" Height="143" Width="150" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="86" />
   </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>
-          <Y>656</Y>
+          <X>535</X>
+          <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>
-          <Y>656</Y>
+          <X>597</X>
+          <Y>638</Y>
         </Point>
         <Point>
-          <X>605</X>
-          <Y>148</Y>
+          <X>597</X>
+          <Y>104</Y>
         </Point>
         <Point>
-          <X>743</X>
-          <Y>148</Y>
+          <X>719</X>
+          <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>
-          <Y>682</Y>
+          <X>293</X>
+          <Y>72</Y>
         </Point>
         <Point>
-          <X>959</X>
-          <Y>374</Y>
+          <X>719</X>
+          <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>
-          <Y>262</Y>
+          <X>978</X>
+          <Y>273</Y>
         </Point>
         <Point>
-          <X>1047</X>
-          <Y>262</Y>
-        </Point>
-        <Point>
-          <X>1047</X>
-          <Y>228</Y>
+          <X>1040</X>
+          <Y>273</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="15" LineWidth="11">
       <RoutePoints>
         <Point>
-          <X>951</X>
-          <Y>247</Y>
+          <X>397</X>
+          <Y>663</Y>
         </Point>
         <Point>
-          <X>951</X>
-          <Y>211</Y>
-        </Point>
-        <Point>
-          <X>1014</X>
-          <Y>211</Y>
+          <X>456</X>
+          <Y>663</Y>
         </Point>
       </RoutePoints>
     </Connector>
-    <Connector ID="DesignRelation:FK_TBDD_INDEX_MAN_DAID" ZOrder="27" 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">
+    <Connector ID="DesignRelation:FK_TBGI_REGEX_DOCTYPE_DTID" ZOrder="6" LineWidth="11">
       <RoutePoints>
         <Point>
           <X>380</X>

Global_Indexer/frmAdministration.vb

@@ -6,8 +6,12 @@ Public Class frmAdministration
     Public Shared _Namenkonvention As String
     Public Shared _aktDokart_Id As Integer
 
-    Private GroupToDelete As Integer = Nothing
+    Private SourceAttributes As List(Of String)
+    Private SourceObjectTypes As List(Of String)
 
+    Private Current_ObjectType As String = ""
+
+    Private GroupToDelete As Integer = Nothing
     Private IsInsert As Boolean = False
     Dim frmloaded As Boolean = False
     Private Sub TBDD_DOKUMENTARTBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs)
@@ -32,7 +36,7 @@ Public Class frmAdministration
             TBDD_INDEX_AUTOMTableAdapter.Connection.ConnectionString = MyConnectionString
             Me.TBDD_USERTableAdapter.Connection.ConnectionString = MyConnectionString
             Me.TBGI_CONFIGURATIONTableAdapter.Connection.ConnectionString = MyConnectionString
-            Me.TBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter.Connection.ConnectionString = MyConnectionString
+            'Me.TBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter.Connection.ConnectionString = MyConnectionString
             Me.TBDD_INDEX_MAN_POSTPROCESSINGTableAdapter.Connection.ConnectionString = MyConnectionString
             Me.TBWHDD_INDEX_MANTableAdapter.Connection.ConnectionString = MyConnectionString
             Me.VWGI_USER_GROUPS_RELATIONTableAdapter.Connection.ConnectionString = MyConnectionString
@@ -48,9 +52,6 @@ Public Class frmAdministration
         oDragDropManager.AddGridView(viewAssignedUsers)
         oDragDropManager.AddGridView(viewAvailableUsers)
 
-        RibbonPageCategoryUserGroups.Visible = False
-        RibbonPageCategoryMisc.Visible = False
-
         Dim oDatatable As New DataTable()
         oDatatable.Columns.Add("VALUE_TEXT")
         oDatatable.Columns.Add("DISPLAY_TEXT")
@@ -65,38 +66,35 @@ Public Class frmAdministration
             Me.TBDD_DOKUMENTARTTableAdapter.Fill(Me.MyDataset.TBDD_DOKUMENTART)
             Me.TBDD_EINGANGSARTENTableAdapter.Fill(Me.MyDataset.TBDD_EINGANGSARTEN)
             Me.TBDD_MODULESTableAdapter.Fill(Me.MyDataset.TBDD_MODULES)
-
-            ' Initialize Profile-GridControl before its tab is loaded
-            ' prevents jumping of selected profile when selected tab is changed
-            GridControl3.ForceInitialize()
         Catch ex As Exception
             MsgBox("Error in frmAdministration_Load: " & vbNewLine & ex.Message, MsgBoxStyle.Exclamation)
         End Try
-        If GI_withWindream = True Then
-            If ClassWindream.Init() = True Then
-            End If
+        If IDB_ACTIVE = False Then
+            WINDREAM_DIRECTCheckBox.Visible = True
+        Else
+            WINDREAM_DIRECTCheckBox.Visible = False
         End If
+        'If GI_withWindream = True Then
+        '    If ClassWindream.Init() = True Then
+        '    End If
+        'End If
     End Sub
     Private Sub ObjektTypenEintragen()
         Try
-            pnlObjekttype_Config.Enabled = False
-
-            Dim oDokumentTyp As WINDREAMLib.WMObject
             ' Combobox leeren
             Me.OBJEKTTYPComboBox.Items.Clear()
-            ListBoxControl1.Items.Clear()
             ' alle Objekttypen durchlaufen
-            For Each oDokumentTyp In ClassWindream.GetObjecttypesAsObjects
-                ' und in die Combobox eintragen
-                Me.OBJEKTTYPComboBox.Items.Add(oDokumentTyp.aName)
-                ListBoxControl1.Items.Add(oDokumentTyp.aName)
-            Next
+            If SourceObjectTypes Is Nothing Then
+                SourceObjectTypes = WINDREAM.ObjectTypes
+            End If
 
-            pnlObjekttype_Config.Enabled = True
+            For Each oObjecttype As String In SourceObjectTypes
+                ' und in die Combobox eintragen
+                Me.OBJEKTTYPComboBox.Items.Add(oObjecttype)
+            Next
         Catch ex As Exception
             MsgBox("Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Unexpected error inm Eintragen der Objekttypen")
         End Try
-
     End Sub
     Sub Load_Dokart()
         Try
@@ -189,7 +187,10 @@ Public Class frmAdministration
             End Try
 
             If MyDataset.TBDD_DOKUMENTART.GetChanges Is Nothing = False Then
-                Me.GEANDERTWERTextBox.Text = Environment.UserName
+                If Not IsInsert Then
+                    Me.GEANDERTWERTextBox.Text = Environment.UserName
+                End If
+
                 Try
                     Me.TBDD_DOKUMENTARTBindingSource.EndEdit()
                 Catch ex As Exception
@@ -199,23 +200,28 @@ Public Class frmAdministration
                         MsgBox("Error in EndEdit 2 documenttype: " & vbNewLine & ex.Message, MsgBoxStyle.Exclamation)
                     End If
                 End Try
+
                 TBDD_DOKUMENTARTTableAdapter.Update(MyDataset.TBDD_DOKUMENTART)
-                txtStatus.Caption = $"Profil gespeichert - {Now.ToString}"
+
                 If IsInsert = True Then
                     Dim oNewID As Integer
                     oNewID = ClassDatabase.Execute_Scalar("SELECT MAX(GUID) FROM TBDD_DOKUMENTART", MyConnectionString)
                     If IsNumeric(oNewID) Then
-                        Dim osql = $" EXEC PRDD_CHECK_REL_DOCTYPE_MODULE 'GLOBIX',{oNewID}"
-                        ClassDatabase.Execute_non_Query(osql)
+                        Dim osql = $" EXEC PRDD_CHECK_REL_DOCTYPE_MODULE 'GLOBIX', {oNewID}"
+                        If ClassDatabase.Execute_non_Query(osql) = False Then
+                            MsgBox("Fehler beim zuweisen des neuen Profils zum Modul Global-Indexer!", MsgBoxStyle.Critical, Text)
+                        End If
                     End If
-
                 End If
+
+                SetStatus("Profil gespeichert!")
+            Else
+                ClearStatus()
             End If
             IsInsert = False
         Catch ex As Exception
             MsgBox("Error in Save_Dokumentart: " & vbNewLine & ex.Message, MsgBoxStyle.Exclamation)
         End Try
-
     End Sub
     Private Sub btnNamenkonvention_Click(sender As Object, e As EventArgs) Handles btnNamenkonvention.Click
         Save_Dokumentart()
@@ -240,6 +246,18 @@ Public Class frmAdministration
             gridAvailableGroups.DataSource = ClassDatatables.GetAvailableGroups(CURRENT_DOKART_ID)
             gridAssignedUsers.DataSource = ClassDatatables.GetAssignedUsers(CURRENT_DOKART_ID)
             gridAvailableUsers.DataSource = ClassDatatables.GetAvailableUsers(CURRENT_DOKART_ID)
+
+            If WINDREAM_DIRECTCheckBox.Checked = True Then
+                load_WDIndices()
+            End If
+
+            If TextBox3.Text = String.Empty Then
+                TextBox5.Enabled = False
+                TextBox1.Enabled = False
+            Else
+                TextBox5.Enabled = True
+                TextBox1.Enabled = True
+            End If
         End If
     End Sub
 
@@ -262,7 +280,7 @@ Public Class frmAdministration
 
         MyDataset.TBDD_DOKUMENTART.ERSTELLTWERColumn.DefaultValue = Environment.UserName
         MyDataset.TBDD_DOKUMENTART.OBJEKTTYPColumn.DefaultValue = ""
-        MyDataset.TBDD_DOKUMENTART.NAMENKONVENTIONColumn.DefaultValue = "[%vOFilename]-[%vYY_MM_DD]-[%Version]"
+        MyDataset.TBDD_DOKUMENTART.NAMENKONVENTIONColumn.DefaultValue = "[%vOFilename]-[%vYY_MM_DD]"
         MyDataset.TBDD_DOKUMENTART.DUPLICATE_HANDLINGColumn.DefaultValue = "New version"
         IsInsert = True
     End Sub
@@ -284,17 +302,25 @@ Public Class frmAdministration
     Private Sub OBJEKTTYPComboBox_SelectedIndexChanged(sender As Object, e As EventArgs) Handles OBJEKTTYPComboBox.SelectedIndexChanged
         If WINDREAM_DIRECTCheckBox.Checked = True Then
             load_WDIndices()
+
+            Current_ObjectType = OBJEKTTYPComboBox.Text
         End If
     End Sub
     Sub load_WDIndices()
         Try
-            If Me.OBJEKTTYPComboBox.SelectedIndex <> -1 Then
+            If OBJEKTTYPComboBox.Text <> "" Then
                 Me.WD_INDEXComboBox.Items.Clear()
                 Me.WD_INDEXComboBox.Items.Add("")
-                Dim indexe = ClassWindream.GetIndicesByObjecttype(OBJEKTTYPComboBox.Text)
-                If indexe IsNot Nothing Then
-                    For Each index As String In indexe
-                        Me.WD_INDEXComboBox.Items.Add(index)
+                Me.INDEXNAME_AutoIndexCMB.Items.Clear()
+
+                If SourceAttributes Is Nothing Or Current_ObjectType <> OBJEKTTYPComboBox.Text Then
+                    SourceAttributes = WINDREAM.GetIndiciesByObjecttype(OBJEKTTYPComboBox.Text)
+                End If
+
+                If SourceAttributes IsNot Nothing Then
+                    For Each oIndex As String In SourceAttributes
+                        Me.WD_INDEXComboBox.Items.Add(oIndex)
+                        INDEXNAME_AutoIndexCMB.Items.Add(oIndex)
                     Next
                 End If
             End If
@@ -302,30 +328,17 @@ Public Class frmAdministration
             MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in load_WDIndices: ")
         End Try
     End Sub
-    Sub load_WDIndices2AutoIndizes()
-        Try
-            If Me.OBJEKTTYPComboBox.SelectedIndex <> -1 Then
-                Me.INDEXNAME_AutoIndexCMB.Items.Clear()
-                Dim indexe = ClassWindream.GetIndicesByObjecttype(OBJEKTTYPComboBox.Text)
-                If indexe IsNot Nothing Then
-                    For Each index As String In indexe
-                        Me.INDEXNAME_AutoIndexCMB.Items.Add(index)
-                    Next
-                End If
-            End If
-        Catch ex As Exception
-            MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in load_WDIndices2AutoIndizes: ")
-        End Try
-    End Sub
+
+
     Private Sub frmAdministration_Shown(sender As Object, e As EventArgs) Handles Me.Shown
         If DOKART_GUIDTextBox.Text <> "" Then
             Load_Dokart()
             'Load_INDEXMAN(Me.DOKART_GUIDTextBox.Text)
             Load_ZuordnungDokart_Module(DOKART_GUIDTextBox.Text)
             If SUGGESTIONCheckBox.CheckState = CheckState.Checked Then
-                btnSQLView.Visible = True
+                btnSQLView.Enabled = True
             Else
-                btnSQLView.Visible = False
+                btnSQLView.Enabled = False
             End If
             Load_INDEXMAN(Me.DOKART_GUIDTextBox.Text)
         End If
@@ -374,7 +387,6 @@ Public Class frmAdministration
         If WINDREAM_DIRECTCheckBox.Checked = True Then
             INDEXNAME_AutoIndexTXT.Visible = False
             INDEXNAME_AutoIndexCMB.Visible = True
-            load_WDIndices2AutoIndizes()
         Else
             INDEXNAME_AutoIndexTXT.Visible = True
             INDEXNAME_AutoIndexCMB.Visible = False
@@ -401,12 +413,15 @@ Public Class frmAdministration
     End Sub
     Sub Save_IndexMan()
         Try
+            If Not IsInsert Then
+                CHANGED_WHOTextBox.Text = Environment.UserName
+            End If
+
             Me.TBDD_INDEX_MANBindingSource.EndEdit()
             If MyDataset.TBDD_INDEX_MAN.GetChanges Is Nothing = False Then
-                CHANGED_WHOTextBox.Text = Environment.UserName
                 Me.TBDD_INDEX_MANBindingSource.EndEdit()
                 TBDD_INDEX_MANTableAdapter.Update(MyDataset.TBDD_INDEX_MAN)
-                SetStatus("Index erfolgreich gespeichert!")
+                SetStatus("Manueller Index erfolgreich gespeichert!")
             Else
                 ClearStatus()
             End If
@@ -422,7 +437,9 @@ Public Class frmAdministration
                 CHANGED_WHOTextBox3.Text = Environment.UserName
                 Me.TBDD_INDEX_AUTOMBindingSource.EndEdit()
                 TBDD_INDEX_AUTOMTableAdapter.Update(MyDataset.TBDD_INDEX_AUTOM)
-                SetStatus("Index erfolgreich gespeichert!")
+                SetStatus("Automatischer Index erfolgreich gespeichert!")
+            Else
+                ClearStatus()
             End If
             IsInsert = False
         Catch ex As Exception
@@ -430,22 +447,6 @@ Public Class frmAdministration
         End Try
     End Sub
 
-    Private Sub SUGGESTIONCheckBox_CheckedChanged(sender As Object, e As EventArgs) Handles SUGGESTIONCheckBox.CheckedChanged
-        If frmloaded = True Then
-            If SUGGESTIONCheckBox.CheckState = CheckState.Checked Then
-                btnSQLView.Visible = True
-                MULTISELECTCheckBox.Visible = True
-                VKT_ADD_ITEMCheckbox.Visible = True
-                VKT_PREVENT_MULTIPLE_VALUESCheckbox.Visible = True
-            Else
-                btnSQLView.Visible = False
-                MULTISELECTCheckBox.Visible = False
-                VKT_ADD_ITEMCheckbox.Visible = False
-                VKT_PREVENT_MULTIPLE_VALUESCheckbox.Visible = False
-            End If
-        End If
-    End Sub
-
     Private Sub XtraTabControl1_SelectedPageChanged(sender As Object, e As DevExpress.XtraTab.TabPageChangedEventArgs) Handles XtraTabControl1.SelectedPageChanged
         Dim oSelectedPageName = XtraTabControl1.SelectedTabPage.Name
 
@@ -453,23 +454,11 @@ Public Class frmAdministration
             RibbonControl1.SelectedPage = RibbonPageStart
         End If
 
-        If oSelectedPageName = XtraTabPageUsersGroups.Name Then
-            RibbonPageCategoryUserGroups.Visible = True
-            RibbonControl1.SelectedPage = RibbonPageUserGroups
-        Else
-            RibbonPageCategoryUserGroups.Visible = False
-        End If
-
-        If oSelectedPageName = XtraTabPageEmail.Name Then
-            RibbonPageCategoryMisc.Visible = True
-
-            If oSelectedPageName = XtraTabPageEmail.Name Then
-                RibbonControl1.SelectedPage = RibbonPageEmail
-            End If
-
-
-        Else
-            RibbonPageCategoryMisc.Visible = False
+        If oSelectedPageName = XtraTabPageUsersGroups.Name And DOKART_GUIDTextBox.Text <> "" Then
+            gridAssignedGroups.DataSource = ClassDatatables.GetAssignedGroups(DOKART_GUIDTextBox.Text)
+            gridAvailableGroups.DataSource = ClassDatatables.GetAvailableGroups(DOKART_GUIDTextBox.Text)
+            gridAssignedUsers.DataSource = ClassDatatables.GetAssignedUsers(DOKART_GUIDTextBox.Text)
+            gridAvailableUsers.DataSource = ClassDatatables.GetAvailableUsers(DOKART_GUIDTextBox.Text)
         End If
 
         Select Case XtraTabControl1.SelectedTabPageIndex
@@ -477,89 +466,33 @@ Public Class frmAdministration
                 If DOKART_GUIDTextBox.Text <> "" Then
                     Load_ZuordnungDokart_Module(DOKART_GUIDTextBox.Text)
                 End If
-            Case 2
-                EnableControls(pnlObjekttype_Config, False)
-                ObjektTypenListBoxEintragen()
         End Select
     End Sub
-    Sub load_WDIndicesemail(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()
-            Dim indexe = ClassWindream.GetIndicesByObjecttype(Otype)
-            If indexe IsNot Nothing Then
-                For Each index As String In indexe
-                    Select Case ClassWindream.GetTypeOfIndexAsIntByName(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 ObjektTypenListBoxEintragen()
-        Try
-            Dim oDokumentTyp As WINDREAMLib.WMObject
-            ' Combobox leeren
-            ListBoxControl1.Items.Clear()
-            ' alle Objekttypen durchlaufen
-            For Each oDokumentTyp In ClassWindream.GetObjecttypesAsObjects
-                ' und in die Combobox eintragen
-                ListBoxControl1.Items.Add(oDokumentTyp.aName)
-            Next
-        Catch ex As Exception
-            MsgBox("Error in ObjektTypenListBoxEintragen:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
-            LOGGER.Info(">> ACHTUNG: Error in ObjektTypenListBoxEintragen - " & ex.Message)
-        End Try
-
-    End Sub
 
     Private Sub btnSQLView_Click(sender As Object, e As EventArgs) Handles btnSQLView.Click
-        Save_IndexMan()
-        'CURRENT_INDEXMAN = GUIDTextBox1.Text
-        'frmSQLSuggestion.ShowDialog()
-
         Dim oIndexGuid As Integer = GUIDTextBox1.Text
         Dim oDocTypeGuid As Integer = DOKART_GUIDTextBox.Text
-        Dim oSQLCommand = ""
 
         Try
-            Dim oSQL = $"SELECT SQL_RESULT, CONNECTION_ID FROM TBDD_INDEX_MAN WHERE GUID = {oIndexGuid}"
-            Dim oDatatable As DataTable = ClassDatabase.Return_Datatable(oSQL)
-            Dim oRow = oDatatable.Rows.Item(0)
             Dim oConnection As Integer = 1
+            Dim oSQLCommand = ""
 
-            If Not IsDBNull(oRow.Item("CONNECTION_ID")) Then
-                oConnection = oRow.Item("CONNECTION_ID")
+            If txtManIndexConnectionId.Text <> String.Empty Then
+                oConnection = txtManIndexConnectionId.Text
+            End If
+
+            If txtManIndexSQL.Text <> String.Empty Then
+                oSQLCommand = txtManIndexSQL.Text
             End If
 
             Dim oForm As New frmSQL_DESIGNER(oIndexGuid, oDocTypeGuid) With {
-                .SQLCommand = oRow.Item("SQL_RESULT"),
+                .SQLCommand = oSQLCommand,
                 .ConnectionID = oConnection
             }
 
             If oForm.ShowDialog() = DialogResult.OK Then
-
-                oSQLCommand = oForm.SQLCommand.Replace("'", "''")
-                Dim oConnectionId = oForm.SQLConnectionId
-
-                oSQL = $"UPDATE TBDD_INDEX_MAN SET CONNECTION_ID = {oConnectionId},SQL_RESULT = '{oSQLCommand}',CHANGED_WHO = '{Environment.UserName}' WHERE GUID = {oIndexGuid}"
-                ClassDatabase.Execute_non_Query(oSQL, True)
-
+                txtManIndexSQL.Text = oForm.SQLCommand
+                txtManIndexConnectionId.Text = oForm.SQLConnectionId
             End If
         Catch ex As Exception
             LOGGER.Error(ex)
@@ -576,10 +509,7 @@ Public Class frmAdministration
             lblWDINDEX.Visible = True
             OBJEKTTYPComboBox.Visible = True
             WD_INDEXComboBox.Visible = True
-
-            If ClassWindream.Init() = True Then
-                ObjektTypenEintragen()
-            End If
+            ObjektTypenEintragen()
         Else
             lblObjekttyp.Visible = False
             lblWDINDEX.Visible = False
@@ -597,29 +527,10 @@ Public Class frmAdministration
         End Try
     End Function
 
-    Private Sub ListBoxObjekttypen_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBoxControl1.SelectedIndexChanged
-        If ListBoxControl1.SelectedIndex <> -1 Then
-            Dim oRows As Integer = LoadIDXEmail(ListBoxControl1.SelectedItem)
-
-            If oRows > 0 Then
-                EnableControls(pnlObjekttype_Config)
-            End If
-
-            load_WDIndicesemail(ListBoxControl1.SelectedItem)
-        End If
-    End Sub
-
     Private Sub btnidxemail_add_Click(sender As Object, e As EventArgs)
         Me.TBGI_OBJECTTYPE_EMAIL_INDEXBindingSource.AddNew()
     End Sub
 
-    Private Sub TBGI_OBJECTTYPE_EMAIL_INDEXBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBGI_OBJECTTYPE_EMAIL_INDEXBindingSource.AddingNew
-        If ListBoxControl1.SelectedIndex <> -1 Then
-            MyDataset.TBGI_OBJECTTYPE_EMAIL_INDEX.ADDED_WHOColumn.DefaultValue = Environment.UserName
-            MyDataset.TBGI_OBJECTTYPE_EMAIL_INDEX.OBJECTTYPEColumn.DefaultValue = ListBoxControl1.SelectedItem
-        End If
-    End Sub
-
     Private Sub XtraTabControl2_SelectedPageChanged(sender As Object, e As DevExpress.XtraTab.TabPageChangedEventArgs) Handles XtraTabControl2.SelectedPageChanged
         Load_TabData()
     End Sub
@@ -664,46 +575,36 @@ Public Class frmAdministration
                 lbFileparameter.Visible = True
                 btnAddWindowsVariable.Visible = True
             End If
-            If IsInsert = False Then
-                Save_IndexAuto()
-            End If
+            'If IsInsert = False Then
+            '    Save_IndexAuto()
+            'End If
         End If
     End Sub
 
     Private Sub btnSQLViewAuto_Click(sender As Object, e As EventArgs) Handles btnSQLViewAuto.Click
-        Save_IndexAuto()
-        CURRENT_DOKART_ID = DOKART_GUIDTextBox.Text
-        CURRENT_INDEXAUTO = GUIDAUTO_INDEXTextbox.Text
-        CURRENT_SQL_CONFIG = "AUTO"
-        'SQLConfigAutoIndex.ShowDialog()
-
         Dim oIndexGuid As Integer = GUIDAUTO_INDEXTextbox.Text
         Dim oDocTypeGuid As Integer = DOKART_GUIDTextBox.Text
-        Dim oSQLCommand = ""
 
         Try
-            Dim oSQL = $"SELECT SQL_RESULT, CONNECTION_ID FROM TBDD_INDEX_AUTOM WHERE GUID = {oIndexGuid}"
-            Dim oDatatable As DataTable = ClassDatabase.Return_Datatable(oSQL)
-            Dim oRow = oDatatable.Rows.Item(0)
             Dim oConnection As Integer = 1
+            Dim oSQLCommand = ""
 
-            If Not IsDBNull(oRow.Item("CONNECTION_ID")) Then
-                oConnection = oRow.Item("CONNECTION_ID")
+            If txtAutomIndexConnectionId.Text <> String.Empty Then
+                oConnection = txtAutomIndexConnectionId.Text
+            End If
+
+            If txtAutomIndexSQLResult.Text <> String.Empty Then
+                oSQLCommand = txtAutomIndexSQLResult.Text
             End If
 
             Dim oForm As New frmSQL_DESIGNER(oIndexGuid, oDocTypeGuid) With {
-                .SQLCommand = oRow.Item("SQL_RESULT"),
+                .SQLCommand = oSQLCommand,
                 .ConnectionID = oConnection
             }
 
             If oForm.ShowDialog() = DialogResult.OK Then
-
-                oSQLCommand = oForm.SQLCommand.Replace("'", "''")
-                Dim oConnectionId = oForm.SQLConnectionId
-
-                oSQL = $"UPDATE TBDD_INDEX_AUTOM SET CONNECTION_ID = {oConnectionId},SQL_RESULT = '{oSQLCommand}',CHANGED_WHO = '{Environment.UserName}' WHERE GUID = {oIndexGuid}"
-                ClassDatabase.Execute_non_Query(oSQL, True)
-
+                txtAutomIndexSQLResult.Text = oForm.SQLCommand
+                txtAutomIndexConnectionId.Text = oForm.SQLConnectionId
             End If
         Catch ex As Exception
             LOGGER.Error(ex)
@@ -712,9 +613,13 @@ Public Class frmAdministration
 
     Private Sub TYPEComboBox_SelectedIndexChanged(sender As Object, e As EventArgs) Handles TYPEComboBox.SelectedIndexChanged
         If TYPEComboBox.SelectedIndex <> -1 Then
+            FUNCTION1TextBox.Visible = False
+            FUNCTION2TextBox.Visible = False
+            Function1Label.Visible = False
+            Function2Label.Visible = False
+
             Select Case TYPEComboBox.Text
                 Case "VBREPLACE"
-
                     If USER_LANGUAGE = "de-DE" Then
                         Text1Label.Text = "Alter Wert:"
                         Text2Label.Text = "Neuer Wert:"
@@ -723,74 +628,52 @@ Public Class frmAdministration
                         Text2Label.Text = "New Value:"
                     End If
 
-                    Me.TEXT1TextBox.Visible = True
-                    TEXT1TextBox.Width = 165
+                    Text1Label.Visible = True
+                    Text1TextBox.Visible = True
+                    Text1TextBox.Width = 150
 
-                    Me.TEXT2TextBox.Visible = True
-                    Me.TEXT2TextBox.Width = 191
-                    Me.Text3Label.Visible = False
-                    Me.TEXT3TextBox.Visible = False
-                    Me.FUNCTION1TextBox.Visible = False
-                    Me.FUNCTION2TextBox.Visible = False
-                    Me.Function1Label.Visible = False
-                    Me.Function2Label.Visible = False
+                    Text2Label.Visible = True
+                    Text2TextBox.Visible = True
+                    Text2TextBox.Width = 150
 
-                    Me.Function1Label.Visible = False
-                    Me.Function2Label.Visible = False
-                    Me.FUNCTION1TextBox.Visible = False
-                    Me.FUNCTION2TextBox.Visible = False
+                    Text3Label.Visible = False
+                    Text3TextBox.Visible = False
 
                 Case "VBSPLIT"
-
                     If USER_LANGUAGE = "de-DE" Then
                         Text1Label.Text = "Split-Zeichen:"
-                        Text2Label.Text = "Wähle Vorkommen: Achtung Nullbasierend - Erstes Vorkommen = '0'"
+                        Text2Label.Text = "Wähle Vorkommen: (Nullbasierend)"
                     Else
                         Text1Label.Text = "Split-Character:"
-                        Text2Label.Text = "Choose occurrence: 0-Based - First occurrence = '0'"
+                        Text2Label.Text = "Choose occurrence: (Zero-Based)"
                     End If
 
-                    Me.FUNCTION1TextBox.Visible = True
-                    Me.FUNCTION2TextBox.Visible = True
-                    Me.Function1Label.Visible = True
-                    Me.Function2Label.Visible = True
+                    Text1Label.Visible = True
+                    Text1TextBox.Visible = True
+                    Text1TextBox.Width = 150
 
+                    Text2Label.Visible = True
+                    Text2TextBox.Visible = True
+                    Text2TextBox.Width = 150
 
-                    Me.TEXT1TextBox.Visible = True
-                    TEXT1TextBox.Width = 50
+                    Text3Label.Visible = False
+                    Text3TextBox.Visible = False
 
-                    Me.TEXT2TextBox.Visible = True
-                    Me.TEXT2TextBox.Width = 50
-                    Me.TEXT3TextBox.Visible = False
-                    Me.Text3Label.Visible = False
-
-                    Me.Function1Label.Visible = False
-                    Me.Function2Label.Visible = False
-                    Me.FUNCTION1TextBox.Visible = False
-                    Me.FUNCTION2TextBox.Visible = False
                 Case "REG. EXPRESSION"
-
                     If USER_LANGUAGE = "de-DE" Then
-                        Me.Text1Label.Text = "Regulärer Ausdruck:"
+                        Text1Label.Text = "Regulärer Ausdruck:"
                     Else
-                        Me.Text1Label.Text = "Regular Expression:"
+                        Text1Label.Text = "Regular Expression:"
                     End If
 
-                    Me.TEXT1TextBox.Visible = True
-                    TEXT1TextBox.Width = 537
-                    Me.Text2Label.Visible = False
-                    Me.TEXT2TextBox.Visible = False
-                    Me.Text3Label.Visible = False
-                    Me.TEXT3TextBox.Visible = False
-                    Me.FUNCTION1TextBox.Visible = False
-                    Me.FUNCTION2TextBox.Visible = False
-                    Me.Function1Label.Visible = False
-                    Me.Function2Label.Visible = False
+                    Text1TextBox.Visible = True
+                    Text1TextBox.Width = 300
 
-                    Me.Function1Label.Visible = False
-                    Me.Function2Label.Visible = False
-                    Me.FUNCTION1TextBox.Visible = False
-                    Me.FUNCTION2TextBox.Visible = False
+                    Text2Label.Visible = False
+                    Text2TextBox.Visible = False
+
+                    Text3Label.Visible = False
+                    Text3TextBox.Visible = False
             End Select
         End If
 
@@ -800,15 +683,21 @@ Public Class frmAdministration
     End Sub
     Sub Save_PostProcessing()
         Try
+            If Not IsInsert Then
+                CHANGED_WHOTextBox4.Text = Environment.UserName
+            End If
+
             TBDD_INDEX_MAN_POSTPROCESSINGBindingSource.EndEdit()
             If MyDataset.TBDD_INDEX_MAN_POSTPROCESSING.GetChanges Is Nothing = False Then
-                CHANGED_WHOTextBox4.Text = Environment.UserName
+
                 TBDD_INDEX_MAN_POSTPROCESSINGBindingSource.EndEdit()
                 Me.TBDD_INDEX_MAN_POSTPROCESSINGTableAdapter.Update(MyDataset.TBDD_INDEX_MAN_POSTPROCESSING)
-                SetStatus("Funktion erfolgreich gespeichert!")
+                SetStatus("Nachbearbeitungsfunktion erfolgreich gespeichert!")
             Else
                 ClearStatus()
             End If
+
+            IsInsert = False
         Catch ex As Exception
             MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in Save Post Processing: ")
         End Try
@@ -817,9 +706,11 @@ Public Class frmAdministration
     Private Sub TBDD_INDEX_MAN_POSTPROCESSINGBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBDD_INDEX_MAN_POSTPROCESSINGBindingSource.AddingNew
         Save_Dokumentart()
         EnableControls(XtraTabPageManualIndexFunctions)
+        MyDataset.TBDD_INDEX_MAN_POSTPROCESSING.ADDED_WHENColumn.DefaultValue = DateTime.Now
         MyDataset.TBDD_INDEX_MAN_POSTPROCESSING.ADDED_WHOColumn.DefaultValue = Environment.UserName
         MyDataset.TBDD_INDEX_MAN_POSTPROCESSING.SEQUENCEColumn.DefaultValue = 1
         MyDataset.TBDD_INDEX_MAN_POSTPROCESSING.COMMENTColumn.DefaultValue = "Funktions Name"
+        IsInsert = True
     End Sub
     Sub EnableControls(Control As Control, Optional Value As Boolean = True)
         For Each oSubControl As Control In Control.Controls
@@ -857,7 +748,8 @@ Public Class frmAdministration
             txtcrFoldermanuell.Text = ""
         End If
         Me.TBDD_DOKUMENTARTTableAdapter.cmdUpdateFolderIndex(Environment.UserName, FOLDER_FOR_INDEXTextBox.Text, DOKART_GUIDTextBox.Text)
-        txtStatus.Caption = $"Profil gespeichert - {Now.ToString}"
+
+        SetStatus("Profil gespeichert")
     End Sub
     Private Sub cmbCrFolderIndex_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmbCrFolderIndex.SelectedIndexChanged
         cmbCrFolderDate.SelectedIndex = -1
@@ -960,12 +852,20 @@ Public Class frmAdministration
 
     Private Sub WD_INDEXComboBox_SelectedIndexChanged(sender As Object, e As EventArgs) Handles WD_INDEXComboBox.SelectedIndexChanged
         _indexIsVectorField = indexIsVectorField()
-        MULTISELECTCheckBox.Visible = _indexIsVectorField
-        VKT_PREVENT_MULTIPLE_VALUESCheckbox.Visible = _indexIsVectorField
+        MULTISELECTCheckBox.Enabled = _indexIsVectorField
+
 
         If Not _indexIsVectorField Then
             MULTISELECTCheckBox.Checked = False
-            VKT_PREVENT_MULTIPLE_VALUESCheckbox.Checked = False
+            'VKT_PREVENT_MULTIPLE_VALUESCheckbox.Checked = False
+        End If
+
+        If MULTISELECTCheckBox.Checked Then
+            VKT_PREVENT_MULTIPLE_VALUESCheckbox.Enabled = True
+            VKT_ADD_ITEMCheckbox.Enabled = True
+        Else
+            VKT_PREVENT_MULTIPLE_VALUESCheckbox.Enabled = False
+            VKT_ADD_ITEMCheckbox.Enabled = False
         End If
     End Sub
 
@@ -978,7 +878,7 @@ Public Class frmAdministration
             End If
 
             ' Vektorindexe fangen bei 4000 an
-            Return ClassWindream.GetTypeOfIndexAsIntByName(selectedIndexName) > 4000
+            Return WINDREAM.GetIndexType(selectedIndexName) > 4000
         Catch ex As Exception
             Return False
         End Try
@@ -986,7 +886,13 @@ Public Class frmAdministration
 
     Private Sub TBGI_REGEX_DOCTYPEBindingSource_AddingNew(sender As Object, e As AddingNewEventArgs) Handles TBGI_REGEX_DOCTYPEBindingSource.AddingNew
         MyDataset.TBGI_REGEX_DOCTYPE.ADDED_WHOColumn.DefaultValue = Environment.UserName
+        MyDataset.TBGI_REGEX_DOCTYPE.ADDED_WHENColumn.DefaultValue = Date.Now()
         MyDataset.TBGI_REGEX_DOCTYPE.DOCTYPE_IDColumn.DefaultValue = DOKART_GUIDTextBox.Text
+
+        TextBox5.Enabled = True
+        TextBox1.Enabled = True
+
+        IsInsert = True
     End Sub
 
     Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick
@@ -1041,7 +947,7 @@ Public Class frmAdministration
                 Dim del As String = " EXEC PRDD_GLOBIX_DELETE_DOCTYPE " & DOKART_GUIDTextBox.Text
                 If ClassDatabase.Execute_non_Query(del, True) = True Then
                     Load_Dokart()
-
+                    TBDD_DOKUMENTARTBindingSource.ResetBindings(True)
 
                     If USER_LANGUAGE = "de-DE" Then
                         MsgBox("Das Profil wurde erfolgreich gelöscht!", MsgBoxStyle.Information)
@@ -1055,7 +961,6 @@ Public Class frmAdministration
             End Try
         End If
     End Sub
-
     Private Sub BarButtonItem8_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem8.ItemClick
         Dim result As MsgBoxResult
 
@@ -1097,35 +1002,7 @@ Public Class frmAdministration
         TBDD_DOKUMENTARTBindingSource.AddNew()
     End Sub
 
-    Private Sub BarButtonItem9_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem9.ItemClick
-        Me.TBGI_OBJECTTYPE_EMAIL_INDEXBindingSource.AddNew()
-        EnableControls(pnlObjekttype_Config)
-    End Sub
 
-    Private Sub BarButtonItem10_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem10.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 BarButtonItem11_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem11.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 BarButtonItem13_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs)
         TBGI_REGEX_DOCTYPEBindingSource.AddNew()
@@ -1158,11 +1035,15 @@ Public Class frmAdministration
         End Try
     End Sub
 
-    Private Sub BarButtonItem12_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem12.ItemClick
+    Private Sub BarButtonItem12_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs)
         ObjektTypenEintragen()
     End Sub
 
     Private Sub BarButtonItem13_ItemClick_1(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem13.ItemClick
+        If Not IsInsert Then
+            TextBox4.Text = Environment.UserName
+        End If
+
         Try
             Me.TBGI_REGEX_DOCTYPEBindingSource.EndEdit()
         Catch ex As Exception
@@ -1171,14 +1052,18 @@ Public Class frmAdministration
         End Try
 
         If MyDataset.TBGI_REGEX_DOCTYPE.GetChanges Is Nothing = False Then
-            TextBox4.Text = Environment.UserName
             Try
                 Me.TBGI_REGEX_DOCTYPEBindingSource.EndEdit()
             Catch ex As Exception
                 MsgBox("Error in Save Regex2: " & vbNewLine & ex.Message, MsgBoxStyle.Exclamation)
             End Try
             TBGI_REGEX_DOCTYPETableAdapter.Update(MyDataset.TBGI_REGEX_DOCTYPE)
+            SetStatus("Profilzuordnung gespeichert!")
+        Else
+            ClearStatus()
         End If
+
+        IsInsert = False
     End Sub
 
     Private Sub BarButtonItem14_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem14.ItemClick
@@ -1194,6 +1079,10 @@ Public Class frmAdministration
 
     Private Sub BarButtonItem16_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem16.ItemClick
         TBDD_INDEX_MANBindingSource.AddNew()
+
+        If WINDREAM_DIRECTCheckBox.Checked = True Then
+            load_WDIndices()
+        End If
     End Sub
 
     Private Sub BarButtonItem17_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem17.ItemClick
@@ -1227,7 +1116,9 @@ Public Class frmAdministration
     End Sub
 
     Private Sub BarButtonItem18_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem18.ItemClick
-        Load_INDEXMAN(Me.DOKART_GUIDTextBox.Text)
+        If DOKART_GUIDTextBox.Text <> String.Empty Then
+            Load_INDEXMAN(DOKART_GUIDTextBox.Text)
+        End If
     End Sub
 
     Private Sub BarButtonItem20_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem20.ItemClick
@@ -1267,6 +1158,10 @@ Public Class frmAdministration
 
     Private Sub BarButtonItem24_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem24.ItemClick
         TBDD_INDEX_AUTOMBindingSource.AddNew()
+
+        If WINDREAM_DIRECTCheckBox.Checked = True Then
+            load_WDIndices()
+        End If
     End Sub
 
     Private Sub ToolStripButton17_Click(sender As Object, e As EventArgs)
@@ -1343,15 +1238,9 @@ Public Class frmAdministration
 
     Private Sub BarButtonItem28_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem28.ItemClick
         TBGI_REGEX_DOCTYPEBindingSource.AddNew()
-        EnableControls(XtraTabPageProfileRegex)
-    End Sub
 
-    Private Sub ListBoxControl3_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBoxControl3.SelectedIndexChanged
-        If ListBoxControl3.SelectedIndex = -1 Then
-            EnableControls(Panel1, False)
-        Else
-            EnableControls(Panel1)
-        End If
+
+        EnableControls(XtraTabPageProfileRegex)
     End Sub
 
     Private Sub GridView1_ValidateRow(sender As Object, e As ValidateRowEventArgs) Handles GridView1.ValidateRow
@@ -1361,4 +1250,78 @@ Public Class frmAdministration
     Private Sub GridView1_InvalidRowException(sender As Object, e As InvalidRowExceptionEventArgs) Handles GridView1.InvalidRowException
         e.ExceptionMode = DevExpress.XtraEditors.Controls.ExceptionMode.NoAction
     End Sub
+
+    Private Sub MULTISELECTCheckBox_CheckedChanged(sender As Object, e As EventArgs) Handles MULTISELECTCheckBox.CheckedChanged
+        If MULTISELECTCheckBox.Checked Then
+            VKT_PREVENT_MULTIPLE_VALUESCheckbox.Enabled = True
+        Else
+            VKT_PREVENT_MULTIPLE_VALUESCheckbox.Enabled = False
+        End If
+    End Sub
+
+    Private Sub SUGGESTIONCheckBox_CheckedChanged(sender As Object, e As EventArgs) Handles SUGGESTIONCheckBox.CheckedChanged
+        If SUGGESTIONCheckBox.CheckState = CheckState.Checked Then
+            btnSQLView.Enabled = True
+        Else
+            btnSQLView.Enabled = False
+        End If
+    End Sub
+
+    Private Sub SUGGESTIONCheckBoxMULTISELECTCheckBox_CheckedChanged(sender As Object, e As EventArgs) Handles SUGGESTIONCheckBox.CheckedChanged, MULTISELECTCheckBox.CheckedChanged
+        If SUGGESTIONCheckBox.Checked Or MULTISELECTCheckBox.Checked Then
+            VKT_ADD_ITEMCheckbox.Enabled = True
+        Else
+            VKT_ADD_ITEMCheckbox.Enabled = False
+        End If
+    End Sub
+
+    Private Sub TBDD_INDEX_MANBindingSource_CurrentChanged(sender As Object, e As EventArgs) Handles TBDD_INDEX_MANBindingSource.CurrentChanged
+        If ListBoxControl3.SelectedIndex = -1 Then
+            EnableControls(Panel1, False)
+        Else
+            EnableControls(Panel1)
+        End If
+
+        If SUGGESTIONCheckBox.CheckState = CheckState.Checked Then
+            btnSQLView.Enabled = True
+        Else
+            btnSQLView.Enabled = False
+        End If
+
+        If MULTISELECTCheckBox.Checked Then
+            VKT_PREVENT_MULTIPLE_VALUESCheckbox.Enabled = True
+        Else
+            VKT_PREVENT_MULTIPLE_VALUESCheckbox.Enabled = False
+        End If
+
+        If MULTISELECTCheckBox.Checked Or SUGGESTIONCheckBox.Checked Then
+            VKT_ADD_ITEMCheckbox.Enabled = True
+        Else
+            VKT_ADD_ITEMCheckbox.Enabled = False
+        End If
+    End Sub
+
+    Private Sub BarButtonItem29_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem29.ItemClick
+        frmEmailIndexing.ShowDialog()
+    End Sub
+
+    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
+        If lbManIndexDefaultValueParameter.SelectedIndex >= 0 Then
+            Dim oValue As String = String.Empty
+
+            Select Case lbManIndexDefaultValueParameter.SelectedIndex
+                Case 0 : oValue = "$filename_ext"
+                Case 1 : oValue = "$filename"
+                Case 2 : oValue = "$extension"
+                Case 3 : oValue = "$FileCreateDate"
+                Case 4 : oValue = "$FileCreatedWho"
+                Case 5 : oValue = "$DateDDMMYYY"
+                Case 6 : oValue = "$Username"
+                Case 7 : oValue = "$Usercode"
+                Case 8 : oValue = "$Null"
+            End Select
+
+            DEFAULT_VALUETextBox.Text = oValue
+        End If
+    End Sub
 End Class

Global_Indexer/frmConfig_Basic.resx

@@ -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

@@ -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)
@@ -293,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
 
@@ -359,6 +359,7 @@ Public Class frmConfig_Basic
             'SaveConfigValue("LogErrorsOnly", chkLogErrorsOnly.Checked)
             LOGGER.Info(" >> LogErrorsOnly changed to '" & chkLogErrorsOnly.Checked)
             LogErrorsOnly = chkLogErrorsOnly.Checked
+            LOGCONFIG.Debug = Not chkLogErrorsOnly.Checked
         End If
     End Sub
     <STAThread()> _

Global_Indexer/frmConnections.Designer.vb

@@ -150,11 +150,6 @@ Partial Class frmConnections
         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
         '
         'BEZEICHNUNGTextBox

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

@@ -167,11 +167,6 @@ Partial Class frmHistory
         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/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
-                                        LOGGER.Info(">> Hotkey-Profil: " & ID & " wurde gelöscht!")
-                                        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,343 +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_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.CheckState = System.Windows.Forms.CheckState.Checked
-        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,111 +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
-        CONFIG.Config.WindreamSearchMaximized = chkbxMaximizeWS.Checked
-        CONFIG.Save()
-    End Sub
-End Class

Global_Indexer/frmIndex.designer.vb

@@ -34,7 +34,7 @@ Partial Class frmIndex
         Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl()
         Me.BarToggleSwitchItem1 = New DevExpress.XtraBars.BarToggleSwitchItem()
         Me.BarToggleSwitchItem2 = New DevExpress.XtraBars.BarToggleSwitchItem()
-        Me.BarCheckItem1 = New DevExpress.XtraBars.BarCheckItem()
+        Me.checkItemTopMost = New DevExpress.XtraBars.BarCheckItem()
         Me.checkItemDeleteSource = New DevExpress.XtraBars.BarCheckItem()
         Me.checkItemPreselection = New DevExpress.XtraBars.BarCheckItem()
         Me.labelError = New DevExpress.XtraBars.BarStaticItem()
@@ -142,7 +142,7 @@ Partial Class frmIndex
         'RibbonControl1
         '
         Me.RibbonControl1.ExpandCollapseItem.Id = 0
-        Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarToggleSwitchItem1, Me.BarToggleSwitchItem2, Me.BarCheckItem1, Me.checkItemDeleteSource, Me.checkItemPreselection, Me.labelError, Me.BarStaticItem1, Me.BarStaticItem2, Me.labelFilePath, Me.checkItemPreview, Me.labelNotice, Me.BarListItem1, Me.BarStaticItem4, Me.BarButtonItem1})
+        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})
         resources.ApplyResources(Me.RibbonControl1, "RibbonControl1")
         Me.RibbonControl1.MaxItemId = 22
         Me.RibbonControl1.Name = "RibbonControl1"
@@ -162,12 +162,14 @@ Partial Class frmIndex
         Me.BarToggleSwitchItem2.Id = 2
         Me.BarToggleSwitchItem2.Name = "BarToggleSwitchItem2"
         '
-        'BarCheckItem1
+        'checkItemTopMost
         '
-        resources.ApplyResources(Me.BarCheckItem1, "BarCheckItem1")
-        Me.BarCheckItem1.Id = 5
-        Me.BarCheckItem1.ImageOptions.SvgImage = CType(resources.GetObject("BarCheckItem1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
-        Me.BarCheckItem1.Name = "BarCheckItem1"
+        Me.checkItemTopMost.BindableChecked = True
+        resources.ApplyResources(Me.checkItemTopMost, "checkItemTopMost")
+        Me.checkItemTopMost.Checked = True
+        Me.checkItemTopMost.Id = 5
+        Me.checkItemTopMost.ImageOptions.SvgImage = CType(resources.GetObject("checkItemTopMost.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
+        Me.checkItemTopMost.Name = "checkItemTopMost"
         '
         'checkItemDeleteSource
         '
@@ -265,7 +267,7 @@ Partial Class frmIndex
         'RibbonPageGroup2
         '
         Me.RibbonPageGroup2.Alignment = DevExpress.XtraBars.Ribbon.RibbonPageGroupAlignment.Far
-        Me.RibbonPageGroup2.ItemLinks.Add(Me.BarCheckItem1)
+        Me.RibbonPageGroup2.ItemLinks.Add(Me.checkItemTopMost)
         Me.RibbonPageGroup2.Name = "RibbonPageGroup2"
         resources.ApplyResources(Me.RibbonPageGroup2, "RibbonPageGroup2")
         '
@@ -320,11 +322,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
@@ -349,7 +346,7 @@ Partial Class frmIndex
         Me.Controls.Add(Me.SplitContainer1)
         Me.Controls.Add(Me.RibbonStatusBar1)
         Me.Controls.Add(Me.RibbonControl1)
-        Me.IconOptions.SvgImage = CType(resources.GetObject("frmIndex.IconOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
+        Me.IconOptions.Image = Global.Global_Indexer.My.Resources.Resources.DD_Icons_ICO_GLOBIX_128
         Me.Name = "frmIndex"
         Me.Ribbon = Me.RibbonControl1
         Me.StatusBar = Me.RibbonStatusBar1
@@ -402,7 +399,7 @@ Partial Class frmIndex
     Friend WithEvents RibbonPage2 As DevExpress.XtraBars.Ribbon.RibbonPage
     Friend WithEvents BarToggleSwitchItem1 As DevExpress.XtraBars.BarToggleSwitchItem
     Friend WithEvents BarToggleSwitchItem2 As DevExpress.XtraBars.BarToggleSwitchItem
-    Friend WithEvents BarCheckItem1 As DevExpress.XtraBars.BarCheckItem
+    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

Global_Indexer/frmIndex.resx

@@ -246,11 +246,11 @@
   <data name="BarToggleSwitchItem2.Caption" xml:space="preserve">
     <value>Multi Indexing</value>
   </data>
-  <data name="BarCheckItem1.Caption" xml:space="preserve">
+  <data name="checkItemTopMost.Caption" xml:space="preserve">
     <value>Andere Fenster überdecken</value>
   </data>
   <assembly alias="DevExpress.Data.v19.2" name="DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
-  <data name="BarCheckItem1.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
+  <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
@@ -639,7 +639,7 @@
     <value>DocumentViewer1</value>
   </data>
   <data name="&gt;&gt;DocumentViewer1.Type" xml:space="preserve">
-    <value>DigitalData.Controls.DocumentViewer.DocumentViewer, DigitalData.Controls.DocumentViewer, Version=1.0.0.0, Culture=neutral, PublicKeyToken=null</value>
+    <value>DigitalData.Controls.DocumentViewer.DocumentViewer, DigitalData.Controls.DocumentViewer, Version=1.0.3.0, Culture=neutral, PublicKeyToken=null</value>
   </data>
   <data name="&gt;&gt;DocumentViewer1.Parent" xml:space="preserve">
     <value>SplitContainer1.Panel2</value>
@@ -722,32 +722,6 @@
   <data name="$this.Font" type="System.Drawing.Font, System.Drawing">
     <value>Segoe UI, 9.75pt</value>
   </data>
-  <data name="frmIndex.IconOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
-        LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
-        dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAGYEAAAC77u/
-        PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
-        IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
-        MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
-        Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
-        MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5Z
-        ZWxsb3d7ZmlsbDojRkZCMTE1O30KCS5SZWR7ZmlsbDojRDExQzFDO30KCS5HcmVlbntmaWxsOiMwMzlD
-        MjM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh
-        Y2l0eTowLjU7fQoJLnN0MXtvcGFjaXR5OjAuNzU7fQoJLnN0MntkaXNwbGF5Om5vbmU7fQoJLnN0M3tk
-        aXNwbGF5OmlubGluZTtmaWxsOiNGRkIxMTU7fQoJLnN0NHtkaXNwbGF5OmlubGluZTt9Cgkuc3Q1e2Rp
-        c3BsYXk6aW5saW5lO29wYWNpdHk6MC43NTt9Cgkuc3Q2e2Rpc3BsYXk6aW5saW5lO29wYWNpdHk6MC41
-        O30KCS5zdDd7ZGlzcGxheTppbmxpbmU7ZmlsbDojMDM5QzIzO30KCS5zdDh7ZGlzcGxheTppbmxpbmU7
-        ZmlsbDojRDExQzFDO30KCS5zdDl7ZGlzcGxheTppbmxpbmU7ZmlsbDojMTE3N0Q3O30KCS5zdDEwe2Rp
-        c3BsYXk6aW5saW5lO2ZpbGw6I0ZGRkZGRjt9Cjwvc3R5bGU+DQogIDxnIGlkPSJEb2N1bWVudF8xXyI+
-        DQogICAgPHBhdGggZD0iTTE1LDIwbDktOWw1LDVsLTksOUwxNSwyMHogTTMxLjcsMTEuOWwtMy42LTMu
-        NmMtMC40LTAuNC0xLTAuNC0xLjQsMEwyNSwxMGw1LDVsMS43LTEuNyAgIEMzMi4xLDEyLjksMzIuMSwx
-        Mi4zLDMxLjcsMTEuOXogTTE0LDI2aDVsLTUtNVYyNnoiIGNsYXNzPSJCbHVlIiAvPg0KICAgIDxwYXRo
-        IGQ9Ik0yNCwyMy44VjI4aC00LjJIMTJINlY0aDE4djQuMmwyLTJWM2MwLTAuNS0wLjUtMS0xLTFINUM0
-        LjQsMiw0LDIuNSw0LDN2MjZjMCwwLjUsMC41LDEsMSwxaDIwICAgYzAuNSwwLDEtMC41LDEtMXYtNy4y
-        TDI0LDIzLjh6IiBjbGFzcz0iQmxhY2siIC8+DQogIDwvZz4NCjwvc3ZnPgs=
-</value>
-  </data>
   <data name="$this.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms">
     <value>3, 4, 3, 4</value>
   </data>
@@ -766,10 +740,10 @@
   <data name="&gt;&gt;BarToggleSwitchItem2.Type" xml:space="preserve">
     <value>DevExpress.XtraBars.BarToggleSwitchItem, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
-  <data name="&gt;&gt;BarCheckItem1.Name" xml:space="preserve">
-    <value>BarCheckItem1</value>
+  <data name="&gt;&gt;checkItemTopMost.Name" xml:space="preserve">
+    <value>checkItemTopMost</value>
   </data>
-  <data name="&gt;&gt;BarCheckItem1.Type" xml:space="preserve">
+  <data name="&gt;&gt;checkItemTopMost.Type" xml:space="preserve">
     <value>DevExpress.XtraBars.BarCheckItem, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
   <data name="&gt;&gt;checkItemDeleteSource.Name" xml:space="preserve">

Global_Indexer/frmIndexFileList.Designer.vb

@@ -95,11 +95,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

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
         '
@@ -215,11 +207,7 @@ Partial Class frmNamenkonvention
         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.TBGI_REGEX_DOCTYPETableAdapter = Nothing
         Me.TableAdapterManager.UpdateOrder = Global_Indexer.MyDatasetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete
         '
         'TBDD_INDEX_AUTOMTableAdapter
@@ -307,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">
-    <value>Indicies:</value>
+  <data name="GroupBox2.Text" xml:space="preserve">
+    <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>
-  </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>
+    <value>Add Fileseparator:</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

@@ -130,11 +130,6 @@ Partial Class SQLConfigAutoIndex
         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.Designer.vb

@@ -137,11 +137,6 @@ Partial Class frmSQLSuggestion
         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/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 DevExpress.XtraEditors.XtraForm
+    Inherits Windows.Forms.Form
 
     '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,14 +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()
-        CType(Me.TBHOTKEY_USER_PROFILEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
         'MenuStrip1
@@ -67,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"
@@ -100,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"
@@ -122,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
         '
@@ -188,13 +165,10 @@ Partial Class frmStart
         Me.MyDataset.DataSetName = "MyDataset"
         Me.MyDataset.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
         '
-        'TBHOTKEY_USER_PROFILETableAdapter
-        '
-        Me.TBHOTKEY_USER_PROFILETableAdapter.ClearBeforeFill = True
-        '
         'TableAdapterManager
         '
         Me.TableAdapterManager.BackupDataSetBeforeUpdate = False
+        Me.TableAdapterManager.Connection = Nothing
         Me.TableAdapterManager.TBDD_CONNECTIONTableAdapter = Nothing
         Me.TableAdapterManager.TBDD_DOKUMENTARTTableAdapter = Nothing
         Me.TableAdapterManager.TBDD_EINGANGSARTENTableAdapter = Nothing
@@ -206,17 +180,13 @@ Partial Class frmStart
         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 = 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
         '
@@ -224,23 +194,18 @@ Partial Class frmStart
         '
         Me.AllowDrop = 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.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()
-        CType(Me.TBHOTKEY_USER_PROFILEBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
         Me.PerformLayout()
 
@@ -248,16 +213,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.vb

@@ -125,10 +125,9 @@ 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
@@ -137,60 +136,7 @@ Public Class frmStart
             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
-        LOGGER.Info(" ...Focused window result: '" & CURRENT_FOCUSES_WINDOWNAME & "'")
 
-        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
@@ -234,7 +180,16 @@ Public Class frmStart
             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()
                 DTACTUAL_FILES = Nothing
                 DTACTUAL_FILES = ClassDatabase.Return_Datatable(sql, True)
@@ -252,9 +207,7 @@ Public Class frmStart
             Next
             Show()
         Catch ex As Exception
-            If Not ex.Message.StartsWith("Die Auflistung wurde geändert") Then
-                MsgBox("Unexpected Error in Check_Dropped_Files:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
-            End If
+            MsgBox("Unexpected Error in Check_Dropped_Files:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
         End Try
     End Sub
 
@@ -262,15 +215,11 @@ Public Class frmStart
         Try
             Hide()
             IndexForm.ShowDialog()
-
-            'AddHandler frmIndex.FormClosed, Sub()
-            '                                    Show()
-            '                                    BringToFront()
-            '                                End Sub
-
         Catch ex As Exception
             LOGGER.Error(ex)
             MsgBox(ex.Message, MsgBoxStyle.Critical)
+        Finally
+            Show()
         End Try
     End Sub
 
@@ -286,9 +235,6 @@ Public Class frmStart
         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
         Try
             For Each _file In TEMP_FILES
@@ -324,7 +270,7 @@ Public Class frmStart
             IndexForm = New frmIndex()
 
             '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
                     LOGGER.Info(">> User is Admin - Timer will be started")
                     If USER_LANGUAGE = "de-DE" Then
@@ -363,9 +309,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()
-            Me.Opacity = 30
+
+            TopMost = True
 
         Catch ex As Exception
             MsgBox("Unexpected Error in Load-Form" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
@@ -469,76 +414,8 @@ Public Class frmStart
         End If
 
     End Sub
-    Sub Unregister_Hotkeys()
-        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
-                LOGGER.Info(" >> " & DT.Rows.Count & " Hotkey-Profile")
-                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"
-                            LOGGER.Info(" >>" & i.ToString + "|Strg " & row.Item("HOTKEY2").ToString.ToUpper)
-                            HotKey.AddHotKey(keyCode, clsHotkey.MODKEY.MOD_CONTROL, row.Item("HOTKEY_ID"))
-                        Case "Shift"
-                            LOGGER.Info(" >>" & i.ToString + "|Shift " & row.Item("HOTKEY2").ToString.ToUpper)
-                            HotKey.AddHotKey(keyCode, clsHotkey.MODKEY.MOD_SHIFT, row.Item("HOTKEY_ID"))
-                        Case "Alt"
-                            LOGGER.Info(" >>" & i.ToString + "|Alt " & row.Item("HOTKEY2").ToString.ToUpper)
-                            HotKey.AddHotKey(keyCode, clsHotkey.MODKEY.MOD_ALT, row.Item("HOTKEY_ID"))
-                        Case "win"
-                            LOGGER.Info(" >>" & i.ToString + "|Win " & row.Item("HOTKEY2").ToString.ToUpper)
-                            HotKey.AddHotKey(keyCode, clsHotkey.MODKEY.MOD_WIN, row.Item("HOTKEY_ID"))
-                    End Select
-                Next
-            Else
-                LOGGER.Info(" >> Keine Hotkeys!")
-            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()
-            frmHotKey_Add.ShowDialog()
-            Load_Hotkeys()
-            Me.Visible = True
-        End If
-    End Sub
-
-    Private Sub GlobalIndexerEinstellungenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles GlobalIndexerEinstellungenToolStripMenuItem.Click
+    Private Sub GlobalIndexerEinstellungenToolStripMenuItem_Click(sender As Object, e As EventArgs)
         Try
             Me.Hide()
             frmAdministration.ShowDialog()
@@ -565,16 +442,6 @@ Public Class frmStart
         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
         If ClassDatabase.DatabaseConnectionTimeout = True Then
             TimerFolderWatch.Enabled = False
@@ -653,7 +520,7 @@ Public Class frmStart
         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
@@ -677,12 +544,12 @@ 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
@@ -736,4 +603,22 @@ Public Class frmStart
         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

Global_Indexer/frmTestvb.vb

@@ -1,3 +0,0 @@
-Public Class frmTestvb
-
-End Class

SetupVS19/Product.wxs

@@ -58,7 +58,12 @@
     <Directory Id="TARGETDIR" Name="SourceDir">
       <Directory Id="ProgramFilesFolder">
         <Directory Id="DDDIR" Name="$(var.Manufacturer)">
-          <Directory Id="INSTALLDIR" Name="$(var.ProductName)"/>
+          <Directory Id="INSTALLDIR" Name="$(var.ProductName)">
+            <Directory Id="LOCALE_DE" Name="de"></Directory>
+            <Directory Id="LOCALE_DE_DE" Name="de-DE"></Directory>
+            <Directory Id="LOCALE_EN" Name="en"></Directory>
+            <Directory Id="LOCALE_EN_US" Name="en-US"></Directory>     
+          </Directory>
         </Directory>
       </Directory>
 
@@ -96,15 +101,10 @@
         <File Id="MainApplicationExe" Source="..\$(var.ProgramName)\bin\$(var.Configuration)\$(var.ProgramName).exe" Name="$(var.ProgramName).exe" KeyPath="no" Checksum="yes" />
       </Component>
 
-      <!-- Die ReleaseNotes -->
-      <Component Id="ReleaseNotes" Guid="D1496E4D-98C2-4849-9914-DB47D47CC6BE">
-        <File Id="ReleaseNote" Name="Release Notes.txt" Source="P:\Projekte DIGITAL DATA\DIGITAL DATA - Entwicklung\DD_MODULE\DD GlobalIndexer\Release Notes.txt" KeyPath="yes">
-        </File>
-      </Component>
       <!-- Die ApplicationIco -->
       <Component Id="ApplicationIco" Guid="5C2EEA18-0718-41E9-A8C6-38D3C622921B">
-        <File Id="ApplicationIco" Name="DD_Icons_ICO_GLOBIX_128.ico" Source="S:\DIGITAL DATA\DIGITAL DATA - Produkte\ico\DD_Icons_ICO_GLOBIX_128.ico" KeyPath="yes">
-        </File>
+        <File Id="ApplicationIco" Name="DD_Icons_ICO_GLOBIX_128.ico" Source="DD_Icons_ICO_GLOBIX_128.ico" KeyPath="yes" />
+        <File Id="ApplicationIco2" Name="DD_Icons_ICO_GLOBIX_1.ico" Source="DD_Icons_ICO_GLOBIX_1.ico" KeyPath="no" />
       </Component>
 
       <!--Digital Data Bibliotheken-->
@@ -115,6 +115,7 @@
         <File Id="DLLLicenseManager" Name="DLLLicenseManager.dll" Source="P:\Visual Studio Projekte\Bibliotheken\DLLLicenseManager.dll" KeyPath="no" />
         <File Id="DocumentViewer" Name="DigitalData.Controls.DocumentViewer.dll" Source="DigitalData.Controls.DocumentViewer.dll" KeyPath="no" />
         <File Id="LookupGrid" Name="DigitalData.Controls.LookupGrid.dll" Source="DigitalData.Controls.LookupGrid.dll" KeyPath="no" />
+        <File Id="Windream" Name="DigitalData.Modules.Windream.dll" Source="DigitalData.Modules.Windream.dll" KeyPath="no" />
       </Component>
 
       <Component Id="GDPictureLibs" Guid="9ea5ab43-58ff-4813-9a8b-f854784f0275">
@@ -166,51 +167,6 @@
         <File Id="DevExpress.XtraLayout.v19.2" Name="DevExpress.XtraLayout.v19.2.dll" Source="D:\ProgramFiles\DevExpress 19.2\Components\Bin\Framework\DevExpress.XtraLayout.v19.2.dll" KeyPath="no" />
       </Component>
 
-      <!-- Lokalisierung für DEVEXPRESS Bibliotheken-->
-      <Directory Id="LOCALE_EN_US" Name="en-US">
-        <Component Id="GlobalIndexer.Locales.en_us" Guid="6FC6DC57-6D61-49EE-B490-CEE054BE911A">
-          <File Id="Global_Indexer.resource.en_us" Name="Global_Indexer.resources.dll" Source="en-US\Global_Indexer.resources.dll"></File>
-        </Component>
-      </Directory>
-
-      <Directory Id="LOCALE_EN" Name="en">
-        <Component Id="GlobalIndexer.Locales.en" Guid="3bba6463-aa8d-4cff-b4e0-7941491260db">
-          <File Id="Global_Indexer.resource.en" Name="Global_Indexer.resources.dll" Source="en\Global_Indexer.resources.dll"></File>
-        </Component>
-      </Directory>
-
-      <Directory Id="LOCALE_DE" Name="de-DE">
-        <Component Id="GlobalIndexer.Locales.de" Guid="9E7F8C29-44DF-4D38-AD7B-D64B74990CDB">
-          <File Id="Global_Indexer.resources.de" Name="Global_Indexer.resources.dll" Source="de-DE\Global_Indexer.resources.dll"></File>
-        </Component>
-
-        <Component Id="Scheduler.Locales" Guid="84335DB2-F5D2-496B-9318-2BD1B1ACA391">
-          <File Id="DevExpress.Charts.v19.2.Core.resources" Name="DevExpress.Charts.v19.2.Core.dll" Source="D:\ProgramFiles\DevExpress 19.2\Components\Bin\Framework\DevExpress.Charts.v19.2.Core.dll" KeyPath="yes" />
-          <File Id="DevExpress.Data.v19.2.resources" Name="DevExpress.Data.v19.2.dll" Source="D:\ProgramFiles\DevExpress 19.2\Components\Bin\Framework\DevExpress.Data.v19.2.dll" KeyPath="no" />
-          <File Id="DevExpress.DataAccess.v19.2.resources" Name="DevExpress.DataAccess.v19.2.dll" Source="D:\ProgramFiles\DevExpress 19.2\Components\Bin\Framework\DevExpress.DataAccess.v19.2.dll" KeyPath="no" />
-          <File Id="DevExpress.DataAccess.v19.2..resources" Name="DevExpress.DataAccess.v19.2.UI.dll" Source="D:\ProgramFiles\DevExpress 19.2\Components\Bin\Framework\DevExpress.DataAccess.v19.2.UI.dll" KeyPath="no" />
-          <File Id="DevExpress.Office.v19.2.Core.resources" Name="DevExpress.Office.v19.2.Core.dll" Source="D:\ProgramFiles\DevExpress 19.2\Components\Bin\Framework\DevExpress.Office.v19.2.Core.dll" KeyPath="no"/>
-          <File Id="DevExpress.Pdf.v19.2.Core.resources" Name="DevExpress.Pdf.v19.2.Core.dll" Source="D:\ProgramFiles\DevExpress 19.2\Components\Bin\Framework\DevExpress.Pdf.v19.2.Core.dll" KeyPath="no"/>
-          <File Id="DevExpress.Pdf.v19.2.Drawing.resources" Name="DevExpress.Pdf.v19.2.Drawing.dll" Source="D:\ProgramFiles\DevExpress 19.2\Components\Bin\Framework\DevExpress.Pdf.v19.2.Drawing.dll" KeyPath="no" />
-          <File Id="DevExpress.Printing.v19.2.Core.resources" Name="DevExpress.Printing.v19.2.Core.dll" Source="D:\ProgramFiles\DevExpress 19.2\Components\Bin\Framework\DevExpress.Printing.v19.2.Core.dll" KeyPath="no" />
-          <File Id="DevExpress.RichEdit.v19.2.Core.resources" Name="DevExpress.RichEdit.v19.2.Core.dll" Source="D:\ProgramFiles\DevExpress 19.2\Components\Bin\Framework\DevExpress.RichEdit.v19.2.Core.dll" KeyPath="no" />
-          <File Id="DevExpress.Sparkline.v19.2.Core.resources" Name="DevExpress.Sparkline.v19.2.Core.dll" Source="D:\ProgramFiles\DevExpress 19.2\Components\Bin\Framework\DevExpress.Sparkline.v19.2.Core.dll" KeyPath="no" />
-          <File Id="DevExpress.Spreadsheet.v19.2.Core.resources" Name="DevExpress.Spreadsheet.v19.2.Core.dll" Source="D:\ProgramFiles\DevExpress 19.2\Components\Bin\Framework\DevExpress.Spreadsheet.v19.2.Core.dll" KeyPath="no" />
-          <File Id="DevExpress.Utils.v19.2.resources" Name="DevExpress.Utils.v19.2.dll" Source="D:\ProgramFiles\DevExpress 19.2\Components\Bin\Framework\DevExpress.Utils.v19.2.dll" KeyPath="no" />
-          <File Id="DevExpress.Utils.v19.2.UI.resources" Name="DevExpress.Utils.v19.2.UI.dll" Source="D:\ProgramFiles\DevExpress 19.2\Components\Bin\Framework\DevExpress.Utils.v19.2.UI.dll" KeyPath="no" />
-          <File Id="DevExpress.XtraCharts.v19.2.resources" Name="DevExpress.XtraCharts.v19.2.dll" Source="D:\ProgramFiles\DevExpress 19.2\Components\Bin\Framework\DevExpress.XtraCharts.v19.2.dll" KeyPath="no" />
-          <File Id="DevExpress.XtraBars.v19.2.resources" Name="DevExpress.XtraBars.v19.2.dll" Source="D:\ProgramFiles\DevExpress 19.2\Components\Bin\Framework\DevExpress.XtraBars.v19.2.dll" KeyPath="no" />
-          <File Id="DevExpress.XtraEditors.v19.2.resources" Name="DevExpress.XtraEditors.v19.2.dll" Source="D:\ProgramFiles\DevExpress 19.2\Components\Bin\Framework\DevExpress.XtraEditors.v19.2.dll" KeyPath="no" />
-          <File Id="DevExpress.XtraGrid.v19.2.resources" Name="DevExpress.XtraGrid.v19.2.dll" Source="D:\ProgramFiles\DevExpress 19.2\Components\Bin\Framework\DevExpress.XtraGrid.v19.2.dll" KeyPath="no" />
-          <File Id="DevExpress.XtraNavBar.v19.2.resources" Name="DevExpress.XtraNavBar.v19.2.dll" Source="D:\ProgramFiles\DevExpress 19.2\Components\Bin\Framework\DevExpress.XtraNavBar.v19.2.dll" KeyPath="no" />
-          <File Id="DevExpress.XtraPdfViewer.v19.2.resources" Name="DevExpress.XtraPdfViewer.v19.2.dll" Source="D:\ProgramFiles\DevExpress 19.2\Components\Bin\Framework\DevExpress.XtraPdfViewer.v19.2.dll" KeyPath="no" />
-          <File Id="DevExpress.XtraPrinting.v19.2.resources" Name="DevExpress.XtraPrinting.v19.2.dll" Source="D:\ProgramFiles\DevExpress 19.2\Components\Bin\Framework\DevExpress.XtraPrinting.v19.2.dll" KeyPath="no" />
-          <File Id="DevExpress.XtraRichEdit.v19.2.resources" Name="DevExpress.XtraRichEdit.v19.2.dll" Source="D:\ProgramFiles\DevExpress 19.2\Components\Bin\Framework\DevExpress.XtraRichEdit.v19.2.dll" KeyPath="no" />
-          <File Id="DevExpress.XtraSpreadsheet.v19.2.resources" Name="DevExpress.XtraSpreadsheet.v19.2.dll" Source="D:\ProgramFiles\DevExpress 19.2\Components\Bin\Framework\DevExpress.XtraSpreadsheet.v19.2.dll" KeyPath="no" />
-          <File Id="DevExpress.XtraTreeList.v19.2.resources" Name="DevExpress.XtraTreeList.v19.2.dll" Source="D:\ProgramFiles\DevExpress 19.2\Components\Bin\Framework\DevExpress.XtraTreeList.v19.2.dll" KeyPath="no" />
-        </Component>
-      </Directory>
-
       <!-- Office-Bibliotheken -->
       <Component Id="Microsoft.Office" Guid="D600FF38-E549-4CBA-BB33-09B0BD0C8C26">
         <File Id="Office" Name="Office.dll" Source="C:\Windows\assembly\GAC_MSIL\Office\15.0.0.0__71e9bce111e9429c\Office.dll" KeyPath="yes" />
@@ -233,12 +189,43 @@
 
         <util:RemoveFolderEx Id="RemoveApplicationFolder" On="uninstall" Property="APPLICATIONFOLDER" />
       </Component>
+    
+      <Directory Id="resources.de" Name="de">
+        <Component Id="GlobalIndexer.Locales.de" Guid="9E7F8C29-44DF-4D38-AD7B-D64B74990CDB">
+          <File Id="Global_Indexer.resources.de_DE" Name="Global_Indexer.resources.dll" Source="de-DE\Global_Indexer.resources.dll"></File>
+        </Component>
+      
+        <Component Id="Devexpress.Locales.de" Guid="6be5ff05-af76-4249-862a-5b13e3c56c2a">
+          <File Id="DevExpress.Data.v19.2.resources" Name="DevExpress.Data.v19.2.resources.dll" Source="D:\ProgramFiles\DevExpress 19.2\Components\Bin\Framework\de\DevExpress.Data.v19.2.resources.dll" KeyPath="no" />
+          <File Id="DevExpress.DataAccess.v19.2.resources" Name="DevExpress.DataAccess.v19.2.resources.dll" Source="D:\ProgramFiles\DevExpress 19.2\Components\Bin\Framework\de\DevExpress.DataAccess.v19.2.resources.dll" KeyPath="no" />
+          <File Id="DevExpress.DataAccess.v19.2.UI.resources.dll.resources" Name="DevExpress.DataAccess.v19.2.UI.resources.dll" Source="D:\ProgramFiles\DevExpress 19.2\Components\Bin\Framework\de\DevExpress.DataAccess.v19.2.UI.resources.dll" KeyPath="no" />
+          <File Id="DevExpress.Office.v19.2.Core.resources" Name="DevExpress.Office.v19.2.Core.resources.dll" Source="D:\ProgramFiles\DevExpress 19.2\Components\Bin\Framework\de\DevExpress.Office.v19.2.Core.resources.dll" KeyPath="no"/>
+          <File Id="DevExpress.Pdf.v19.2.Core.resources" Name="DevExpress.Pdf.v19.2.Core.resources.dll" Source="D:\ProgramFiles\DevExpress 19.2\Components\Bin\Framework\de\DevExpress.Pdf.v19.2.Core.resources.dll" KeyPath="no"/>
+          <File Id="DevExpress.Printing.v19.2.Core.resources" Name="DevExpress.Printing.v19.2.Core.resources.dll" Source="D:\ProgramFiles\DevExpress 19.2\Components\Bin\Framework\de\DevExpress.Printing.v19.2.Core.resources.dll" KeyPath="no" />
+          <File Id="DevExpress.RichEdit.v19.2.Core.resources" Name="DevExpress.RichEdit.v19.2.Core.resources.dll" Source="D:\ProgramFiles\DevExpress 19.2\Components\Bin\Framework\de\DevExpress.RichEdit.v19.2.Core.resources.dll" KeyPath="no" />
+          <File Id="DevExpress.Sparkline.v19.2.Core.resources" Name="DevExpress.Sparkline.v19.2.Core.resources.dll" Source="D:\ProgramFiles\DevExpress 19.2\Components\Bin\Framework\de\DevExpress.Sparkline.v19.2.Core.resources.dll" KeyPath="no" />
+          <File Id="DevExpress.Spreadsheet.v19.2.Core.resources" Name="DevExpress.Spreadsheet.v19.2.Core.resources.dll" Source="D:\ProgramFiles\DevExpress 19.2\Components\Bin\Framework\de\DevExpress.Spreadsheet.v19.2.Core.resources.dll" KeyPath="no" />
+          <File Id="DevExpress.Utils.v19.2.resources" Name="DevExpress.Utils.v19.2.resources.dll" Source="D:\ProgramFiles\DevExpress 19.2\Components\Bin\Framework\de\DevExpress.Utils.v19.2.resources.dll" KeyPath="no" />
+          <File Id="DevExpress.Utils.v19.2.UI.resources" Name="DevExpress.Utils.v19.2.UI.resources.dll" Source="D:\ProgramFiles\DevExpress 19.2\Components\Bin\Framework\de\DevExpress.Utils.v19.2.UI.resources.dll" KeyPath="no" />
+          <File Id="DevExpress.XtraCharts.v19.2.resources" Name="DevExpress.XtraCharts.v19.2.resources.dll" Source="D:\ProgramFiles\DevExpress 19.2\Components\Bin\Framework\de\DevExpress.XtraCharts.v19.2.resources.dll" KeyPath="no" />
+          <File Id="DevExpress.XtraBars.v19.2.resources" Name="DevExpress.XtraBars.v19.2.resources.dll" Source="D:\ProgramFiles\DevExpress 19.2\Components\Bin\Framework\de\DevExpress.XtraBars.v19.2.resources.dll" KeyPath="no" />
+          <File Id="DevExpress.XtraEditors.v19.2.resources" Name="DevExpress.XtraEditors.v19.2.resources.dll" Source="D:\ProgramFiles\DevExpress 19.2\Components\Bin\Framework\de\DevExpress.XtraEditors.v19.2.resources.dll" KeyPath="no" />
+          <File Id="DevExpress.XtraGrid.v19.2.resources" Name="DevExpress.XtraGrid.v19.2.resources.dll" Source="D:\ProgramFiles\DevExpress 19.2\Components\Bin\Framework\de\DevExpress.XtraGrid.v19.2.resources.dll" KeyPath="no" />
+          <File Id="DevExpress.XtraNavBar.v19.2.resources" Name="DevExpress.XtraNavBar.v19.2.resources.dll" Source="D:\ProgramFiles\DevExpress 19.2\Components\Bin\Framework\de\DevExpress.XtraNavBar.v19.2.resources.dll" KeyPath="no" />
+          <File Id="DevExpress.XtraPdfViewer.v19.2.resources" Name="DevExpress.XtraPdfViewer.v19.2.resources.dll" Source="D:\ProgramFiles\DevExpress 19.2\Components\Bin\Framework\de\DevExpress.XtraPdfViewer.v19.2.resources.dll" KeyPath="no" />
+          <File Id="DevExpress.XtraPrinting.v19.2.resources" Name="DevExpress.XtraPrinting.v19.2.resources.dll" Source="D:\ProgramFiles\DevExpress 19.2\Components\Bin\Framework\de\DevExpress.XtraPrinting.v19.2.resources.dll" KeyPath="no" />
+          <File Id="DevExpress.XtraRichEdit.v19.2.resources" Name="DevExpress.XtraRichEdit.v19.2.resources.dll" Source="D:\ProgramFiles\DevExpress 19.2\Components\Bin\Framework\de\DevExpress.XtraRichEdit.v19.2.resources.dll" KeyPath="no" />
+          <File Id="DevExpress.XtraSpreadsheet.v19.2.resources" Name="DevExpress.XtraSpreadsheet.v19.2.resources.dll" Source="D:\ProgramFiles\DevExpress 19.2\Components\Bin\Framework\de\DevExpress.XtraSpreadsheet.v19.2.resources.dll" KeyPath="no" />
+          <File Id="DevExpress.XtraTreeList.v19.2.resources" Name="DevExpress.XtraTreeList.v19.2.resources.dll" Source="D:\ProgramFiles\DevExpress 19.2\Components\Bin\Framework\de\DevExpress.XtraTreeList.v19.2.resources.dll" KeyPath="no" />
+          <File Id="DevExpress.XtraLayout.v19.2.resources" Name="DevExpress.XtraLayout.v19.2.resources.dll" Source="D:\ProgramFiles\DevExpress 19.2\Components\Bin\Framework\de\DevExpress.XtraLayout.v19.2.resources.dll" KeyPath="no" />
+        </Component>
+      </Directory>
     </DirectoryRef>
+   
 
     <!-- Installierte Features -->
     <Feature Id="Complete" Title="Main Application" Level="1">
       <ComponentRef Id="MainApplicationExe" />
-      <ComponentRef Id="ReleaseNotes"/>
       <ComponentRef Id="WindreamLibs" />
       <ComponentRef Id="DigitalDataLibs" />
       <ComponentRef Id="MiscLibs" />
@@ -249,9 +236,7 @@
       <ComponentRef Id="RegistryKeys"/>
       <ComponentRef Id="ApplicationIco"/>
       <ComponentRef Id="GlobalIndexer.Locales.de" />
-      <ComponentRef Id="GlobalIndexer.Locales.en"/>
-      <ComponentRef Id="GlobalIndexer.Locales.en_us" />
-      <ComponentRef Id="Scheduler.Locales" />
+      <ComponentRef Id="Devexpress.Locales.de" />
     </Feature>
 
     <Feature Id="DesktopShortcut" Title="Desktop Shortcut">

SetupVS19/SetupVS19.wixproj

@@ -14,6 +14,8 @@
     <IntermediateOutputPath>obj\$(Configuration)\</IntermediateOutputPath>
     <DefineConstants>Debug</DefineConstants>
     <LinkerAdditionalOptions>-b "$(SolutionDir)Global_Indexer\bin\$(Configuration)"</LinkerAdditionalOptions>
+    <Cultures>
+    </Cultures>
   </PropertyGroup>
   <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|x86' ">
     <OutputPath>bin\$(Configuration)\</OutputPath>