Assembly und Splashscreen aktualisiert

Dynamic Split of AppConfig.String

app/DD_Clipboard_Searcher/App.config

@@ -1,20 +1,32 @@
-<?xml version="1.0" encoding="utf-8"?>
+<?xml version="1.0" encoding="utf-8"?>
 <configuration>
   <configSections>
-    <sectionGroup name="userSettings" type="System.Configuration.UserSettingsGroup, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-      <section name="DD_Clipboard_Watcher.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" allowExeDefinition="MachineToLocalUser" requirePermission="false" />
-    </sectionGroup>
     <sectionGroup name="applicationSettings" type="System.Configuration.ApplicationSettingsGroup, System">
+      <section name="easyFLOW.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" requirePermission="false" />
       <section name="DevExpress.LookAndFeel.Design.AppSettings" type="System.Configuration.ClientSettingsSection" requirePermission="false" />
     </sectionGroup>
   </configSections>
   <applicationSettings>
+    <easyFLOW.My.MySettings>
+      <setting name="UserConfig_Prefix" serializeAs="String">
+        <value />
+      </setting>
+      <setting name="UseAppConfigConString" serializeAs="String">
+        <value>False</value>
+      </setting>
+      <setting name="GHOSTUSER" serializeAs="String">
+        <value />
+      </setting>
+      <setting name="GDPICTURE_VERSION" serializeAs="String">
+        <value>11.2024</value>
+      </setting>
+    </easyFLOW.My.MySettings>
     <DevExpress.LookAndFeel.Design.AppSettings>
       <setting name="DefaultAppSkin" serializeAs="String">
-        <value>Skin/Office 2016 Colorful</value>
+        <value>Skin/Office 2019 Colorful</value>
       </setting>
       <setting name="DefaultPalette" serializeAs="String">
-        <value></value>
+        <value>Custom/Digital Data</value>
       </setting>
       <setting name="TouchUI" serializeAs="String">
         <value></value>
@@ -37,49 +49,63 @@
       <setting name="DPIAwarenessMode" serializeAs="String">
         <value></value>
       </setting>
+      <setting name="CompactUI" serializeAs="String">
+        <value></value>
+      </setting>
+      <setting name="RegisterBonusSkins" serializeAs="String">
+        <value></value>
+      </setting>
+      <setting name="CustomPaletteCollection" serializeAs="Xml">
+        <value>
+          <CustomPaletteCollection>
+            <Skin Name="Office 2019 Colorful">
+              <SvgPalette Name="Digital Data">
+                <SvgColor Name="Paint" Value="248,248,248" />
+                <SvgColor Name="Paint High" Value="255,255,255" />
+                <SvgColor Name="Paint Shadow" Value="240,240,240" />
+                <SvgColor Name="Paint Deep Shadow" Value="230,230,230" />
+                <SvgColor Name="Brush" Value="72,70,68" />
+                <SvgColor Name="Brush High" Value="72,70,68" />
+                <SvgColor Name="Brush Light" Value="119,119,119" />
+                <SvgColor Name="Brush Major" Value="171,171,171" />
+                <SvgColor Name="Brush Minor" Value="210,210,210" />
+                <SvgColor Name="Accent Paint" Value="165,36,49" />
+                <SvgColor Name="Accent Paint Dark" Value="165,36,49" />
+                <SvgColor Name="Accent Paint Light" Value="250,220,221" />
+                <SvgColor Name="Accent Paint Lighter" Value="251,233,234" />
+                <SvgColor Name="Accent Brush" Value="255,255,255" />
+                <SvgColor Name="Accent Brush Light" Value="218,175,176" />
+                <SvgColor Name="Red" Value="237,61,59" />
+                <SvgColor Name="Green" Value="48,144,72" />
+                <SvgColor Name="Blue" Value="30,139,205" />
+                <SvgColor Name="Yellow" Value="251,152,59" />
+                <SvgColor Name="Black" Value="87,87,85" />
+                <SvgColor Name="Gray" Value="169,168,168" />
+                <SvgColor Name="White" Value="248,248,248" />
+              </SvgPalette>
+            </Skin>
+          </CustomPaletteCollection>
+        </value>
+      </setting>
     </DevExpress.LookAndFeel.Design.AppSettings>
   </applicationSettings>
   <connectionStrings>
-    <add name="DD_Clipboard_Watcher.My.MySettings.DD_ECMConnectionString" connectionString="Data Source=172.24.12.41\tests;Initial Catalog=DD_ECM_TEST;Persist Security Info=True;User ID=sa;Password=dd" providerName="System.Data.SqlClient" />
+    <add name="easyFLOW.My.MySettings.DD_ECMConnectionString" connectionString="Data Source=172.24.12.44\DD_DEVELOP01;Initial Catalog=DD_ECM;Persist Security Info=True;User ID=sa;Password=dd;Encrypt=False"
+      providerName="System.Data.SqlClient" />
   </connectionStrings>
   <startup>
-    <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.6.1" />
+    <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.6.2" />
   </startup>
-  <userSettings>
+  <runtime>
-    <DD_Clipboard_Watcher.My.MySettings>
+    <assemblyBinding xmlns="urn:schemas-microsoft-com:asm.v1">
-      <setting name="WDSearch_maximized" serializeAs="String">
+      <dependentAssembly>
-        <value>False</value>
+        <assemblyIdentity name="NLog" publicKeyToken="5120e14c03d0593c" culture="neutral" />
-      </setting>
+        <bindingRedirect oldVersion="0.0.0.0-5.0.0.0" newVersion="5.0.0.0" />
-      <setting name="frmResultSearchSplitterDistance" serializeAs="String">
+      </dependentAssembly>
-        <value>555</value>
+      <dependentAssembly>
-      </setting>
+        <assemblyIdentity name="GdPicture.NET.14" publicKeyToken="f52a2e60ad468dbb" culture="neutral" />
-      <setting name="frmResultDocSize" serializeAs="String">
+        <bindingRedirect oldVersion="0.0.0.0-14.2.90.0" newVersion="14.2.90.0" />
-        <value>0, 0</value>
+      </dependentAssembly>
-      </setting>
+    </assemblyBinding>
-      <setting name="frmResultDocPosition" serializeAs="String">
+  </runtime>
-        <value>0, 0</value>
-      </setting>
-      <setting name="frmViewerPosition" serializeAs="String">
-        <value>0, 0</value>
-      </setting>
-      <setting name="frmViewerSize" serializeAs="String">
-        <value>0, 0</value>
-      </setting>
-      <setting name="frmProfileMatchPosition" serializeAs="String">
-        <value>0, 0</value>
-      </setting>
-      <setting name="frmProfileMatchSize" serializeAs="String">
-        <value>0, 0</value>
-      </setting>
-      <setting name="LoadDocView" serializeAs="String">
-        <value>False</value>
-      </setting>
-      <setting name="frmResultDataSize" serializeAs="String">
-        <value>0, 0</value>
-      </setting>
-      <setting name="frmResultDataPosition" serializeAs="String">
-        <value>0, 0</value>
-      </setting>
-    </DD_Clipboard_Watcher.My.MySettings>
-  </userSettings>
 </configuration>

app/DD_Clipboard_Searcher/ApplicationEvents.vb

@@ -0,0 +1,10 @@
+Namespace My
+    ' Für MyApplication sind folgende Ereignisse verfügbar:
+    ' Startup: Wird beim Starten der Anwendung noch vor dem Erstellen des Startformulars ausgelöst.
+    ' Shutdown: Wird nach dem Schließen aller Anwendungsformulare ausgelöst.  Dieses Ereignis wird nicht ausgelöst, wenn die Anwendung mit einem Fehler beendet wird.
+    ' UnhandledException: Wird bei einem Ausnahmefehler ausgelöst.
+    ' StartupNextInstance: Wird beim Starten einer Einzelinstanzanwendung ausgelöst, wenn die Anwendung bereits aktiv ist. 
+    ' NetworkAvailabilityChanged: Wird beim Herstellen oder Trennen der Netzwerkverbindung ausgelöst.
+    Partial Friend Class MyApplication
+    End Class
+End Namespace

app/DD_Clipboard_Searcher/ClassConfig.vb

@@ -5,7 +5,7 @@ Public Class ClassConfig
     Public Property ConnectionString As String = ""
     Public Property LogErrorsOnly As Boolean = True
     Public Property HotkeyFunctionKey As String = ClassConstants.HOTKEY_CTRL
-    Public Property HotkeySearchKey As String = "f"
+    Public Property HotkeySearchKey As String = "d"
 
     Public Property LoadDocumentView As Boolean = False
 
@@ -17,4 +17,14 @@ Public Class ClassConfig
     Public Property ResultDocWindowLocation As Point = New Size(0, 0)
     Public Property ResultDataWindowSize As Size = New Size(1024, 786)
     Public Property ResultDataWindowLocation As Point = New Size(0, 0)
+    <ConnectionStringAppServer>
+    Public Property ConnectionStringAppServer As String = ""
+    <GlobalSetting>
+    Public Property AppServerConfig As String = ""
+
+    Public ReadOnly Property IsIDB As Boolean
+        Get
+            Return AppServerConfig.Length > 0
+        End Get
+    End Property
 End Class

app/DD_Clipboard_Searcher/ClassConstants.vb

@@ -11,4 +11,8 @@
     Public Const PROFILE_TYPE_DATA_DOCS As Integer = 0
     Public Const PROFILE_TYPE_DOCS_ONLY As Integer = 1
     Public Const PROFILE_TYPE_DATA_ONLY As Integer = 2
+
+    Public Const SEARCH_POSITION_PRIMARY As Integer = 0
+    Public Const SEARCH_POSITION_SECONDARY As Integer = 1
+    Public Const SEARCH_POSITION_TERTIARY As Integer = 2
 End Class

app/DD_Clipboard_Searcher/ClassDataASorDB.vb

@@ -0,0 +1,138 @@
+Imports DevExpress.Internal.WinApi.Windows.UI.Notifications
+Imports DigitalData.Modules.EDMI.API.EDMIServiceReference
+Imports DigitalData.Modules.Logging
+
+Public Class ClassDataASorDB
+    Private _Logger As Logger
+    Public Sub New(LogConfig As LogConfig)
+        _Logger = LogConfig.GetLogger
+    End Sub
+    Public Function GetDatatable(pSQL As String, pAppServDT As String, pAppServFilter As String, pAppServSort As String, pForce As String) As DataTable
+        Try
+            Dim oReturnDT As DataTable
+            If APPSERVER_ACTIVE = True And pForce = String.Empty Then
+                Try
+                    Dim oTableResult As TableResult = _Client.GetDatatableByName(pAppServDT, pAppServFilter, pAppServSort)
+                    oReturnDT = oTableResult.Table
+                    If IsNothing(oReturnDT) Then
+                        _Logger.Warn($"Datatable from ApPServData is nothing [{pAppServDT} - {pAppServFilter}] - Failover via DB")
+                        Return GetDatatable(pSQL, "", "", "", "DB")
+                    End If
+                Catch ex As Exception
+                    _Logger.Warn($"Error getting ApPServData [{pAppServDT} - {pAppServFilter}]")
+                    Return GetDatatable(pSQL, "", "", "", "DB")
+                End Try
+            Else
+                oReturnDT = MyDB_DDECM.GetDatatable(pSQL)
+            End If
+            Return oReturnDT
+        Catch ex As Exception
+            _Logger.Error(ex)
+        End Try
+    End Function
+
+    Public Function CheckModuleData()
+        Try
+            Dim oSql = String.Format("SELECT * FROM [dbo].[FNDD_LOGIN_USER_MODULE] ('{0}','CW',{1})", USER_USERNAME, CLIENT_SELECTED)
+            Dim DT_LOGIN_USER_MODULE As DataTable
+            DT_LOGIN_USER_MODULE = MyDB_DDECM.GetDatatable(oSql)
+
+            If DT_LOGIN_USER_MODULE.Rows.Count = 0 Then
+                Logger.Info("DT_CHECKUSER_MODULE.Rows.Count = 0", True)
+                'ERROR_STATE = "NO USER"
+                MsgBox("Sorry - Something went wrong in getting Your rights." & vbNewLine & "Please contact the system administrator!", MsgBoxStyle.Exclamation)
+                Return False
+            End If
+            If DT_LOGIN_USER_MODULE.Rows.Count = 1 Then
+                Logger.Info(">> Login Username: " & USER_USERNAME, False)
+                Logger.Info(">> Login time: " & Now.ToString, False)
+                USER_ID = DT_LOGIN_USER_MODULE.Rows(0).Item("USER_ID")
+                USER_SURNAME = IIf(IsDBNull(DT_LOGIN_USER_MODULE.Rows(0).Item("USER_SURNAME")), "", DT_LOGIN_USER_MODULE.Rows(0).Item("USER_SURNAME"))
+                USER_PRENAME = IIf(IsDBNull(DT_LOGIN_USER_MODULE.Rows(0).Item("USER_PRENAME")), "", DT_LOGIN_USER_MODULE.Rows(0).Item("USER_PRENAME"))
+                USER_SHORTNAME = IIf(IsDBNull(DT_LOGIN_USER_MODULE.Rows(0).Item("USER_SHORTNAME")), "", DT_LOGIN_USER_MODULE.Rows(0).Item("USER_SHORTNAME"))
+                USER_EMAIL = IIf(IsDBNull(DT_LOGIN_USER_MODULE.Rows(0).Item("USER_EMAIL")), "", DT_LOGIN_USER_MODULE.Rows(0).Item("USER_EMAIL"))
+                USER_LANGUAGE = DT_LOGIN_USER_MODULE.Rows(0).Item("USER_LANGUAGE")
+                USER_DATE_FORMAT = DT_LOGIN_USER_MODULE.Rows(0).Item("USER_DATE_FORMAT")
+
+                USER_IN_MODULE = DT_LOGIN_USER_MODULE.Rows(0).Item("MODULE_ACCESS")
+                USER_IS_ADMIN = DT_LOGIN_USER_MODULE.Rows(0).Item("IS_ADMIN")
+                ADDITIONAL_TITLE = DT_LOGIN_USER_MODULE.Rows(0).Item("ADDITIONAL_TITLE")
+                If ADDITIONAL_TITLE = String.Empty Then
+                    ADDITIONAL_TITLE = My.Application.Info.ProductName
+                End If
+                USERCOUNT_LOGGED_IN = DT_LOGIN_USER_MODULE.Rows(0).Item("USERCOUNT_LOGGED_IN")
+                USERCOUNT_LOGGED_IN += 1
+                Try
+                    WORKING_MODE = DT_LOGIN_USER_MODULE.Rows(0).Item("WORKING_MODE")
+                Catch ex As Exception
+                    WORKING_MODE = ""
+                End Try
+                Dim oSplitWorkMode As String() = WORKING_MODE.Split("#")
+                Dim oMode As String
+                For Each oMode In oSplitWorkMode
+                    Logger.Debug($"oWorkingMode Parameter: {oMode}")
+                    If oMode = "NO_BASICCONF" Then
+                        Logger.Info($"NO_BASICCONF will be set to false")
+                        BASIC_CONF_VISIBLE = False
+                    ElseIf oMode.StartsWith("NOMATCH_INFO") Then
+                        Try
+                            Dim oResult = oMode.Replace("NOMATCH_INFO=", "")
+                            Logger.Info($"NOMATCH_INFO will be set to {oResult}")
+                            NOMATCH_INFO = CBool(oResult)
+                        Catch ex As Exception
+                            NOMATCH_INFO = False
+                        End Try
+                    ElseIf oMode.StartsWith("HotkeySearchKey") Then
+                        Try
+                            Dim oResult = oMode.Replace("HotkeySearchKey=", "")
+                            Logger.Info($"HotkeySearchKey via function will be set to [{oResult}]")
+                            HotkeySearchKey = oResult
+                            HotkeySearchKey_via_Server = True
+                        Catch ex As Exception
+                            HotkeySearchKey_via_Server = "d"
+                        End Try
+
+                    Else
+                        Logger.Info($"Wrong oMode [{oMode}]")
+                    End If
+                Next
+                Return True
+            Else
+                Logger.Info(" - User '" & USER_USERNAME & "' not listed in Useradministration!", False)
+                'MsgBox("Achtung: Sie sind nicht in der Userverwaltung hinterlegt." & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!", MsgBoxStyle.Critical, "Achtung:")
+                'Me.Close()
+                Dim msg = String.Format("You are not listed in the Useradministration." & vbNewLine & "Please contact the admin.")
+                MsgBox(msg, MsgBoxStyle.Exclamation)
+                Return False
+            End If
+        Catch ex As Exception
+            Logger.Error(ex)
+            Return False
+        End Try
+
+    End Function
+    Public Sub Refresh_Connections()
+        Try
+            Dim oSql = String.Format("SELECT * FROM TBDD_CONNECTION")
+            Dim oDatatable As New MyDataset.TBDD_CONNECTIONDataTable()
+            Dim oResult As DataTable
+            oResult = GetDatatable(oSql, "TBDD_CONNECTION", "", "", "")
+
+
+            'If APPSERVER_ACTIVE = True Then
+            '    Dim oTableResult As TableResult = _Client.GetDatatableByName("TBDD_CONNECTION")
+            '    oResult = oTableResult.Table
+
+            'Else
+            '    oResult = Database.GetDatatable(oSql)
+            'End If
+
+            oDatatable.Merge(oResult)
+
+            DT_CONNECTIONS = oDatatable
+        Catch ex As Exception
+            Logger.Error(ex)
+            MsgBox("Unexpected Error in Refresh_Connections: " & ex.Message, MsgBoxStyle.Critical)
+        End Try
+    End Sub
+End Class

app/DD_Clipboard_Searcher/ClassDragDrop.vb

@@ -0,0 +1,94 @@
+Imports DevExpress.XtraGrid
+Imports DevExpress.XtraGrid.Views.Grid
+Imports DevExpress.XtraGrid.Views.Grid.ViewInfo
+
+Public Class ClassDragDrop
+    Private downHitInfo As GridHitInfo = Nothing
+
+    Public Sub New()
+    End Sub
+
+    Public Sub AddGridView(view As GridView)
+        AddHandler view.MouseDown, AddressOf view_MouseDown
+        AddHandler view.MouseMove, AddressOf view_MouseMove
+        AddHandler view.GridControl.DragOver, AddressOf grid_DragOver
+    End Sub
+
+    Private Sub view_MouseDown(sender As Object, e As MouseEventArgs)
+        Dim view As GridView = sender
+        Dim hitInfo As GridHitInfo = view.CalcHitInfo(New Point(e.X, e.Y))
+
+        downHitInfo = Nothing
+
+        If Control.ModifierKeys <> Keys.None Then
+            Return
+        End If
+
+        If e.Button = MouseButtons.Left And hitInfo.RowHandle >= 0 Then
+            downHitInfo = hitInfo
+        End If
+    End Sub
+
+    Private Sub view_MouseMove(sender As Object, e As MouseEventArgs)
+        Try
+            Dim view As GridView = sender
+            Dim hitInfo As GridHitInfo = view.CalcHitInfo(New Point(e.X, e.Y))
+
+            If e.Button = MouseButtons.Left And Not IsNothing(downHitInfo) Then
+                Dim dragSize As Size = SystemInformation.DragSize
+                Dim dragRect As New Rectangle(New Point(downHitInfo.HitPoint.X - dragSize.Width / 2, downHitInfo.HitPoint.Y - dragSize.Height / 2), dragSize)
+
+                ' DragRect ist ein kleines Rechteck, dessen Mitte der Punkt ist, wo die Maus geklickt wurde.
+                ' Es soll verhindern, dass durch schnelles Klicken unbeabsichtigt Drag'n'Drop Operationen initiiert werden
+                ' Siehe: https://msdn.microsoft.com/en-us/library/system.windows.forms.systeminformation.dragsize(v=vs.110).aspx
+                If Not dragRect.Contains(New Point(e.X, e.Y)) Then
+                    ' dragDropData enhält eine einzelne Row oder den kompletten View,
+                    ' jenachdem, wie die Drag'n'Drop Operation gestartet wurde.
+                    Dim dragDropData As String
+
+                    ' Wenn keine Zeile markiert ist
+                    If downHitInfo.RowHandle < 0 Then
+                        Exit Sub
+                    End If
+
+                    ' Wenn zwar eine Zeile markiert ist, aber keine über die Checkbox angehakt wurde,
+                    ' wird die markierte Zeile übergeben.
+                    ' Wenn 1 oder n Zeilen über die Checkbox angehakt wurde, werden diese übergeben
+                    Dim row As DataRow = view.GetDataRow(downHitInfo.RowHandle)
+                    Dim source As String = view.GridControl.Name
+
+                    If Not IsNothing(row) Then
+                        Try
+                            dragDropData = row.Item("GUID") & "|" & source
+
+                            view.GridControl.DoDragDrop(dragDropData, DragDropEffects.Move)
+                            downHitInfo = Nothing
+
+                            DevExpress.Utils.DXMouseEventArgs.GetMouseArgs(e).Handled = True
+                        Catch ex As Exception
+                            Logger.Error(ex)
+                        End Try
+                    End If
+                End If
+            End If
+        Catch ex As Exception
+            Logger.Error(ex)
+            MsgBox("Error in view_MouseMove: " & ex.Message, MsgBoxStyle.Critical)
+        End Try
+    End Sub
+
+    Private Sub grid_DragOver(sender As Object, e As DragEventArgs)
+        If e.Data.GetDataPresent(DataFormats.Text) Then
+            Dim data As String = e.Data.GetData(DataFormats.Text)
+            Dim source = data.Split("|")(1)
+
+            Dim grid As GridControl = sender
+
+            If grid.Name <> source Then
+                e.Effect = DragDropEffects.Move
+            End If
+        Else
+            e.Effect = DragDropEffects.None
+        End If
+    End Sub
+End Class

app/DD_Clipboard_Searcher/ClassInit.vb

@@ -1,36 +1,52 @@
 Imports System.ComponentModel
-Imports DD_LIB_Standards
+Imports DigitalData.Modules.License
 Imports DigitalData.Modules.Logging
+Imports DigitalData.Modules.Language.Utils
 Imports DigitalData.Modules.Config
 Imports DigitalData.Modules.Database
+Imports DigitalData.Modules.EDMI.API
+Imports DigitalData.Modules.EDMI.API.EDMIServiceReference
+Imports System.Globalization
+Imports System.Threading
+Imports DigitalData.Modules.EDMI.API.DatabaseWithFallback
+Imports DigitalData.Modules.Base
 
 Public Class ClassInit
-    Public _lizenzManager As clsLicenseManager
+    Public _lizenzManager As LicenseManagerLegacy
     Public _database As MSSQLServer
+    Private _DataASorDB As ClassDataASorDB
+
+    Private Class S
+        Inherits My.Resources.frmMain_Strings
+    End Class
 
     Public Sub InitLogger()
-        LogConfig = New LogConfig(LogConfig.PathType.AppData)
+        LogConfig = New LogConfig(LogConfig.PathType.AppData, Nothing, Nothing, Application.CompanyName, Application.ProductName)
         Logger = LogConfig.GetLogger()
+        _DataASorDB = New ClassDataASorDB(LogConfig)
     End Sub
     Public Function InitDatabase()
-        Dim dbResult As Boolean
+
-        clsDatabase.GUI = True
+        'clsDatabase.GUI = True
+        Dim Database_ECM As MSSQLServer = Nothing
+        Dim Database_IDB As MSSQLServer = Nothing
         If MyConnectionString <> String.Empty Then
-            dbResult = clsDatabase.Init(MyConnectionString)
+            Database_ECM = New MSSQLServer(LogConfig, MyConnectionString)
         Else
             MsgBox("No Databaseconnection configured. (First Start or Appdata not accessible)" & vbNewLine & "Basic-Config will be loaded.", MsgBoxStyle.Information)
             ERROR_INIT = "NO DB-CONNECTION"
             frmConfig_Basic.ShowDialog()
-            dbResult = clsDatabase.Init(MyConnectionString)
             InitBasics()
         End If
-        If dbResult = False Then
+        If Database_ECM.DBInitialized = True Then
+            DatabaseFallback = New DatabaseWithFallback(LogConfig, _Client, Database_ECM, Database_IDB)
+            Return True
+        Else
             ERROR_INIT = "FAILED DBCONNECTION"
             MsgBox("Error in init database. (Connection failed) More information in the logfile.", MsgBoxStyle.Critical)
             Return False
-        Else
-            Return True
         End If
+
     End Function
 
     Public Function InitDatabase_New() As Boolean
@@ -41,8 +57,28 @@ Public Class ClassInit
         End If
 
         Try
-            Database = New MSSQLServer(LogConfig, MyConnectionString)
+            MyDB_DDECM = New MSSQLServer(LogConfig, MyConnectionString)
+            If MyDB_DDECM.DBInitialized = True Then
                 Return True
+            Else
+                Return False
+            End If
+
+        Catch ex As Exception
+            Logger.Error(ex)
+            Return False
+        End Try
+    End Function
+    Public Function InitAppDatabase() As Boolean
+
+        Try
+            DatabaseAppServ = New MSSQLServer(LogConfig, MyConStringAppserv)
+            If DatabaseAppServ.DBInitialized = True Then
+                Return True
+            Else
+                Return False
+            End If
+
         Catch ex As Exception
             Logger.Error(ex)
             Return False
@@ -50,44 +86,84 @@ Public Class ClassInit
     End Function
 
     Public Function InitBasics()
-        ConfigManager = New ConfigManager(Of ClassConfig)(LogConfig, Application.UserAppDataPath, Application.CommonAppDataPath)
+        Dim oUserAppDataPath As String = Application.UserAppDataPath
+        Dim oLegacyAppDataPath As String = Application.UserAppDataPath
+        Dim oCommonAppDataPath = Application.CommonAppDataPath
+        Dim oStartupPath = Application.StartupPath
+        Dim oConfigPrefix As String = My.Settings.UserConfig_Prefix
 
-        With ConfigManager.Config
+        ' If prefix is configured, use it to create a subfolder in app data and migrate existing data
-            MyConnectionString = DecryptConnectionString(.ConnectionString)
+        If oConfigPrefix.Length > 0 Then
+            oUserAppDataPath = IO.Path.Combine(Application.UserAppDataPath, oConfigPrefix)
+
+            Dim oConfigUtils As New ConfigUtils(LogConfig)
+
+            If oConfigUtils.TestMigrationNeeded(oUserAppDataPath) Then
+                LogConfig.Debug = True
+                oConfigUtils.MigrateConfig(oLegacyAppDataPath, oUserAppDataPath)
+                LogConfig.Debug = False
+            End If
+        End If
+
+        ' If AppConfig from Startup Path should be forced, rewrite the common app data path
+        If My.Settings.UseAppConfigConString = True Then
+            ' UserAppDataPath = StartupPath
+            oCommonAppDataPath = oStartupPath
+        End If
+
+        CONFIG = New ConfigManager(Of ClassConfig)(LogConfig, oUserAppDataPath, oCommonAppDataPath, oStartupPath)
+
+        With CONFIG.Config
+            MyConnectionString = MSSQLServer.DecryptConnectionString(.ConnectionString)
             LogErrorsOnly = .LogErrorsOnly
-            HotkeyFunctionKey = .HotkeyFunctionKey
             HotkeySearchKey = .HotkeySearchKey
-
             LogConfig.Debug = Not .LogErrorsOnly
         End With
+        If HotkeySearchKey_via_Server = False Then
+            HotkeyFunctionKey = CONFIG.Config.HotkeyFunctionKey
+        End If
+        If CONFIG.Config.ConnectionStringAppServer <> String.Empty Then
+            MyConStringAppserv = MSSQLServer.DecryptConnectionString(CONFIG.Config.ConnectionStringAppServer)
+            If InitAppDatabase() Then
+                Logger.Debug("ConnectionStringAppServer will be used")
+            End If
+        End If
+
+        If CONFIG.Config.AppServerConfig <> String.Empty Then
+            Try
+                Dim oDynSplitCharacter As String
+                If CONFIG.Config.AppServerConfig.Contains(":") Then
+                    oDynSplitCharacter = ":"
+                ElseIf CONFIG.Config.AppServerConfig.Contains(";") Then
+                    oDynSplitCharacter = ";"
+                End If
+                Dim oSplit() As String = CONFIG.Config.AppServerConfig.ToString.Split(oDynSplitCharacter)
+                Dim oAppServerAddress As String = oSplit(0)
+                Dim oAppServerPort As Integer = 9000
+                If oSplit.Length = 2 Then
+                    oAppServerPort = oSplit(1)
+                End If
+                _Client = New Client(LogConfig, oAppServerAddress, oAppServerPort)
+                If Not IsNothing(_Client) Then
+                    If _Client.Connect() Then
+                        APPSERVER_ACTIVE = True
+                    Else
+                        Logger.Warn($"###!!!APPServer [{CONFIG.Config.AppServerConfig.ToString}] could not be initialized ")
+                    End If
+                End If
+            Catch ex As Exception
+                Logger.Warn($"Could not initialize the AppServer: {ex.Message}")
+            End Try
+        End If
 
         Return True
     End Function
-
+    Public Function CheckModuleData()
-    Private Function DecryptConnectionString(EncryptedConnectionString As String) As String
-        Dim oBuilder As New SqlClient.SqlConnectionStringBuilder With {
-            .ConnectionString = EncryptedConnectionString
-        }
-
-        If oBuilder.ConnectionString.Contains("Password=") Then
-            Dim oPlaintextPassword As String
-            Dim oDecryptor As New clsEncryption("!35452didalog=")
-
         Try
-                oPlaintextPassword = oDecryptor.DecryptData(oBuilder.Password)
+            Dim oSql = String.Format("SELECT * FROM [dbo].[FNDD_LOGIN_USER_MODULE] ('{0}','CW',{1})", USER_USERNAME, CLIENT_SELECTED)
-            Catch ex As Exception
+            Dim DT_CHECKUSER_MODULE As DataTable
-                Logger.Error(ex)
+            DT_CHECKUSER_MODULE = MyDB_DDECM.GetDatatable(oSql)
-                Logger.Debug("Password {0} could not be decrypted. Assuming plaintext password.")
+
-                oPlaintextPassword = oBuilder.Password
-            End Try
-            Return EncryptedConnectionString.Replace(oBuilder.Password, oPlaintextPassword)
-        Else
-            Return EncryptedConnectionString
-        End If
-    End Function
-    Public Shared Function CheckModuleData()
-        Dim sql = String.Format("SELECT * FROM [dbo].[FNDD_CHECK_USER_MODULE] ('{0}','CW',{1})", USER_USERNAME, CLIENT_SELECTED)
-        Dim DT_CHECKUSER_MODULE As DataTable = Database.GetDatatable(sql)
             If DT_CHECKUSER_MODULE.Rows.Count = 0 Then
                 Logger.Info("DT_CHECKUSER_MODULE.Rows.Count = 0", True)
                 'ERROR_STATE = "NO USER"
@@ -95,33 +171,91 @@ Public Class ClassInit
                 Return False
             End If
             If DT_CHECKUSER_MODULE.Rows.Count = 1 Then
-            Logger.Info(">> Login Username: " & USER_USERNAME, False)
+                Logger.Info("Login Username: " & USER_ID, False)
-            Logger.Info(">> Login time: " & Now.ToString, False)
+                Logger.Info("Login time: " & Now.ToShortDateString, False)
+
                 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_SURNAME = ObjectEx.NotNull(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_PRENAME = ObjectEx.NotNull(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_SHORTNAME = ObjectEx.NotNull(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_EMAIL = ObjectEx.NotNull(DT_CHECKUSER_MODULE.Rows(0).Item("USER_EMAIL"), "")
-            USER_LANGUAGE = DT_CHECKUSER_MODULE.Rows(0).Item("USER_LANGUAGE")
-            USER_DATE_FORMAT = DT_CHECKUSER_MODULE.Rows(0).Item("USER_DATE_FORMAT")
-
-            USER_IN_MODULE = DT_CHECKUSER_MODULE.Rows(0).Item("MODULE_ACCESS")
-            USER_IS_ADMIN = DT_CHECKUSER_MODULE.Rows(0).Item("IS_ADMIN")
 
 
+                USER_LANGUAGE = ObjectEx.NotNull(DT_CHECKUSER_MODULE.Rows(0).Item("USER_LANGUAGE"), "de-DE")
+
+
+                USER_DATE_FORMAT = ObjectEx.NotNull(DT_CHECKUSER_MODULE.Rows(0).Item("USER_DATE_FORMAT"), "dd.MM.yyyy")
+                USER_IN_MODULE = ObjectEx.NotNull(DT_CHECKUSER_MODULE.Rows(0).Item("MODULE_ACCESS"), False)
+                USER_IS_ADMIN = ObjectEx.NotNull(DT_CHECKUSER_MODULE.Rows(0).Item("IS_ADMIN"), False)
+                ADDITIONAL_TITLE = ObjectEx.NotNull(DT_CHECKUSER_MODULE.Rows(0).Item("ADDITIONAL_TITLE"), "")
+
+                Logger.Debug("User Id: [{0}]", USER_ID)
+                Logger.Debug("User Email: [{0}]", USER_EMAIL)
+                Logger.Debug("User Language: [{0}]", USER_LANGUAGE)
+                Logger.Debug("User Dateformat: [{0}]", USER_DATE_FORMAT)
+
+                If ADDITIONAL_TITLE = String.Empty Then
+                    ADDITIONAL_TITLE = My.Application.Info.ProductName
+                End If
                 USERCOUNT_LOGGED_IN = DT_CHECKUSER_MODULE.Rows(0).Item("USERCOUNT_LOGGED_IN")
                 USERCOUNT_LOGGED_IN += 1
+                Try
+                    WORKING_MODE = DT_CHECKUSER_MODULE.Rows(0).Item("WORKING_MODE")
+                Catch ex As Exception
+                    WORKING_MODE = ""
+                End Try
+                Dim oSplitWorkMode As String() = WORKING_MODE.Split("#")
+                Dim oMode As String
+                For Each oMode In oSplitWorkMode
+                    Logger.Debug($"oWorkingMode Parameter [{oMode}]")
+                    If oMode = "NO_BASICCONF" Then
+                        BASIC_CONF_VISIBLE = False
+                    ElseIf oMode.StartsWith("NOMATCH_INFO") Then
+                        Try
+                            Dim oResult = oMode.Replace("NOMATCH_INFO=", "")
+                            Logger.Info($"NOMATCH_INFO: {oResult}")
+                            NOMATCH_INFO = CBool(oResult)
+                        Catch ex As Exception
+                            NOMATCH_INFO = False
+                        End Try
+                    ElseIf oMode.StartsWith("HotkeySearchKey") Then
+                        Try
+                            Dim oResult = oMode.Replace("HotkeySearchKey=", "")
+                            Logger.Info($"HotkeySearchKey: {oResult}")
+                            HotkeySearchKey = oResult
+                            HotkeySearchKey_via_Server = True
+                        Catch ex As Exception
+                            HotkeySearchKey = "d"
+                        End Try
+                    ElseIf oMode.StartsWith("NotifyMode") Then
+                        Try
+                            Dim oResult = oMode.Replace("NotifyMode=", "")
+                            Logger.Info($"NotifyMode: {oResult}")
+                            NOTIFY_MODE = oResult
+
+                        Catch ex As Exception
+
+                        End Try
+                    Else
+                        Logger.Info($"Wrong oMode: {oMode}")
+                    End If
+                Next
                 Return True
             Else
-            Logger.Info(" - User '" & USER_USERNAME & "' not listed in Useradministration!", False)
+                Logger.Info(" - UserId '" & USER_ID & "' not listed in Useradministration!", False)
                 'MsgBox("Achtung: Sie sind nicht in der Userverwaltung hinterlegt." & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!", MsgBoxStyle.Critical, "Achtung:")
                 'Me.Close()
                 Dim msg = String.Format("You are not listed in the Useradministration." & vbNewLine & "Please contact the admin.")
                 MsgBox(msg, MsgBoxStyle.Exclamation)
                 Return False
             End If
+        Catch ex As Exception
+            Logger.Error(ex)
+            Return False
+        End Try
+
     End Function
-    Public Shared Function InitUserLogin(Optional _User As String = "")
+    Public Function InitUserLogin(Optional _User As String = "") As Boolean
         Try
             If _User = "" Then
                 USER_USERNAME = Environment.UserName
@@ -129,33 +263,52 @@ Public Class ClassInit
                 USER_USERNAME = _User
             End If
             Try
-                DT_CLIENT_USER = Database.GetDatatable(String.Format("SELECT * FROM VWDD_USER_CLIENT WHERE UPPER(USERNAME) = UPPER('{0}')", Environment.UserName))
+                If CheckModuleData() = False Then
+                    Return False
+                End If
+                Dim oSQL1 = String.Format("SELECT * FROM VWDD_USER_CLIENT WHERE UPPER(USERNAME) = UPPER('{0}')", USER_USERNAME)
+                DT_CLIENT_USER = _DataASorDB.GetDatatable(oSQL1, "VWDD_USER_CLIENT", $"USER_ID = {USER_ID}", "", "")
+
+                'If APPSERVER_ACTIVE = True Then
+                '    Dim oTableResult As TableResult = _Client.GetDatatableByName("VWDD_USER_CLIENT", $"USER_ID = {USER_ID}")
+
+                '    DT_CLIENT_USER = oTableResult.Table
+                'Else
+                '    DT_CLIENT_USER = Database.GetDatatable(String.Format("SELECT * FROM VWDD_USER_CLIENT WHERE UPPER(USERNAME) = UPPER('{0}')", Environment.UserName))
+                'End If
+                If Not IsNothing(DT_CLIENT_USER) Then
+
                     If DT_CLIENT_USER.Rows.Count > 1 Then
                         frmClientLogin.ShowDialog()
                     ElseIf DT_CLIENT_USER.Rows.Count = 1 Then
                         CLIENT_SELECTED = DT_CLIENT_USER.Rows(0).Item("CLIENT_ID")
                     Else
-                    Logger.Info("User '" & USER_USERNAME & "' not related to a client", True)
+                        Logger.Info("User '" & USER_ID & "' not related to a client", True)
                         ERROR_INIT = "NO CLIENT"
                         'ERROR_STATE = "NO CLIENT"
                         Return False
                     End If
+                Else
+                    Logger.Info("User '" & USER_ID & "' not related to a client", True)
+                    ERROR_INIT = "NO CLIENT"
+                    'ERROR_STATE = "NO CLIENT"
+                    Return False
+                End If
+
             Catch ex As Exception
                 Logger.Info("Unexpected error in checking CLIENT: " & ex.Message)
                 CLIENT_SELECTED = 1
             End Try
 
-            If CheckModuleData() = False Then
+
-                Return False
-            End If
 
 
             If USER_IN_MODULE = False Then
                 If USER_IS_ADMIN = False Then
-                    Logger.Info(" - User: " & USER_USERNAME & " not related to module!", False)
+                    Logger.Info("User: " & USER_ID & " not related to module!", False)
                     Dim msg = String.Format("Sie sind nicht für die Nutzung dieses Moduls freigeschaltet." & vbNewLine & "Bitte setzen Sie sich mit dem Systemadministrator in Verbindung!")
 
-                    If USER_LANGUAGE <> "de-DE" Then
+                    If USER_LANGUAGE <> LANGUAGE_GERMAN Then
                         msg = String.Format("You are not authorized for using this module." & vbNewLine & "Please contact the admin.")
                     End If
                     MsgBox(msg, MsgBoxStyle.Exclamation, "Attention:")
@@ -169,16 +322,19 @@ Public Class ClassInit
             'Database.GetDatatable(sql)
             Dim oSQL As String
             oSQL = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_ID & " AND MODULE = 'Clipboard-Watcher'"
-            Database.ExecuteNonQuery(oSQL)
+            MyDB_DDECM.ExecuteNonQuery(oSQL)
 
-            oSQL = String.Format("INSERT INTO TBDD_USER_MODULE_LOG_IN (USER_ID,CLIENT_ID,MODULE,VERSION_CLIENT,MACHINE_NAME) VALUES ({0},{1},'Clipboard-Watcher','{2}','{3}')", USER_ID, 0, My.Application.Info.Version.ToString, Environment.MachineName)
+            oSQL = $"INSERT INTO TBDD_USER_MODULE_LOG_IN (USER_ID,CLIENT_ID,MODULE,VERSION_CLIENT,MACHINE_NAME) VALUES
-            Database.ExecuteNonQuery(oSQL)
+                ({USER_ID},1,'Clipboard-Watcher','{My.Application.Info.Version.ToString}','Environment.MachineName')"
+            MyDB_DDECM.ExecuteNonQuery(oSQL)
 
             If USER_IS_ADMIN = True Then
                 If ESC_Hidden = True Then
+                    frmGhostUser.ShowDialog()
                     'frmLoginUserSelect.ShowDialog()
                     ESC_Hidden = False
-                    If USER_USERNAME <> "" Then
+                    If USER_USERNAME <> "" And GHOST_USERID <> 0 Then
+                        Logger.Info("GHOST USER ACTIVE")
                         InitUserLogin(USER_USERNAME)
                     End If
 
@@ -187,14 +343,22 @@ Public Class ClassInit
                 '    pageAdmin.Visible = True
             End If
 
-            WD_UNICODE = Database.NewExecuteScalar("SELECT WD_UNICODE FROM TBCW_CONFIGURATION WHERE GUID = 1")
+            WD_UNICODE = MyDB_DDECM.GetScalarValue("SELECT WD_UNICODE FROM TBCW_CONFIGURATION WHERE GUID = 1")
-            GDPICTURE_LICENSE = Database.NewExecuteScalar("SELECT GDPICTURE_LICENSE FROM TBCW_CONFIGURATION WHERE GUID = 1")
+            oSQL = $"SELECT COALESCE(MAX(LICENSE),'') FROM TBDD_3RD_PARTY_MODULES WHERE NAME = 'GDPICTURE' 
+            and VERSION = '{My.Settings.GDPICTURE_VERSION}' AND ACTIVE = 1"
+            GDPICTURE_LICENSE = MyDB_DDECM.GetScalarValue(oSQL)
+            If GDPICTURE_LICENSE = String.Empty Then
+                Logger.Info($"ATTENTION: GDPICTURE VERSION is nothing. [{oSQL}]")
+            End If
+            oSQL = "SELECT LANG_CODE FROM TBDD_GUI_LANGUAGE WHERE ACTIVE = 1 ORDER BY LANG_CODE"
+
+            BASEDATA_DT_LANGUAGE = MyDB_DDECM.GetDatatable(oSQL)
 
             Logger.Debug(" >> Count Users logged in: " & USERCOUNT_LOGGED_IN.ToString, False)
             If LICENSE_COUNT < USERCOUNT_LOGGED_IN And LICENSE_EXPIRED = False Then
                 Dim msg = String.Format("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!")
 
-                If USER_LANGUAGE <> "de-DE" Then
+                If USER_LANGUAGE <> LANGUAGE_GERMAN Then
                     msg = String.Format("The number of logged Users (" & USERCOUNT_LOGGED_IN.ToString & ") exceeds the number of licenses." & vbNewLine &
                                                 "Number of licenses: " & LICENSE_COUNT.ToString & vbNewLine & "Please contact Your admin!")
                 End If
@@ -203,7 +367,7 @@ Public Class ClassInit
                 If USER_IS_ADMIN = False Then
                     'Anmeldung wieder herausnehmen
                     oSQL = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_ID & " AND MODULE= 'Clipboard-Watcher'"
-                    Database.ExecuteNonQuery(oSQL)
+                    MyDB_DDECM.ExecuteNonQuery(oSQL)
                     Logger.Info(" - logged out the user", False)
                     Return False
                 End If
@@ -219,13 +383,23 @@ Public Class ClassInit
 
     End Function
 
-    Public Shared Sub Refresh_Connections()
+    Public Sub Refresh_Connections()
         Try
             Dim oSql = String.Format("SELECT * FROM TBDD_CONNECTION")
             Dim oDatatable As New MyDataset.TBDD_CONNECTIONDataTable()
-            Dim oResult = Database.GetDatatable(oSql)
+            Dim oResult As DataTable
+            oDatatable = _DataASorDB.GetDatatable(oSql, "TBDD_CONNECTION", "", "", "")
 
-            oDatatable.Merge(oResult)
+
+            'If APPSERVER_ACTIVE = True Then
+            '    Dim oTableResult As TableResult = _Client.GetDatatableByName("TBDD_CONNECTION")
+            '    oResult = oTableResult.Table
+
+            'Else
+            '    oResult = Database.GetDatatable(oSql)
+            'End If
+
+            'oDatatable.Merge(oResult)
 
             DT_CONNECTIONS = oDatatable
         Catch ex As Exception
@@ -234,25 +408,54 @@ Public Class ClassInit
         End Try
     End Sub
 
-    Public Shared Sub Refresh_Profile_Links()
+    Public Shared Function Refresh_Profile_Links() As String
+        Dim ProfileSQL As String = $"SELECT DISTINCT PROFIL_ID [GUID], PROFIL_ID, PROFIL_NAME,REGEX_EXPRESSION,COMMENT,PROFILE_TYPE FROM VWCW_USER_PROFILE WHERE USER_ID = {USER_ID}"
+        Dim oProcessSQL As String = $"SELECT DISTINCT T.GUID, T1.PROFIL_ID, T.PROC_NAME FROM TBCW_PROFILE_PROCESS T, VWCW_USER_PROFILE T1 WHERE T.PROFILE_ID = T1.PROFIL_ID AND USER_ID = {USER_ID}"
+        Dim oWindowSQL As String = $"SELECT DISTINCT T.* FROM VWCW_PROFILE_REL_WINDOW T INNER JOIN VWCW_USER_PROFILE T1 ON T.PROFILE_ID = T1.PROFIL_ID AND T1.USER_ID = T.USER_ID
+                        WHERE T.USER_ID = {USER_ID}"
+        Dim oControlSQL As String = $"SELECT DISTINCT T.* FROM VWCW_PROFILE_REL_CONTROL T INNER JOIN VWCW_USER_PROFILE T1 
+            ON T.PROFILE_ID = T1.PROFIL_ID AND T.USER_ID = T1.USER_ID WHERE T1.USER_ID = {USER_ID} "
+
         Try
-            Dim oSql = String.Format("SELECT DISTINCT GUID, NAME,REGEX_EXPRESSION,COMMENT,PROC_NAME,PROFILE_TYPE FROM VWCW_USER_PROFILE WHERE USER_ID = {0} OR GROUP_ID IN (SELECT DISTINCT GUID FROM TBDD_GROUPS WHERE GUID IN (SELECT GROUP_ID FROM TBDD_GROUPS_USER WHERE USER_ID = {0}))", USER_ID)
+            DT_USER_PROFILES = MyDB_DDECM.GetDatatable(ProfileSQL)
-            DT_USER_PROFILES = Database.GetDatatable(oSql)
-            If DT_USER_PROFILES Is Nothing OrElse DT_USER_PROFILES.Rows.Count = 0 Then
-                MsgBox("No profiles configured for this user so far!", MsgBoxStyle.Exclamation)
-            Else
-                oSql = $"SELECT DISTINCT T.GUID, T.PROFILE_ID,T.PROC_NAME FROM TBCW_PROFILE_PROCESS T, VWCW_USER_PROFILE T1 WHERE T.PROFILE_ID = T1.GUID AND T1.USER_ID = {USER_ID}"
-                DTPROFILE_REL_PROCESS = Database.GetDatatable(oSql)
 
-                oSql = $"SELECT * FROM VWCW_PROFILE_REL_WINDOW WHERE USER_ID = {USER_ID}"
+            If DT_USER_PROFILES Is Nothing Or DT_USER_PROFILES.Rows.Count = 0 Then
-                DTPROFILE_REL_WINDOW = Database.GetDatatable(oSql)
+                Logger.Warn("Keine Profile für den User auswertbar. Konfiuration oder SQL prüfen: " + ProfileSQL)
-
+                Return S.Es_wurden_noch_keine_Profile_für_den_aktuellen_Benutzer_konfiguriert_
-                oSql = $"SELECT * FROM VWCW_PROFILE_REL_CONTROL WHERE USER_ID = {USER_ID}"
-                DTPROFILE_REL_CONTROL = Database.GetDatatable(oSql)
             End If
         Catch ex As Exception
             Logger.Error(ex)
             MsgBox("Unexpected Error in Refresh_Profile_Links: " & ex.Message, MsgBoxStyle.Critical)
+            Logger.Warn("SQL so far: " + ProfileSQL)
+            Return S.Fehler_bei_der_Aktualisierung_
         End Try
-    End Sub
+        Try
+            DTPROFILE_REL_PROCESS = MyDB_DDECM.GetDatatable(oProcessSQL)
+        Catch ex As Exception
+            Logger.Error(ex)
+            MsgBox("Unexpected Error in Refresh_ProcessLinks: " & ex.Message, MsgBoxStyle.Critical)
+            Logger.Warn("SQL so far: " + oProcessSQL)
+            Return S.Fehler_bei_der_Aktualisierung_
+        End Try
+        Try
+            DTPROFILE_REL_WINDOW = MyDB_DDECM.GetDatatable(oWindowSQL)
+        Catch ex As Exception
+            Logger.Error(ex)
+            MsgBox("Unexpected Error in Refresh_windowLinks: " & ex.Message, MsgBoxStyle.Critical)
+            Logger.Warn("SQL so far: " + oWindowSQL)
+            Return S.Fehler_bei_der_Aktualisierung_
+        End Try
+        Try
+            DTPROFILE_REL_CONTROL = MyDB_DDECM.GetDatatable(oControlSQL)
+        Catch ex As Exception
+            Logger.Error(ex)
+            MsgBox("Unexpected Error in Refresh_ControlLinks: " & ex.Message, MsgBoxStyle.Critical)
+            Logger.Warn("SQL so far: " + oControlSQL)
+            Return S.Fehler_bei_der_Aktualisierung_
+        End Try
+
+
+
+        Return S.Aktualisierung_erfolgreich_
+    End Function
 End Class

app/DD_Clipboard_Searcher/ClassLicense.vb

@@ -1,14 +1,25 @@
 Imports DD_LIB_Standards
+Imports DigitalData.Modules.License
+
 Public Class ClassLicense
     Private Shared lic_string As String
     Private Shared Sub Get_License(CLIENT_ID As Integer)
+        Try
+               Dim sql As String = String.Format("SELECT LICENSE FROM TBDD_MODULES WHERE SHORT_NAME = 'CW'")
+            lic_string = MyDB_DDECM.GetScalarValue(sql)
+        Catch ex As Exception
+            Try
                 Dim sql As String = String.Format("SELECT LICENSE_DDCBSEARCHER FROM TBDD_CLIENT WHERE GUID = {0}", CLIENT_ID)
+                lic_string = MyDB_DDECM.GetScalarValue(sql)
+            Catch ex1 As Exception
+                MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in Get_License:")
+            End Try
+        End Try
 
-        lic_string = Database.NewExecuteScalar(sql)
     End Sub
     Public Shared Sub Refresh_Licence(CLIENT_ID As Integer)
         Try
-            Dim _lizenzManager = New clsLicenseManager("#DigitalData35452!#", "")
+            Dim _lizenzManager = New LicenseManagerLegacy(LogConfig, "#DigitalData35452!#", "")
             Get_License(CLIENT_ID)
 
             If lic_string = "" Then
@@ -23,15 +34,39 @@ Public Class ClassLicense
 
             If lic_string <> "" Then
                 LICENSE_COUNT = split(0)
-                LICENSE_DATE = CDate(split(1))
+                Try
+                    Dim cultureInfo As System.Globalization.CultureInfo
+                    cultureInfo = New System.Globalization.CultureInfo(LANGUAGE_GERMAN)
+                    cultureInfo.DateTimeFormat.ShortDatePattern = "dd.MM.yyyy"
+                    Try
+                        Dim oLicDate As Date = Convert.ToDateTime(split(1), cultureInfo)
+                        LICENSE_DATE = oLicDate
+                    Catch ex As Exception
+                        Logger.Warn($"Error in Convert Licdate1 [{split(1)}] {ex.Message}")
+                    End Try
+
+                Catch ex As Exception
+                    LICENSE_DATE = split(1)
+                    Logger.Warn($"Error in Convert Licdate1 [{split(1)}] {ex.Message}")
+                End Try
+
             End If
 
-            If CDate(split(1)) < CDate(Now.ToShortDateString) Then
+            Try
-                MsgBox("Your license evaluated!" & vbNewLine & "Last valid date: " & split(1) & vbNewLine & "Please contact Digital Data.", MsgBoxStyle.Exclamation)
+                If Not IsNothing(LICENSE_DATE) Then
+                    If CDate(LICENSE_DATE.ToShortDateString) < CDate(Now.ToShortDateString) Then
+                        MsgBox("Your license evaluated!" & vbNewLine & "Last valid date: " & LICENSE_DATE.ToString & vbNewLine & "Please contact Digital Data.", MsgBoxStyle.Exclamation)
                         LICENSE_EXPIRED = True
                         LICENSE_COUNT = 0
                         ERROR_INIT = "NO LICENSE"
                     End If
+                End If
+
+
+            Catch ex As Exception
+                Logger.Warn($"Error in Convert Licdate2 [{split(1)}] {ex.Message}")
+            End Try
+
         Catch ex As Exception
             MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in licensemanager:")
         End Try

app/DD_Clipboard_Searcher/ClassProfileFilter.vb

@@ -1,557 +0,0 @@
-Imports System.Text.RegularExpressions
-Imports DigitalData.Modules.Language.Utils
-Imports DigitalData.Modules.Windows
-
-Public Class ClassProfileFilter
-    Private _ProfileTable As DataTable
-    Private _ProcessTable As DataTable
-    Private _WindowTable As DataTable
-    Private _ControlTable As DataTable
-    Private _Profiles As List(Of ProfileData)
-    Private _TreeView As TreeView
-
-    Class ProfileData
-        Public Guid As Integer
-        Public Regex As String
-        Public Name As String
-        Public Comment As String
-        Public ProfileType As Integer
-
-        Public Processes As List(Of ProcessData)
-        Public Windows As List(Of WindowData)
-        Public Controls As List(Of ControlData)
-
-        Public CountDocs As Integer = 0
-        Public CountData As Integer = 0
-        Public IsMatched As Boolean = False
-        Public MatchedProcessID As Integer = 0
-        Public MatchedWindowID As Integer = 0
-        Public MatchedControlID As Integer = 0
-        Public SelectCommand As String
-
-        Public Overrides Function Equals(obj As Object) As Boolean
-            Return Guid = DirectCast(obj, ProfileData).Guid
-        End Function
-
-        Public Overrides Function GetHashCode() As Integer
-            Return Guid.ToString.GetHashCode()
-        End Function
-    End Class
-    Class ProcessData
-        Public Guid As Integer
-        Public PROFILE_ID As Integer
-        Public ProcessName As String
-        Public IsMatched As Boolean = False
-
-        Public Overrides Function Equals(obj As Object) As Boolean
-            Return Guid = DirectCast(obj, ProcessData).Guid
-        End Function
-
-        Public Overrides Function GetHashCode() As Integer
-            Return Guid.ToString.GetHashCode()
-        End Function
-    End Class
-    Class WindowData
-        Public Guid As Integer
-        Public WindowProcessID As Integer
-        Public Title As String
-        Public Regex As String
-        Public Sequence As Integer
-        Public IsMatched As Boolean = False
-
-    End Class
-    Class ControlData
-        Public Guid As Integer
-        Public WindowId As Integer
-        Public Description As String
-        Public Regex As String
-        Public AutomationId As String
-        Public ControlName As String
-        Public IsMatched As Boolean = False
-        Public TopLeft As ControlBounds
-        Public TopRight As ControlBounds
-        Public BottomLeft As ControlBounds
-        Public BottomRight As ControlBounds
-    End Class
-    Class ControlBounds
-        Public Top As Integer
-        Public Bottom As Integer
-        Public Left As Integer
-        Public Right As Integer
-    End Class
-    Public ReadOnly Property Profiles As List(Of ProfileData)
-        Get
-            Return _Profiles
-        End Get
-    End Property
-
-    Public Sub New(ProfileDatatable As DataTable, ProcessTable As DataTable, WindowDatatable As DataTable, ControlDatatable As DataTable, TreeView As TreeView)
-        Try
-            _ProfileTable = ProfileDatatable
-            _ProcessTable = ProcessTable
-            _WindowTable = WindowDatatable
-            _ControlTable = ControlDatatable
-            _Profiles = TransformProfiles()
-            _TreeView = TreeView
-        Catch ex As Exception
-            Logger.Error(ex)
-            Throw ex
-        End Try
-    End Sub
-
-    Public Function ToList() As List(Of ProfileData)
-        Return _Profiles
-    End Function
-
-    Private Function GetLowestNode(ByVal Node As TreeNode) As TreeNode
-        If Node.GetNodeCount(False) = 1 Then
-            Return GetLowestNode(Node.Nodes.Item(0))
-        Else
-            Return Node
-        End If
-    End Function
-
-    Private Function FindNodeByTag(ByVal nodes As TreeNodeCollection, ByVal Tag As String) As TreeNode
-        For Each node As TreeNode In nodes
-            If (node.Tag.Equals(Tag)) Then
-                Return node
-            End If
-
-            Dim oNext As TreeNode = FindNodeByTag(node.Nodes, Tag)
-            If oNext IsNot Nothing Then
-                Return oNext
-            End If
-        Next
-        Return Nothing
-    End Function
-
-    Private Function GetMatchText(IsMatch As Boolean)
-        Return IIf(IsMatch, "MATCH", "NO MATCH")
-    End Function
-
-    Private Function GetMatchColor(IsMatch As Boolean)
-        Return IIf(IsMatch, Color.LightGreen, Color.LightCoral)
-    End Function
-
-    Private Function NewProfileNode(Profile As ProfileData) As TreeNode
-        Dim oNode As New TreeNode() With {
-            .Text = $"Profile: {Profile.Name}",
-            .ImageIndex = 0,
-            .Tag = Profile.Name & "-PROFILE"
-        }
-
-        Return oNode
-    End Function
-
-    Private Function NewClipboardRegexNode(Profile As ProfileData, IsMatch As Boolean) As TreeNode
-        Dim oText = $"{GetMatchText(IsMatch)} on Global Clipboard Regex {Profile.Regex}"
-
-        Dim oNode As New TreeNode() With {
-            .Text = oText,
-            .ImageIndex = 1,
-            .Tag = Profile.Name & "-REGEX",
-            .BackColor = GetMatchColor(IsMatch)
-        }
-
-        Return oNode
-    End Function
-    Private Function NewProcessNode(Profile As ProfileData, Process As ProcessData, IsMatch As Boolean) As TreeNode
-        Dim oMatchText = IIf(IsMatch, "MATCH", "NO MATCH")
-        Dim oText = $"{GetMatchText(IsMatch)} on ProcessName {Process.ProcessName}"
-
-        Dim oNode As New TreeNode() With {
-            .Text = oText,
-            .ImageIndex = 4,
-            .Tag = Process.Guid & "-PROCESS",
-            .BackColor = GetMatchColor(IsMatch)
-        }
-
-        Return oNode
-    End Function
-
-    Private Function NewWindowNode(Profile As ProfileData, Window As WindowData, IsMatch As Boolean) As TreeNode
-        Dim oMatchText = IIf(IsMatch, "MATCH", "NO MATCH")
-        Dim oText = $"{GetMatchText(IsMatch)} on WindowTitle {Window.Title}"
-
-        Dim oNode As New TreeNode() With {
-            .Text = oText,
-            .ImageIndex = 3,
-            .Tag = Window.Guid & "-WINDOW",
-            .BackColor = GetMatchColor(IsMatch)
-        }
-
-        Return oNode
-    End Function
-
-    Private Function NewControlNode(Profile As ProfileData, Control As ControlData, IsMatch As Boolean) As TreeNode
-        Dim oMatchText = IIf(IsMatch, "MATCH", "NO MATCH")
-        Dim oText = $"{GetMatchText(IsMatch)} on Control {Control.Description}: {IsMatch.ToString}"
-
-        Dim oNode As New TreeNode() With {
-            .Text = oText,
-            .ImageIndex = 2,
-            .Tag = Control.Guid & "-CONTROL",
-            .BackColor = GetMatchColor(IsMatch)
-        }
-
-        Return oNode
-    End Function
-
-    Public Function FilterProfilesByClipboardRegex(Profiles As List(Of ProfileData), ClipboardContents As String) As List(Of ProfileData)
-        Dim oFilteredProfiles As New List(Of ProfileData)
-
-        Dim oRootNode As TreeNode = New TreeNode() With {
-            .Text = $"Suche nach '{ClipboardContents}'",
-            .Tag = "ROOT"
-        }
-        _TreeView.Nodes.Add(oRootNode)
-
-        For Each oProfile In Profiles
-            Logger.Debug("Current Profile: {0}", oProfile.Name)
-
-            Dim oNode = NewProfileNode(oProfile)
-            oRootNode.Nodes.Add(oNode)
-
-            Try
-                Dim oRegex As New Regex(oProfile.Regex)
-                Dim oMatch = oRegex.Match(ClipboardContents)
-                If oMatch.Success Then
-                    Logger.Debug("FilterProfilesByClipboardRegex: Clipboard Regex Matched: {0}", ClipboardContents)
-                    oFilteredProfiles.Add(oProfile)
-                    oProfile.IsMatched = True
-
-                    Dim oSubnode = NewClipboardRegexNode(oProfile, oMatch.Success)
-                    oNode.Nodes.Add(oSubnode)
-                End If
-            Catch ex As Exception
-                Logger.Warn("Regex '{0}' could not be processed for input '{1}'", oProfile.Regex, ClipboardContents)
-                Logger.Error(ex)
-            End Try
-        Next
-
-        Return oFilteredProfiles
-    End Function
-    Public Function FilterProfilesByProcess(Profiles As List(Of ProfileData), CurrentProcessName As String) As List(Of ProfileData)
-        Dim oFilteredProfiles As New List(Of ProfileData)
-        Try
-            For Each oProfile In Profiles
-                Dim oGuid = oProfile.Guid
-
-                If oProfile.IsMatched = False Then
-                    Continue For
-                End If
-
-                Dim oProcesses As New List(Of ProcessData)
-                For Each oProcessDef As ProcessData In oProfile.Processes
-                    If oProcessDef.PROFILE_ID <> oGuid Then
-                        Continue For
-                    End If
-
-                    Dim oIsMatch = oProcessDef.ProcessName.ToLower = CurrentProcessName.ToLower
-                    Dim oParent = FindNodeByTag(_TreeView.Nodes, oProfile.Name & "-REGEX")
-                    If oParent IsNot Nothing Then
-                        Dim oNode = NewProcessNode(oProfile, oProcessDef, oIsMatch)
-                        oParent.Nodes.Add(oNode)
-                    End If
-
-                    Logger.Debug($"FilterProfilesByProcess: Checking Profile: {oProfile.Name} ...")
-                    If oIsMatch Then
-                        Logger.Debug($"Yes...Processname Matched: {oProcessDef.ProcessName}")
-                        'oProfile.MATCH_PROCESSNAME = $"Processname Matched: {oProfile.ProcessName}"
-                        'TODO: Add Debug Data
-                        oFilteredProfiles.Add(oProfile)
-                        oProfile.MatchedProcessID = oProcessDef.Guid
-                        oProcessDef.IsMatched = True
-                        oProcesses.Add(oProcessDef)
-                        oProfile.IsMatched = True
-                        oProfile.MatchedProcessID = oProcessDef.Guid
-
-                    End If
-                Next
-                If oFilteredProfiles.Count > 0 Then
-                    oProfile.Processes = oProcesses
-                End If
-            Next
-
-            Return oFilteredProfiles
-        Catch ex As Exception
-            Logger.Warn("Unexpected error in FilterProfilesByProcess...")
-            Logger.Error(ex)
-        End Try
-
-    End Function
-    Public Function FilterWindowsByWindowTitleRegex(Profiles As List(Of ProfileData), WindowTitle As String) As List(Of ProfileData)
-        Dim oProfiles As New List(Of ProfileData)
-
-        For Each oProfile As ProfileData In Profiles
-            Logger.Debug("Checking WindowDefinition for profile: {0}...", oProfile.Name)
-            If oProfile.IsMatched = False Then Continue For
-            Dim oWindows As New List(Of WindowData)
-
-            For Each oWindowDef As WindowData In oProfile.Windows
-                If oWindowDef.WindowProcessID <> oProfile.MatchedProcessID Then Continue For
-                Try
-                    If oWindowDef.Regex = String.Empty Then
-                        oProfile.MatchedWindowID = oWindowDef.Guid
-                        oWindowDef.IsMatched = True
-                        oWindows.Add(oWindowDef)
-                        Exit For
-                    End If
-
-                    Dim oRegex As New Regex(oWindowDef.Regex)
-                    Dim oMatch = oRegex.Match(WindowTitle)
-
-                    If oMatch.Success Then
-                        Logger.Debug("MATCH on WindowTitle: {0}", WindowTitle)
-                        oProfile.MatchedWindowID = oWindowDef.Guid
-                        oWindowDef.IsMatched = True
-                        oWindows.Add(oWindowDef)
-                    End If
-
-                    Dim oParent = FindNodeByTag(_TreeView.Nodes, oWindowDef.WindowProcessID & "-PROCESS")
-                    If oParent IsNot Nothing Then
-                        Dim oNode = NewWindowNode(oProfile, oWindowDef, oMatch.Success)
-                        oParent.Nodes.Add(oNode)
-                    End If
-
-                Catch ex As Exception
-                    Logger.Warn("Regex '{0}' could not be processed for input '{1}'", oWindowDef.Regex, WindowTitle)
-                    Logger.Error(ex)
-                End Try
-            Next
-
-            If oWindows.Count > 0 Then
-                oProfile.Windows = oWindows
-                oProfile.IsMatched = True
-                oProfiles.Add(oProfile)
-            End If
-        Next
-
-        Return oProfiles
-    End Function
-
-    Public Function FilterProfilesByFocusedControlLocation(Profiles As List(Of ProfileData), ClipboardContents As String, WindowHandle As IntPtr) As List(Of ProfileData)
-        Dim oFilteredProfiles As New List(Of ProfileData)
-        Dim oWindow As New Window(LogConfig)
-
-        For Each oProfile In Profiles
-            If oProfile.IsMatched = False Then Continue For
-
-            If oProfile.Controls.Count = 0 Then
-                oFilteredProfiles.Add(oProfile)
-                Continue For
-            End If
-
-            Dim oControls As New List(Of ControlData)
-
-            For Each oControl In oProfile.Controls
-                Dim oControlBounds = oWindow.GetFocusedControlLocation(WindowHandle)
-                Dim oFound As Boolean = False
-
-                For Each oItem As KeyValuePair(Of String, Window.RectangleInfo) In oControlBounds
-                    Select Case oItem.Key
-                        Case "TOPLEFT"
-                            If oControl.TopLeft.Top = oItem.Value.Top And oControl.TopLeft.Left = oItem.Value.Left Then
-                                oFound = True
-                            End If
-                        Case "TOPRIGHT"
-                            If oControl.TopRight.Top = oItem.Value.Top And oControl.TopLeft.Right = oItem.Value.Right Then
-                                oFound = True
-                            End If
-                        Case "BOTTOMLEFT"
-                            If oControl.BottomLeft.Bottom = oItem.Value.Bottom And oControl.TopLeft.Left = oItem.Value.Left Then
-                                oFound = True
-                            End If
-                        Case "BOTTOMRIGHT"
-                            If oControl.BottomRight.Bottom = oItem.Value.Bottom And oControl.TopLeft.Right = oItem.Value.Right Then
-                                oFound = True
-                            End If
-                    End Select
-                Next
-
-                If oFound Then
-                    oFilteredProfiles.Add(oProfile)
-                End If
-
-                Dim oParent = FindNodeByTag(_TreeView.Nodes, oControl.WindowId & "-WINDOW")
-                If oParent IsNot Nothing Then
-                    Dim oNode = NewControlNode(oProfile, oControl, oFound)
-                    oParent.Nodes.Add(oNode)
-                End If
-            Next
-
-            If oControls.Count > 0 Then
-                oProfile.Controls = oControls
-                oFilteredProfiles.Add(oProfile)
-            End If
-        Next
-
-
-        Return oFilteredProfiles
-    End Function
-
-    Public Function FilterWindowsByWindowClipboardRegex(Profiles As List(Of ProfileData), ClipboardContents As String) As List(Of ProfileData)
-        Dim oProfiles As New List(Of ProfileData)
-
-        For Each oProfile As ProfileData In Profiles
-            Logger.Debug("Current Profile: {0}", oProfile.Name)
-
-            Dim oWindows As New List(Of WindowData)
-
-            For Each w As WindowData In oProfile.Windows
-                Try
-                    If w.Regex = String.Empty Then
-                        oWindows.Add(w)
-                    End If
-
-                    Dim oRegex As New Regex(w.Regex)
-                    Dim oMatch = oRegex.Match(ClipboardContents)
-
-                    If oMatch.Success Then
-                        Logger.Debug("Window Clipboard Regex Matched: {0}", ClipboardContents)
-                        oWindows.Add(w)
-                    End If
-
-                    Dim oResult As TreeNode = FindNodeByTag(_TreeView.Nodes, oProfile.Name & "-REGEX")
-                    If Not IsNothing(oResult) Then
-                        Dim oNode As New TreeNode($"MATCH on WINDOW Clipboard Regex [{w.Regex}]: {oMatch.Success}")
-                        oNode.ImageIndex = 2
-                        oNode.Tag = oProfile.Name & "-WINDOW_REGEX"
-                        oResult.Nodes.Add(oNode)
-                    End If
-                Catch ex As Exception
-                    Logger.Warn("Regex '{0}' could not be processed for input '{1}'", w.Regex, ClipboardContents)
-                    Logger.Error(ex)
-                End Try
-            Next
-
-            If oWindows.Count > 0 Then
-                oProfile.Windows = oWindows
-                oProfiles.Add(oProfile)
-            End If
-        Next
-
-        Return oProfiles
-    End Function
-
-    Public Function ClearNotMatchedProfiles(Profiles As List(Of ProfileData)) As List(Of ProfileData)
-        Dim oFilteredProfiles As New List(Of ProfileData)
-        For Each oProfile In Profiles
-            If oProfile.IsMatched Then
-                oFilteredProfiles.Add(oProfile)
-            End If
-        Next
-        Return oFilteredProfiles
-    End Function
-
-    Public Function ClearDuplicateProfiles(Profiles As List(Of ProfileData)) As List(Of ProfileData)
-        Return Profiles.
-            GroupBy(Function(Profile) Profile.Guid).
-            Select(Function(GroupedProfiles) GroupedProfiles.First).
-            ToList()
-    End Function
-
-    Private Function TransformProfiles() As List(Of ProfileData)
-        Dim oList As New List(Of ProfileData)
-
-        For Each oRow As DataRow In _ProfileTable.Rows
-            Dim oProfileId = oRow.Item("GUID")
-            Dim oProcessList As List(Of ProcessData) = TransformProcesses(oProfileId, _ProcessTable)
-            Dim oWindowList As List(Of WindowData) = TransformWindows(oProfileId, _WindowTable)
-            Dim oControlList As List(Of ControlData) = TransformControls(oProfileId, _ControlTable)
-
-            oList.Add(New ProfileData() With {
-                .Guid = oRow.Item("GUID"),
-                .Regex = oRow.Item("REGEX_EXPRESSION"),
-                .Name = NotNull(oRow.Item("NAME"), String.Empty),
-                .Comment = NotNull(oRow.Item("COMMENT"), String.Empty),
-                .ProfileType = NotNull(oRow.Item("PROFILE_TYPE"), String.Empty),
-                .Processes = oProcessList,
-                .Windows = oWindowList,
-                .Controls = oControlList
-            })
-        Next
-
-        oList = oList.
-            Distinct().
-            ToList()
-
-        Return oList
-    End Function
-
-    Private Function TransformControls(ProfileId As Integer, ControlDatatable As DataTable) As List(Of ControlData)
-        Dim oControlList As New List(Of ControlData)
-
-        For Each oRow As DataRow In ControlDatatable.Rows
-            If oRow.Item("PROFILE_ID") = ProfileId Then
-                oControlList.Add(New ControlData() With {
-                    .Guid = oRow.Item("GUID"),
-                    .Description = NotNull(oRow.Item("DESCRIPTION"), String.Empty),
-                    .WindowId = oRow.Item("WINDOW_ID"),
-                    .TopLeft = New ControlBounds() With {
-                        .Left = oRow.Item("TOPLEFT_LEFT"),
-                        .Right = oRow.Item("TOPLEFT_RIGHT"),
-                        .Top = oRow.Item("TOPLEFT_TOP"),
-                        .Bottom = oRow.Item("TOPLEFT_BOTTOM")
-                    },
-                    .TopRight = New ControlBounds() With {
-                        .Left = oRow.Item("TOPRIGHT_LEFT"),
-                        .Right = oRow.Item("TOPRIGHT_RIGHT"),
-                        .Top = oRow.Item("TOPRIGHT_TOP"),
-                        .Bottom = oRow.Item("TOPRIGHT_BOTTOM")
-                    },
-                    .BottomLeft = New ControlBounds() With {
-                        .Left = oRow.Item("BOTTOMLEFT_LEFT"),
-                        .Right = oRow.Item("BOTTOMLEFT_RIGHT"),
-                        .Top = oRow.Item("BOTTOMLEFT_TOP"),
-                        .Bottom = oRow.Item("BOTTOMLEFT_BOTTOM")
-                    },
-                    .BottomRight = New ControlBounds() With {
-                        .Left = oRow.Item("BOTTOMRIGHT_LEFT"),
-                        .Right = oRow.Item("BOTTOMRIGHT_RIGHT"),
-                        .Top = oRow.Item("BOTTOMRIGHT_TOP"),
-                        .Bottom = oRow.Item("BOTTOMRIGHT_BOTTOM")
-                    }
-                })
-            End If
-        Next
-
-        Return oControlList
-    End Function
-    Private Function TransformProcesses(ProfileId As Integer, ProcessDatatable As DataTable) As List(Of ProcessData)
-        Dim oProcessList As New List(Of ProcessData)
-
-        For Each oRow As DataRow In ProcessDatatable.Rows
-            If oRow.Item("PROFILE_ID") = ProfileId Then
-                oProcessList.Add(New ProcessData() With {
-                    .Guid = oRow.Item("GUID"),
-                    .PROFILE_ID = oRow.Item("PROFILE_ID"),
-                    .ProcessName = NotNull(oRow.Item("PROC_NAME"), String.Empty)
-                })
-            End If
-        Next
-
-        oProcessList = oProcessList.
-            Distinct().
-            ToList()
-
-        Return oProcessList
-    End Function
-    Private Function TransformWindows(ProfileId As Integer, WindowDatatable As DataTable) As List(Of WindowData)
-        Dim oWindowList As New List(Of WindowData)
-
-        For Each oRow As DataRow In WindowDatatable.Rows
-            If oRow.Item("PROFILE_ID") = ProfileId Then
-                oWindowList.Add(New WindowData() With {
-                    .Guid = oRow.Item("GUID"),
-                    .WindowProcessID = oRow.Item("PROCESS_ID"),
-                    .Title = NotNull(oRow.Item("DESCRIPTION"), String.Empty),
-                    .Regex = NotNull(oRow.Item("REGEX"), String.Empty),
-                    .Sequence = NotNull(oRow.Item("SEQUENCE"), 0)
-                })
-            End If
-        Next
-
-        Return oWindowList
-    End Function
-End Class

app/DD_Clipboard_Searcher/ClassProfileMatch.vb

@@ -1,43 +0,0 @@
-Imports DD_Clipboard_Watcher.ClassProfileFilter
-
-Public Class ClassProfileMatch
-    Private TreeView As TreeView
-    Private ImageList As ImageList
-
-    Public Sub New(TreeView As TreeView, ImageList As ImageList)
-        Me.TreeView = TreeView
-        Me.ImageList = ImageList
-
-        Me.TreeView.Nodes.Clear()
-        Me.TreeView.ImageList = ImageList
-        Me.TreeView.SelectedImageIndex = 0
-    End Sub
-
-    Public Function AddProfileNode(Profile As ProfileData) As TreeNode
-        Dim oNode As New TreeNode With {
-            .ImageIndex = 0,
-            .Tag = $"{Profile.Name}-ROOT",
-            .Text = $"Profile: {Profile.Name}"
-        }
-
-        TreeView.Nodes.Add(oNode)
-
-        Return oNode
-    End Function
-
-    Public Function AddProfileRegexNode(ParentNode As TreeNode, Profile As ProfileData, Regex As String, IsMatch As Boolean) As TreeNode
-        Dim oNode As New TreeNode With {
-            .ImageIndex = 1,
-            .Tag = $"{Profile.Name}-REGEX",
-            .Text = $"MATCH on Global Clipboard Regex: {Profile.Regex}"
-        }
-
-        ParentNode.Nodes.Add(oNode)
-
-        Return oNode
-    End Function
-
-    Public Function FindNodeByTag(TagName As String) As TreeNode
-
-    End Function
-End Class

app/DD_Clipboard_Searcher/ClassWindow.vb

@@ -29,7 +29,7 @@ Public Class ClipboardWatcher : Inherits NativeWindow : Implements IDisposable
                     Exit Sub
                 End If
 
-                If oWindow.ProcessName.StartsWith("DD_Clipboard_Watcher") Then
+                If oWindow.ProcessName.StartsWith("easyFLOW") Then
                     Exit Sub
                 End If
 

app/DD_Clipboard_Searcher/ClassWindowAPIUtils.vb

@@ -1,7 +1,7 @@
 Imports System
 Imports System.Text
 Imports System.ComponentModel
-Imports DD_Clipboard_Watcher.ClassWindowsAPINativeMethods
+Imports easyFLOW.ClassWindowsAPINativeMethods
 
 Public Class ClassWindowAPIUtils
     Private Shared GetControlNameMessage As Integer = 0

app/DD_Clipboard_Searcher/ClasseasyFLOW.vb

@@ -0,0 +1,76 @@
+Imports System.ComponentModel
+Imports System.Runtime.InteropServices
+
+Public Class ClasseasyFLOW : Inherits NativeWindow : Implements IDisposable
+    <DllImport("user32", EntryPoint:="AddClipboardFormatListener")>
+    Private Shared Function AddClipboardFormatListener(ByVal hWnd As IntPtr) As Boolean
+    End Function
+
+    <DllImport("user32", EntryPoint:="RemoveClipboardFormatListener")>
+    Private Shared Function RemoveClipboardFormatListener(ByVal hWnd As IntPtr) As Boolean
+    End Function
+
+    Public Event Changed As EventHandler(Of String)
+
+    Private ReadOnly _Handle As IntPtr
+    Private _IsDisposed As Boolean = False
+
+    'nur eine globale Instanz zulassen
+    Public Shared Singleton As New ClasseasyFLOW
+
+    Const WM_CLIPBOARDUPDATE As Integer = &H31D
+
+    Private Sub New()
+        MyBase.CreateHandle(New CreateParams)
+        _Handle = AddClipboardFormatListener(Handle)
+    End Sub
+
+    Protected Overrides Sub WndProc(ByRef m As Message)
+        Select Case m.Msg
+            Case WM_CLIPBOARDUPDATE
+                Dim oWindow = ClassWindowAPI.GetWindowInfo()
+
+                If IsNothing(oWindow.ProcessName) Then
+                    Exit Sub
+                End If
+
+                If oWindow.ProcessName.StartsWith("easyFLOW") Then
+                    Exit Sub
+                End If
+
+                Dim oText = Clipboard.GetText
+
+                RaiseEvent Changed(Me, oText)
+        End Select
+
+        MyBase.WndProc(m)
+    End Sub
+
+    Protected Overridable Sub Dispose(ByVal disposing As Boolean)
+        If Not _IsDisposed Then
+            If disposing Then
+                ' TODO: Verwaltete Ressourcen freigeben, wenn sie explizit 
+                ' aufgerufen werden
+            End If
+            MyBase.DestroyHandle()
+            RemoveClipboardFormatListener(_Handle)
+        End If
+        _IsDisposed = True
+    End Sub
+
+    ' Dieser Code wird von Visual Basic hinzugefügt, um das Dispose-Muster 
+    ' richtig zu implementieren.
+    Public Sub Dispose() Implements IDisposable.Dispose
+        ' Sie sollten diesen Code nicht ändern, sondern stattdessen ihren
+        ' Bereinigungscode oben in 
+        ' Dispose(ByVal disposing As Boolean) einfügen.
+        Dispose(True)
+        GC.SuppressFinalize(Me)
+    End Sub
+
+    Protected Overrides Sub Finalize()
+        MyBase.Finalize()
+        Dispose(False)
+    End Sub
+End Class
+

app/DD_Clipboard_Searcher/DD_Clipboard_Watcher.vbproj.bak

@@ -1,290 +0,0 @@
-<?xml version="1.0" encoding="utf-8"?>
-<Project ToolsVersion="12.0" DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
-  <Import Project="$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props" Condition="Exists('$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props')" />
-  <PropertyGroup>
-    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
-    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
-    <ProjectGuid>{09BC9934-1A38-4752-8873-639B42779CDB}</ProjectGuid>
-    <OutputType>WinExe</OutputType>
-    <StartupObject>DD_Clipboard_Watcher.My.MyApplication</StartupObject>
-    <RootNamespace>DD_Clipboard_Watcher</RootNamespace>
-    <AssemblyName>DD_Clipboard_Watcher</AssemblyName>
-    <FileAlignment>512</FileAlignment>
-    <MyType>WindowsForms</MyType>
-    <TargetFrameworkVersion>v4.6.1</TargetFrameworkVersion>
-    <AutoGenerateBindingRedirects>true</AutoGenerateBindingRedirects>
-    <TargetFrameworkProfile />
-  </PropertyGroup>
-  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
-    <PlatformTarget>AnyCPU</PlatformTarget>
-    <DebugSymbols>true</DebugSymbols>
-    <DebugType>full</DebugType>
-    <DefineDebug>true</DefineDebug>
-    <DefineTrace>true</DefineTrace>
-    <OutputPath>bin\Debug\</OutputPath>
-    <DocumentationFile>DD_Clipboard_Watcher.xml</DocumentationFile>
-    <NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
-  </PropertyGroup>
-  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
-    <PlatformTarget>AnyCPU</PlatformTarget>
-    <DebugType>pdbonly</DebugType>
-    <DefineDebug>false</DefineDebug>
-    <DefineTrace>true</DefineTrace>
-    <Optimize>true</Optimize>
-    <OutputPath>bin\Release\</OutputPath>
-    <DocumentationFile>DD_Clipboard_Watcher.xml</DocumentationFile>
-    <NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
-  </PropertyGroup>
-  <PropertyGroup>
-    <OptionExplicit>On</OptionExplicit>
-  </PropertyGroup>
-  <PropertyGroup>
-    <OptionCompare>Binary</OptionCompare>
-  </PropertyGroup>
-  <PropertyGroup>
-    <OptionStrict>Off</OptionStrict>
-  </PropertyGroup>
-  <PropertyGroup>
-    <OptionInfer>On</OptionInfer>
-  </PropertyGroup>
-  <PropertyGroup>
-    <ApplicationIcon>DD_Icons_ICO_CBWATCHER_48px.ico</ApplicationIcon>
-  </PropertyGroup>
-  <ItemGroup>
-    <Reference Include="DD_LIB_Standards">
-      <HintPath>..\..\..\DDLibStandards\DD_LIB_Standards\bin\Debug\DD_LIB_Standards.dll</HintPath>
-    </Reference>
-    <Reference Include="DevExpress.Data.v15.2, Version=15.2.15.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
-      <SpecificVersion>False</SpecificVersion>
-      <HintPath>D:\ProgramFiles\DevExpress 15.2\Bin\Framework\DevExpress.Data.v15.2.dll</HintPath>
-    </Reference>
-    <Reference Include="DevExpress.Printing.v15.2.Core, Version=15.2.15.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
-      <SpecificVersion>False</SpecificVersion>
-      <HintPath>D:\ProgramFiles\DevExpress 15.2\Bin\Framework\DevExpress.Printing.v15.2.Core.dll</HintPath>
-    </Reference>
-    <Reference Include="DevExpress.Sparkline.v15.2.Core, Version=15.2.15.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
-      <SpecificVersion>False</SpecificVersion>
-      <HintPath>D:\ProgramFiles\DevExpress 15.2\Bin\Framework\DevExpress.Sparkline.v15.2.Core.dll</HintPath>
-    </Reference>
-    <Reference Include="DevExpress.Utils.v15.2, Version=15.2.15.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
-      <SpecificVersion>False</SpecificVersion>
-      <HintPath>D:\ProgramFiles\DevExpress 15.2\Bin\Framework\DevExpress.Utils.v15.2.dll</HintPath>
-    </Reference>
-    <Reference Include="DevExpress.XtraEditors.v15.2, Version=15.2.15.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
-      <SpecificVersion>False</SpecificVersion>
-      <HintPath>D:\ProgramFiles\DevExpress 15.2\Bin\Framework\DevExpress.XtraEditors.v15.2.dll</HintPath>
-    </Reference>
-    <Reference Include="DevExpress.XtraGrid.v15.2, Version=15.2.15.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
-      <SpecificVersion>False</SpecificVersion>
-      <HintPath>D:\ProgramFiles\DevExpress 15.2\Bin\Framework\DevExpress.XtraGrid.v15.2.dll</HintPath>
-    </Reference>
-    <Reference Include="DevExpress.XtraLayout.v15.2, Version=15.2.15.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
-      <SpecificVersion>False</SpecificVersion>
-      <HintPath>D:\ProgramFiles\DevExpress 15.2\Bin\Framework\DevExpress.XtraLayout.v15.2.dll</HintPath>
-    </Reference>
-    <Reference Include="DevExpress.XtraPrinting.v15.2, Version=15.2.15.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
-      <SpecificVersion>False</SpecificVersion>
-      <HintPath>D:\ProgramFiles\DevExpress 15.2\Bin\Framework\DevExpress.XtraPrinting.v15.2.dll</HintPath>
-    </Reference>
-    <Reference Include="DigitalData.Modules.Config">
-      <HintPath>..\..\..\DDMonorepo\Modules.Config\bin\Debug\DigitalData.Modules.Config.dll</HintPath>
-    </Reference>
-    <Reference Include="DigitalData.Modules.Logging">
-      <HintPath>..\..\..\DDMonorepo\Modules.Config\bin\Debug\DigitalData.Modules.Logging.dll</HintPath>
-    </Reference>
-    <Reference Include="Microsoft.CSharp" />
-    <Reference Include="NLog, Version=4.0.0.0, Culture=neutral, PublicKeyToken=5120e14c03d0593c, processorArchitecture=MSIL">
-      <HintPath>..\packages\NLog.4.5.11\lib\net45\NLog.dll</HintPath>
-    </Reference>
-    <Reference Include="System" />
-    <Reference Include="System.ComponentModel.DataAnnotations" />
-    <Reference Include="System.Configuration" />
-    <Reference Include="System.Data" />
-    <Reference Include="System.Data.Linq" />
-    <Reference Include="System.Deployment" />
-    <Reference Include="System.Drawing" />
-    <Reference Include="System.IO.Compression" />
-    <Reference Include="System.Runtime.Serialization" />
-    <Reference Include="System.ServiceModel" />
-    <Reference Include="System.Transactions" />
-    <Reference Include="System.Web.Services" />
-    <Reference Include="System.Windows.Forms" />
-    <Reference Include="System.Xml" />
-    <Reference Include="System.Core" />
-    <Reference Include="System.Xml.Linq" />
-    <Reference Include="System.Data.DataSetExtensions" />
-  </ItemGroup>
-  <ItemGroup>
-    <Import Include="Microsoft.VisualBasic" />
-    <Import Include="System" />
-    <Import Include="System.Collections" />
-    <Import Include="System.Collections.Generic" />
-    <Import Include="System.Data" />
-    <Import Include="System.Drawing" />
-    <Import Include="System.Diagnostics" />
-    <Import Include="System.Windows.Forms" />
-    <Import Include="System.Linq" />
-    <Import Include="System.Xml.Linq" />
-    <Import Include="System.Threading.Tasks" />
-  </ItemGroup>
-  <ItemGroup>
-    <Compile Include="Class1.vb" />
-    <Compile Include="ClassConfig.vb" />
-    <Compile Include="ClassInit.vb" />
-    <Compile Include="ClassLayout.vb" />
-    <Compile Include="clsHotkey.vb" />
-    <Compile Include="clsLicense.vb" />
-    <Compile Include="clsSearch.vb" />
-    <Compile Include="clsWindowApivb.vb" />
-    <Compile Include="clsWINDOWSApi.vb" />
-    <Compile Include="frmAdministration.Designer.vb">
-      <DependentUpon>frmAdministration.vb</DependentUpon>
-    </Compile>
-    <Compile Include="frmAdministration.vb">
-      <SubType>Form</SubType>
-    </Compile>
-    <Compile Include="frmClientLogin.designer.vb">
-      <DependentUpon>frmClientLogin.vb</DependentUpon>
-    </Compile>
-    <Compile Include="frmClientLogin.vb">
-      <SubType>Form</SubType>
-    </Compile>
-    <Compile Include="frmLicense.Designer.vb">
-      <DependentUpon>frmLicense.vb</DependentUpon>
-    </Compile>
-    <Compile Include="frmLicense.vb">
-      <SubType>Form</SubType>
-    </Compile>
-    <Compile Include="frmMain.vb">
-      <SubType>Form</SubType>
-    </Compile>
-    <Compile Include="frmMain.Designer.vb">
-      <DependentUpon>frmMain.vb</DependentUpon>
-      <SubType>Form</SubType>
-    </Compile>
-    <Compile Include="frmConfig_Basic.Designer.vb">
-      <DependentUpon>frmConfig_Basic.vb</DependentUpon>
-    </Compile>
-    <Compile Include="frmConfig_Basic.vb">
-      <SubType>Form</SubType>
-    </Compile>
-    <Compile Include="frmSplash.Designer.vb">
-      <DependentUpon>frmSplash.vb</DependentUpon>
-    </Compile>
-    <Compile Include="frmSplash.vb">
-      <SubType>Form</SubType>
-    </Compile>
-    <Compile Include="modCurrent.vb" />
-    <Compile Include="modMySettings.vb" />
-    <Compile Include="My Project\AssemblyInfo.vb" />
-    <Compile Include="My Project\Application.Designer.vb">
-      <AutoGen>True</AutoGen>
-      <DependentUpon>Application.myapp</DependentUpon>
-    </Compile>
-    <Compile Include="My Project\Resources.Designer.vb">
-      <AutoGen>True</AutoGen>
-      <DesignTime>True</DesignTime>
-      <DependentUpon>Resources.resx</DependentUpon>
-    </Compile>
-    <Compile Include="My Project\Settings.Designer.vb">
-      <AutoGen>True</AutoGen>
-      <DependentUpon>Settings.settings</DependentUpon>
-      <DesignTimeSharedInput>True</DesignTimeSharedInput>
-    </Compile>
-    <Compile Include="MyDataset.Designer.vb">
-      <AutoGen>True</AutoGen>
-      <DesignTime>True</DesignTime>
-      <DependentUpon>MyDataset.xsd</DependentUpon>
-    </Compile>
-  </ItemGroup>
-  <ItemGroup>
-    <EmbeddedResource Include="frmAdministration.resx">
-      <DependentUpon>frmAdministration.vb</DependentUpon>
-      <SubType>Designer</SubType>
-    </EmbeddedResource>
-    <EmbeddedResource Include="frmClientLogin.en.resx">
-      <DependentUpon>frmClientLogin.vb</DependentUpon>
-    </EmbeddedResource>
-    <EmbeddedResource Include="frmClientLogin.resx">
-      <DependentUpon>frmClientLogin.vb</DependentUpon>
-    </EmbeddedResource>
-    <EmbeddedResource Include="frmLicense.resx">
-      <DependentUpon>frmLicense.vb</DependentUpon>
-    </EmbeddedResource>
-    <EmbeddedResource Include="frmMain.resx">
-      <DependentUpon>frmMain.vb</DependentUpon>
-    </EmbeddedResource>
-    <EmbeddedResource Include="frmConfig_Basic.resx">
-      <DependentUpon>frmConfig_Basic.vb</DependentUpon>
-    </EmbeddedResource>
-    <EmbeddedResource Include="frmSplash.resx">
-      <DependentUpon>frmSplash.vb</DependentUpon>
-    </EmbeddedResource>
-    <EmbeddedResource Include="My Project\licenses.licx" />
-    <EmbeddedResource Include="My Project\Resources.resx">
-      <Generator>VbMyResourcesResXFileCodeGenerator</Generator>
-      <LastGenOutput>Resources.Designer.vb</LastGenOutput>
-      <CustomToolNamespace>My.Resources</CustomToolNamespace>
-      <SubType>Designer</SubType>
-    </EmbeddedResource>
-  </ItemGroup>
-  <ItemGroup>
-    <None Include="My Project\Application.myapp">
-      <Generator>MyApplicationCodeGenerator</Generator>
-      <LastGenOutput>Application.Designer.vb</LastGenOutput>
-    </None>
-    <None Include="My Project\Settings.settings">
-      <Generator>SettingsSingleFileGenerator</Generator>
-      <CustomToolNamespace>My</CustomToolNamespace>
-      <LastGenOutput>Settings.Designer.vb</LastGenOutput>
-    </None>
-    <None Include="App.config" />
-  </ItemGroup>
-  <ItemGroup>
-    <None Include="MyDataset.xsc">
-      <DependentUpon>MyDataset.xsd</DependentUpon>
-    </None>
-    <None Include="MyDataset.xsd">
-      <SubType>Designer</SubType>
-      <Generator>MSDataSetGenerator</Generator>
-      <LastGenOutput>MyDataset.Designer.vb</LastGenOutput>
-    </None>
-    <None Include="MyDataset.xss">
-      <DependentUpon>MyDataset.xsd</DependentUpon>
-    </None>
-    <None Include="packages.config" />
-    <None Include="Resources\folder_Open_16xLG.png" />
-  </ItemGroup>
-  <ItemGroup>
-    <None Include="Resources\KeyDown_8461.png" />
-  </ItemGroup>
-  <ItemGroup>
-    <None Include="Resources\StatusAnnotations_Stop_16xLG.png" />
-  </ItemGroup>
-  <ItemGroup>
-    <None Include="Resources\control_start_blue.png" />
-  </ItemGroup>
-  <ItemGroup>
-    <None Include="Resources\GoToDefinition_5575.png" />
-  </ItemGroup>
-  <ItemGroup>
-    <None Include="Resources\Annotation_New.png" />
-  </ItemGroup>
-  <ItemGroup>
-    <Content Include="DD_Icons_ICO_CBWATCHER_48px.ico" />
-    <Content Include="KeyOutput_8167.ico" />
-    <None Include="Resources\refresh_16xLG.png" />
-    <None Include="Resources\Symbols_Stop_16xLG.png" />
-    <None Include="Resources\startwithoutdebugging_6556.png" />
-    <None Include="Resources\ReduceSize.png" />
-    <None Include="Resources\KeyOutput_8167.png" />
-  </ItemGroup>
-  <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
-  <!-- To modify your build process, add your task inside one of the targets below and uncomment it. 
-       Other similar extension points exist, see Microsoft.Common.targets.
-  <Target Name="BeforeBuild">
-  </Target>
-  <Target Name="AfterBuild">
-  </Target>
-  -->
-</Project>

app/DD_Clipboard_Searcher/IResultForm.vb

@@ -1,3 +0,0 @@
-Public Interface IResultForm
-    Property ShouldReturnToMatchForm As Boolean
-End Interface

app/DD_Clipboard_Searcher/MailLicense.xml

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

app/DD_Clipboard_Searcher/My Project/Application.Designer.vb

@@ -24,7 +24,7 @@ Namespace My
         <Global.System.Diagnostics.DebuggerStepThroughAttribute()>  _
         Public Sub New()
             MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows)
-            Me.IsSingleInstance = false
+            Me.IsSingleInstance = true
             Me.EnableVisualStyles = true
             Me.SaveMySettingsOnExit = true
             Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses
@@ -32,7 +32,13 @@ Namespace My
         
         <Global.System.Diagnostics.DebuggerStepThroughAttribute()>  _
         Protected Overrides Sub OnCreateMainForm()
-            Me.MainForm = Global.DD_Clipboard_Watcher.frmStart
+            Me.MainForm = Global.easyFLOW.frmMain
         End Sub
+        
+        <Global.System.Diagnostics.DebuggerStepThroughAttribute()>  _
+        Protected Overrides Function OnInitialize(ByVal commandLineArgs As System.Collections.ObjectModel.ReadOnlyCollection(Of String)) As Boolean
+            Me.MinimumSplashScreenDisplayTime = 0
+            Return MyBase.OnInitialize(commandLineArgs)
+        End Function
     End Class
 End Namespace

app/DD_Clipboard_Searcher/My Project/Application.myapp

@@ -1,8 +1,8 @@
 <?xml version="1.0" encoding="utf-8"?>
 <MyApplicationData xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
   <MySubMain>true</MySubMain>
-  <MainForm>frmStart</MainForm>
+  <MainForm>frmMain</MainForm>
-  <SingleInstance>false</SingleInstance>
+  <SingleInstance>true</SingleInstance>
   <ShutdownMode>0</ShutdownMode>
   <EnableVisualStyles>true</EnableVisualStyles>
   <AuthenticationMode>0</AuthenticationMode>

app/DD_Clipboard_Searcher/My Project/AssemblyInfo.vb

@@ -8,11 +8,11 @@ Imports System.Runtime.InteropServices
 
 ' Die Werte der Assemblyattribute überprüfen
 
-<Assembly: AssemblyTitle("Clipboard Watcher")>
+<Assembly: AssemblyTitle("easyFLOW")>
 <Assembly: AssemblyDescription("")>
 <Assembly: AssemblyCompany("Digital Data")>
-<Assembly: AssemblyProduct("Clipboard Watcher")>
+<Assembly: AssemblyProduct("easyFLOW")>
-<Assembly: AssemblyCopyright("Copyright ©2019")>
+<Assembly: AssemblyCopyright("Copyright © 2025")>
 <Assembly: AssemblyTrademark("")>
 
 <Assembly: ComVisible(False)>
@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("2.0.0.0")>
+<Assembly: AssemblyVersion("2.7.6.0")>
 <Assembly: AssemblyFileVersion("1.0.0.0")> 

app/DD_Clipboard_Searcher/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", "17.0.0.0"),  _
      Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
      Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(),  _
      Global.Microsoft.VisualBasic.HideModuleNameAttribute()>  _
@@ -39,7 +39,7 @@ Namespace My.Resources
         Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
             Get
                 If Object.ReferenceEquals(resourceMan, Nothing) Then
-                    Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("DD_Clipboard_Watcher.Resources", GetType(Resources).Assembly)
+                    Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("easyFLOW.Resources", GetType(Resources).Assembly)
                     resourceMan = temp
                 End If
                 Return resourceMan
@@ -150,6 +150,16 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property DD_easyFLOW_BOOT() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("DD_easyFLOW_BOOT", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>
@@ -420,6 +430,46 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property search1() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("search1", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property searchFlow_boot() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("searchFlow_boot", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property searchFlow_icon() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("searchFlow_icon", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property server_Local_16xLG() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("server_Local_16xLG", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>

app/DD_Clipboard_Searcher/My Project/Resources.resx

@@ -121,6 +121,9 @@
   <data name="door_open" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\door_open.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="tiff" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\tiff.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="doc" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\doc.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -136,6 +139,9 @@
   <data name="ReduceSize" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\ReduceSize.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="StatusAnnotations_Stop_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\StatusAnnotations_Stop_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="user_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\user_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -148,9 +154,6 @@
   <data name="GoToDefinition_5575" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\GoToDefinition_5575.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="sql" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\sql.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
   <data name="ppt" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\ppt.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -160,6 +163,9 @@
   <data name="ID_SITE_PUBLISH_ALL" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\ID_SITE_PUBLISH_ALL.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="PrepareProcess" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\PrepareProcess.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="email_go" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\email_go.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -172,12 +178,15 @@
   <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="Annotation_New" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="searchFlow_icon" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\Annotation_New.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\searchFlow_icon.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="control_start_blue" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\control_start_blue.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="search1" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\search1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="txt" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\txt.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -199,15 +208,18 @@
   <data name="rar" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\rar.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="tiff" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="Annotation_New" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\tiff.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\Annotation_New.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="StatusAnnotations_Stop_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="sql" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\StatusAnnotations_Stop_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\sql.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="Symbols_Stop_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\Symbols_Stop_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="server_Local_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\server_Local_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="PreviewTab" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\PreviewTab.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -244,6 +256,9 @@
   <data name="build_Selection_32xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\build_Selection_32xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="searchFlow_boot" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\searchFlow_boot.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="xlsx" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\xlsx.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -256,7 +271,7 @@
   <data name="ID_FILE_PAGE_SETUP" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\ID_FILE_PAGE_SETUP.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="PrepareProcess" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="DD_easyFLOW_BOOT" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\PrepareProcess.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\DD_easyFLOW_BOOT.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
 </root>

app/DD_Clipboard_Searcher/My Project/Settings.Designer.vb

@@ -15,7 +15,7 @@ Option Explicit On
 Namespace My
     
     <Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(),  _
-     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "15.7.0.0"),  _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "17.9.0.0"),  _
      Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _
     Partial Friend NotInheritable Class MySettings
         Inherits Global.System.Configuration.ApplicationSettingsBase
@@ -54,147 +54,51 @@ Namespace My
             End Get
         End Property
         
-        <Global.System.Configuration.UserScopedSettingAttribute(),  _
+        <Global.System.Configuration.ApplicationScopedSettingAttribute(),  _
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.Configuration.DefaultSettingValueAttribute("")>  _
+        Public ReadOnly Property UserConfig_Prefix() As String
+            Get
+                Return CType(Me("UserConfig_Prefix"),String)
+            End Get
+        End Property
+        
+        <Global.System.Configuration.ApplicationScopedSettingAttribute(),  _
          Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
          Global.System.Configuration.DefaultSettingValueAttribute("False")>  _
-        Public Property WDSearch_maximized() As Boolean
+        Public ReadOnly Property UseAppConfigConString() As Boolean
             Get
-                Return CType(Me("WDSearch_maximized"),Boolean)
+                Return CType(Me("UseAppConfigConString"),Boolean)
+            End Get
+        End Property
+        
+        <Global.System.Configuration.ApplicationScopedSettingAttribute(),  _
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.Configuration.DefaultSettingValueAttribute("")>  _
+        Public ReadOnly Property GHOSTUSER() As String
+            Get
+                Return CType(Me("GHOSTUSER"),String)
             End Get
-            Set
-                Me("WDSearch_maximized") = value
-            End Set
         End Property
         
         <Global.System.Configuration.ApplicationScopedSettingAttribute(),  _
          Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
          Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString),  _
-         Global.System.Configuration.DefaultSettingValueAttribute("Data Source=172.24.12.41\tests;Initial Catalog=DD_ECM_TEST;Persist Security Info="& _ 
+         Global.System.Configuration.DefaultSettingValueAttribute("Data Source=172.24.12.44\DD_DEVELOP01;Initial Catalog=DD_ECM;Persist Security Inf"& _ 
-            "True;User ID=sa;Password=dd")>  _
+            "o=True;User ID=sa;Password=dd;Encrypt=False")>  _
         Public ReadOnly Property DD_ECMConnectionString() As String
             Get
                 Return CType(Me("DD_ECMConnectionString"),String)
             End Get
         End Property
         
-        <Global.System.Configuration.UserScopedSettingAttribute(),  _
+        <Global.System.Configuration.ApplicationScopedSettingAttribute(),  _
          Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.Configuration.DefaultSettingValueAttribute("555")>  _
+         Global.System.Configuration.DefaultSettingValueAttribute("11.2024")>  _
-        Public Property frmResultSearchSplitterDistance() As Integer
+        Public ReadOnly Property GDPICTURE_VERSION() As String
             Get
-                Return CType(Me("frmResultSearchSplitterDistance"),Integer)
+                Return CType(Me("GDPICTURE_VERSION"),String)
             End Get
-            Set
-                Me("frmResultSearchSplitterDistance") = value
-            End Set
-        End Property
-        
-        <Global.System.Configuration.UserScopedSettingAttribute(),  _
-         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.Configuration.DefaultSettingValueAttribute("0, 0")>  _
-        Public Property frmResultDocSize() As Global.System.Drawing.Size
-            Get
-                Return CType(Me("frmResultDocSize"),Global.System.Drawing.Size)
-            End Get
-            Set
-                Me("frmResultDocSize") = value
-            End Set
-        End Property
-        
-        <Global.System.Configuration.UserScopedSettingAttribute(),  _
-         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.Configuration.DefaultSettingValueAttribute("0, 0")>  _
-        Public Property frmResultDocPosition() As Global.System.Drawing.Point
-            Get
-                Return CType(Me("frmResultDocPosition"),Global.System.Drawing.Point)
-            End Get
-            Set
-                Me("frmResultDocPosition") = value
-            End Set
-        End Property
-        
-        <Global.System.Configuration.UserScopedSettingAttribute(),  _
-         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.Configuration.DefaultSettingValueAttribute("0, 0")>  _
-        Public Property frmViewerPosition() As Global.System.Drawing.Point
-            Get
-                Return CType(Me("frmViewerPosition"),Global.System.Drawing.Point)
-            End Get
-            Set
-                Me("frmViewerPosition") = value
-            End Set
-        End Property
-        
-        <Global.System.Configuration.UserScopedSettingAttribute(),  _
-         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.Configuration.DefaultSettingValueAttribute("0, 0")>  _
-        Public Property frmViewerSize() As Global.System.Drawing.Size
-            Get
-                Return CType(Me("frmViewerSize"),Global.System.Drawing.Size)
-            End Get
-            Set
-                Me("frmViewerSize") = value
-            End Set
-        End Property
-        
-        <Global.System.Configuration.UserScopedSettingAttribute(),  _
-         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.Configuration.DefaultSettingValueAttribute("0, 0")>  _
-        Public Property frmProfileMatchPosition() As Global.System.Drawing.Point
-            Get
-                Return CType(Me("frmProfileMatchPosition"),Global.System.Drawing.Point)
-            End Get
-            Set
-                Me("frmProfileMatchPosition") = value
-            End Set
-        End Property
-        
-        <Global.System.Configuration.UserScopedSettingAttribute(),  _
-         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.Configuration.DefaultSettingValueAttribute("0, 0")>  _
-        Public Property frmProfileMatchSize() As Global.System.Drawing.Size
-            Get
-                Return CType(Me("frmProfileMatchSize"),Global.System.Drawing.Size)
-            End Get
-            Set
-                Me("frmProfileMatchSize") = value
-            End Set
-        End Property
-        
-        <Global.System.Configuration.UserScopedSettingAttribute(),  _
-         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.Configuration.DefaultSettingValueAttribute("False")>  _
-        Public Property LoadDocView() As Boolean
-            Get
-                Return CType(Me("LoadDocView"),Boolean)
-            End Get
-            Set
-                Me("LoadDocView") = value
-            End Set
-        End Property
-        
-        <Global.System.Configuration.UserScopedSettingAttribute(),  _
-         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.Configuration.DefaultSettingValueAttribute("0, 0")>  _
-        Public Property frmResultDataSize() As Global.System.Drawing.Size
-            Get
-                Return CType(Me("frmResultDataSize"),Global.System.Drawing.Size)
-            End Get
-            Set
-                Me("frmResultDataSize") = value
-            End Set
-        End Property
-        
-        <Global.System.Configuration.UserScopedSettingAttribute(),  _
-         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.Configuration.DefaultSettingValueAttribute("0, 0")>  _
-        Public Property frmResultDataPosition() As Global.System.Drawing.Point
-            Get
-                Return CType(Me("frmResultDataPosition"),Global.System.Drawing.Point)
-            End Get
-            Set
-                Me("frmResultDataPosition") = value
-            End Set
         End Property
     End Class
 End Namespace
@@ -207,9 +111,9 @@ Namespace My
     Friend Module MySettingsProperty
         
         <Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")>  _
-        Friend ReadOnly Property Settings() As Global.DD_Clipboard_Watcher.My.MySettings
+        Friend ReadOnly Property Settings() As Global.easyFLOW.My.MySettings
             Get
-                Return Global.DD_Clipboard_Watcher.My.MySettings.Default
+                Return Global.easyFLOW.My.MySettings.Default
             End Get
         End Property
     End Module

app/DD_Clipboard_Searcher/My Project/Settings.settings

@@ -2,46 +2,25 @@
 <SettingsFile xmlns="http://schemas.microsoft.com/VisualStudio/2004/01/settings" CurrentProfile="(Default)" GeneratedClassNamespace="My" GeneratedClassName="MySettings" UseMySettingsClassName="true">
   <Profiles />
   <Settings>
-    <Setting Name="WDSearch_maximized" Type="System.Boolean" Scope="User">
+    <Setting Name="UserConfig_Prefix" Type="System.String" Scope="Application">
+      <Value Profile="(Default)" />
+    </Setting>
+    <Setting Name="UseAppConfigConString" Type="System.Boolean" Scope="Application">
       <Value Profile="(Default)">False</Value>
     </Setting>
+    <Setting Name="GHOSTUSER" Type="System.String" Scope="Application">
+      <Value Profile="(Default)" />
+    </Setting>
     <Setting Name="DD_ECMConnectionString" Type="(Connection string)" Scope="Application">
       <DesignTimeValue Profile="(Default)">&lt;?xml version="1.0" encoding="utf-16"?&gt;
-&lt;SerializableConnectionString xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"&gt;
+&lt;SerializableConnectionString xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"&gt;
-  &lt;ConnectionString&gt;Data Source=172.24.12.41\tests;Initial Catalog=DD_ECM_TEST;Persist Security Info=True;User ID=sa;Password=dd&lt;/ConnectionString&gt;
+  &lt;ConnectionString&gt;Data Source=172.24.12.44\DD_DEVELOP01;Initial Catalog=DD_ECM;Persist Security Info=True;User ID=sa;Password=dd;Encrypt=False&lt;/ConnectionString&gt;
   &lt;ProviderName&gt;System.Data.SqlClient&lt;/ProviderName&gt;
 &lt;/SerializableConnectionString&gt;</DesignTimeValue>
-      <Value Profile="(Default)">Data Source=172.24.12.41\tests;Initial Catalog=DD_ECM_TEST;Persist Security Info=True;User ID=sa;Password=dd</Value>
+      <Value Profile="(Default)">Data Source=172.24.12.44\DD_DEVELOP01;Initial Catalog=DD_ECM;Persist Security Info=True;User ID=sa;Password=dd;Encrypt=False</Value>
     </Setting>
-    <Setting Name="frmResultSearchSplitterDistance" Type="System.Int32" Scope="User">
+    <Setting Name="GDPICTURE_VERSION" Type="System.String" Scope="Application">
-      <Value Profile="(Default)">555</Value>
+      <Value Profile="(Default)">11.2024</Value>
-    </Setting>
-    <Setting Name="frmResultDocSize" Type="System.Drawing.Size" Scope="User">
-      <Value Profile="(Default)">0, 0</Value>
-    </Setting>
-    <Setting Name="frmResultDocPosition" Type="System.Drawing.Point" Scope="User">
-      <Value Profile="(Default)">0, 0</Value>
-    </Setting>
-    <Setting Name="frmViewerPosition" Type="System.Drawing.Point" Scope="User">
-      <Value Profile="(Default)">0, 0</Value>
-    </Setting>
-    <Setting Name="frmViewerSize" Type="System.Drawing.Size" Scope="User">
-      <Value Profile="(Default)">0, 0</Value>
-    </Setting>
-    <Setting Name="frmProfileMatchPosition" Type="System.Drawing.Point" Scope="User">
-      <Value Profile="(Default)">0, 0</Value>
-    </Setting>
-    <Setting Name="frmProfileMatchSize" Type="System.Drawing.Size" Scope="User">
-      <Value Profile="(Default)">0, 0</Value>
-    </Setting>
-    <Setting Name="LoadDocView" Type="System.Boolean" Scope="User">
-      <Value Profile="(Default)">False</Value>
-    </Setting>
-    <Setting Name="frmResultDataSize" Type="System.Drawing.Size" Scope="User">
-      <Value Profile="(Default)">0, 0</Value>
-    </Setting>
-    <Setting Name="frmResultDataPosition" Type="System.Drawing.Point" Scope="User">
-      <Value Profile="(Default)">0, 0</Value>
     </Setting>
   </Settings>
 </SettingsFile>

app/DD_Clipboard_Searcher/My Project/app.manifest

@@ -0,0 +1,79 @@
+<?xml version="1.0" encoding="utf-8"?>
+<assembly manifestVersion="1.0" xmlns="urn:schemas-microsoft-com:asm.v1">
+  <assemblyIdentity version="1.0.0.0" name="MyApplication.app"/>
+  <trustInfo xmlns="urn:schemas-microsoft-com:asm.v2">
+    <security>
+      <requestedPrivileges xmlns="urn:schemas-microsoft-com:asm.v3">
+        <!-- UAC-Manifestoptionen
+             Wenn Sie die Ebene der Benutzerkontensteuerung für Windows ändern möchten, ersetzen Sie den 
+             Knoten "requestedExecutionLevel" wie folgt.
+
+        <requestedExecutionLevel  level="asInvoker" uiAccess="false" />
+        <requestedExecutionLevel  level="requireAdministrator" uiAccess="false" />
+        <requestedExecutionLevel  level="highestAvailable" uiAccess="false" />
+
+            Durch Angabe des Elements "requestedExecutionLevel" wird die Datei- und Registrierungsvirtualisierung deaktiviert. 
+            Entfernen Sie dieses Element, wenn diese Virtualisierung aus Gründen der Abwärtskompatibilität
+            für die Anwendung erforderlich ist.
+        -->
+        <requestedExecutionLevel level="asInvoker" uiAccess="false" />
+      </requestedPrivileges>
+    </security>
+  </trustInfo>
+
+  <compatibility xmlns="urn:schemas-microsoft-com:compatibility.v1">
+    <application>
+      <!-- Eine Liste der Windows-Versionen, unter denen diese Anwendung getestet
+           und für die sie entwickelt wurde. Wenn Sie die Auskommentierung der entsprechenden Elemente aufheben,
+           wird von Windows automatisch die kompatibelste Umgebung ausgewählt. -->
+
+      <!-- Windows Vista -->
+      <!--<supportedOS Id="{e2011457-1546-43c5-a5fe-008deee3d3f0}" />-->
+
+      <!-- Windows 7 -->
+      <!--<supportedOS Id="{35138b9a-5d96-4fbd-8e2d-a2440225f93a}" />-->
+
+      <!-- Windows 8 -->
+      <!--<supportedOS Id="{4a2f28e3-53b9-4441-ba9c-d69d4a4a6e38}" />-->
+
+      <!-- Windows 8.1 -->
+      <!--<supportedOS Id="{1f676c76-80e1-4239-95bb-83d0f6d0da78}" />-->
+
+      <!-- Windows 10 -->
+      <!--<supportedOS Id="{8e0f7a12-bfb3-4fe8-b9a5-48fd50a15a9a}" />-->
+
+    </application>
+  </compatibility>
+
+  <!-- Gibt an, dass die Anwendung mit DPI-Werten kompatibel ist und von Windows nicht automatisch auf höhere
+       DPI-Werte skaliert wird. WPF-Anwendungen (Windows Presentation Foundation) sind automatisch mit DPI-Werten kompatibel, eine Aktivierung 
+       ist nicht erforderlich. Für Windows Forms-Anwendungen für .NET Framework 4.6, die diese Einstellung aktivieren, muss 
+       auch die Einstellung "'EnableWindowsFormsHighDpiAutoResizing" in der Datei "app.config" auf TRUE festgelegt werden. 
+       
+       Hierdurch können für die Anwendung lange Pfade verwendet werden. Weitere Informationen finden Sie unter https://docs.microsoft.com/windows/win32/fileio/maximum-file-path-limitation.-->
+  <!--
+  <application xmlns="urn:schemas-microsoft-com:asm.v3">
+    <windowsSettings>
+      <dpiAware xmlns="http://schemas.microsoft.com/SMI/2005/WindowsSettings">true</dpiAware>
+      <longPathAware xmlns="http://schemas.microsoft.com/SMI/2016/WindowsSettings">true</longPathAware>
+    </windowsSettings>
+  </application>
+  -->
+
+  <!-- Designs für allgemeine Windows-Steuerelemente und -Dialogfelder (Windows XP und höher) aktivieren -->
+  <!--
+  <dependency>
+    <dependentAssembly>
+      <assemblyIdentity
+          type="win32"
+          name="Microsoft.Windows.Common-Controls"
+          version="6.0.0.0"
+          processorArchitecture="*"
+          publicKeyToken="6595b64144ccf1df"
+          language="*"
+        />
+    </dependentAssembly>
+  </dependency>
+  -->
+
+</assembly>

app/DD_Clipboard_Searcher/My Project/licenses.licx

@@ -1,17 +1,7 @@
-DevExpress.XtraEditors.Repository.RepositoryItemPopupGalleryEdit, DevExpress.XtraBars.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
-DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraEditors.CheckEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
-DevExpress.XtraGauges.Win.GaugeControl, DevExpress.XtraGauges.v18.1.Win, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraEditors.ComboBoxEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
-DevExpress.XtraEditors.Repository.RepositoryItemTextEdit, DevExpress.XtraEditors.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
-DevExpress.XtraEditors.TileControl, DevExpress.XtraEditors.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
-DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraEditors.LookUpEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
-DevExpress.XtraEditors.LookUpEdit, DevExpress.XtraEditors.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraLayout.LayoutControl, DevExpress.XtraLayout.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
-DevExpress.XtraLayout.LayoutControl, DevExpress.XtraLayout.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
-DevExpress.XtraEditors.RatingControl, DevExpress.XtraEditors.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
-DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
-DevExpress.XtraEditors.DateEdit, DevExpress.XtraEditors.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
-DevExpress.XtraTreeList.TreeList, DevExpress.XtraTreeList.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
-DevExpress.XtraEditors.Repository.RepositoryItemButtonEdit, DevExpress.XtraEditors.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
-DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
-DevExpress.XtraEditors.TileControl, DevExpress.XtraEditors.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
-DevExpress.XtraEditors.CheckEdit, DevExpress.XtraEditors.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
-DevExpress.XtraEditors.ComboBoxEdit, DevExpress.XtraEditors.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a

app/DD_Clipboard_Searcher/My Project/licenses.licx.bak

@@ -1 +1 @@
-DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a

app/DD_Clipboard_Searcher/MyDataset.vb

@@ -1,9 +1,13 @@
-
+Partial Class MyDataset
+    Partial Public Class TBWH_PROFILE_TYPEDataTable
+        Private Sub TBWH_PROFILE_TYPEDataTable_TBWH_PROFILE_TYPERowChanging(sender As Object, e As TBWH_PROFILE_TYPERowChangeEvent) Handles Me.TBWH_PROFILE_TYPERowChanging
 
-Partial Public Class MyDataset
+        End Sub
+
+    End Class
 End Class
 
 Namespace MyDatasetTableAdapters
-    Partial Public Class TBCW_PROF_DOC_SEARCHTableAdapter
+    Partial Public Class VWCW_GROUP_PROFILETableAdapter
     End Class
 End Namespace

app/DD_Clipboard_Searcher/MyDataset.xsc

@@ -5,39 +5,5 @@
      the code is regenerated.
 </autogenerated>-->
 <DataSetUISetting Version="1.00" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
-  <TableUISettings>
+  <TableUISettings />
-    <TableUISetting Name="TBCW_PROFILES">
-      <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>
-        <ColumnUISetting Name="PROFILE_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>
-      </ColumnUISettings>
-    </TableUISetting>
-    <TableUISetting Name="TBDD_CONNECTION">
-      <ColumnUISettings>
-        <ColumnUISetting Name="SQL_PROVIDER">
-          <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="DATENBANK">
-          <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>
-      </ColumnUISettings>
-    </TableUISetting>
-  </TableUISettings>
 </DataSetUISetting>

app/DD_Clipboard_Searcher/MyDataset.xss

@@ -4,69 +4,70 @@
      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="-10" ViewPortY="-45" xmlns:ex="urn:schemas-microsoft-com:xml-msdatasource-layout-extended" xmlns="urn:schemas-microsoft-com:xml-msdatasource-layout">
+<DiagramLayout xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" ex:showrelationlabel="False" ViewPortX="-10" ViewPortY="-47" xmlns:ex="urn:schemas-microsoft-com:xml-msdatasource-layout-extended" xmlns="urn:schemas-microsoft-com:xml-msdatasource-layout">
   <Shapes>
-    <Shape ID="DesignTable:TBCW_PROFILES" ZOrder="18" X="14" Y="-44" Height="286" Width="240" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="235" />
+    <Shape ID="DesignTable:TBCW_GROUP_PROFILE" ZOrder="19" X="144" Y="105" Height="172" Width="281" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="121" />
-    <Shape ID="DesignTable:TBCW_USER_PROFILE" ZOrder="7" X="680" Y="299" Height="172" Width="271" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="121" />
+    <Shape ID="DesignTable:TBCW_PROF_DATA_SEARCH" ZOrder="18" X="457" Y="111" Height="305" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
-    <Shape ID="DesignTable:VWUSER_PROFILE" ZOrder="17" X="1049" Y="11" Height="250" Width="191" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="24" SplitterPosition="142" />
+    <Shape ID="DesignTable:TBCW_PROF_DOC_SEARCH" ZOrder="15" X="780" Y="112" Height="305" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
-    <Shape ID="DesignTable:TBCW_PROFILE_PROCESS" ZOrder="15" X="20" Y="585" Height="172" Width="294" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="121" />
+    <Shape ID="DesignTable:TBCW_PROF_REL_CONTROL" ZOrder="17" X="1114" Y="121" Height="305" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
-    <Shape ID="DesignTable:TBCW_PROF_DATA_SEARCH" ZOrder="14" X="630" Y="-32" Height="305" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
+    <Shape ID="DesignTable:TBCW_PROF_REL_WINDOW" ZOrder="7" X="1115" Y="473" Height="248" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="197" />
-    <Shape ID="DesignTable:TBCW_PROF_DOC_SEARCH" ZOrder="12" X="321" Y="20" Height="305" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
+    <Shape ID="DesignTable:TBCW_PROFILE_PROCESS" ZOrder="1" X="400" Y="507" Height="191" Width="291" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="140" />
-    <Shape ID="DesignTable:TBCW_GROUP_PROFILE" ZOrder="5" X="336" Y="635" Height="172" Width="281" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="121" />
+    <Shape ID="DesignTable:TBCW_PROFILES" ZOrder="14" X="638" Y="719" Height="267" Width="240" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="216" />
-    <Shape ID="DesignTable:VWCW_GROUP_PROFILE" ZOrder="9" X="1252" Y="5" Height="248" Width="218" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="159" />
+    <Shape ID="DesignTable:TBCW_USER_PROFILE" ZOrder="11" X="1113" Y="778" Height="172" Width="269" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="121" />
-    <Shape ID="DesignTable:TBCW_PROF_REL_WINDOW" ZOrder="4" X="10" Y="259" Height="248" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="24" SplitterPosition="197" />
+    <Shape ID="DesignTable:TBDD_CONNECTION" ZOrder="10" X="1424" Y="152" Height="305" Width="264" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
-    <Shape ID="DesignTable:TBDD_CONNECTION" ZOrder="6" X="675" Y="483" Height="305" Width="264" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
+    <Shape ID="DesignTable:VWCW_USER_PROFILE" ZOrder="2" X="55" Y="290" Height="286" Width="274" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="235" />
-    <Shape ID="DesignTable:TBCW_PROF_REL_CONTROL" ZOrder="1" X="330" Y="327" Height="305" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
+    <Shape ID="DesignTable:VWCW_GROUP_PROFILE" ZOrder="3" X="77" Y="757" Height="229" Width="286" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="178" />
-    <Shape ID="DesignTable:TBWH_User" ZOrder="16" X="1221" Y="436" Height="124" Width="150" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="139" />
+    <Shape ID="DesignTable:TBWH_SEARCH_POSITION" ZOrder="9" X="1476" Y="683" Height="106" Width="218" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="102" />
-    <Shape ID="DesignTable:TBWH_GROUP" ZOrder="10" X="1240" Y="329" Height="67" Width="150" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="63" />
+    <Shape ID="DesignTable:TBWH_PROFILE_TYPE" ZOrder="6" X="1479" Y="798" Height="182" Width="190" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="178" />
-    <Shape ID="DesignTable:TBWH_PROFILE_TYPE" ZOrder="8" X="1204" Y="609" Height="67" Width="190" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="63" />
+    <Shape ID="DesignTable:TBWH_User" ZOrder="5" X="1430" Y="466" Height="124" Width="150" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="120" />
+    <Shape ID="DesignTable:TBWH_GROUP" ZOrder="4" X="1501" Y="596" Height="67" Width="150" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="63" />
   </Shapes>
   <Connectors>
+    <Connector ID="DesignRelation:FK_TBCW_PROF_REL_CONTROL_WINDOW_ID" ZOrder="16" LineWidth="11">
+      <RoutePoints>
+        <Point>
+          <X>1268</X>
+          <Y>473</Y>
+        </Point>
+        <Point>
+          <X>1268</X>
+          <Y>426</Y>
+        </Point>
+      </RoutePoints>
+    </Connector>
+    <Connector ID="DesignRelation:FK_TBCW_PROF_REL_WINDOW_PROCESS_ID" ZOrder="8" LineWidth="11">
+      <RoutePoints>
+        <Point>
+          <X>691</X>
+          <Y>553</Y>
+        </Point>
+        <Point>
+          <X>1115</X>
+          <Y>553</Y>
+        </Point>
+      </RoutePoints>
+    </Connector>
     <Connector ID="DesignRelation:FK_TBCW_PROF_DATA_SEARCH_PROF_IF" ZOrder="13" LineWidth="11">
       <RoutePoints>
         <Point>
-          <X>254</X>
+          <X>700</X>
-          <Y>-23</Y>
+          <Y>719</Y>
         </Point>
         <Point>
-          <X>630</X>
+          <X>700</X>
-          <Y>-23</Y>
+          <Y>416</Y>
         </Point>
       </RoutePoints>
     </Connector>
-    <Connector ID="DesignRelation:FK_TBCW_PROF_DOC_SEARCH_PROF_IF" ZOrder="11" LineWidth="11">
+    <Connector ID="DesignRelation:FK_TBCW_PROF_DOC_SEARCH_PROF_IF" ZOrder="12" LineWidth="11">
       <RoutePoints>
         <Point>
-          <X>254</X>
+          <X>789</X>
-          <Y>61</Y>
+          <Y>719</Y>
         </Point>
         <Point>
-          <X>321</X>
+          <X>789</X>
-          <Y>61</Y>
+          <Y>417</Y>
-        </Point>
-      </RoutePoints>
-    </Connector>
-    <Connector ID="DesignRelation:FK_WINDOW_ID" ZOrder="3" LineWidth="11">
-      <RoutePoints>
-        <Point>
-          <X>310</X>
-          <Y>453</Y>
-        </Point>
-        <Point>
-          <X>330</X>
-          <Y>453</Y>
-        </Point>
-      </RoutePoints>
-    </Connector>
-    <Connector ID="DesignRelation:FK_PROCESS_ID" ZOrder="2" LineWidth="11">
-      <RoutePoints>
-        <Point>
-          <X>165</X>
-          <Y>585</Y>
-        </Point>
-        <Point>
-          <X>165</X>
-          <Y>507</Y>
         </Point>
       </RoutePoints>
     </Connector>

app/DD_Clipboard_Searcher/Strings/frmMain_Strings.Designer.vb

@@ -0,0 +1,213 @@
+'------------------------------------------------------------------------------
+' <auto-generated>
+'     Dieser Code wurde von einem Tool generiert.
+'     Laufzeitversion:4.0.30319.42000
+'
+'     Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
+'     der Code erneut generiert wird.
+' </auto-generated>
+'------------------------------------------------------------------------------
+
+Option Strict On
+Option Explicit On
+
+Imports System
+
+Namespace My.Resources
+    
+    'Diese Klasse wurde von der StronglyTypedResourceBuilder automatisch generiert
+    '-Klasse über ein Tool wie ResGen oder Visual Studio automatisch generiert.
+    'Um einen Member hinzuzufügen oder zu entfernen, bearbeiten Sie die .ResX-Datei und führen dann ResGen
+    'mit der /str-Option erneut aus, oder Sie erstellen Ihr VS-Projekt neu.
+    '''<summary>
+    '''  Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
+    '''</summary>
+    <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "17.0.0.0"),  _
+     Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+     Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()>  _
+    Friend Class frmMain_Strings
+        
+        Private Shared resourceMan As Global.System.Resources.ResourceManager
+        
+        Private Shared resourceCulture As Global.System.Globalization.CultureInfo
+        
+        <Global.System.Diagnostics.CodeAnalysis.SuppressMessageAttribute("Microsoft.Performance", "CA1811:AvoidUncalledPrivateCode")>  _
+        Friend Sub New()
+            MyBase.New
+        End Sub
+        
+        '''<summary>
+        '''  Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird.
+        '''</summary>
+        <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _
+        Friend Shared ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
+            Get
+                If Object.ReferenceEquals(resourceMan, Nothing) Then
+                    Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("easyFLOW.frmMain_Strings", GetType(frmMain_Strings).Assembly)
+                    resourceMan = temp
+                End If
+                Return resourceMan
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle
+        '''  Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden.
+        '''</summary>
+        <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _
+        Friend Shared Property Culture() As Global.System.Globalization.CultureInfo
+            Get
+                Return resourceCulture
+            End Get
+            Set
+                resourceCulture = value
+            End Set
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Zeichenfolge, die Aktualisiert: {0} ähnelt.
+        '''</summary>
+        Friend Shared ReadOnly Property Aktualisiert___0_() As String
+            Get
+                Return ResourceManager.GetString("Aktualisiert: {0}", resourceCulture)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Zeichenfolge, die Aktualisierung erfolgreich. ähnelt.
+        '''</summary>
+        Friend Shared ReadOnly Property Aktualisierung_erfolgreich_() As String
+            Get
+                Return ResourceManager.GetString("Aktualisierung erfolgreich.", resourceCulture)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Zeichenfolge, die easyFLOW starten ähnelt.
+        '''</summary>
+        Friend Shared ReadOnly Property Clipboard_Watcher_starten() As String
+            Get
+                Return ResourceManager.GetString("Clipboard-Watcher starten", resourceCulture)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Zeichenfolge, die easyFLOW stoppen ähnelt.
+        '''</summary>
+        Friend Shared ReadOnly Property Clipboard_Watcher_stoppen() As String
+            Get
+                Return ResourceManager.GetString("Clipboard-Watcher stoppen", resourceCulture)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Zeichenfolge, die easyFLOW wurde deaktiviert! ähnelt.
+        '''</summary>
+        Friend Shared ReadOnly Property Clipboard_Watcher_wurde_deaktiviert_() As String
+            Get
+                Return ResourceManager.GetString("Clipboard-Watcher wurde deaktiviert!", resourceCulture)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Zeichenfolge, die easyFLOW wurde wieder aktiviert! ähnelt.
+        '''</summary>
+        Friend Shared ReadOnly Property Clipboard_Watcher_wurde_wieder_aktiviert_() As String
+            Get
+                Return ResourceManager.GetString("Clipboard-Watcher wurde wieder aktiviert!", resourceCulture)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Zeichenfolge, die Die Benutzerkonfiguration konnte nicht erfolgreich durchgeführt werden!{0}Grund: {1}{2}Bitte kontaktieren sie Ihren Administrator! ähnelt.
+        '''</summary>
+        Friend Shared ReadOnly Property Die_Benutzerkonfiguration_konnte_nicht_erfolgreich_durchgeführt_werden__0_Grund___1__2_Bitte_kontaktieren_sie_Ihren_Administrator_() As String
+            Get
+                Return ResourceManager.GetString("Die Benutzerkonfiguration konnte nicht erfolgreich durchgeführt werden!{0}Grund: "& _ 
+                        "{1}{2}Bitte kontaktieren sie Ihren Administrator!", resourceCulture)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Zeichenfolge, die Eingeloggte Benutzer: {0} ähnelt.
+        '''</summary>
+        Friend Shared ReadOnly Property Eingeloggte_Benutzer___0_() As String
+            Get
+                Return ResourceManager.GetString("Eingeloggte Benutzer: {0}", resourceCulture)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Zeichenfolge, die Es wurden keine passenden Profile gefunden für die Suche nach &apos;{0}&apos;! ähnelt.
+        '''</summary>
+        Friend Shared ReadOnly Property Es_wurden_keine_passenden_Profile_gefunden_für_die_Suche_nach___0___() As String
+            Get
+                Return ResourceManager.GetString("Es wurden keine passenden Profile gefunden für die Suche nach '{0}'!", resourceCulture)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Zeichenfolge, die Es wurden noch keine Profile für den aktuellen Benutzer konfiguriert. ähnelt.
+        '''</summary>
+        Friend Shared ReadOnly Property Es_wurden_noch_keine_Profile_für_den_aktuellen_Benutzer_konfiguriert_() As String
+            Get
+                Return ResourceManager.GetString("Es wurden noch keine Profile für den aktuellen Benutzer konfiguriert.", resourceCulture)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Zeichenfolge, die Es wurden weder Dokumente noch Daten gefunden für die Suche nach &apos;{0}&apos;! ähnelt.
+        '''</summary>
+        Friend Shared ReadOnly Property Es_wurden_weder_Dokumente_noch_Daten_gefunden_für_die_Suche_nach___0___() As String
+            Get
+                Return ResourceManager.GetString("Es wurden weder Dokumente noch Daten gefunden für die Suche nach '{0}'!", resourceCulture)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Zeichenfolge, die Fehler bei der Aktualisierung. ähnelt.
+        '''</summary>
+        Friend Shared ReadOnly Property Fehler_bei_der_Aktualisierung_() As String
+            Get
+                Return ResourceManager.GetString("Fehler bei der Aktualisierung.", resourceCulture)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Zeichenfolge, die Fehler beim Auswerten der Profile. Mehr Informationen im Log. ähnelt.
+        '''</summary>
+        Friend Shared ReadOnly Property Fehler_beim_Auswerten_der_Profile__Mehr_Informationen_im_Log_() As String
+            Get
+                Return ResourceManager.GetString("Fehler beim Auswerten der Profile. Mehr Informationen im Log.", resourceCulture)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Zeichenfolge, die Fehler beim Laden der Profile. Möglicherweise liegt ein Konfigurationsfehler vor. Mehr Informationen im Log. ähnelt.
+        '''</summary>
+        Friend Shared ReadOnly Property Fehler_beim_Laden_der_Profile_() As String
+            Get
+                Return ResourceManager.GetString("Fehler beim Laden der Profile.", resourceCulture)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Zeichenfolge, die Sie sind keinem Mandanten zugewiesen.{0}Bitte wenden Sie sich an  Ihren Administrator! ähnelt.
+        '''</summary>
+        Friend Shared ReadOnly Property Sie_sind_keinem_Mandanten_zugewiesen__0_Bitte_wenden_Sie_sich_an__Ihren_Administrator_() As String
+            Get
+                Return ResourceManager.GetString("Sie sind keinem Mandanten zugewiesen.{0}Bitte wenden Sie sich an  Ihren Administr"& _ 
+                        "ator!", resourceCulture)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Zeichenfolge, die Wollen Sie easyFLOW wirklich beenden? ähnelt.
+        '''</summary>
+        Friend Shared ReadOnly Property Wollen_Sie_Clipboard_Watcher_wirklich_beenden_() As String
+            Get
+                Return ResourceManager.GetString("Wollen Sie Clipboard-Watcher wirklich beenden?", resourceCulture)
+            End Get
+        End Property
+    End Class
+End Namespace

app/DD_Clipboard_Searcher/Strings/frmMain_Strings.en.resx

@@ -117,47 +117,52 @@
   <resheader name="writer">
     <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </resheader>
-  <metadata name="StatusStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+  <data name="Aktualisiert: {0}" xml:space="preserve">
-    <value>17, 17</value>
+    <value>Refreshed: {0}</value>
-  </metadata>
+  </data>
-  <metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+  <data name="Aktualisierung erfolgreich." xml:space="preserve">
-    <value>134, 17</value>
+    <value>Refresh successful.</value>
-  </metadata>
+  </data>
-  <metadata name="ContextMenuStripWMFile.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+  <data name="Clipboard-Watcher starten" xml:space="preserve">
-    <value>241, 17</value>
+    <value>Start easyFLOW</value>
-  </metadata>
+  </data>
-  <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+  <data name="Clipboard-Watcher stoppen" xml:space="preserve">
-  <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>Stop easyFLOW</value>
-    <value>
+  </data>
-        AAABAAIAEBAQAAEABAAoAQAAJgAAABAQAAABAAgAaAUAAE4BAAAoAAAAEAAAACAAAAABAAQAAAAAAIAA
+  <data name="Clipboard-Watcher wurde deaktiviert!" xml:space="preserve">
-        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAAgAAAAICAAIAAAACAAIAAgIAAAICAgADAwMAAAAD/AAD/
+    <value>easyFLOW was deactivated!</value>
-        AAAA//8A/wAAAP8A/wD//wAA////AAAA/////wAAAP93d3d3/wAPh3d3d3d48A93d3d3d3fwD3d3d3d3
+  </data>
-        d/APd3d3d3d38A93d3d3d3fwD3d3d3d3d/APd3d3d3d38A93d3d3d3fwD3eI//+Id/APf//////38A9/
+  <data name="Clipboard-Watcher wurde wieder aktiviert!" xml:space="preserve">
-        //////fwD4eI//+IePAA/3d3d3f/AAAA/////wAA8A8AAMADAACAAQAAgAEAAIABAACAAQAAgAEAAIAB
+    <value>easyFLOW was activated again!</value>
-        AACAAQAAgAEAAIABAACAAQAAgAEAAIABAADAAwAA8A8AACgAAAAQAAAAIAAAAAEACAAAAAAAAAEAAAAA
+  </data>
-        AAAAAAAAAAEAAAABAAAAAAAAQkJCAE1NTQBZWVkAhoaGAKSjpACzs7MA29naAODg4ADm5OUA6+vrAPHv
+  <data name="Die Benutzerkonfiguration konnte nicht erfolgreich durchgeführt werden!{0}Grund: {1}{2}Bitte kontaktieren sie Ihren Administrator!" xml:space="preserve">
-        8AD29vYA+Pj4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+    <value>User Configuration could not be performed successfully!</value>
-        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+  </data>
-        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+  <data name="Eingeloggte Benutzer: {0}" xml:space="preserve">
-        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+    <value>Loggedin users: {0}</value>
-        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+  </data>
-        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+  <data name="Es wurden keine passenden Profile gefunden für die Suche nach '{0}'!" xml:space="preserve">
-        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+    <value>No matching profiles could be found for the search term '{0}'!</value>
-        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+  </data>
-        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+  <data name="Es wurden noch keine Profile für den aktuellen Benutzer konfiguriert." xml:space="preserve">
-        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+    <value>No profiles are configured for this user yet.</value>
-        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+  </data>
-        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+  <data name="Es wurden weder Dokumente noch Daten gefunden für die Suche nach '{0}'!" xml:space="preserve">
-        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+    <value>No matching documents or records could be found for the search term '{0}'!</value>
-        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+  </data>
-        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+  <data name="Fehler bei der Aktualisierung." xml:space="preserve">
-        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+    <value>Error while refreshing!</value>
-        AAAAAAAAAAAAAAAAAAD///8AAAAAAA0MDAwMDAwNAAAAAAAADQgEAwEBAQEDBAgNAAAADQYBAQEBAQEB
+  </data>
-        AQEBBg0AAAwBAQEBAQEBAQEBAQEMAAAMAQEBAQEBAQEBAQEBDAAADAEBAQEBAQEBAQEBAQwAAAwBAQEB
+  <data name="Fehler beim Auswerten der Profile. Mehr Informationen im Log." xml:space="preserve">
-        AQEBAQEBAQEMAAAMAQEBAQEBAQEBAQEBDAAADAEBAQEBAQEBAQEBAQwAAAwBAQEBAQICAQEBAQEMAAAM
+    <value>Error while evaluating the profiles. Check the log for more information.</value>
-        AQIFBwsLCwsHBQIBDAAACgIICwsLCwsLCwsIAQwAAAoCCAsLCwsLCwsLCAEMAAANBgIFBwsLCwsHBQIG
+  </data>
-        DQAAAA0IBAMBAQEBAwQIDQAAAAAAAA0MDAwMDAwNAAAAAPAPAADAAwAAgAEAAIABAACAAQAAgAEAAIAB
+  <data name="Fehler beim Laden der Profile." xml:space="preserve">
-        AACAAQAAgAEAAIABAACAAQAAgAEAAIABAACAAQAAwAMAAPAPAAA=
+    <value>Error while loading the profiles. There might be a problem in the configuration. Check the log for more information.</value>
-</value>
+  </data>
+  <data name="Sie sind keinem Mandanten zugewiesen.{0}Bitte wenden Sie sich an  Ihren Administrator!" xml:space="preserve">
+    <value>You are not related to a mandator{0}Please contact your administrator.</value>
+  </data>
+  <data name="Wollen Sie Clipboard-Watcher wirklich beenden?" xml:space="preserve">
+    <value>Do you really want to quit easyFLOW?</value>
   </data>
 </root>

app/DD_Clipboard_Searcher/Strings/frmMain_Strings.fr.resx

@@ -117,66 +117,52 @@
   <resheader name="writer">
     <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </resheader>
-  <metadata name="StatusStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+  <data name="Aktualisiert: {0}" xml:space="preserve">
-    <value>17, 17</value>
+    <value>Rafraîchis: {0}</value>
-  </metadata>
+  </data>
-  <metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+  <data name="Aktualisierung erfolgreich." xml:space="preserve">
-    <value>134, 17</value>
+    <value>Mise à jour réussie.</value>
-  </metadata>
+  </data>
-  <metadata name="ContextMenuStripWMFile.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+  <data name="Clipboard-Watcher starten" xml:space="preserve">
-    <value>241, 17</value>
+    <value>Démarrer easyFLOW</value>
-  </metadata>
+  </data>
-  <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+  <data name="Clipboard-Watcher stoppen" xml:space="preserve">
-  <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>Arrêt easyFLOW</value>
-    <value>
+  </data>
-        AAABAAMAEBAQAAEABAAoAQAANgAAABAQAAABAAgAaAUAAF4BAAAQEAAAAQAgAGgEAADGBgAAKAAAABAA
+  <data name="Clipboard-Watcher wurde deaktiviert!" xml:space="preserve">
-        AAAgAAAAAQAEAAAAAACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAIAAAACAgACAAAAAgACAAICA
+    <value>easyFLOW a été désactivé !</value>
-        AACAgIAAwMDAAAAA/wAA/wAAAP//AP8AAAD/AP8A//8AAP///wAAAP///////wAA93d3d3d/AAD3d3d3
+  </data>
-        d38AAPd////3fwAA93////d/AAD3f///938AD/d////3fwD3eH////d/D3Zn////93/3ZmZ///d3f/Z2
+  <data name="Clipboard-Watcher wurde wieder aktiviert!" xml:space="preserve">
-        Z2//93fw9/Zvf3d3fwD/9m//d3fwAPD2bw///wAAAP//AAAAAAAAAAAAAAAAAPAAAADwAAAA8AAAAPAA
+    <value>easyFLOW a été réactivé !</value>
-        AADwAAAA8AAAAOAAAADAAAAAgAAAAAAAAAAAAQAAAAMAAAAHAABCDwAAw/8AAP//AAAoAAAAEAAAACAA
+  </data>
-        AAABAAgAAAAAAAABAAAAAAAAAAAAAAABAAAAAQAAAAAAAEJCQgCcUwAAvpBcAIaGhgCzs7MA8e/wAPTz
+  <data name="Die Benutzerkonfiguration konnte nicht erfolgreich durchgeführt werden!{0}Grund: {1}{2}Bitte kontaktieren sie Ihren Administrator!" xml:space="preserve">
-        9AD29vYAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+    <value>La configuration de l'utilisateur n'a pas pu être effectuée avec succès !</value>
-        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+  </data>
-        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+  <data name="Eingeloggte Benutzer: {0}" xml:space="preserve">
-        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+    <value>Utilisateurs connectés: {0}</value>
-        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+  </data>
-        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+  <data name="Es wurden keine passenden Profile gefunden für die Suche nach '{0}'!" xml:space="preserve">
-        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+    <value>Aucun profil correspondant n'a pu être trouvé pour le terme de recherche '{0}' !</value>
-        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+  </data>
-        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+  <data name="Es wurden noch keine Profile für den aktuellen Benutzer konfiguriert." xml:space="preserve">
-        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+    <value>Aucun profil n'a encore été configuré pour l'utilisateur actuel.</value>
-        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+  </data>
-        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+  <data name="Es wurden weder Dokumente noch Daten gefunden für die Suche nach '{0}'!" xml:space="preserve">
-        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+    <value>Aucun document ou enregistrement correspondant n'a pu être trouvé pour le terme de recherche '{0}' !</value>
-        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+  </data>
-        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+  <data name="Fehler bei der Aktualisierung." xml:space="preserve">
-        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+    <value>Erreur lors de la mise à jour.</value>
-        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA////AAAAAAAICAgICAgICAgICAgAAAAACAEBAQEB
+  </data>
-        AQEBAQEIAAAAAAgBAQEBAQEBAQEBCAAAAAAIAQEGBgYGBgYBAQgAAAAACAEBBgYGBgYGAQEIAAAAAAgB
+  <data name="Fehler beim Auswerten der Profile. Mehr Informationen im Log." xml:space="preserve">
-        AQYGBgYGBgEBCAAAAAgIAQEGBgYGBgYBAQgAAAgDAwUBBgYGBgYGAQEIAAgDAgIDCAYGBgYGBgEBCAgD
+    <value>Erreur lors de l'évaluation des profils. Vérifiez le journal pour plus d'informations.</value>
-        AgICAgMIBgYGAQEBBAgIAgMCAgMCCAYGBgEBBAgACAMIAgIIAwgBAQEBBAgAAAgICAICCAgIAQEBBAgA
+  </data>
-        AAAIAAgCAggACAgICAgAAAAAAAAICAgIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADwAAAA8AAAAPAA
+  <data name="Fehler beim Laden der Profile." xml:space="preserve">
-        AADwAAAA8AAAAPAAAADgAAAAwAAAAIAAAAAAAAAAAAEAAAADAAAABwAAQg8AAMP/AAD//wAAKAAAABAA
+    <value>Erreur lors du chargement des profils. Il y a peut-être un problème dans la configuration. Vérifiez le journal pour plus d'informations.</value>
-        AAAgAAAAAQAgAAAAAABABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD29vb/9vb2//b2
+  </data>
-        9v/29vb/9vb2//b29v/29vb/9vb2//b29v/29vb/9vb2//b29v8AAAAAAAAAAAAAAAAAAAAA9vb2/0JC
+  <data name="Sie sind keinem Mandanten zugewiesen.{0}Bitte wenden Sie sich an  Ihren Administrator!" xml:space="preserve">
-        Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv/29vb/AAAAAAAAAAAAAAAAAAAAAPb2
+    <value>Vous n'êtes pas lié à un mandataire{0}Veuillez contacter votre administrateur.</value>
-        9v9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/9vb2/wAAAAAAAAAAAAAAAAAA
+  </data>
-        AAD29vb/QkJC/0JCQv/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv8P9CQkL/QkJC//b29v8AAAAAAAAAAAAA
+  <data name="Wollen Sie Clipboard-Watcher wirklich beenden?" xml:space="preserve">
-        AAAAAAAA9vb2/0JCQv9CQkL/8e/w//Hv8P/x7/D/8e/w//Hv8P/x7/D/QkJC/0JCQv/29vb/AAAAAAAA
+    <value>Voulez-vous vraiment quitter easyFLOW ?</value>
-        AAAAAAAA9vb2MPb29v9CQkL/QkJC//Hv8P/x7/D/8e/w//Hv8P/x7/D/8e/w/0JCQv9CQkL/9vb2/wAA
-        AAAAAAAA9vb2MPb29u/29vb/QkJC/0JCQv/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv8P9CQkL/QkJC//b2
-        9v8AAAAA9vb2MPb29u++kFz/vpBc/7Ozs/9CQkL/8e/w//Hv8P/x7/D/8e/w//Hv8P/x7/D/QkJC/0JC
-        Qv/29vb/9vb2MPb29u++kFz/nFMA/5xTAP++kFz/9vb2//Hv8P/x7/D/8e/w//Hv8P/x7/D/8e/w/0JC
-        Qv9CQkL/9vb2//b29u++kFz/nFMA/5xTAP+cUwD/nFMA/76QXP/08/T/8e/w//Hv8P/x7/D/QkJC/0JC
-        Qv9CQkL/hoaG//b29u/29vb/nFMA/76QXP+cUwD/nFMA/76QXP+cUwD/9vb2//Hv8P/x7/D/8e/w/0JC
-        Qv9CQkL/hoaG//b29u/29vYw9vb2/76QXP/29vb/nFMA/5xTAP/29vb/vpBc//b29v9CQkL/QkJC/0JC
-        Qv9CQkL/hoaG//b29u/29vYwAAAAAPb29v/29vbv9vb2/5xTAP+cUwD/9vb2//b29u/29vb/QkJC/0JC
-        Qv9CQkL/hoaG//b29u/29vYwAAAAAAAAAAD29vbv9vb2MPb29v+cUwD/nFMA//b29v/29vYw9vb2//b2
-        9v/29vb/9vb2//b29u/29vYwAAAAAAAAAAAAAAAA9vb2MAAAAAD29vb/9vb2//b29v/29vb/AAAAAPb2
-        9jAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
-        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADwAAAA8AAAAPAAAADwAAAA8AAAAOAA
-        AADAAAAAgAAAAAAAAAAAAAAAAAAAAAABAAAAAwAAAAcAAEL/AAD//wAA
-</value>
   </data>
 </root>

app/DD_Clipboard_Searcher/Strings/frmMain_Strings.resx

@@ -0,0 +1,168 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <data name="Aktualisiert: {0}" xml:space="preserve">
+    <value>Aktualisiert: {0}</value>
+  </data>
+  <data name="Aktualisierung erfolgreich." xml:space="preserve">
+    <value>Aktualisierung erfolgreich.</value>
+  </data>
+  <data name="Clipboard-Watcher starten" xml:space="preserve">
+    <value>easyFLOW starten</value>
+  </data>
+  <data name="Clipboard-Watcher stoppen" xml:space="preserve">
+    <value>easyFLOW stoppen</value>
+  </data>
+  <data name="Clipboard-Watcher wurde deaktiviert!" xml:space="preserve">
+    <value>easyFLOW wurde deaktiviert!</value>
+  </data>
+  <data name="Clipboard-Watcher wurde wieder aktiviert!" xml:space="preserve">
+    <value>easyFLOW wurde wieder aktiviert!</value>
+  </data>
+  <data name="Die Benutzerkonfiguration konnte nicht erfolgreich durchgeführt werden!{0}Grund: {1}{2}Bitte kontaktieren sie Ihren Administrator!" xml:space="preserve">
+    <value>Die Benutzerkonfiguration konnte nicht erfolgreich durchgeführt werden!{0}Grund: {1}{2}Bitte kontaktieren sie Ihren Administrator!</value>
+  </data>
+  <data name="Eingeloggte Benutzer: {0}" xml:space="preserve">
+    <value>Eingeloggte Benutzer: {0}</value>
+  </data>
+  <data name="Es wurden keine passenden Profile gefunden für die Suche nach '{0}'!" xml:space="preserve">
+    <value>Es wurden keine passenden Profile gefunden für die Suche nach '{0}'!</value>
+  </data>
+  <data name="Es wurden noch keine Profile für den aktuellen Benutzer konfiguriert." xml:space="preserve">
+    <value>Es wurden noch keine Profile für den aktuellen Benutzer konfiguriert.</value>
+  </data>
+  <data name="Es wurden weder Dokumente noch Daten gefunden für die Suche nach '{0}'!" xml:space="preserve">
+    <value>Es wurden weder Dokumente noch Daten gefunden für die Suche nach '{0}'!</value>
+  </data>
+  <data name="Fehler bei der Aktualisierung." xml:space="preserve">
+    <value>Fehler bei der Aktualisierung.</value>
+  </data>
+  <data name="Fehler beim Auswerten der Profile. Mehr Informationen im Log." xml:space="preserve">
+    <value>Fehler beim Auswerten der Profile. Mehr Informationen im Log.</value>
+  </data>
+  <data name="Fehler beim Laden der Profile." xml:space="preserve">
+    <value>Fehler beim Laden der Profile. Möglicherweise liegt ein Konfigurationsfehler vor. Mehr Informationen im Log.</value>
+  </data>
+  <data name="Sie sind keinem Mandanten zugewiesen.{0}Bitte wenden Sie sich an  Ihren Administrator!" xml:space="preserve">
+    <value>Sie sind keinem Mandanten zugewiesen.{0}Bitte wenden Sie sich an  Ihren Administrator!</value>
+  </data>
+  <data name="Wollen Sie Clipboard-Watcher wirklich beenden?" xml:space="preserve">
+    <value>Wollen Sie easyFLOW wirklich beenden?</value>
+  </data>
+</root>

app/DD_Clipboard_Searcher/ctrlApplicationAssignment.Designer.vb

@@ -26,13 +26,11 @@ Partial Class ctrlApplicationAssignment
         Me.SplitContainer3 = New System.Windows.Forms.SplitContainer()
         Me.GridControl_Window = New DevExpress.XtraGrid.GridControl()
         Me.TBCW_PROF_REL_WINDOWBindingSource = New System.Windows.Forms.BindingSource(Me.components)
-        Me.MyDataset = New DD_Clipboard_Watcher.MyDataset()
+        Me.MyDataset = New easyFLOW.MyDataset()
         Me.GridView_Window = New DevExpress.XtraGrid.Views.Grid.GridView()
         Me.colGUID = New DevExpress.XtraGrid.Columns.GridColumn()
         Me.colDESCRIPTION = New DevExpress.XtraGrid.Columns.GridColumn()
         Me.colREGEX = New DevExpress.XtraGrid.Columns.GridColumn()
-        Me.RepositoryItemRegexEdit = New DevExpress.XtraEditors.Repository.RepositoryItemButtonEdit()
-        Me.RepositoryItemSpinEdit1 = New DevExpress.XtraEditors.Repository.RepositoryItemSpinEdit()
         Me.Label1 = New System.Windows.Forms.Label()
         Me.GridControl_Control = New DevExpress.XtraGrid.GridControl()
         Me.TBCW_PROF_REL_CONTROLBindingSource = New System.Windows.Forms.BindingSource(Me.components)
@@ -42,8 +40,6 @@ Partial Class ctrlApplicationAssignment
         Me.colDESCRIPTION1 = New DevExpress.XtraGrid.Columns.GridColumn()
         Me.GridColumn1 = New DevExpress.XtraGrid.Columns.GridColumn()
         Me.GridColumn2 = New DevExpress.XtraGrid.Columns.GridColumn()
-        Me.RepositoryItemButtonEdit1 = New DevExpress.XtraEditors.Repository.RepositoryItemButtonEdit()
-        Me.RepositoryItemPopupGalleryEdit1 = New DevExpress.XtraEditors.Repository.RepositoryItemPopupGalleryEdit()
         Me.Label2 = New System.Windows.Forms.Label()
         Me.TBCW_PROF_DOC_SEARCHBindingSource = New System.Windows.Forms.BindingSource(Me.components)
         Me.GridControl3 = New DevExpress.XtraGrid.GridControl()
@@ -51,11 +47,11 @@ Partial Class ctrlApplicationAssignment
         Me.GridViewProcessProfile = New DevExpress.XtraGrid.Views.Grid.GridView()
         Me.colGUID2 = New DevExpress.XtraGrid.Columns.GridColumn()
         Me.colPROC_NAME = New DevExpress.XtraGrid.Columns.GridColumn()
-        Me.TBCW_PROFILE_PROCESSTableAdapter = New DD_Clipboard_Watcher.MyDatasetTableAdapters.TBCW_PROFILE_PROCESSTableAdapter()
+        Me.TBCW_PROFILE_PROCESSTableAdapter = New easyFLOW.MyDatasetTableAdapters.TBCW_PROFILE_PROCESSTableAdapter()
-        Me.TBCW_PROF_REL_WINDOWTableAdapter = New DD_Clipboard_Watcher.MyDatasetTableAdapters.TBCW_PROF_REL_WINDOWTableAdapter()
+        Me.TBCW_PROF_REL_WINDOWTableAdapter = New easyFLOW.MyDatasetTableAdapters.TBCW_PROF_REL_WINDOWTableAdapter()
-        Me.TBCW_PROF_DOC_SEARCHTableAdapter = New DD_Clipboard_Watcher.MyDatasetTableAdapters.TBCW_PROF_DOC_SEARCHTableAdapter()
+        Me.TBCW_PROF_DOC_SEARCHTableAdapter = New easyFLOW.MyDatasetTableAdapters.TBCW_PROF_DOC_SEARCHTableAdapter()
-        Me.TableAdapterManager = New DD_Clipboard_Watcher.MyDatasetTableAdapters.TableAdapterManager()
+        Me.TableAdapterManager = New easyFLOW.MyDatasetTableAdapters.TableAdapterManager()
-        Me.TBCW_PROF_REL_CONTROLTableAdapter = New DD_Clipboard_Watcher.MyDatasetTableAdapters.TBCW_PROF_REL_CONTROLTableAdapter()
+        Me.TBCW_PROF_REL_CONTROLTableAdapter = New easyFLOW.MyDatasetTableAdapters.TBCW_PROF_REL_CONTROLTableAdapter()
         CType(Me.SplitContainer3, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SplitContainer3.Panel1.SuspendLayout()
         Me.SplitContainer3.Panel2.SuspendLayout()
@@ -64,13 +60,9 @@ Partial Class ctrlApplicationAssignment
         CType(Me.TBCW_PROF_REL_WINDOWBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.GridView_Window, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.RepositoryItemRegexEdit, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.RepositoryItemSpinEdit1, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.GridControl_Control, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.TBCW_PROF_REL_CONTROLBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.GridView_Control, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.RepositoryItemButtonEdit1, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.RepositoryItemPopupGalleryEdit1, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.TBCW_PROF_DOC_SEARCHBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.GridControl3, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.TBCW_PROFILE_PROCESSBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -104,7 +96,6 @@ Partial Class ctrlApplicationAssignment
         Me.GridControl_Window.Location = New System.Drawing.Point(0, 25)
         Me.GridControl_Window.MainView = Me.GridView_Window
         Me.GridControl_Window.Name = "GridControl_Window"
-        Me.GridControl_Window.RepositoryItems.AddRange(New DevExpress.XtraEditors.Repository.RepositoryItem() {Me.RepositoryItemRegexEdit, Me.RepositoryItemSpinEdit1})
         Me.GridControl_Window.Size = New System.Drawing.Size(915, 279)
         Me.GridControl_Window.TabIndex = 66
         Me.GridControl_Window.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView_Window})
@@ -147,25 +138,14 @@ Partial Class ctrlApplicationAssignment
         'colREGEX
         '
         Me.colREGEX.Caption = "Fenster Titel Regex"
-        Me.colREGEX.ColumnEdit = Me.RepositoryItemRegexEdit
         Me.colREGEX.FieldName = "REGEX"
         Me.colREGEX.Name = "colREGEX"
+        Me.colREGEX.OptionsColumn.AllowEdit = False
+        Me.colREGEX.OptionsColumn.ReadOnly = True
         Me.colREGEX.Visible = True
         Me.colREGEX.VisibleIndex = 1
         Me.colREGEX.Width = 410
         '
-        'RepositoryItemRegexEdit
-        '
-        Me.RepositoryItemRegexEdit.AutoHeight = False
-        Me.RepositoryItemRegexEdit.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton()})
-        Me.RepositoryItemRegexEdit.Name = "RepositoryItemRegexEdit"
-        '
-        'RepositoryItemSpinEdit1
-        '
-        Me.RepositoryItemSpinEdit1.AutoHeight = False
-        Me.RepositoryItemSpinEdit1.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)})
-        Me.RepositoryItemSpinEdit1.Name = "RepositoryItemSpinEdit1"
-        '
         'Label1
         '
         Me.Label1.Dock = System.Windows.Forms.DockStyle.Top
@@ -184,7 +164,6 @@ Partial Class ctrlApplicationAssignment
         Me.GridControl_Control.Location = New System.Drawing.Point(0, 25)
         Me.GridControl_Control.MainView = Me.GridView_Control
         Me.GridControl_Control.Name = "GridControl_Control"
-        Me.GridControl_Control.RepositoryItems.AddRange(New DevExpress.XtraEditors.Repository.RepositoryItem() {Me.RepositoryItemButtonEdit1, Me.RepositoryItemPopupGalleryEdit1})
         Me.GridControl_Control.Size = New System.Drawing.Size(915, 302)
         Me.GridControl_Control.TabIndex = 69
         Me.GridControl_Control.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView_Control})
@@ -199,7 +178,7 @@ Partial Class ctrlApplicationAssignment
         Me.GridView_Control.Appearance.EvenRow.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
         Me.GridView_Control.Appearance.EvenRow.Options.UseBackColor = True
         Me.GridView_Control.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colGUID1, Me.GridColumn3, Me.colDESCRIPTION1, Me.GridColumn1, Me.GridColumn2})
-        Me.GridView_Control.CustomizationFormBounds = New System.Drawing.Rectangle(902, 520, 252, 236)
+        Me.GridView_Control.CustomizationFormBounds = New System.Drawing.Rectangle(828, 520, 252, 236)
         Me.GridView_Control.GridControl = Me.GridControl_Control
         Me.GridView_Control.Name = "GridView_Control"
         Me.GridView_Control.OptionsView.EnableAppearanceEvenRow = True
@@ -246,18 +225,6 @@ Partial Class ctrlApplicationAssignment
         Me.GridColumn2.Visible = True
         Me.GridColumn2.VisibleIndex = 2
         '
-        'RepositoryItemButtonEdit1
-        '
-        Me.RepositoryItemButtonEdit1.AutoHeight = False
-        Me.RepositoryItemButtonEdit1.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton()})
-        Me.RepositoryItemButtonEdit1.Name = "RepositoryItemButtonEdit1"
-        '
-        'RepositoryItemPopupGalleryEdit1
-        '
-        Me.RepositoryItemPopupGalleryEdit1.AutoHeight = False
-        Me.RepositoryItemPopupGalleryEdit1.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)})
-        Me.RepositoryItemPopupGalleryEdit1.Name = "RepositoryItemPopupGalleryEdit1"
-        '
         'Label2
         '
         Me.Label2.Dock = System.Windows.Forms.DockStyle.Top
@@ -346,7 +313,7 @@ Partial Class ctrlApplicationAssignment
         Me.TableAdapterManager.TBCW_PROFILESTableAdapter = Nothing
         Me.TableAdapterManager.TBCW_USER_PROFILETableAdapter = Nothing
         Me.TableAdapterManager.TBDD_CONNECTIONTableAdapter = Nothing
-        Me.TableAdapterManager.UpdateOrder = DD_Clipboard_Watcher.MyDatasetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete
+        Me.TableAdapterManager.UpdateOrder = easyFLOW.MyDatasetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete
         '
         'TBCW_PROF_REL_CONTROLTableAdapter
         '
@@ -368,13 +335,9 @@ Partial Class ctrlApplicationAssignment
         CType(Me.TBCW_PROF_REL_WINDOWBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.GridView_Window, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.RepositoryItemRegexEdit, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.RepositoryItemSpinEdit1, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.GridControl_Control, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.TBCW_PROF_REL_CONTROLBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.GridView_Control, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.RepositoryItemButtonEdit1, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.RepositoryItemPopupGalleryEdit1, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.TBCW_PROF_DOC_SEARCHBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.GridControl3, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.TBCW_PROFILE_PROCESSBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
@@ -399,9 +362,7 @@ Partial Class ctrlApplicationAssignment
     Friend WithEvents MyDataset As MyDataset
     Friend WithEvents TBCW_PROF_REL_WINDOWTableAdapter As MyDatasetTableAdapters.TBCW_PROF_REL_WINDOWTableAdapter
     Friend WithEvents TBCW_PROF_REL_WINDOWBindingSource As BindingSource
-    Friend WithEvents RepositoryItemRegexEdit As DevExpress.XtraEditors.Repository.RepositoryItemButtonEdit
     Friend WithEvents colGUID As DevExpress.XtraGrid.Columns.GridColumn
-    Friend WithEvents RepositoryItemSpinEdit1 As DevExpress.XtraEditors.Repository.RepositoryItemSpinEdit
     Friend WithEvents Label1 As Label
     Friend WithEvents Label2 As Label
     Friend WithEvents TBCW_PROF_DOC_SEARCHBindingSource As BindingSource
@@ -410,11 +371,8 @@ Partial Class ctrlApplicationAssignment
     Friend WithEvents TBCW_PROF_REL_CONTROLBindingSource As BindingSource
     Friend WithEvents TBCW_PROF_REL_CONTROLTableAdapter As MyDatasetTableAdapters.TBCW_PROF_REL_CONTROLTableAdapter
     Friend WithEvents colDESCRIPTION1 As DevExpress.XtraGrid.Columns.GridColumn
-    Friend WithEvents RepositoryItemRegexEdit2 As DevExpress.XtraEditors.Repository.RepositoryItemButtonEdit
-    Friend WithEvents RepositoryItemButtonEdit1 As DevExpress.XtraEditors.Repository.RepositoryItemButtonEdit
     Friend WithEvents colGUID1 As DevExpress.XtraGrid.Columns.GridColumn
     Friend WithEvents GridColumn3 As DevExpress.XtraGrid.Columns.GridColumn
     Friend WithEvents GridColumn2 As DevExpress.XtraGrid.Columns.GridColumn
     Friend WithEvents GridColumn1 As DevExpress.XtraGrid.Columns.GridColumn
-    Friend WithEvents RepositoryItemPopupGalleryEdit1 As DevExpress.XtraEditors.Repository.RepositoryItemPopupGalleryEdit
 End Class

app/DD_Clipboard_Searcher/ctrlApplicationAssignment.vb

@@ -4,26 +4,40 @@ Imports DevExpress.XtraEditors.Controls
 Imports DevExpress.XtraGrid
 Imports DevExpress.XtraGrid.Views.Grid
 Imports DigitalData.Controls.RegexEditor
+Imports DigitalData.Modules.Windows.Window
 
 Public Class ctrlApplicationAssignment
-    Public AppSelectionString As String
+    Public Property SelectedProfileId As Integer = 0
-    Private Current_ProfileId As Integer
+    Public Property SelectedProcessId As Integer = 0
-    Private Current_WindowId As Integer
+    Public Property SelectedWindowId As Integer = 0
-    Private Current_ProcessGUID As Integer
+    Public Property SelectedControlId As Integer = 0
-    Private Current_ControlId As Integer
 
-    Private Sub ctrlApplicationAssignment_Load(sender As Object, e As EventArgs) Handles Me.Load
+    Public ReadOnly Property ProcessTable As DataTable
+        Get
+            Return MyDataset.TBCW_PROFILE_PROCESS
+        End Get
+    End Property
+
+    Public ReadOnly Property WindowTable As DataTable
+        Get
+            Return MyDataset.TBCW_PROF_REL_WINDOW
+        End Get
+    End Property
+
+
+    Public Sub New()
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+
+        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
         TBCW_PROFILE_PROCESSTableAdapter.Connection.ConnectionString = MyConnectionString
         TBCW_PROF_REL_WINDOWTableAdapter.Connection.ConnectionString = MyConnectionString
         TBCW_PROF_REL_CONTROLTableAdapter.Connection.ConnectionString = MyConnectionString
-
-        AddHandler RepositoryItemRegexEdit.ButtonClick, AddressOf RepositoryItemRegexEdit_Click
-        AddHandler RepositoryItemButtonEdit1.ButtonClick, AddressOf RepositoryItemRegexEdit_Click
     End Sub
 
     Public Function AssignProfileID(ProfileId As Integer) As Boolean
         Try
-            Current_ProfileId = ProfileId
+            SelectedProfileId = ProfileId
             Return True
         Catch ex As Exception
             Logger.Error(ex)
@@ -32,8 +46,6 @@ Public Class ctrlApplicationAssignment
     End Function
     Public Function Process_Load(ProfileId As Integer) As Boolean
         Try
-
-
             TBCW_PROFILE_PROCESSTableAdapter.Fill(MyDataset.TBCW_PROFILE_PROCESS, ProfileId)
             Return True
         Catch ex As Exception
@@ -51,26 +63,33 @@ Public Class ctrlApplicationAssignment
                 Dim oWindowTitle As String = GetSQLFriendlyString(oForm.WindowTitle)
                 Dim oProcessName As String = oForm.ProcessName
 
+                If oForm.IgnoreProcess = True Then
+
+                    oProcessName = "_CATCHALL_"
+                End If
+
                 If oProcessName <> "" Then
                     Dim oSQL = String.Format("INSERT INTO TBCW_PROFILE_PROCESS (PROFILE_ID,PROC_NAME,ADDED_WHO) VALUES ({0},'{1}','{2}')", ProfileId, oProcessName, Environment.UserName)
-                    If Database.ExecuteNonQuery(oSQL) = False Then
+                    If MyDB_DDECM.ExecuteNonQuery(oSQL) = False Then
                         Return False
                     Else
-                        Dim oNewProcessId = Database.GetScalarValue("SELECT MAX(GUID) FROM TBCW_PROFILE_PROCESS")
+                        Dim oNewProcessId = MyDB_DDECM.GetScalarValue("SELECT MAX(GUID) FROM TBCW_PROFILE_PROCESS")
 
                         oSQL = String.Format("INSERT INTO TBCW_PROF_REL_WINDOW (DESCRIPTION, REGEX, ADDED_WHO, PROCESS_ID) VALUES ('{0}', '^{1}$', '{2}' ,{3})", oWindowTitle, oWindowTitle, Environment.UserName, oNewProcessId)
-                        If Database.ExecuteNonQuery(oSQL) = False Then
+                        If MyDB_DDECM.ExecuteNonQuery(oSQL) = False Then
                             Return False
                         End If
                     End If
                 End If
 
-                Process_Load(Current_ProfileId)
+                Process_Load(SelectedProfileId)
                 Return True
             Catch ex As Exception
                 Logger.Error(ex)
                 Return False
             End Try
+        Else
+            Return True
         End If
     End Function
 
@@ -78,8 +97,8 @@ Public Class ctrlApplicationAssignment
         Try
             Dim oProcessId = GridViewProcessProfile.GetFocusedRowCellValue(GridViewProcessProfile.Columns("GUID"))
             Dim oSQL = String.Format("EXEC PRCW_DELETE_PROCESS {0}", oProcessId)
-            If Database.ExecuteNonQuery(oSQL) Then
+            If MyDB_DDECM.ExecuteNonQuery(oSQL) Then
-                Process_Load(Current_ProfileId)
+                Process_Load(SelectedProfileId)
                 Return True
             End If
 
@@ -108,14 +127,17 @@ Public Class ctrlApplicationAssignment
         Dim oRowHandle As Integer = oGridView.FocusedRowHandle
 
         Dim oForm As New frmRegexEditor(oButtonEdit.EditValue)
-        If oForm.ShowDialog() = DialogResult.OK Then
+
-            oButtonEdit.EditValue = oForm.RegexString
+        'If oForm.ShowDialog() = DialogResult.OK Then
-        End If
+        'oButtonEdit.EditValue = oForm.RegexString
-        Console.WriteLine()
+        'End If
     End Sub
 
     Public Function Window_CreateAssignment(ProfileId As Integer) As Boolean
-        Dim oForm As New frmProcessCapture()
+        Dim oRow = GridViewProcessProfile.GetDataRow(GridViewProcessProfile.FocusedRowHandle)
+        Dim oCurrentProcess = oRow.Item("PROC_NAME")
+
+        Dim oForm As New frmProcessCapture(oCurrentProcess)
         Dim oResult = oForm.ShowDialog()
 
         If oResult = DialogResult.OK Then
@@ -125,7 +147,7 @@ Public Class ctrlApplicationAssignment
 
                 If oWindowTitle <> "" Then
                     Dim insert = String.Format("INSERT INTO TBCW_PROF_REL_WINDOW (DESCRIPTION, REGEX, ADDED_WHO,PROCESS_ID) VALUES ('{0}', '^{1}$','{2}',{3})", oWindowTitle, oWindowTitle, Environment.UserName, CURRENT_PROCESSID)
-                    If Database.ExecuteNonQuery(insert) = False Then
+                    If MyDB_DDECM.ExecuteNonQuery(insert) = False Then
                         Return False
                     End If
                 End If
@@ -136,6 +158,8 @@ Public Class ctrlApplicationAssignment
                 Logger.Error(ex)
                 Return False
             End Try
+        Else
+            Return True
         End If
     End Function
 
@@ -143,8 +167,8 @@ Public Class ctrlApplicationAssignment
         Try
             Dim oGuid = GridView_Window.GetFocusedRowCellValue(GridView_Window.Columns("GUID"))
             Dim oSQL = String.Format("EXEC PRCW_DELETE_WINDOW {0}", oGuid)
-            If Database.ExecuteNonQuery(oSQL) Then
+            If MyDB_DDECM.ExecuteNonQuery(oSQL) Then
-                Process_Load(Current_ProfileId)
+                Process_Load(SelectedProfileId)
                 Return True
             End If
 
@@ -164,6 +188,26 @@ Public Class ctrlApplicationAssignment
                 TBCW_PROF_REL_WINDOWTableAdapter.Update(MyDataset.TBCW_PROF_REL_WINDOW)
                 Return True
             End If
+
+            Return True
+        Catch ex As Exception
+            Logger.Error(ex)
+            Return False
+        End Try
+    End Function
+
+    Public Function Window_EditRegex() As Boolean
+        Try
+            Dim oRow = GridView_Window.GetDataRow(GridView_Window.FocusedRowHandle)
+
+            If oRow IsNot Nothing Then
+                Dim oRegex = oRow.Item("REGEX")
+
+                Dim oForm As New frmRegexEditor(oRegex)
+                If oForm.ShowDialog() = DialogResult.OK Then
+                    oRow.Item("REGEX") = oForm.RegexString
+                End If
+            End If
         Catch ex As Exception
             Logger.Error(ex)
             Return False
@@ -172,7 +216,7 @@ Public Class ctrlApplicationAssignment
 
     Public Function Control_Load() As Boolean
         Try
-            TBCW_PROF_REL_CONTROLTableAdapter.Fill(MyDataset.TBCW_PROF_REL_CONTROL, Current_WindowId)
+            TBCW_PROF_REL_CONTROLTableAdapter.Fill(MyDataset.TBCW_PROF_REL_CONTROL, SelectedWindowId)
 
             Return True
         Catch ex As Exception
@@ -195,14 +239,14 @@ Public Class ctrlApplicationAssignment
                                 ,[BOTTOMLEFT_TOP],[BOTTOMLEFT_LEFT],[BOTTOMLEFT_RIGHT],[BOTTOMLEFT_BOTTOM]
                                 ,[BOTTOMRIGHT_TOP],[BOTTOMRIGHT_LEFT],[BOTTOMRIGHT_RIGHT],[BOTTOMRIGHT_BOTTOM]
                             ) VALUES (
-                                {Current_WindowId}, 'Beispiel Beschreibung', '{oForm.ControlName}', '{Environment.UserName}',
+                                {SelectedWindowId}, 'Beispiel Beschreibung', '{oForm.ControlName}', '{Environment.UserName}',
                                 {oForm.TopLeft.Top}, {oForm.TopLeft.Left}, {oForm.TopLeft.Right}, {oForm.TopLeft.Bottom},
                                 {oForm.TopRight.Top}, {oForm.TopRight.Left}, {oForm.TopRight.Right}, {oForm.TopRight.Bottom},
                                 {oForm.TopLeft.Top}, {oForm.TopLeft.Left}, {oForm.TopLeft.Right}, {oForm.TopLeft.Bottom},
                                 {oForm.TopLeft.Top}, {oForm.TopLeft.Left}, {oForm.TopLeft.Right}, {oForm.TopLeft.Bottom}
                             )"
 
-                If Database.ExecuteNonQuery(oSql) = False Then
+                If MyDB_DDECM.ExecuteNonQuery(oSql) = False Then
                     Return False
                 End If
 
@@ -219,9 +263,54 @@ Public Class ctrlApplicationAssignment
     End Function
 
     Public Function Control_EditAssignment() As Boolean
-        Dim oForm As New frmControlCapture(EditMode:=True)
+        Dim oHandles As List(Of Integer) = GridView_Control.
+            GetSelectedRows().
+            ToList()
+
+        If oHandles.Count <> 1 Then
+            Return False
+        End If
+
+        Dim oHandle As Integer = oHandles.FirstOrDefault()
+        Dim oRow = GridView_Control.GetDataRow(oHandle)
+
+        Dim oControlName As String = oRow.Item("CONTROL_NAME")
+        Dim oTopLeft As New RectangleInfo() With {
+            .Top = oRow.Item("TOPLEFT_TOP"),
+            .Left = oRow.Item("TOPLEFT_LEFT"),
+            .Right = oRow.Item("TOPLEFT_RIGHT"),
+            .Bottom = oRow.Item("TOPLEFT_BOTTOM")
+        }
+
+        Dim oTopRight As New RectangleInfo() With {
+            .Top = oRow.Item("TOPRIGHT_TOP"),
+            .Left = oRow.Item("TOPRIGHT_LEFT"),
+            .Right = oRow.Item("TOPRIGHT_RIGHT"),
+            .Bottom = oRow.Item("TOPRIGHT_BOTTOM")
+        }
+
+        Dim oBottomLeft As New RectangleInfo() With {
+            .Top = oRow.Item("BOTTOMLEFT_TOP"),
+            .Left = oRow.Item("BOTTOMLEFT_LEFT"),
+            .Right = oRow.Item("BOTTOMLEFT_RIGHT"),
+            .Bottom = oRow.Item("BOTTOMLEFT_BOTTOM")
+        }
+
+        Dim oBottomRight As New RectangleInfo() With {
+            .Top = oRow.Item("BOTTOMRIGHT_TOP"),
+            .Left = oRow.Item("BOTTOMRIGHT_LEFT"),
+            .Right = oRow.Item("BOTTOMRIGHT_RIGHT"),
+            .Bottom = oRow.Item("BOTTOMRIGHT_BOTTOM")
+        }
+
+        Dim oBounds As String = frmControlCapture.GetBoundsString(oTopLeft, oTopRight, oBottomLeft, oBottomRight)
+        Dim oForm As New frmControlCapture(EditMode:=True, ControlBounds:=oBounds, ControlName:=oControlName)
+        oForm.TopLeft = oTopLeft
+        oForm.TopRight = oTopRight
+        oForm.BottomLeft = oBottomLeft
+        oForm.BottomRight = oBottomRight
+
         Dim oResult = oForm.ShowDialog()
-        Dim oControlId As Integer() = GridView_Control.GetSelectedRows()
 
         If oResult = DialogResult.OK Then
             Try
@@ -244,10 +333,10 @@ Public Class ctrlApplicationAssignment
                             [BOTTOMRIGHT_BOTTOM] = {oForm.BottomRight.Bottom},
                             [BOTTOMRIGHT_LEFT] = {oForm.BottomRight.Left},
                             [BOTTOMRIGHT_RIGHT] = {oForm.BottomRight.Right}
-                            WHERE GUID = {Current_ControlId}
+                            WHERE GUID = {SelectedControlId}
                             "
 
-                If Database.ExecuteNonQuery(oSql) = False Then
+                If MyDB_DDECM.ExecuteNonQuery(oSql) = False Then
                     Return False
                 End If
 
@@ -283,7 +372,7 @@ Public Class ctrlApplicationAssignment
         Try
             Dim oGuid = GridView_Control.GetFocusedRowCellValue(GridView_Control.Columns("GUID"))
             Dim oSQL = String.Format("DELETE FROM TBCW_PROF_REL_CONTROL WHERE GUID = {0}", oGuid)
-            If Database.ExecuteNonQuery(oSQL) Then
+            If MyDB_DDECM.ExecuteNonQuery(oSQL) Then
                 Window_Load()
                 Return True
             End If
@@ -296,18 +385,21 @@ Public Class ctrlApplicationAssignment
     End Function
 
     Private Sub GridViewProcessProfile_FocusedRowChanged(sender As Object, e As DevExpress.XtraGrid.Views.Base.FocusedRowChangedEventArgs) Handles GridViewProcessProfile.FocusedRowChanged
+        MyDataset.TBCW_PROF_REL_CONTROL.Clear()
+        MyDataset.TBCW_PROF_REL_WINDOW.Clear()
+
         If e.FocusedRowHandle < 0 Then
+            SelectedProcessId = 0
             Exit Sub
         End If
 
         Dim oSelectedRow As DataRow = GridViewProcessProfile.GetDataRow(e.FocusedRowHandle)
         Dim oProcessName As String = oSelectedRow.Item("PROC_NAME")
-        Dim oPRocessGUID = oSelectedRow.Item("GUID")
+        Dim oProcessGUID = oSelectedRow.Item("GUID")
-        AppSelectionString = $"Selected Profile: {oPRocessGUID}-{oProcessName}"
+        CURRENT_PROCESSID = oProcessGUID
-        CURRENT_PROCESSID = oPRocessGUID
         CURRENT_PROCESSNAME = oProcessName
-        MyDataset.TBCW_PROF_REL_CONTROL.Clear()
+
-        MyDataset.TBCW_PROF_REL_WINDOW.Clear()
+        SelectedProcessId = oProcessGUID
 
         If Window_Load() = False Then
             MsgBox($"Error while loading windows for process {oProcessName}", vbCritical, "")
@@ -323,13 +415,14 @@ Public Class ctrlApplicationAssignment
     Private Sub GridView_Window_FocusedRowChanged(sender As Object, e As Views.Base.FocusedRowChangedEventArgs) Handles GridView_Window.FocusedRowChanged
         Try
             If e.FocusedRowHandle < 0 Then
+                SelectedWindowId = 0
                 Exit Sub
             End If
 
             Dim oSelectedRow As DataRow = GridView_Window.GetDataRow(e.FocusedRowHandle)
             Dim oWindowId As String = oSelectedRow.Item("GUID")
-            Current_WindowId = oWindowId
+
-            AppSelectionString = AppSelectionString & $" / WindowID: {oWindowId}"
+            SelectedWindowId = oWindowId
 
             If Control_Load() = False Then
                 MsgBox($"Error while loading controls for window {oWindowId}", vbCritical, "")
@@ -337,18 +430,17 @@ Public Class ctrlApplicationAssignment
         Catch ex As Exception
             MsgBox(ex.Message, MsgBoxStyle.Critical)
         End Try
-
     End Sub
 
     Private Sub GridView_Control_FocusedRowChanged(sender As Object, e As Views.Base.FocusedRowChangedEventArgs) Handles GridView_Control.FocusedRowChanged
         If e.FocusedRowHandle < 0 Then
-            Current_ControlId = Nothing
+            SelectedControlId = 0
             Exit Sub
         End If
 
         Dim oSelectedRow As DataRow = GridView_Control.GetDataRow(e.FocusedRowHandle)
         Dim oControlGUID = oSelectedRow.Item("GUID")
-        Current_ControlId = oSelectedRow.Item("GUID")
+
-        AppSelectionString = AppSelectionString & $" - Selected ControlGUID: {oControlGUID}"
+        SelectedControlId = oControlGUID
     End Sub
 End Class

app/DD_Clipboard_Searcher/easyFLOW.vbproj

@@ -6,14 +6,31 @@
     <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
     <ProjectGuid>{09BC9934-1A38-4752-8873-639B42779CDB}</ProjectGuid>
     <OutputType>WinExe</OutputType>
-    <StartupObject>DD_Clipboard_Watcher.My.MyApplication</StartupObject>
+    <StartupObject>easyFLOW.My.MyApplication</StartupObject>
-    <RootNamespace>DD_Clipboard_Watcher</RootNamespace>
+    <RootNamespace>easyFLOW</RootNamespace>
-    <AssemblyName>DD_Clipboard_Watcher</AssemblyName>
+    <AssemblyName>easyFLOW</AssemblyName>
     <FileAlignment>512</FileAlignment>
     <MyType>WindowsForms</MyType>
-    <TargetFrameworkVersion>v4.6.1</TargetFrameworkVersion>
+    <TargetFrameworkVersion>v4.6.2</TargetFrameworkVersion>
-    <AutoGenerateBindingRedirects>true</AutoGenerateBindingRedirects>
+    <AutoGenerateBindingRedirects>false</AutoGenerateBindingRedirects>
     <TargetFrameworkProfile />
+    <IsWebBootstrapper>false</IsWebBootstrapper>
+    <PublishUrl>publish\</PublishUrl>
+    <Install>true</Install>
+    <InstallFrom>Disk</InstallFrom>
+    <UpdateEnabled>false</UpdateEnabled>
+    <UpdateMode>Foreground</UpdateMode>
+    <UpdateInterval>7</UpdateInterval>
+    <UpdateIntervalUnits>Days</UpdateIntervalUnits>
+    <UpdatePeriodically>false</UpdatePeriodically>
+    <UpdateRequired>false</UpdateRequired>
+    <MapFileExtensions>true</MapFileExtensions>
+    <ApplicationRevision>0</ApplicationRevision>
+    <ApplicationVersion>1.0.0.%2a</ApplicationVersion>
+    <UseApplicationTrust>false</UseApplicationTrust>
+    <BootstrapperEnabled>true</BootstrapperEnabled>
+    <NuGetPackageImportStamp>
+    </NuGetPackageImportStamp>
   </PropertyGroup>
   <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
     <PlatformTarget>AnyCPU</PlatformTarget>
@@ -22,7 +39,7 @@
     <DefineDebug>true</DefineDebug>
     <DefineTrace>true</DefineTrace>
     <OutputPath>bin\Debug\</OutputPath>
-    <DocumentationFile>DD_Clipboard_Watcher.xml</DocumentationFile>
+    <DocumentationFile>easyFLOW.xml</DocumentationFile>
     <NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
   </PropertyGroup>
   <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
@@ -32,7 +49,7 @@
     <DefineTrace>true</DefineTrace>
     <Optimize>true</Optimize>
     <OutputPath>bin\Release\</OutputPath>
-    <DocumentationFile>DD_Clipboard_Watcher.xml</DocumentationFile>
+    <DocumentationFile>easyFLOW.xml</DocumentationFile>
     <NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
   </PropertyGroup>
   <PropertyGroup>
@@ -48,55 +65,91 @@
     <OptionInfer>On</OptionInfer>
   </PropertyGroup>
   <PropertyGroup>
-    <ApplicationIcon>DD_Icons_ICO_CBWATCHER_48px.ico</ApplicationIcon>
+    <ApplicationIcon>DD_easyFLOW_ICON.ico</ApplicationIcon>
+  </PropertyGroup>
+  <PropertyGroup>
+    <ApplicationManifest>My Project\app.manifest</ApplicationManifest>
   </PropertyGroup>
   <ItemGroup>
     <Reference Include="Accessibility" />
-    <Reference Include="DD_LIB_Standards">
+    <Reference Include="DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
-      <HintPath>..\..\..\DDLibStandards\DD_LIB_Standards\bin\Debug\DD_LIB_Standards.dll</HintPath>
+    <Reference Include="DevExpress.Images.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
+    <Reference Include="DevExpress.Printing.v21.2.Core, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
+    <Reference Include="DevExpress.Sparkline.v21.2.Core, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
+    <Reference Include="DevExpress.Data.Desktop.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
+    <Reference Include="DevExpress.Utils.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
+    <Reference Include="DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
+    <Reference Include="DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
+    <Reference Include="DevExpress.XtraGauges.v21.2.Core, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
+    <Reference Include="DevExpress.XtraGauges.v21.2.Win, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
+    <Reference Include="DevExpress.XtraGrid.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
+    <Reference Include="DevExpress.XtraLayout.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
+    <Reference Include="DevExpress.XtraPrinting.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
+    <Reference Include="DevExpress.Office.v21.2.Core, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
+      <SpecificVersion>False</SpecificVersion>
+    </Reference>
+    <Reference Include="DevExpress.RichEdit.v21.2.Core, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
+      <SpecificVersion>False</SpecificVersion>
+    </Reference>
+    <Reference Include="DevExpress.XtraRichEdit.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
+      <SpecificVersion>False</SpecificVersion>
+    </Reference>
+    <Reference Include="DevExpress.XtraTreeList.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
+    <Reference Include="DigitalData.Controls.DocumentViewer">
+      <HintPath>..\..\..\..\2_DLL Projekte\DDMonorepo\Controls.DocumentViewer\bin\Debug\DigitalData.Controls.DocumentViewer.dll</HintPath>
     </Reference>
-    <Reference Include="DevExpress.Data.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
-    <Reference Include="DevExpress.Images.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
-    <Reference Include="DevExpress.Printing.v18.1.Core, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
-    <Reference Include="DevExpress.Sparkline.v18.1.Core, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
-    <Reference Include="DevExpress.Utils.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
-    <Reference Include="DevExpress.XtraBars.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
-    <Reference Include="DevExpress.XtraEditors.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
-    <Reference Include="DevExpress.XtraGauges.v18.1.Core, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
-    <Reference Include="DevExpress.XtraGauges.v18.1.Win, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
-    <Reference Include="DevExpress.XtraGrid.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
-    <Reference Include="DevExpress.XtraLayout.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
-    <Reference Include="DevExpress.XtraPrinting.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
-    <Reference Include="DevExpress.XtraTreeList.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
     <Reference Include="DigitalData.Controls.RegexEditor">
       <HintPath>P:\Projekte DIGITAL DATA\DIGITAL DATA - Entwicklung\DLL_Bibliotheken\Digital Data\Controls\DigitalData.Controls.RegexEditor.dll</HintPath>
     </Reference>
+    <Reference Include="DigitalData.GUIs.ClipboardWatcher, Version=1.6.0.0, Culture=neutral, processorArchitecture=MSIL">
+      <SpecificVersion>False</SpecificVersion>
+      <HintPath>..\..\..\..\2_DLL Projekte\DDMonorepo\GUIs.ClipboardWatcher\bin\Debug\DigitalData.GUIs.ClipboardWatcher.dll</HintPath>
+    </Reference>
+    <Reference Include="DigitalData.GUIs.Common">
+      <HintPath>..\..\..\..\2_DLL Projekte\DDMonorepo\GUIs.Common\bin\Debug\DigitalData.GUIs.Common.dll</HintPath>
+    </Reference>
+    <Reference Include="DigitalData.Modules.Base">
+      <HintPath>..\..\..\..\2_DLL Projekte\DDModules\Base\bin\Debug\DigitalData.Modules.Base.dll</HintPath>
+    </Reference>
     <Reference Include="DigitalData.Modules.Config">
-      <HintPath>..\..\..\DDMonorepo\Modules.Config\bin\Debug\DigitalData.Modules.Config.dll</HintPath>
+      <HintPath>..\..\..\..\2_DLL Projekte\DDModules\Config\bin\Debug\DigitalData.Modules.Config.dll</HintPath>
     </Reference>
-    <Reference Include="DigitalData.Modules.Database, Version=1.0.0.5, Culture=neutral, processorArchitecture=MSIL">
+    <Reference Include="DigitalData.Modules.Database">
-      <SpecificVersion>False</SpecificVersion>
+      <HintPath>..\..\..\..\2_DLL Projekte\DDModules\Database\bin\Debug\DigitalData.Modules.Database.dll</HintPath>
-      <HintPath>..\..\..\DDMonorepo\Modules.Database\bin\Debug\DigitalData.Modules.Database.dll</HintPath>
     </Reference>
-    <Reference Include="DigitalData.Modules.Filesystem, Version=0.0.0.1, Culture=neutral, processorArchitecture=MSIL">
+    <Reference Include="DigitalData.Modules.EDMI.API">
-      <SpecificVersion>False</SpecificVersion>
+      <HintPath>..\..\..\..\2_DLL Projekte\DDModules\EDMIAPI\bin\Debug\DigitalData.Modules.EDMI.API.dll</HintPath>
-      <HintPath>..\..\..\DDMonorepo\Filesystem\bin\Debug\DigitalData.Modules.Filesystem.dll</HintPath>
+    </Reference>
+    <Reference Include="DigitalData.Modules.Encryption">
+      <HintPath>..\..\..\..\2_DLL Projekte\DDModules\Encryption\bin\Debug\DigitalData.Modules.Encryption.dll</HintPath>
+    </Reference>
+    <Reference Include="DigitalData.Modules.Filesystem">
+      <HintPath>..\..\..\..\2_DLL Projekte\DDModules\Filesystem\bin\Debug\DigitalData.Modules.Filesystem.dll</HintPath>
     </Reference>
     <Reference Include="DigitalData.Modules.Language">
-      <HintPath>P:\Projekte DIGITAL DATA\DIGITAL DATA - Entwicklung\DLL_Bibliotheken\Digital Data\DigitalData.Modules.Language.dll</HintPath>
+      <HintPath>..\..\..\..\2_DLL Projekte\DDModules\Language\bin\Debug\DigitalData.Modules.Language.dll</HintPath>
+    </Reference>
+    <Reference Include="DigitalData.Modules.License">
+      <HintPath>..\..\..\..\2_DLL Projekte\DDModules\License\bin\Debug\DigitalData.Modules.License.dll</HintPath>
     </Reference>
     <Reference Include="DigitalData.Modules.Logging">
-      <HintPath>..\..\..\DDMonorepo\Modules.Config\bin\Debug\DigitalData.Modules.Logging.dll</HintPath>
+      <HintPath>..\..\..\..\2_DLL Projekte\DDModules\Logging\bin\Debug\DigitalData.Modules.Logging.dll</HintPath>
+    </Reference>
+    <Reference Include="DigitalData.Modules.Patterns">
+      <HintPath>..\..\..\..\2_DLL Projekte\DDModules\Patterns\bin\Debug\DigitalData.Modules.Patterns.dll</HintPath>
     </Reference>
     <Reference Include="DigitalData.Modules.Windows">
-      <HintPath>..\..\..\DDMonorepo\Windows\bin\Debug\DigitalData.Modules.Windows.dll</HintPath>
+      <HintPath>..\..\..\..\2_DLL Projekte\DDModules\Windows\bin\Debug\DigitalData.Modules.Windows.dll</HintPath>
     </Reference>
-    <Reference Include="GdPicture.NET.14">
+    <Reference Include="DigitalData.Modules.ZooFlow">
-      <HintPath>D:\ProgramFiles\GdPicture.NET 14\Redist\GdPicture.NET\GdPicture.NET.14.dll</HintPath>
+      <HintPath>..\..\..\..\2_DLL Projekte\DDModules\ZooFlow\bin\Debug\DigitalData.Modules.ZooFlow.dll</HintPath>
+    </Reference>
+    <Reference Include="GdPicture.NET.14, Version=14.2.90.0, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL">
+      <HintPath>..\packages\GdPicture.14.2.90\lib\net462\GdPicture.NET.14.dll</HintPath>
     </Reference>
     <Reference Include="Microsoft.CSharp" />
-    <Reference Include="NLog, Version=4.0.0.0, Culture=neutral, PublicKeyToken=5120e14c03d0593c, processorArchitecture=MSIL">
+    <Reference Include="NLog, Version=5.0.0.0, Culture=neutral, PublicKeyToken=5120e14c03d0593c, processorArchitecture=MSIL">
-      <HintPath>..\packages\NLog.4.5.11\lib\net45\NLog.dll</HintPath>
+      <HintPath>..\packages\NLog.5.0.2\lib\net46\NLog.dll</HintPath>
     </Reference>
     <Reference Include="Oracle.ManagedDataAccess">
       <HintPath>P:\Visual Studio Projekte\Bibliotheken\Oracle.ManagedDataAccess.dll</HintPath>
@@ -136,14 +189,16 @@
     <Import Include="System.Threading.Tasks" />
   </ItemGroup>
   <ItemGroup>
+    <Compile Include="ApplicationEvents.vb" />
     <Compile Include="ClassAutomation.vb" />
-    <Compile Include="ClassProfileMatch.vb" />
+    <Compile Include="ClasseasyFLOW.vb" />
+    <Compile Include="ClassDataASorDB.vb" />
+    <Compile Include="ClassDragDrop.vb" />
     <Compile Include="ClassWindow.vb" />
     <Compile Include="ClassConfig.vb" />
     <Compile Include="ClassConstants.vb" />
     <Compile Include="ClassInit.vb" />
     <Compile Include="ClassLayout.vb" />
-    <Compile Include="ClassProfileFilter.vb" />
     <Compile Include="ClassHotkey.vb" />
     <Compile Include="ClassLicense.vb" />
     <Compile Include="ClassWindowsAPINativeMethods.vb" />
@@ -168,12 +223,6 @@
     <Compile Include="frmControlCapture.vb">
       <SubType>Form</SubType>
     </Compile>
-    <Compile Include="frmDocViewAbout.designer.vb">
-      <DependentUpon>frmDocViewAbout.vb</DependentUpon>
-    </Compile>
-    <Compile Include="frmDocViewAbout.vb">
-      <SubType>Form</SubType>
-    </Compile>
     <Compile Include="frmAdministration.Designer.vb">
       <DependentUpon>frmAdministration.vb</DependentUpon>
     </Compile>
@@ -186,30 +235,30 @@
     <Compile Include="frmClientLogin.vb">
       <SubType>Form</SubType>
     </Compile>
+    <Compile Include="frmGhostUser.Designer.vb">
+      <DependentUpon>frmGhostUser.vb</DependentUpon>
+    </Compile>
+    <Compile Include="frmGhostUser.vb">
+      <SubType>Form</SubType>
+    </Compile>
     <Compile Include="frmLicense.Designer.vb">
       <DependentUpon>frmLicense.vb</DependentUpon>
     </Compile>
     <Compile Include="frmLicense.vb">
       <SubType>Form</SubType>
     </Compile>
-    <Compile Include="frmDocView.designer.vb">
-      <DependentUpon>frmDocView.vb</DependentUpon>
-    </Compile>
-    <Compile Include="frmDocView.vb">
-      <SubType>Form</SubType>
-    </Compile>
-    <Compile Include="frmDocViewOpen.designer.vb">
-      <DependentUpon>frmDocViewOpen.vb</DependentUpon>
-    </Compile>
-    <Compile Include="frmDocViewOpen.vb">
-      <SubType>Form</SubType>
-    </Compile>
     <Compile Include="frmLicenseInfo.Designer.vb">
       <DependentUpon>frmLicenseInfo.vb</DependentUpon>
     </Compile>
     <Compile Include="frmLicenseInfo.vb">
       <SubType>Form</SubType>
     </Compile>
+    <Compile Include="frmMain.Designer.vb">
+      <DependentUpon>frmMain.vb</DependentUpon>
+    </Compile>
+    <Compile Include="frmMain.vb">
+      <SubType>Form</SubType>
+    </Compile>
     <Compile Include="frmPrint.designer.vb">
       <DependentUpon>frmPrint.vb</DependentUpon>
     </Compile>
@@ -222,61 +271,30 @@
     <Compile Include="frmProcessCapture.vb">
       <SubType>Form</SubType>
     </Compile>
-    <Compile Include="frmResultSQL.Designer.vb">
-      <DependentUpon>frmResultSQL.vb</DependentUpon>
-    </Compile>
-    <Compile Include="frmResultSQL.vb">
-      <SubType>Form</SubType>
-    </Compile>
     <Compile Include="frmSettings.designer.vb">
       <DependentUpon>frmSettings.vb</DependentUpon>
     </Compile>
     <Compile Include="frmSettings.vb">
       <SubType>Form</SubType>
     </Compile>
-    <Compile Include="frmStart.vb">
-      <SubType>Form</SubType>
-    </Compile>
-    <Compile Include="frmStart.Designer.vb">
-      <DependentUpon>frmStart.vb</DependentUpon>
-      <SubType>Form</SubType>
-    </Compile>
     <Compile Include="frmConfig_Basic.Designer.vb">
       <DependentUpon>frmConfig_Basic.vb</DependentUpon>
     </Compile>
     <Compile Include="frmConfig_Basic.vb">
       <SubType>Form</SubType>
     </Compile>
-    <Compile Include="frmProfileMatch.Designer.vb">
-      <DependentUpon>frmProfileMatch.vb</DependentUpon>
-    </Compile>
-    <Compile Include="frmProfileMatch.vb">
-      <SubType>Form</SubType>
-    </Compile>
-    <Compile Include="frmResultDoc.Designer.vb">
-      <DependentUpon>frmResultDoc.vb</DependentUpon>
-    </Compile>
-    <Compile Include="frmResultDoc.vb">
-      <SubType>Form</SubType>
-    </Compile>
     <Compile Include="frmSplash.Designer.vb">
       <DependentUpon>frmSplash.vb</DependentUpon>
     </Compile>
     <Compile Include="frmSplash.vb">
       <SubType>Form</SubType>
     </Compile>
-    <Compile Include="frmTreeView.Designer.vb">
-      <DependentUpon>frmTreeView.vb</DependentUpon>
-    </Compile>
-    <Compile Include="frmTreeView.vb">
-      <SubType>Form</SubType>
-    </Compile>
-    <Compile Include="IResultForm.vb" />
     <Compile Include="modCurrent.vb" />
     <Compile Include="My Project\AssemblyInfo.vb" />
     <Compile Include="My Project\Application.Designer.vb">
       <AutoGen>True</AutoGen>
       <DependentUpon>Application.myapp</DependentUpon>
+      <DesignTime>True</DesignTime>
     </Compile>
     <Compile Include="My Project\Resources.Designer.vb">
       <AutoGen>True</AutoGen>
@@ -288,6 +306,8 @@
       <DependentUpon>Settings.settings</DependentUpon>
       <DesignTimeSharedInput>True</DesignTimeSharedInput>
     </Compile>
+    <Compile Include="ClassWindowsAPI.vb" />
+    <Compile Include="ClassWindowAPIUtils.vb" />
     <Compile Include="MyDataset.Designer.vb">
       <AutoGen>True</AutoGen>
       <DesignTime>True</DesignTime>
@@ -296,8 +316,21 @@
     <Compile Include="MyDataset.vb">
       <DependentUpon>MyDataset.xsd</DependentUpon>
     </Compile>
-    <Compile Include="ClassWindowsAPI.vb" />
+    <Compile Include="Strings\frmMain_Strings.fr.Designer.vb">
-    <Compile Include="ClassWindowAPIUtils.vb" />
+      <DependentUpon>frmMain_Strings.fr.resx</DependentUpon>
+      <AutoGen>True</AutoGen>
+      <DesignTime>True</DesignTime>
+    </Compile>
+    <Compile Include="Strings\frmMain_Strings.en.Designer.vb">
+      <DependentUpon>frmMain_Strings.en.resx</DependentUpon>
+      <AutoGen>True</AutoGen>
+      <DesignTime>True</DesignTime>
+    </Compile>
+    <Compile Include="Strings\frmMain_Strings.Designer.vb">
+      <AutoGen>True</AutoGen>
+      <DesignTime>True</DesignTime>
+      <DependentUpon>frmMain_Strings.resx</DependentUpon>
+    </Compile>
   </ItemGroup>
   <ItemGroup>
     <EmbeddedResource Include="ctrlApplicationAssignment.resx">
@@ -309,61 +342,65 @@
     <EmbeddedResource Include="frmControlCapture.resx">
       <DependentUpon>frmControlCapture.vb</DependentUpon>
     </EmbeddedResource>
-    <EmbeddedResource Include="frmDocViewAbout.resx">
-      <DependentUpon>frmDocViewAbout.vb</DependentUpon>
-    </EmbeddedResource>
     <EmbeddedResource Include="frmAdministration.resx">
       <DependentUpon>frmAdministration.vb</DependentUpon>
       <SubType>Designer</SubType>
     </EmbeddedResource>
     <EmbeddedResource Include="frmClientLogin.en.resx">
       <DependentUpon>frmClientLogin.vb</DependentUpon>
+      <SubType>Designer</SubType>
+    </EmbeddedResource>
+    <EmbeddedResource Include="frmClientLogin.fr.resx">
+      <DependentUpon>frmClientLogin.vb</DependentUpon>
     </EmbeddedResource>
     <EmbeddedResource Include="frmClientLogin.resx">
       <DependentUpon>frmClientLogin.vb</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="frmGhostUser.resx">
+      <DependentUpon>frmGhostUser.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="frmLicense.resx">
       <DependentUpon>frmLicense.vb</DependentUpon>
     </EmbeddedResource>
-    <EmbeddedResource Include="frmDocView.resx">
-      <DependentUpon>frmDocView.vb</DependentUpon>
-    </EmbeddedResource>
-    <EmbeddedResource Include="frmDocViewOpen.resx">
-      <DependentUpon>frmDocViewOpen.vb</DependentUpon>
-    </EmbeddedResource>
     <EmbeddedResource Include="frmLicenseInfo.resx">
       <DependentUpon>frmLicenseInfo.vb</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="frmMain.en-US.resx">
+      <DependentUpon>frmMain.vb</DependentUpon>
+    </EmbeddedResource>
+    <EmbeddedResource Include="frmMain.en.resx">
+      <DependentUpon>frmMain.vb</DependentUpon>
+      <SubType>Designer</SubType>
+    </EmbeddedResource>
+    <EmbeddedResource Include="frmMain.fr.resx">
+      <DependentUpon>frmMain.vb</DependentUpon>
+      <SubType>Designer</SubType>
+    </EmbeddedResource>
+    <EmbeddedResource Include="frmMain.resx">
+      <DependentUpon>frmMain.vb</DependentUpon>
+      <SubType>Designer</SubType>
+    </EmbeddedResource>
     <EmbeddedResource Include="frmPrint.resx">
       <DependentUpon>frmPrint.vb</DependentUpon>
     </EmbeddedResource>
     <EmbeddedResource Include="frmProcessCapture.resx">
       <DependentUpon>frmProcessCapture.vb</DependentUpon>
     </EmbeddedResource>
-    <EmbeddedResource Include="frmResultSQL.resx">
-      <DependentUpon>frmResultSQL.vb</DependentUpon>
-    </EmbeddedResource>
     <EmbeddedResource Include="frmSettings.resx">
       <DependentUpon>frmSettings.vb</DependentUpon>
     </EmbeddedResource>
-    <EmbeddedResource Include="frmStart.resx">
-      <DependentUpon>frmStart.vb</DependentUpon>
-    </EmbeddedResource>
     <EmbeddedResource Include="frmConfig_Basic.resx">
       <DependentUpon>frmConfig_Basic.vb</DependentUpon>
     </EmbeddedResource>
-    <EmbeddedResource Include="frmProfileMatch.resx">
+    <EmbeddedResource Include="frmConfig_Basic.en.resx">
-      <DependentUpon>frmProfileMatch.vb</DependentUpon>
+      <DependentUpon>frmConfig_Basic.vb</DependentUpon>
     </EmbeddedResource>
-    <EmbeddedResource Include="frmResultDoc.resx">
+    <EmbeddedResource Include="frmConfig_Basic.fr.resx">
-      <DependentUpon>frmResultDoc.vb</DependentUpon>
+      <DependentUpon>frmConfig_Basic.vb</DependentUpon>
     </EmbeddedResource>
     <EmbeddedResource Include="frmSplash.resx">
       <DependentUpon>frmSplash.vb</DependentUpon>
     </EmbeddedResource>
-    <EmbeddedResource Include="frmTreeView.resx">
-      <DependentUpon>frmTreeView.vb</DependentUpon>
-    </EmbeddedResource>
     <EmbeddedResource Include="My Project\licenses.licx" />
     <EmbeddedResource Include="My Project\Resources.resx">
       <Generator>VbMyResourcesResXFileCodeGenerator</Generator>
@@ -371,8 +408,27 @@
       <CustomToolNamespace>My.Resources</CustomToolNamespace>
       <SubType>Designer</SubType>
     </EmbeddedResource>
+    <EmbeddedResource Include="Strings\frmMain_Strings.fr.resx">
+      <Generator>ResXFileCodeGenerator</Generator>
+      <LastGenOutput>frmMain_Strings.fr.Designer.vb</LastGenOutput>
+      <CustomToolNamespace>My.Resources</CustomToolNamespace>
+      <SubType>Designer</SubType>
+    </EmbeddedResource>
+    <EmbeddedResource Include="Strings\frmMain_Strings.en.resx">
+      <Generator>ResXFileCodeGenerator</Generator>
+      <LastGenOutput>frmMain_Strings.en.Designer.vb</LastGenOutput>
+      <CustomToolNamespace>My.Resources</CustomToolNamespace>
+      <SubType>Designer</SubType>
+    </EmbeddedResource>
+    <EmbeddedResource Include="Strings\frmMain_Strings.resx">
+      <CustomToolNamespace>My.Resources</CustomToolNamespace>
+      <Generator>ResXFileCodeGenerator</Generator>
+      <LastGenOutput>frmMain_Strings.Designer.vb</LastGenOutput>
+      <SubType>Designer</SubType>
+    </EmbeddedResource>
   </ItemGroup>
   <ItemGroup>
+    <None Include="My Project\app.manifest" />
     <None Include="My Project\Application.myapp">
       <Generator>MyApplicationCodeGenerator</Generator>
       <LastGenOutput>Application.Designer.vb</LastGenOutput>
@@ -391,7 +447,7 @@
     <None Include="MyDataset.xsd">
       <SubType>Designer</SubType>
       <Generator>MSDataSetGenerator</Generator>
-      <LastGenOutput>MyDataset.Designer.vb</LastGenOutput>
+      <LastGenOutput>MyDataset1.Designer.vb</LastGenOutput>
     </None>
     <None Include="MyDataset.xss">
       <DependentUpon>MyDataset.xsd</DependentUpon>
@@ -415,8 +471,18 @@
     <None Include="Resources\Annotation_New.png" />
   </ItemGroup>
   <ItemGroup>
+    <Content Include="DD_easyFLOW_ICON.ico" />
     <Content Include="DD_Icons_ICO_CBWATCHER_48px.ico" />
     <Content Include="KeyOutput_8167.ico" />
+    <Content Include="MailLicense.xml">
+      <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
+    </Content>
+    <None Include="Resources\DD_easyFLOW_BOOT.png" />
+    <Content Include="search.ico" />
+    <None Include="Resources\search1.png" />
+    <None Include="Resources\searchFlow_icon.png" />
+    <None Include="Resources\searchFlow_boot.png" />
+    <None Include="Resources\server_Local_16xLG.png" />
     <None Include="Resources\PrepareProcess.png" />
     <None Include="Resources\base_cog_32.png" />
     <None Include="Resources\Editdatasetwithdesigner_8449.png" />
@@ -461,7 +527,26 @@
   <ItemGroup>
     <WCFMetadata Include="Connected Services\" />
   </ItemGroup>
+  <ItemGroup>
+    <BootstrapperPackage Include=".NETFramework,Version=v4.6.1">
+      <Visible>False</Visible>
+      <ProductName>Microsoft .NET Framework 4.6.1 %28x86 und x64%29</ProductName>
+      <Install>true</Install>
+    </BootstrapperPackage>
+    <BootstrapperPackage Include="Microsoft.Net.Framework.3.5.SP1">
+      <Visible>False</Visible>
+      <ProductName>.NET Framework 3.5 SP1</ProductName>
+      <Install>false</Install>
+    </BootstrapperPackage>
+  </ItemGroup>
   <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
+  <Import Project="..\packages\GdPicture.runtimes.windows.14.2.90\build\net462\GdPicture.runtimes.windows.targets" Condition="Exists('..\packages\GdPicture.runtimes.windows.14.2.90\build\net462\GdPicture.runtimes.windows.targets')" />
+  <Target Name="EnsureNuGetPackageBuildImports" BeforeTargets="PrepareForBuild">
+    <PropertyGroup>
+      <ErrorText>Dieses Projekt verweist auf mindestens ein NuGet-Paket, das auf diesem Computer fehlt. Verwenden Sie die Wiederherstellung von NuGet-Paketen, um die fehlenden Dateien herunterzuladen. Weitere Informationen finden Sie unter "http://go.microsoft.com/fwlink/?LinkID=322105". Die fehlende Datei ist "{0}".</ErrorText>
+    </PropertyGroup>
+    <Error Condition="!Exists('..\packages\GdPicture.runtimes.windows.14.2.90\build\net462\GdPicture.runtimes.windows.targets')" Text="$([System.String]::Format('$(ErrorText)', '..\packages\GdPicture.runtimes.windows.14.2.90\build\net462\GdPicture.runtimes.windows.targets'))" />
+  </Target>
   <!-- To modify your build process, add your task inside one of the targets below and uncomment it. 
        Other similar extension points exist, see Microsoft.Common.targets.
   <Target Name="BeforeBuild">

app/DD_Clipboard_Searcher/frmAdministration.vb

@@ -1,9 +1,16 @@
-Imports DD_LIB_Standards
+Imports System.Text.RegularExpressions
+Imports DevExpress.XtraGrid.Views.Grid
+Imports DevExpress.XtraGrid.Views.Grid.ViewInfo
+Imports DigitalData.Modules.Base
+Imports DigitalData.Modules.Database
+Imports DigitalData.Modules.Language
 Public Class frmAdministration
-    Private SelectedProcessName As String
+    Private _SelectedProcessName As String
+    Private _DragDrop As ClassDragDrop
 
     Private Const MAX_DATA_SEARCHES = 5
     Private Const MAX_DOC_SEARCHES = 5
+    Private _DataASorDB As ClassDataASorDB
 
     Class ProfileType
         Public Name As String
@@ -14,10 +21,57 @@ Public Class frmAdministration
         End Function
     End Class
 
+    Public Sub New()
+        MyBase.New()
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+    End Sub
+
+    Public Class SQLPlaceholder
+        Public Property Name
+        Public Property Value
+
+        Public Sub New(Name As String, Value As String)
+            Me.Name = Name
+            Me.Value = Value
+        End Sub
+
+        Public Overrides Function ToString() As String
+            Return Name
+        End Function
+    End Class
+
+    Private Function GetPlaceholders() As List(Of SQLPlaceholder)
+        Return New List(Of SQLPlaceholder) From {
+            New SQLPlaceholder("Zwischenablage", "@Clipboard"),
+            New SQLPlaceholder("Benutzer-Vorname", "{#USER#PRENAME}"),
+            New SQLPlaceholder("Benutzer-Nachname", "{#USER#SURNAME}"),
+            New SQLPlaceholder("Benutzer-Email", "{#USER#EMAIL}"),
+            New SQLPlaceholder("Benutzer-Kurzname", "{#USER#SHORTNAME}"),
+            New SQLPlaceholder("Benutzer-Id", "{#USER#USER_ID}"),
+            New SQLPlaceholder("Benutzer-Name", "{#INT#USERNAME}"),
+            New SQLPlaceholder("Computer-Name", "{#INT#MACHINE}"),
+            New SQLPlaceholder("Computer-Domäne", "{#INT#DOMAIN}"),
+            New SQLPlaceholder("Aktuelles Datum", "{#INT#DATE}")
+        }
+    End Function
+
     Private Sub frmAdministration_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        _DataASorDB = New ClassDataASorDB(modCurrent.LogConfig)
+        ' Select first tab to prevent profile textbox from being empty
+        XtraTabControl3.SelectedTabPageIndex = 0
+
+        _DragDrop = New ClassDragDrop()
+        _DragDrop.AddGridView(GridViewGroupInProfile)
+        _DragDrop.AddGridView(GridViewGroupNotInProfile)
+        _DragDrop.AddGridView(GridViewUserInProfile)
+        _DragDrop.AddGridView(GridViewUserNotInProfile)
+
         Load_Profiles()
         Load_ProfileTypes()
+        Load_SearchPositions()
         Load_Connections()
+        Load_Placeholders()
     End Sub
 
     Private Sub TBCW_PROFILESBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs)
@@ -25,7 +79,7 @@ Public Class frmAdministration
         ClassInit.Refresh_Profile_Links()
         TableAdapterManager.UpdateAll(MyDataset)
     End Sub
-    Sub Load_Profiles()
+    Private Sub Load_Profiles()
         Try
             TBCW_PROFILESTableAdapter.Connection.ConnectionString = MyConnectionString
             TBCW_PROFILESTableAdapter.Fill(Me.MyDataset.TBCW_PROFILES)
@@ -34,7 +88,23 @@ Public Class frmAdministration
         End Try
     End Sub
 
-    Sub Load_ProfileTypes()
+    Private Sub Load_SearchPositions()
+        Dim oTypeNames As New Dictionary(Of Integer, String) From {
+            {ClassConstants.SEARCH_POSITION_PRIMARY, "Haupttabelle"},
+            {ClassConstants.SEARCH_POSITION_SECONDARY, "Erste Detailtabelle"},
+            {ClassConstants.SEARCH_POSITION_TERTIARY, "Zweite Detailtabelle"}
+        }
+
+        MyDataset.TBWH_SEARCH_POSITION.Rows.Clear()
+        For Each oTypeName As KeyValuePair(Of Integer, String) In oTypeNames
+            Dim oRow = MyDataset.TBWH_SEARCH_POSITION.NewTBWH_SEARCH_POSITIONRow()
+            oRow.POSITION_INDEX = oTypeName.Key
+            oRow.POSITION_NAME = oTypeName.Value
+            MyDataset.TBWH_SEARCH_POSITION.Rows.Add(oRow)
+        Next
+    End Sub
+
+    Private Sub Load_ProfileTypes()
         Dim oTypeNames As New Dictionary(Of Integer, String) From {
             {ClassConstants.PROFILE_TYPE_DATA_DOCS, "Dokumente und Daten"},
             {ClassConstants.PROFILE_TYPE_DOCS_ONLY, "Nur Dokumente"},
@@ -50,6 +120,17 @@ Public Class frmAdministration
         Next
     End Sub
 
+    Private Sub Load_Placeholders()
+        ComboBoxEdit3.Properties.Items.Clear()
+        ComboBoxEdit4.Properties.Items.Clear()
+        ComboBoxEdit5.Properties.Items.Clear()
+        ComboBoxEdit6.Properties.Items.Clear()
+        ComboBoxEdit3.Properties.Items.AddRange(GetPlaceholders())
+        ComboBoxEdit4.Properties.Items.AddRange(GetPlaceholders())
+        ComboBoxEdit5.Properties.Items.AddRange(GetPlaceholders())
+        ComboBoxEdit6.Properties.Items.AddRange(GetPlaceholders())
+    End Sub
+
     Public Sub Load_Connections()
         Try
             TBDD_CONNECTIONTableAdapter.Connection.ConnectionString = MyConnectionString
@@ -71,7 +152,8 @@ Public Class frmAdministration
                 Status_Changed("Keine Änderung")
             End If
         Catch ex As Exception
-            MsgBox("Unexpected Error in Save Profile: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
+            Logger.Error(ex)
+            'MsgBox("Unerwarteter Fehler beim Speichern des Profils: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, Text)
         End Try
     End Sub
 
@@ -86,11 +168,11 @@ Public Class frmAdministration
         MyDataset.TBCW_PROFILES.REGEX_EXPRESSIONColumn.DefaultValue = ".+"
         MyDataset.TBCW_PROFILES.ACTIVEColumn.DefaultValue = True
 
-        XtraTabControl3.SelectedTabPage = TabPageGeneralSettings
+        XtraTabControl3.SelectedTabPage = TabPageProfileManagement
+        XtraTabControl1.SelectedTabPage = TabPageGeneralSettings
     End Sub
 
     Private Sub GUIDTextBox_TextChanged(sender As Object, e As EventArgs) Handles PROFILE_IDTextBox.TextChanged
-
         If PROFILE_IDTextBox.Text <> "" Then
             If CtrlApplicationAssignment1.AssignProfileID(PROFILE_IDTextBox.Text) = False Then
                 MsgBox("Unexpected Error while assigning ProfileID!", MsgBoxStyle.Critical)
@@ -102,20 +184,20 @@ Public Class frmAdministration
             Refresh_Free_Groups(PROFILE_IDTextBox.Text)
 
             Load_Profile_Process()
-            If LogConfig.Debug = True Then
-                labelSelection.Caption = CtrlApplicationAssignment1.AppSelectionString
-                labelSelection.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
-            Else
-                labelSelection.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
         End If
-
-        End If
-
     End Sub
+
     Sub Refresh_ProfileData()
         Try
-            VWUSER_PROFILETableAdapter.Connection.ConnectionString = MyConnectionString
+            Dim oSQL = $"SELECT GUID, USER_ID, USERNAME as Username, USER_SURNAME + ', ' + USER_PRENAME as Name FROM
-            VWUSER_PROFILETableAdapter.Fill(MyDataset.VWUSER_PROFILE, PROFILE_IDTextBox.Text)
+            VWCW_USER_PROFILE WHERE PROFIL_ID = {PROFILE_IDTextBox.Text}"
+            Dim oDT = MyDB_DDECM.GetDatatable(oSQL)
+            GridViewUserInProfile.Columns.Clear()
+            If Not IsNothing(oDT) Then
+                GridControlUserInProfile.DataSource = oDT
+                GridViewUserInProfile.Columns.Item("USER_ID").Visible = False
+                GridViewUserInProfile.Columns.Item("GUID").Visible = False
+            End If
 
             VWCW_GROUP_PROFILETableAdapter.Connection.ConnectionString = MyConnectionString
             VWCW_GROUP_PROFILETableAdapter.Fill(MyDataset.VWCW_GROUP_PROFILE, PROFILE_IDTextBox.Text)
@@ -150,7 +232,7 @@ Public Class frmAdministration
             For Each row As DataRow In MyDataset.TBWH_User.Rows
                 If row.Item(0) = CBool(True) Then
                     Dim insert = String.Format("INSERT INTO TBCW_USER_PROFILE (PROFILE_ID,USER_ID) VALUES ({0},{1})", PROFILE_IDTextBox.Text, row.Item(5))
-                    If Database.ExecuteNonQuery(insert) = False Then
+                    If MyDB_DDECM.ExecuteNonQuery(insert) = False Then
                         MsgBox("Could not insert the User-Definition....Check the logfile!", MsgBoxStyle.Exclamation)
                     End If
                 End If
@@ -172,7 +254,7 @@ Public Class frmAdministration
         Dim Sql = String.Format("SELECT DISTINCT * FROM VWDD_USER_MODULE_CW WHERE GUID NOT IN (SELECT USER_ID FROM TBCW_USER_PROFILE WHERE PROFILE_ID = {0}) ORDER BY USERNAME", PROFILE_ID)
 
 
-        Dim DT_USER = Database.GetDatatable(Sql)
+        Dim DT_USER = MyDB_DDECM.GetDatatable(Sql)
         Try
             MyDataset.TBWH_User.Clear()
 
@@ -188,7 +270,7 @@ Public Class frmAdministration
                     newUserRow.Email = ""
                 End Try
 
-                newUserRow.ID = row.Item("GUID")
+                newUserRow.GUID = row.Item("GUID")
                 MyDataset.TBWH_User.Rows.Add(newUserRow)
                 ' chklbxUserForGroup.Items.Add(New MyListBoxItem() With {.Text = row.Item(1), .ExtraData = row.Item(0)})
             Next
@@ -200,7 +282,7 @@ Public Class frmAdministration
 
     Sub Refresh_Free_Groups(PROFILE_ID As Integer)
         Dim Sql = String.Format("SELECT DISTINCT * FROM TBDD_GROUPS WHERE GUID NOT IN (SELECT GROUP_ID FROM TBCW_GROUP_PROFILE WHERE PROFILE_ID = {0}) ORDER BY NAME", PROFILE_ID)
-        Dim oDataTable = Database.GetDatatable(Sql)
+        Dim oDataTable = MyDB_DDECM.GetDatatable(Sql)
 
         Try
             MyDataset.TBWH_GROUP.Clear()
@@ -208,8 +290,8 @@ Public Class frmAdministration
             For Each row As DataRow In oDataTable.Rows
                 Dim oNewRow As MyDataset.TBWH_GROUPRow
                 oNewRow = MyDataset.TBWH_GROUP.NewTBWH_GROUPRow
-                oNewRow.NAME = row.Item("NAME")
+                oNewRow.Name = IIf(IsDBNull(row.Item("NAME")), "Null", row.Item("NAME"))
-                oNewRow.ID = row.Item("GUID")
+                oNewRow.GUID = row.Item("GUID")
                 MyDataset.TBWH_GROUP.Rows.Add(oNewRow)
             Next
         Catch ex As Exception
@@ -217,27 +299,6 @@ Public Class frmAdministration
         End Try
     End Sub
 
-    Private Sub btndeleteUserConstructorRel_Click(sender As Object, e As EventArgs)
-        Try
-            Dim ID = GridViewUserInProfile.GetFocusedRowCellValue(GridViewUserInProfile.Columns("GUID"))
-            Try
-                Dim I As Integer = CInt(ID)
-            Catch ex As Exception
-                Exit Sub
-            End Try
-            Dim del = String.Format("DELETE FROM TBCW_USER_PROFILE WHERE GUID = {0}", ID)
-            If Database.ExecuteNonQuery(del) = True Then
-                Refresh_ProfileData()
-                If PROFILE_IDTextBox.Text <> "" Then
-                    Refresh_Free_Users(PROFILE_IDTextBox.Text)
-                End If
-
-            End If
-        Catch ex As Exception
-            MsgBox("Unexpected Error in deleting ProfileUserRelation: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
-        End Try
-    End Sub
-
     Private Sub Load_Profile_Process()
         If IsNothing(PROFILE_IDTextBox.Text) Or PROFILE_IDTextBox.Text = "" Then
             Exit Sub
@@ -249,6 +310,8 @@ Public Class frmAdministration
     End Sub
 
     Private Sub frmAdministration_Shown(sender As Object, e As EventArgs) Handles Me.Shown
+        XtraTabControl1.SelectedTabPage = TabPageGeneralSettings
+
         If PROFILE_IDTextBox.Text = "" Then
             Refresh_Free_Users(0)
             Refresh_Free_Groups(0)
@@ -256,23 +319,29 @@ Public Class frmAdministration
     End Sub
 
     Private Sub TBCW_PROF_DATA_SEARCHBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBCW_PROF_DATA_SEARCHBindingSource.AddingNew
-
+        If PROFILE_IDTextBox.Text <> String.Empty Then
-
             MyDataset.TBCW_PROF_DATA_SEARCH.ADDED_WHOColumn.DefaultValue = Environment.UserName
             MyDataset.TBCW_PROF_DATA_SEARCH.PROFILE_IDColumn.DefaultValue = PROFILE_IDTextBox.Text
             MyDataset.TBCW_PROF_DATA_SEARCH.CONN_IDColumn.DefaultValue = 1
             MyDataset.TBCW_PROF_DATA_SEARCH.ACTIVEColumn.DefaultValue = True
 
             LayoutControlData.Enabled = True
+        Else
+            MsgBox("Es ist kein Profil ausgewählt! Bitte wählen Sie ein Profil aus der Liste links", MsgBoxStyle.Critical, Text)
+        End If
     End Sub
 
     Private Sub TBCW_PROF_DOC_SEARCHBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBCW_PROF_DOC_SEARCHBindingSource.AddingNew
+        If PROFILE_IDTextBox.Text <> String.Empty Then
             MyDataset.TBCW_PROF_DOC_SEARCH.ADDED_WHOColumn.DefaultValue = Environment.UserName
             MyDataset.TBCW_PROF_DOC_SEARCH.ACTIVEColumn.DefaultValue = True
             MyDataset.TBCW_PROF_DOC_SEARCH.PROFILE_IDColumn.DefaultValue = PROFILE_IDTextBox.Text
             MyDataset.TBCW_PROF_DOC_SEARCH.CONN_IDColumn.DefaultValue = 1
 
             LayoutControlDocs.Enabled = True
+        Else
+            MsgBox("Es ist kein Profil ausgewählt! Bitte wählen Sie ein Profil aus der Liste links", MsgBoxStyle.Critical, Text)
+        End If
     End Sub
 
     Private Sub ToolStripButton3_Click(sender As Object, e As EventArgs)
@@ -297,17 +366,19 @@ Public Class frmAdministration
     End Sub
 
     Private Sub BarButtonItem3_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem3.ItemClick
+        If ObjectEx.NotNull(txtProfileName.EditValue, String.Empty) <> String.Empty Then
             Save_Profile()
-        ClassInit.Refresh_Profile_Links()
+        Else
-        'TableAdapterManager.UpdateAll(MyDataset)
+            MsgBox("Profil kann nicht ohne Profil-Name gespeichert werden!", MsgBoxStyle.Exclamation, Text)
+        End If
     End Sub
 
     Private Sub BarButtonItem2_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem2.ItemClick
         Dim swl = String.Format("EXEC PRCW_DELETE_PROFILE {0}", PROFILE_IDTextBox.Text)
-        Dim result As MsgBoxResult = MsgBox("Sind Sie sicher, dass Sie das Profil löschen wollen?", MsgBoxStyle.YesNo, Text)
+        Dim result As MsgBoxResult = MsgBox("Sind Sie sicher, dass Sie das Profil löschen wollen?", MsgBoxStyle.YesNo Or MsgBoxStyle.Question, Text)
         ' wenn Speichern ja
         If result = MsgBoxResult.Yes Then
-            If Database.ExecuteNonQuery(swl) = True Then
+            If MyDB_DDECM.ExecuteNonQuery(swl) = True Then
                 Refresh_ProfileScreen()
             End If
         End If
@@ -318,9 +389,12 @@ Public Class frmAdministration
     End Sub
     Sub Refresh_ProfileScreen()
         Load_Profiles()
+
+        If PROFILE_IDTextBox.Text <> "" Then
             Refresh_ProfileData()
             Refresh_Free_Users(PROFILE_IDTextBox.Text)
             Refresh_Free_Groups(PROFILE_IDTextBox.Text)
+        End If
     End Sub
 
     Private Sub BarButtonItem5_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem5.ItemClick
@@ -337,18 +411,38 @@ Public Class frmAdministration
         End If
 
         If CtrlApplicationAssignment1.Process_DeleteAssignment() = False Then
-            MsgBox("Error while deleting assignment of process!", MsgBoxStyle.Critical, "Clipboard Watcher")
+            MsgBox("Error while deleting assignment of process!", MsgBoxStyle.Critical, AppTitle)
         End If
 
         Status_Changed("Prozesszuordnung gelöscht")
     End Sub
 
     Private Sub BarButtonItem7_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem7.ItemClick
+        Dim oProcesses As Integer = CtrlApplicationAssignment1.ProcessTable.Select($"PROFILE_ID = {PROFILE_IDTextBox.Text}").Length
+
+        If oProcesses > 0 Then
             If CtrlApplicationAssignment1.Window_CreateAssignment(PROFILE_IDTextBox.Text) = False Then
-            MsgBox("Error while assigning window!", MsgBoxStyle.Critical, "Clipboard Watcher")
+                MsgBox("Error while assigning window!", MsgBoxStyle.Critical, Text)
             Else
                 Status_Changed("Fenster zugeordnet")
             End If
+        Else
+            MsgBox($"Es wurden diesem Profi noch keine Prozesse zugeordnet!{vbNewLine}{vbNewLine}Bitte weisen Sie zuerst mind. einen Prozess zu, bevor Sie ein Fenster zuordnen.", MsgBoxStyle.Exclamation, Text)
+        End If
+    End Sub
+
+    Private Sub BarButtonItem23_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem23.ItemClick
+        Dim oWindows As Integer = CtrlApplicationAssignment1.WindowTable.Select($"PROCESS_ID = {CtrlApplicationAssignment1.SelectedProcessId}").Length
+
+        If oWindows > 0 Then
+            If CtrlApplicationAssignment1.Control_CreateAssignment() = False Then
+                MsgBox("Error while creating control", MsgBoxStyle.Critical, Text)
+            Else
+                Status_Changed("Feld-Zuordnung angelegt")
+            End If
+        Else
+            MsgBox($"Es wurden diesem Profi noch keine Prozesse/Fenster zugeordnet!{vbNewLine}{vbNewLine}Bitte weisen Sie zuerst mind. einen Prozess und mind. ein Fenster zu, bevor Sie ein Felder zuordnen.", MsgBoxStyle.Exclamation, Text)
+        End If
     End Sub
 
     Private Sub BarButtonItem8_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem8.ItemClick
@@ -357,130 +451,18 @@ Public Class frmAdministration
         End If
 
         If CtrlApplicationAssignment1.Window_DeleteAssignment() = False Then
-            MsgBox("Error while deleting assignment of window!", MsgBoxStyle.Critical, "Clipboard Watcher")
+            MsgBox("Error while deleting assignment of window!", MsgBoxStyle.Critical, AppTitle)
         End If
 
         Status_Changed("Fensterzuordnung gelöscht")
     End Sub
 
-    Private Sub BarButtonItem11_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem11.ItemClick
+    Private Sub XtraTabControl1_SelectedPageChanged(sender As Object, e As DevExpress.XtraTab.TabPageChangedEventArgs) Handles XtraTabControl1.SelectedPageChanged, XtraTabControl2.SelectedPageChanged
-        Try
-            If PROFILE_IDTextBox.Text = String.Empty Then
-                Exit Sub
-            End If
-
-            Dim oSelectedRows = GridViewUserNotInProfile.GetSelectedRows()
-
-            For Each oRowHandle As Integer In oSelectedRows
-                Dim oRow As DataRow = GridViewUserNotInProfile.GetDataRow(oRowHandle)
-                Dim oGuid As Integer = oRow.Item("ID")
-                Dim insert = String.Format("INSERT INTO TBCW_USER_PROFILE (PROFILE_ID,USER_ID) VALUES ({0},{1})", PROFILE_IDTextBox.Text, oGuid)
-                If Database.ExecuteNonQuery(insert) = False Then
-                    MsgBox("Error while adding user!", MsgBoxStyle.Exclamation)
-                End If
-            Next
-
-            Refresh_Free_Users(PROFILE_IDTextBox.Text)
-            Refresh_ProfileData()
-
-            GridViewUserNotInProfile.ClearSelection()
-
-            Status_Changed($"{oSelectedRows.Count} Benutzer zugeordnet")
-        Catch ex As Exception
-            Logger.Error(ex)
-            MsgBox("Unexpected Error while adding user-rights: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
-        End Try
-    End Sub
-
-    Private Sub BarButtonItem12_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem12.ItemClick
-        Try
-            If PROFILE_IDTextBox.Text = String.Empty Then
-                Exit Sub
-            End If
-
-            Dim oSelectedRows = GridViewUserInProfile.GetSelectedRows()
-
-            For Each oRowHandle As Integer In oSelectedRows
-                Dim oRow As DataRow = GridViewUserInProfile.GetDataRow(oRowHandle)
-                Dim oGuid As Integer = oRow.Item("GUID")
-                Dim del = String.Format("DELETE FROM TBCW_USER_PROFILE WHERE GUID = {0}", oGuid)
-                If Database.ExecuteNonQuery(del) = False Then
-                    MsgBox("Error while adding user!", MsgBoxStyle.Exclamation)
-                End If
-            Next
-
-            Refresh_Free_Users(PROFILE_IDTextBox.Text)
-            Refresh_ProfileData()
-
-            GridViewUserInProfile.ClearSelection()
-
-            Status_Changed($"{oSelectedRows.Count} Benutzerzuordnungen gelöscht")
-        Catch ex As Exception
-            Logger.Error(ex)
-            MsgBox("Unexpected Error in deleting ProfileUserRelation: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
-        End Try
-    End Sub
-
-    Private Sub BarButtonItem13_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem13.ItemClick
-        Try
-            Dim oSelectedGroups = GridViewGroupNotInProfile.GetSelectedRows()
-
-            For Each oRowHandle In oSelectedGroups
-                Dim oRow As MyDataset.TBWH_GROUPRow = DirectCast(GridViewGroupNotInProfile.GetRow(oRowHandle), DataRowView).Row
-                Dim oGroupId As Integer = oRow.ID
-                Dim oSQL As String = $"INSERT INTO TBCW_GROUP_PROFILE (PROFILE_ID,GROUP_ID) VALUES ({PROFILE_IDTextBox.Text},{oGroupId})"
-
-                If Database.ExecuteNonQuery(oSQL) = False Then
-                    MsgBox("Could not insert the Group-Definition....Check the logfile!", MsgBoxStyle.Exclamation)
-                End If
-            Next
-
-            GridViewGroupNotInProfile.ClearSelection()
-
-            Refresh_Free_Groups(PROFILE_IDTextBox.Text)
-            Refresh_ProfileData()
-
-            Status_Changed($"{oSelectedGroups.Count} Gruppen zugeordnet")
-        Catch ex As Exception
-            MsgBox("Unexpected Error while adding Group-Rights: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
-        End Try
-    End Sub
-
-    Private Sub BarButtonItem14_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem14.ItemClick
-        Try
-            Dim oSelectedGroups = GridViewGroupInProfile.GetSelectedRows()
-
-            For Each oRowHandle In oSelectedGroups
-                Dim oRow As MyDataset.VWCW_GROUP_PROFILERow = DirectCast(GridViewGroupInProfile.GetRow(oRowHandle), DataRowView).Row
-                Dim oGroupId As Integer = oRow.GUID
-                Dim oSQL As String = $"DELETE FROM TBCW_GROUP_PROFILE WHERE GUID = ({oGroupId})"
-
-                If Database.ExecuteNonQuery(oSQL) = False Then
-                    MsgBox("Could not delete the Group-Definition....Check the logfile!", MsgBoxStyle.Exclamation)
-                End If
-            Next
-
-            GridViewGroupInProfile.ClearSelection()
-
-            Refresh_Free_Groups(PROFILE_IDTextBox.Text)
-            Refresh_ProfileData()
-
-            Status_Changed($"{oSelectedGroups.Count} Gruppenzuordnungen gelöscht")
-        Catch ex As Exception
-            MsgBox("Unexpected Error in deleting Group-Rights: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
-        End Try
-    End Sub
-
-    Private Sub XtraTabControl3_SelectedPageChanged(sender As Object, e As DevExpress.XtraTab.TabPageChangedEventArgs) Handles XtraTabControl3.SelectedPageChanged
         Dim oTabName As String = e.Page.Name
-
         Try
             Select Case oTabName
                 Case TabPageProcessAssignment.Name
-                    'CtrlApplicationAssignment1.Process_Load(PROFILE_IDTextBox.Text)
                     RibbonGroup_Profile.Enabled = False
-                    RibbonGroup_User.Enabled = False
-                    RibbonGroup_Group.Enabled = False
 
                     RibbonGroup_Process.Enabled = True
                     RibbonGroup_Window.Enabled = True
@@ -491,8 +473,6 @@ Public Class frmAdministration
 
                 Case TabPageUserAssignment.Name
                     RibbonGroup_Profile.Enabled = False
-                    RibbonGroup_User.Enabled = True
-                    RibbonGroup_Group.Enabled = False
 
                     RibbonGroup_Process.Enabled = False
                     RibbonGroup_Window.Enabled = False
@@ -503,8 +483,6 @@ Public Class frmAdministration
 
                 Case TabPageGroupAssignment.Name
                     RibbonGroup_Profile.Enabled = False
-                    RibbonGroup_User.Enabled = False
-                    RibbonGroup_Group.Enabled = True
 
                     RibbonGroup_Process.Enabled = False
                     RibbonGroup_Window.Enabled = False
@@ -515,8 +493,6 @@ Public Class frmAdministration
 
                 Case TabPageData.Name
                     RibbonGroup_Profile.Enabled = False
-                    RibbonGroup_User.Enabled = False
-                    RibbonGroup_Group.Enabled = False
 
                     RibbonGroup_Process.Enabled = False
                     RibbonGroup_Window.Enabled = False
@@ -527,8 +503,6 @@ Public Class frmAdministration
 
                 Case TabPageDocuments.Name
                     RibbonGroup_Profile.Enabled = False
-                    RibbonGroup_User.Enabled = False
-                    RibbonGroup_Group.Enabled = False
 
                     RibbonGroup_Process.Enabled = False
                     RibbonGroup_Window.Enabled = False
@@ -539,8 +513,6 @@ Public Class frmAdministration
 
                 Case Else
                     RibbonGroup_Profile.Enabled = True
-                    RibbonGroup_User.Enabled = False
-                    RibbonGroup_Group.Enabled = False
 
                     RibbonGroup_Process.Enabled = False
                     RibbonGroup_Window.Enabled = False
@@ -554,11 +526,6 @@ Public Class frmAdministration
         End Try
     End Sub
 
-    Private Sub BarButtonItem16_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem16.ItemClick
-        Dim oForm As New frmConnection()
-        oForm.ShowDialog()
-    End Sub
-
     Private Sub BarButtonItem9_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem9.ItemClick
         If CtrlApplicationAssignment1.Window_SaveAssignment() = False Then
             MsgBox("Error while saving window", MsgBoxStyle.Critical, Text)
@@ -567,11 +534,6 @@ Public Class frmAdministration
         End If
     End Sub
 
-    Private Sub BarButtonItem17_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem17.ItemClick
-        Dim oform As New frmLicenseInfo()
-        oform.ShowDialog()
-    End Sub
-
     Private Sub BarButtonItem15_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem15.ItemClick
         If TBCW_PROF_DOC_SEARCHBindingSource.Count = MAX_DOC_SEARCHES Then
             MsgBox($"Es können nicht mehr als {MAX_DOC_SEARCHES} Dokument-Suchen angelegt werden!", MsgBoxStyle.Exclamation, Text)
@@ -594,7 +556,7 @@ Public Class frmAdministration
         End If
     End Sub
 
-    Private Sub BarButtonItem22_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem22.ItemClick
+    Private Sub Save_DataSearch()
         Try
             TBCW_PROF_DATA_SEARCHBindingSource.EndEdit()
             If Not IsNothing(MyDataset.TBCW_PROF_DATA_SEARCH.GetChanges) Then
@@ -604,20 +566,31 @@ Public Class frmAdministration
                 TBCW_PROF_DATA_SEARCHTableAdapter.Fill(MyDataset.TBCW_PROF_DATA_SEARCH, PROFILE_IDTextBox.Text)
                 Status_Changed("Daten-Suche gespeichert")
             End If
-        Catch ex As NoNullAllowedException
-            MsgBox("Ein oder mehrere Felder wurden nicht ausgefüllt:" & vbNewLine & ex.Message, MsgBoxStyle.Exclamation, Text)
         Catch ex As Exception
-            MsgBox("Unexpected Error while saving Data Search: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
+            Logger.Error(ex)
+            MsgBox("Unexpected Error while saving Data Search: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, Text)
         End Try
     End Sub
 
+    Private Sub BarButtonItem22_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem22.ItemClick
+        If txtDataSearchName.EditValue <> String.Empty Then
+            Save_DataSearch()
+        Else
+            MsgBox("Daten-Suche kann nicht ohne Titel gespeichert werden!", MsgBoxStyle.Exclamation, Text)
+        End If
+    End Sub
+
     Private Sub BarButtonItem20_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem20.ItemClick
+        Try
             If TBCW_PROF_DATA_SEARCHBindingSource.Count = MAX_DATA_SEARCHES Then
                 MsgBox($"Es können nicht mehr als {MAX_DATA_SEARCHES} Daten-Suchen angelegt werden!", MsgBoxStyle.Exclamation, Text)
                 Exit Sub
             End If
 
             TBCW_PROF_DATA_SEARCHBindingSource.AddNew()
+        Catch ex As Exception
+            MsgBox("Unexpected Error while creating DataSearch: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, Text)
+        End Try
     End Sub
 
     Private Sub BarButtonItem18_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem18.ItemClick
@@ -629,7 +602,7 @@ Public Class frmAdministration
         End If
     End Sub
 
-    Private Sub BarButtonItem19_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem19.ItemClick
+    Private Sub Save_DocSearch()
         Try
             TBCW_PROF_DOC_SEARCHBindingSource.EndEdit()
             If Not IsNothing(MyDataset.TBCW_PROF_DOC_SEARCH.GetChanges) Then
@@ -639,27 +612,30 @@ Public Class frmAdministration
                 TBCW_PROF_DOC_SEARCHTableAdapter.Fill(MyDataset.TBCW_PROF_DOC_SEARCH, PROFILE_IDTextBox.Text)
                 Status_Changed("Dokument-Suche gespeichert")
             End If
-        Catch ex As NoNullAllowedException
-            MsgBox("Ein oder mehrere Felder wurden nicht ausgefüllt:" & vbNewLine & ex.Message, MsgBoxStyle.Exclamation, Text)
         Catch ex As Exception
             MsgBox("Unexpected Error while saving Document Search: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
+            Logger.Error(ex)
         End Try
     End Sub
 
-    Private Sub frmAdministration_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
+    Private Sub BarButtonItem19_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem19.ItemClick
-        ClassInit.Refresh_Connections()
+        If txtDocSearchName.EditValue <> String.Empty Then
-        ClassInit.Refresh_Profile_Links()
+            Save_DocSearch()
-    End Sub
-
-    Private Sub BarButtonItem23_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem23.ItemClick
-        If CtrlApplicationAssignment1.Control_CreateAssignment() = False Then
-            MsgBox("Error while creating control", MsgBoxStyle.Critical, Text)
         Else
-            Status_Changed("Feld-Zuordnung angelegt")
+            MsgBox("Dokument-Suche kann nicht ohne Titel gespeichert werden!", MsgBoxStyle.Exclamation, Text)
         End If
     End Sub
 
+    Private Sub frmAdministration_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
+        _DataASorDB.Refresh_Connections()
+        ClassInit.Refresh_Profile_Links()
+    End Sub
+
     Private Sub BarButtonItem24_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem24.ItemClick
+        If CtrlApplicationAssignment1.SelectedControlId = 0 Then
+            Exit Sub
+        End If
+
         If MsgBox($"Wollen Sie die Feld-Zuordnung löschen?", MsgBoxStyle.Exclamation Or MsgBoxStyle.YesNo, Text) = MsgBoxResult.No Then
             Exit Sub
         End If
@@ -672,6 +648,10 @@ Public Class frmAdministration
     End Sub
 
     Private Sub BarButtonItem25_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem25.ItemClick
+        If CtrlApplicationAssignment1.SelectedControlId = 0 Then
+            Exit Sub
+        End If
+
         If CtrlApplicationAssignment1.Control_SaveAssignment() = False Then
             MsgBox("Error while saving control", MsgBoxStyle.Critical, Text)
         Else
@@ -680,6 +660,10 @@ Public Class frmAdministration
     End Sub
 
     Private Sub BarButtonItem27_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem27.ItemClick
+        If CtrlApplicationAssignment1.SelectedControlId = 0 Then
+            Exit Sub
+        End If
+
         If CtrlApplicationAssignment1.Control_EditAssignment() = False Then
             MsgBox("Error while saving control", MsgBoxStyle.Critical, Text)
         Else
@@ -690,11 +674,332 @@ Public Class frmAdministration
     Private Sub BarButtonItem26_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem26.ItemClick
         Dim oSQL As String = $"EXEC PRCW_COPY_PROFILE {PROFILE_IDTextBox.Text}, '{USER_USERNAME}'"
 
-        If Database.ExecuteNonQuery(oSQL) = False Then
+        If MyDB_DDECM.ExecuteNonQuery(oSQL) = False Then
-            MsgBox("Could not duplicate the profile...Check the logfile!", MsgBoxStyle.Exclamation)
+            MsgBox("Profil konnte nicht kopiert werden! Mehr Informationen im Log.", MsgBoxStyle.Exclamation, Text)
         Else
             Refresh_ProfileScreen()
-            MsgBox("Profile has been duplicated. Please check the dependencies!", MsgBoxStyle.Information)
+            MsgBox("Profil kopiert! Bitte die Abhängigkeiten überprüfen!", MsgBoxStyle.Information, Text)
         End If
     End Sub
+
+    Private Sub BarButtonItem16_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem16.ItemClick
+        Dim oForm As New frmConnection()
+        oForm.ShowDialog()
+    End Sub
+
+    Private Sub BarButtonItem17_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem17.ItemClick
+
+    End Sub
+
+    Private Sub BarButtonItem28_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem28.ItemClick
+        Dim oForm As New frmConnection()
+        oForm.ShowDialog()
+    End Sub
+
+    Private Sub BarButtonItem29_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem29.ItemClick
+        Dim oform As New frmLicenseInfo()
+        oform.ShowDialog()
+    End Sub
+
+    Private Sub frmAdministration_KeyUp(sender As Object, e As KeyEventArgs) Handles Me.KeyUp
+        If e.KeyCode = Keys.F12 And USER_IS_ADMIN = True Then
+            frmLicense.ShowDialog()
+        End If
+    End Sub
+
+    Private Sub SimpleButton1_Click(sender As Object, e As EventArgs) Handles SimpleButton1.Click
+        If txtRegexTestString.Text.Count = 0 Then
+            MsgBox("Bitte füllen Sie den Regular Expression Test aus!", MsgBoxStyle.Exclamation, Text)
+            Exit Sub
+        End If
+
+        If textEdit5.Text.Count = 0 Then
+            MsgBox("Bitte füllen Sie die Regular Expression aus!", MsgBoxStyle.Exclamation, Text)
+            Exit Sub
+        End If
+
+        Dim oRegex As String = textEdit5.Text
+        Dim oTestString As String = txtRegexTestString.Text
+
+        If Regex.IsMatch(oTestString, oRegex) Then
+            MsgBox("Der Test war erfolgreich!", MsgBoxStyle.Information, Text)
+        Else
+            MsgBox("Der Test war NICHT erfolgreich!", MsgBoxStyle.Information, Text)
+        End If
+
+    End Sub
+
+
+    Private Sub GridControlGroupNotInProfile_DragDrop(sender As Object, e As DragEventArgs) Handles GridControlGroupNotInProfile.DragDrop
+        Try
+            Dim oSelectedGroups = GridViewGroupInProfile.GetSelectedRows()
+
+            For Each oRowHandle In oSelectedGroups
+                Dim oRow As MyDataset.VWCW_GROUP_PROFILERow = DirectCast(GridViewGroupInProfile.GetRow(oRowHandle), DataRowView).Row
+                Dim oProfileId As Integer = oRow.PROFIL_ID
+                Dim oGroupId As Integer = oRow.GROUP_ID
+                Dim oSQL As String = $"DELETE FROM TBCW_GROUP_PROFILE WHERE PROFILE_ID = {oProfileId} AND GROUP_ID = {oGroupId}"
+
+                If MyDB_DDECM.ExecuteNonQuery(oSQL) = False Then
+                    MsgBox("Could not delete the Group-Definition....Check the logfile!", MsgBoxStyle.Exclamation)
+                End If
+            Next
+
+            GridViewGroupInProfile.ClearSelection()
+
+            Refresh_Free_Groups(PROFILE_IDTextBox.Text)
+            Refresh_ProfileData()
+
+            Status_Changed($"{oSelectedGroups.Count} Gruppenzuordnungen gelöscht")
+        Catch ex As Exception
+            MsgBox("Unexpected Error in deleting Group-Rights: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
+        End Try
+    End Sub
+
+    Private Sub GridControlGroupInProfile_DragDrop(sender As Object, e As DragEventArgs) Handles GridControlGroupInProfile.DragDrop
+        Try
+            Dim oSelectedGroups = GridViewGroupNotInProfile.GetSelectedRows()
+
+            For Each oRowHandle In oSelectedGroups
+                Dim oRow As MyDataset.TBWH_GROUPRow = DirectCast(GridViewGroupNotInProfile.GetRow(oRowHandle), DataRowView).Row
+                Dim oGroupId As Integer = oRow.GUID
+                Dim oSQL As String = $"INSERT INTO TBCW_GROUP_PROFILE (PROFILE_ID,GROUP_ID) VALUES ({PROFILE_IDTextBox.Text},{oGroupId})"
+
+                If MyDB_DDECM.ExecuteNonQuery(oSQL) = False Then
+                    MsgBox("Could not insert the Group-Definition....Check the logfile!", MsgBoxStyle.Exclamation)
+                End If
+            Next
+
+            GridViewGroupNotInProfile.ClearSelection()
+
+            Refresh_Free_Groups(PROFILE_IDTextBox.Text)
+            Refresh_ProfileData()
+
+            Status_Changed($"{oSelectedGroups.Count} Gruppen zugeordnet")
+        Catch ex As Exception
+            MsgBox("Unexpected Error while adding Group-Rights: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
+        End Try
+    End Sub
+
+    Private Sub SimpleButton2_Click(sender As Object, e As EventArgs) Handles SimpleButton2.Click
+        If ComboBoxEdit3.SelectedIndex > -1 Then
+            Dim oItem As SQLPlaceholder = ComboBoxEdit3.SelectedItem
+            MemoEdit5.Text &= oItem.Value
+        End If
+    End Sub
+
+    Private Sub SimpleButton3_Click(sender As Object, e As EventArgs) Handles SimpleButton3.Click
+        If ComboBoxEdit4.SelectedIndex > -1 Then
+            Dim oItem As SQLPlaceholder = ComboBoxEdit4.SelectedItem
+            MemoEdit6.Text &= oItem.Value
+        End If
+    End Sub
+
+    Private Sub SimpleButton4_Click(sender As Object, e As EventArgs) Handles SimpleButton4.Click
+        If ComboBoxEdit5.SelectedIndex > -1 Then
+            Dim oItem As SQLPlaceholder = ComboBoxEdit5.SelectedItem
+            MemoEdit3.Text &= oItem.Value
+        End If
+    End Sub
+
+    Private Sub SimpleButton5_Click(sender As Object, e As EventArgs) Handles SimpleButton5.Click
+        If ComboBoxEdit6.SelectedIndex > -1 Then
+            Dim oItem As SQLPlaceholder = ComboBoxEdit6.SelectedItem
+            MemoEdit4.Text &= oItem.Value
+        End If
+    End Sub
+
+    Private Sub TBCW_PROFILESBindingSource_CurrentChanged(sender As Object, e As EventArgs) Handles TBCW_PROFILESBindingSource.CurrentChanged
+        If PROFILE_IDTextBox.Text <> String.Empty Then
+            CtrlApplicationAssignment1.Process_Load(PROFILE_IDTextBox.Text)
+        End If
+    End Sub
+
+    Private Sub BarButtonItem30_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem30.ItemClick
+        CtrlApplicationAssignment1.Window_EditRegex()
+    End Sub
+
+    Private Sub XtraTabControl3_SelectedPageChanged(sender As Object, e As DevExpress.XtraTab.TabPageChangedEventArgs) Handles XtraTabControl3.SelectedPageChanged
+        Select Case XtraTabControl3.SelectedTabPageIndex
+            Case 1
+                RibbonGroup_Profile.Enabled = False
+
+                RibbonGroup_Process.Enabled = False
+                RibbonGroup_Window.Enabled = False
+                RibbonGroup_Control.Enabled = False
+
+                RibbonGroup_DocSearch.Enabled = False
+                RibbonGroup_DataSearch.Enabled = False
+            Case 0
+                XtraTabControl1.SelectedTabPageIndex = 0
+        End Select
+    End Sub
+
+    Private Sub ZuordnungEntfernenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ZuordnungEntfernenToolStripMenuItem.Click
+        Try
+            Dim oSelectedGroups = GridViewGroupInProfile.GetSelectedRows()
+
+            For Each oRowHandle In oSelectedGroups
+                Dim oRow As MyDataset.VWCW_GROUP_PROFILERow = DirectCast(GridViewGroupInProfile.GetRow(oRowHandle), DataRowView).Row
+                Dim oProfileId As Integer = oRow.PROFIL_ID
+                Dim oGroupId As Integer = oRow.GROUP_ID
+                Dim oSQL As String = $"DELETE FROM TBCW_GROUP_PROFILE WHERE PROFILE_ID = {oProfileId} AND GROUP_ID = {oGroupId}"
+
+                If MyDB_DDECM.ExecuteNonQuery(oSQL) = False Then
+                    MsgBox("Could not delete the Group-Definition via contextmenu....Check the logfile!", MsgBoxStyle.Exclamation)
+                End If
+            Next
+
+            GridViewGroupInProfile.ClearSelection()
+
+            Refresh_Free_Groups(PROFILE_IDTextBox.Text)
+            Refresh_ProfileData()
+
+            Status_Changed($"{oSelectedGroups.Count} Gruppenzuordnungen gelöscht")
+        Catch ex As Exception
+            MsgBox("Unexpected Error in deleting Group-Rights via cms: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
+        End Try
+    End Sub
+    Private Sub UserEntfernenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles UserEntfernenToolStripMenuItem.Click
+        FreeUserProfile
+    End Sub
+    Sub FreeUserProfile()
+        Try
+            If PROFILE_IDTextBox.Text = String.Empty Then
+                Exit Sub
+            End If
+
+            Dim oSelectedRows = GridViewUserInProfile.GetSelectedRows()
+
+            For Each oRowHandle As Integer In oSelectedRows
+                Dim oRow As DataRow = GridViewUserInProfile.GetDataRow(oRowHandle)
+                Dim oGuid As Integer = oRow.Item("USER_ID")
+                Dim del = String.Format("DELETE FROM TBCW_USER_PROFILE WHERE PROFILE_ID = {0} AND USER_ID = {1}", PROFILE_IDTextBox.Text, oGuid)
+                If MyDB_DDECM.ExecuteNonQuery(del) = False Then
+                    MsgBox("Error while adding user!", MsgBoxStyle.Exclamation)
+                End If
+            Next
+
+            Refresh_Free_Users(PROFILE_IDTextBox.Text)
+            Refresh_ProfileData()
+
+            GridViewUserInProfile.ClearSelection()
+
+            Status_Changed($"{oSelectedRows.Count} Benutzerzuordnungen gelöscht")
+        Catch ex As Exception
+            Logger.Error(ex)
+            MsgBox("Unexpected Error in deleting ProfileUserRelation: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
+        End Try
+    End Sub
+
+    Private Sub GridControlUserInProfile_MouseDown(sender As Object, e As MouseEventArgs) Handles GridControlUserInProfile.MouseDown
+        'Dim view As GridView = CType(sender, GridView)
+        'Dim hitInfo As GridHitInfo = view.CalcHitInfo(e.Location)
+
+        'If hitInfo.InRow Then
+        '    Dim rowHandle As Integer = hitInfo.RowHandle
+        '    Dim data As Object = view.GetRow(rowHandle)
+
+        '    If data IsNot Nothing Then
+        '        GridControl1.DoDragDrop(data, DragDropEffects.Move)
+        '    End If
+        'End If
+    End Sub
+
+    Private Sub Label2_Click(sender As Object, e As EventArgs) Handles Label2.Click
+
+    End Sub
+
+    Private Sub GridControlUserNotInProfile_DragDrop(sender As Object, e As DragEventArgs) Handles GridControlUserNotInProfile.DragDrop
+        FreeUserProfile()
+    End Sub
+
+    Private Sub GridControlUserInProfile_DragDrop(sender As Object, e As DragEventArgs) Handles GridControlUserInProfile.DragDrop
+        Try
+            If PROFILE_IDTextBox.Text = String.Empty Then
+                Exit Sub
+            End If
+
+            Dim oSelectedRows = GridViewUserNotInProfile.GetSelectedRows()
+
+            For Each oRowHandle As Integer In oSelectedRows
+                Dim oRow As DataRow = GridViewUserNotInProfile.GetDataRow(oRowHandle)
+                Dim oGuid As Integer = oRow.Item("GUID")
+                Dim insert = String.Format("INSERT INTO TBCW_USER_PROFILE (PROFILE_ID,USER_ID) VALUES ({0},{1})", PROFILE_IDTextBox.Text, oGuid)
+                If MyDB_DDECM.ExecuteNonQuery(insert) = False Then
+                    MsgBox("Error while adding user!", MsgBoxStyle.Exclamation)
+                End If
+            Next
+
+            Refresh_Free_Users(PROFILE_IDTextBox.Text)
+            Refresh_ProfileData()
+
+            GridViewUserNotInProfile.ClearSelection()
+
+            Status_Changed($"{oSelectedRows.Count} Benutzer zugeordnet")
+        Catch ex As Exception
+            Logger.Error(ex)
+            MsgBox("Unexpected Error while adding user-rights: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
+        End Try
+    End Sub
+
+
+
+    'Private Sub GridControlUserInProfile_DragDrop(sender As Object, e As DragEventArgs) Handles GridControlUserInProfile.DragDrop
+    '    Try
+    '        If PROFILE_IDTextBox.Text = String.Empty Then
+    '            Exit Sub
+    '        End If
+
+    '        Dim oSelectedRows = GridViewUserNotInProfile.GetSelectedRows()
+
+    '        For Each oRowHandle As Integer In oSelectedRows
+    '            Dim oRow As DataRow = GridViewUserNotInProfile.GetDataRow(oRowHandle)
+    '            Dim oGuid As Integer = oRow.Item("GUID")
+    '            Dim insert = String.Format("INSERT INTO TBCW_USER_PROFILE (PROFILE_ID,USER_ID) VALUES ({0},{1})", PROFILE_IDTextBox.Text, oGuid)
+    '            If MyDB_DDECM.ExecuteNonQuery(insert) = False Then
+    '                MsgBox("Error while adding user!", MsgBoxStyle.Exclamation)
+    '            End If
+    '        Next
+
+    '        Refresh_Free_Users(PROFILE_IDTextBox.Text)
+    '        Refresh_ProfileData()
+
+    '        GridViewUserNotInProfile.ClearSelection()
+
+    '        Status_Changed($"{oSelectedRows.Count} Benutzer zugeordnet")
+    '    Catch ex As Exception
+    '        Logger.Error(ex)
+    '        MsgBox("Unexpected Error while adding user-rights: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
+    '    End Try
+    'End Sub
+
+    'Private Sub GridControlUserNotInProfile_DragDrop(sender As Object, e As DragEventArgs) Handles GridControlUserNotInProfile.DragDrop
+    '    Try
+    '        If PROFILE_IDTextBox.Text = String.Empty Then
+    '            Exit Sub
+    '        End If
+
+    '        Dim oSelectedRows = GridViewUserInProfile.GetSelectedRows()
+
+    '        For Each oRowHandle As Integer In oSelectedRows
+    '            Dim oRow As DataRow = GridViewUserInProfile.GetDataRow(oRowHandle)
+    '            Dim oGuid As Integer = oRow.Item("GUID")
+    '            Dim del = String.Format("DELETE FROM TBCW_USER_PROFILE WHERE GUID = {0}", oGuid)
+    '            If MyDB_DDECM.ExecuteNonQuery(del) = False Then
+    '                MsgBox("Error while adding user!", MsgBoxStyle.Exclamation)
+    '            End If
+    '        Next
+
+    '        Refresh_Free_Users(PROFILE_IDTextBox.Text)
+    '        Refresh_ProfileData()
+
+    '        GridViewUserInProfile.ClearSelection()
+
+    '        Status_Changed($"{oSelectedRows.Count} Benutzerzuordnungen gelöscht")
+    '    Catch ex As Exception
+    '        Logger.Error(ex)
+    '        MsgBox("Unexpected Error in deleting ProfileUserRelation: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
+    '    End Try
+    'End Sub
 End Class

app/DD_Clipboard_Searcher/frmClientLogin.designer.vb

@@ -1,6 +1,6 @@
 <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
 Partial Class frmClientLogin
-    Inherits System.Windows.Forms.Form
+    Inherits DevExpress.XtraEditors.XtraForm
 
     'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
     <System.Diagnostics.DebuggerNonUserCode()> _

app/DD_Clipboard_Searcher/frmClientLogin.en.resx

@@ -122,15 +122,18 @@
     <value>421, 16</value>
   </data>
   <data name="Label1.Text" xml:space="preserve">
-    <value>Your User is configured for more than one cleint. Please choose a client.</value>
+    <value>Your user is configured for several clients. Please select a client.</value>
   </data>
   <data name="Label2.Size" type="System.Drawing.Size, System.Drawing">
     <value>287, 14</value>
   </data>
   <data name="Label2.Text" xml:space="preserve">
-    <value>Your license will be charged on the selected client.</value>
+    <value>Your user licence will be deducted from the quota of the selected client.</value>
   </data>
   <data name="$this.Text" xml:space="preserve">
     <value>Client Login</value>
   </data>
+  <data name="btnLogin.Text">
+    <value>Login</value>
+  </data>
 </root>

app/DD_Clipboard_Searcher/frmClientLogin.fr.resx

@@ -0,0 +1,132 @@
+<?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=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <data name="Label1.Text">
+    <value>Votre utilisateur est configuré pour plusieurs mandants. Veuillez sélectionner un mandant.</value>
+  </data>
+  <data name="Label2.Text">
+    <value>Votre licence d'utilisateur sera déduite du contingent du mandant sélectionné.</value>
+  </data>
+  <data name="$this.Text">
+    <value>Login mandant</value>
+  </data>
+  <data name="btnLogin.Text">
+    <value>Login</value>
+  </data>
+</root>

app/DD_Clipboard_Searcher/frmClientLogin.resx

@@ -208,15 +208,15 @@
   </data>
   <data name="btnLogin.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
-        iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+        iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAGdSURBVFhH7ZM9boQwEIU5Qo6QI+QM9Ehp6VLQc4vt6ZFS
+        wwAADsMBx2+oZAAAAZ1JREFUWEftkz1uhDAQhTlCjpAj5Az0SGnpUtBzi+3pkVJS5gb0VLkCRZKGwonE
-        UuYG9FS5AkWShsKJxE9JeNYMMcYQbFixivKkT9r1zLw3XhZvr7quu2+a5rltWzHQEwJnqFHbdVTX9YMW
+        T0l41gwxxhBsWLGK8qRP2vXMvDdeFm+vuq67b5rmuW1bMdATAmeoUdt1VNf1gxasI9BD7ccKt0MAgvI8
-        rCPQQ+3HCrdDAILyPO/DMOx935fgM854iav8EvSzyyAO1uEl0Etjxwk3g7l6cx3U0INeGjtOZGwMVuE+
+        78Mw7H3fl+AzzniJq/wS9LPLIA7W4SXQS2PHCTeDuXpzHdTQg14aO05kbAxW4T4aO043s8Bpj+D0P+Ep
-        GjtON7PAaY/g9D/hKa8hGe6G7OxlMnOB7OzFBupzBpfLZRaCM72Pa2RnLzbQjYG6hCkccJ3sljX8ax+H
+        ryEZ7obs7GUyc4Hs7MUG6nMGl8tlFoIzvY9rZGcvNtCNgbqEKRxwneyWNfxrH4fGFx7QMZkDBC+FA56n
-        xhce0DGZAwQvhQOep5i5hBB3/HqtEUWRMeA3eJ7i5uLwqqrkTYIgGIfxGWeooSeO44n5FlYXGN7VJxTL
+        mLmEEHf8eq0RRZEx4Dd4nuLm4vCqquRNgiAYh/EZZ6ihJ47jifkWVhcY3tUnFMuynATroIYeLKL3vb99
-        spwE66CGHiyi972/fUjUM5XVBYbCK4rqzdI07YuikOAzn6MHvUmSjGfAeQE8exRwK27OsmwcYHCmmmEx
+        SNQzldUFhsIriurN0jTti6KQ4DOfowe9SZKMZ8B5ATx7FHArbs6ybBxgcKaaYTH+vgX2odgf8QIumIKW
-        /r4F9qHYH/ECLpiCluAZip1KNbXBFLQEz1DkVLaG3O8CRU7FRVOYCdXQFoqciot60Kf4kujnq2Yu+l/g
+        4BmKnUo1tcEUtATPUORUtobc7wJFTsVFU5gJ1dAWipyKi3rQp/iS6OerZi76X+BmF1ji7y5gC43vl8l8
-        ZhdY4u8uYAuN75fJfAs07ijP+wYj01KCKhcnhQAAAABJRU5ErkJggg==
+        CzTuKM/7BiPTUoIqFyeFAAAAAElFTkSuQmCC
 </value>
   </data>
   <data name="btnLogin.ImageAlign" type="System.Drawing.ContentAlignment, System.Drawing">

app/DD_Clipboard_Searcher/frmConfig_Basic.Designer.vb

@@ -1,6 +1,6 @@
 <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
 Partial Class frmConfig_Basic
-    Inherits System.Windows.Forms.Form
+    Inherits DevExpress.XtraEditors.XtraForm
 
     'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
     <System.Diagnostics.DebuggerNonUserCode()> _
@@ -39,17 +39,17 @@ Partial Class frmConfig_Basic
         Me.BtnConnect = New System.Windows.Forms.Button()
         Me.TabPage2 = New System.Windows.Forms.TabPage()
         Me.lblChanges = New System.Windows.Forms.Label()
-        Me.btnChangeHotkey = New System.Windows.Forms.Button()
         Me.txtHotkeySearchKey = New System.Windows.Forms.TextBox()
         Me.Label7 = New System.Windows.Forms.Label()
         Me.Label6 = New System.Windows.Forms.Label()
         Me.cmbfunctionHit = New System.Windows.Forms.ComboBox()
         Me.chkLogErrorsOnly = New System.Windows.Forms.CheckBox()
+        Me.LinkLabel1 = New System.Windows.Forms.LinkLabel()
+        Me.btnChangeHotkey = New System.Windows.Forms.Button()
         Me.Button1 = New System.Windows.Forms.Button()
         Me.btnApplicationFolder = New System.Windows.Forms.Button()
-        Me.LinkLabel1 = New System.Windows.Forms.LinkLabel()
         Me.TabPage3 = New System.Windows.Forms.TabPage()
-        Me.LabelVersion = New System.Windows.Forms.Label()
+        Me.Label8 = New System.Windows.Forms.Label()
         Me.PictureBox1 = New System.Windows.Forms.PictureBox()
         Me.TabControl1.SuspendLayout()
         Me.TabPage1.SuspendLayout()
@@ -63,12 +63,9 @@ Partial Class frmConfig_Basic
         Me.TabControl1.Controls.Add(Me.TabPage1)
         Me.TabControl1.Controls.Add(Me.TabPage2)
         Me.TabControl1.Controls.Add(Me.TabPage3)
-        Me.TabControl1.Dock = System.Windows.Forms.DockStyle.Fill
+        resources.ApplyResources(Me.TabControl1, "TabControl1")
-        Me.TabControl1.Location = New System.Drawing.Point(0, 0)
         Me.TabControl1.Name = "TabControl1"
         Me.TabControl1.SelectedIndex = 0
-        Me.TabControl1.Size = New System.Drawing.Size(676, 186)
-        Me.TabControl1.TabIndex = 1
         '
         'TabPage1
         '
@@ -84,309 +81,186 @@ Partial Class frmConfig_Basic
         Me.TabPage1.Controls.Add(Me.txtUser)
         Me.TabPage1.Controls.Add(Me.txtPasswort)
         Me.TabPage1.Controls.Add(Me.BtnConnect)
-        Me.TabPage1.Location = New System.Drawing.Point(4, 22)
+        resources.ApplyResources(Me.TabPage1, "TabPage1")
         Me.TabPage1.Name = "TabPage1"
-        Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
-        Me.TabPage1.Size = New System.Drawing.Size(668, 160)
-        Me.TabPage1.TabIndex = 0
-        Me.TabPage1.Text = "Datenbank-Verbindung"
         Me.TabPage1.UseVisualStyleBackColor = True
         '
         'chkbxUserAut
         '
-        Me.chkbxUserAut.AutoSize = True
+        resources.ApplyResources(Me.chkbxUserAut, "chkbxUserAut")
-        Me.chkbxUserAut.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.chkbxUserAut.Location = New System.Drawing.Point(510, 36)
         Me.chkbxUserAut.Name = "chkbxUserAut"
-        Me.chkbxUserAut.Size = New System.Drawing.Size(155, 17)
-        Me.chkbxUserAut.TabIndex = 47
-        Me.chkbxUserAut.Text = "Windows-Authentifizierung"
         Me.chkbxUserAut.UseVisualStyleBackColor = True
         '
         'Label5
         '
-        Me.Label5.AutoSize = True
+        resources.ApplyResources(Me.Label5, "Label5")
-        Me.Label5.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.Label5.Location = New System.Drawing.Point(5, 115)
         Me.Label5.Name = "Label5"
-        Me.Label5.Size = New System.Drawing.Size(138, 13)
-        Me.Label5.TabIndex = 46
-        Me.Label5.Text = "Aktueller ConnectionString:"
         '
         'cmbDatenbank
         '
         Me.cmbDatenbank.FormattingEnabled = True
-        Me.cmbDatenbank.Location = New System.Drawing.Point(8, 82)
+        resources.ApplyResources(Me.cmbDatenbank, "cmbDatenbank")
         Me.cmbDatenbank.Name = "cmbDatenbank"
-        Me.cmbDatenbank.Size = New System.Drawing.Size(252, 21)
-        Me.cmbDatenbank.TabIndex = 39
         '
         'Label4
         '
-        Me.Label4.AutoSize = True
+        resources.ApplyResources(Me.Label4, "Label4")
-        Me.Label4.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.Label4.Location = New System.Drawing.Point(5, 62)
         Me.Label4.Name = "Label4"
-        Me.Label4.Size = New System.Drawing.Size(63, 13)
-        Me.Label4.TabIndex = 44
-        Me.Label4.Text = "Datenbank:"
         '
         'Label1
         '
-        Me.Label1.AutoSize = True
+        resources.ApplyResources(Me.Label1, "Label1")
-        Me.Label1.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.Label1.Location = New System.Drawing.Point(5, 14)
         Me.Label1.Name = "Label1"
-        Me.Label1.Size = New System.Drawing.Size(74, 13)
-        Me.Label1.TabIndex = 41
-        Me.Label1.Text = "Server-Name:"
         '
         'Label2
         '
-        Me.Label2.AutoSize = True
+        resources.ApplyResources(Me.Label2, "Label2")
-        Me.Label2.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.Label2.Location = New System.Drawing.Point(299, 14)
         Me.Label2.Name = "Label2"
-        Me.Label2.Size = New System.Drawing.Size(80, 13)
-        Me.Label2.TabIndex = 42
-        Me.Label2.Text = "Benutzername:"
         '
         'Label3
         '
-        Me.Label3.AutoSize = True
+        resources.ApplyResources(Me.Label3, "Label3")
-        Me.Label3.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.Label3.Location = New System.Drawing.Point(423, 14)
         Me.Label3.Name = "Label3"
-        Me.Label3.Size = New System.Drawing.Size(55, 13)
-        Me.Label3.TabIndex = 43
-        Me.Label3.Text = "Passwort:"
         '
         'txtActualConnection
         '
-        Me.txtActualConnection.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
+        resources.ApplyResources(Me.txtActualConnection, "txtActualConnection")
-            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.txtActualConnection.BackColor = System.Drawing.Color.WhiteSmoke
-        Me.txtActualConnection.Location = New System.Drawing.Point(8, 131)
         Me.txtActualConnection.Name = "txtActualConnection"
         Me.txtActualConnection.ReadOnly = True
-        Me.txtActualConnection.Size = New System.Drawing.Size(528, 21)
-        Me.txtActualConnection.TabIndex = 45
         '
         'txtServer
         '
         Me.txtServer.ForeColor = System.Drawing.SystemColors.WindowText
-        Me.txtServer.Location = New System.Drawing.Point(8, 34)
+        resources.ApplyResources(Me.txtServer, "txtServer")
         Me.txtServer.Name = "txtServer"
-        Me.txtServer.Size = New System.Drawing.Size(288, 21)
-        Me.txtServer.TabIndex = 36
         '
         'txtUser
         '
         Me.txtUser.ForeColor = System.Drawing.SystemColors.WindowText
-        Me.txtUser.Location = New System.Drawing.Point(302, 34)
+        resources.ApplyResources(Me.txtUser, "txtUser")
         Me.txtUser.Name = "txtUser"
-        Me.txtUser.Size = New System.Drawing.Size(118, 21)
-        Me.txtUser.TabIndex = 37
         '
         'txtPasswort
         '
         Me.txtPasswort.ForeColor = System.Drawing.SystemColors.WindowText
-        Me.txtPasswort.Location = New System.Drawing.Point(426, 34)
+        resources.ApplyResources(Me.txtPasswort, "txtPasswort")
         Me.txtPasswort.Name = "txtPasswort"
-        Me.txtPasswort.Size = New System.Drawing.Size(64, 21)
-        Me.txtPasswort.TabIndex = 38
         Me.txtPasswort.UseSystemPasswordChar = True
         '
         'BtnConnect
         '
-        Me.BtnConnect.Image = CType(resources.GetObject("BtnConnect.Image"), System.Drawing.Image)
+        resources.ApplyResources(Me.BtnConnect, "BtnConnect")
-        Me.BtnConnect.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.BtnConnect.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.BtnConnect.Location = New System.Drawing.Point(302, 82)
         Me.BtnConnect.Name = "BtnConnect"
-        Me.BtnConnect.Size = New System.Drawing.Size(253, 25)
-        Me.BtnConnect.TabIndex = 40
-        Me.BtnConnect.Text = "Verbindung zur Datenbank herstellen"
-        Me.BtnConnect.TextAlign = System.Drawing.ContentAlignment.MiddleRight
         Me.BtnConnect.UseVisualStyleBackColor = True
         '
         'TabPage2
         '
         Me.TabPage2.Controls.Add(Me.lblChanges)
-        Me.TabPage2.Controls.Add(Me.btnChangeHotkey)
         Me.TabPage2.Controls.Add(Me.txtHotkeySearchKey)
         Me.TabPage2.Controls.Add(Me.Label7)
         Me.TabPage2.Controls.Add(Me.Label6)
         Me.TabPage2.Controls.Add(Me.cmbfunctionHit)
         Me.TabPage2.Controls.Add(Me.chkLogErrorsOnly)
+        Me.TabPage2.Controls.Add(Me.LinkLabel1)
+        Me.TabPage2.Controls.Add(Me.btnChangeHotkey)
         Me.TabPage2.Controls.Add(Me.Button1)
         Me.TabPage2.Controls.Add(Me.btnApplicationFolder)
-        Me.TabPage2.Controls.Add(Me.LinkLabel1)
+        resources.ApplyResources(Me.TabPage2, "TabPage2")
-        Me.TabPage2.Location = New System.Drawing.Point(4, 22)
         Me.TabPage2.Name = "TabPage2"
-        Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
-        Me.TabPage2.Size = New System.Drawing.Size(668, 160)
-        Me.TabPage2.TabIndex = 1
-        Me.TabPage2.Text = "Tastaturkombination und Einstellungen"
         Me.TabPage2.UseVisualStyleBackColor = True
         '
         'lblChanges
         '
-        Me.lblChanges.AutoSize = True
+        resources.ApplyResources(Me.lblChanges, "lblChanges")
         Me.lblChanges.BackColor = System.Drawing.Color.Yellow
-        Me.lblChanges.Location = New System.Drawing.Point(8, 71)
         Me.lblChanges.Name = "lblChanges"
-        Me.lblChanges.Size = New System.Drawing.Size(38, 13)
-        Me.lblChanges.TabIndex = 14
-        Me.lblChanges.Text = "Label8"
-        Me.lblChanges.Visible = False
-        '
-        'btnChangeHotkey
-        '
-        Me.btnChangeHotkey.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.btnChangeHotkey.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.KeyDown_8461
-        Me.btnChangeHotkey.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.btnChangeHotkey.Location = New System.Drawing.Point(186, 35)
-        Me.btnChangeHotkey.Name = "btnChangeHotkey"
-        Me.btnChangeHotkey.Size = New System.Drawing.Size(132, 31)
-        Me.btnChangeHotkey.TabIndex = 13
-        Me.btnChangeHotkey.Text = "Ändere Hotkey"
-        Me.btnChangeHotkey.TextAlign = System.Drawing.ContentAlignment.MiddleRight
-        Me.btnChangeHotkey.UseVisualStyleBackColor = True
         '
         'txtHotkeySearchKey
         '
-        Me.txtHotkeySearchKey.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        resources.ApplyResources(Me.txtHotkeySearchKey, "txtHotkeySearchKey")
-        Me.txtHotkeySearchKey.Location = New System.Drawing.Point(105, 39)
         Me.txtHotkeySearchKey.Name = "txtHotkeySearchKey"
-        Me.txtHotkeySearchKey.Size = New System.Drawing.Size(65, 23)
-        Me.txtHotkeySearchKey.TabIndex = 12
-        Me.txtHotkeySearchKey.Text = "f"
         '
         'Label7
         '
-        Me.Label7.AutoSize = True
+        resources.ApplyResources(Me.Label7, "Label7")
-        Me.Label7.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label7.Location = New System.Drawing.Point(102, 20)
         Me.Label7.Name = "Label7"
-        Me.Label7.Size = New System.Drawing.Size(78, 16)
-        Me.Label7.TabIndex = 11
-        Me.Label7.Text = "Zifferntaste:"
         '
         'Label6
         '
-        Me.Label6.AutoSize = True
+        resources.ApplyResources(Me.Label6, "Label6")
-        Me.Label6.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label6.Location = New System.Drawing.Point(8, 20)
         Me.Label6.Name = "Label6"
-        Me.Label6.Size = New System.Drawing.Size(95, 16)
-        Me.Label6.TabIndex = 10
-        Me.Label6.Text = "Funktionstaste:"
         '
         'cmbfunctionHit
         '
-        Me.cmbfunctionHit.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        resources.ApplyResources(Me.cmbfunctionHit, "cmbfunctionHit")
         Me.cmbfunctionHit.FormattingEnabled = True
-        Me.cmbfunctionHit.Items.AddRange(New Object() {"strg", "SHIFT"})
+        Me.cmbfunctionHit.Items.AddRange(New Object() {resources.GetString("cmbfunctionHit.Items"), resources.GetString("cmbfunctionHit.Items1")})
-        Me.cmbfunctionHit.Location = New System.Drawing.Point(11, 39)
         Me.cmbfunctionHit.Name = "cmbfunctionHit"
-        Me.cmbfunctionHit.Size = New System.Drawing.Size(88, 24)
-        Me.cmbfunctionHit.TabIndex = 9
         '
         'chkLogErrorsOnly
         '
-        Me.chkLogErrorsOnly.AutoSize = True
+        resources.ApplyResources(Me.chkLogErrorsOnly, "chkLogErrorsOnly")
-        Me.chkLogErrorsOnly.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.chkLogErrorsOnly.Location = New System.Drawing.Point(462, 100)
         Me.chkLogErrorsOnly.Name = "chkLogErrorsOnly"
-        Me.chkLogErrorsOnly.Size = New System.Drawing.Size(100, 17)
-        Me.chkLogErrorsOnly.TabIndex = 7
-        Me.chkLogErrorsOnly.Text = "Log Errors Only"
         Me.chkLogErrorsOnly.UseVisualStyleBackColor = True
         '
+        'LinkLabel1
+        '
+        resources.ApplyResources(Me.LinkLabel1, "LinkLabel1")
+        Me.LinkLabel1.Name = "LinkLabel1"
+        Me.LinkLabel1.TabStop = True
+        '
+        'btnChangeHotkey
+        '
+        resources.ApplyResources(Me.btnChangeHotkey, "btnChangeHotkey")
+        Me.btnChangeHotkey.Image = Global.easyFLOW.My.Resources.Resources.KeyDown_8461
+        Me.btnChangeHotkey.Name = "btnChangeHotkey"
+        Me.btnChangeHotkey.UseVisualStyleBackColor = True
+        '
         'Button1
         '
-        Me.Button1.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.folder_Open_16xLG
+        Me.Button1.Image = Global.easyFLOW.My.Resources.Resources.folder_Open_16xLG
-        Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        resources.ApplyResources(Me.Button1, "Button1")
-        Me.Button1.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.Button1.Location = New System.Drawing.Point(462, 71)
         Me.Button1.Name = "Button1"
-        Me.Button1.Size = New System.Drawing.Size(198, 23)
-        Me.Button1.TabIndex = 6
-        Me.Button1.Text = "Open Log-Folder"
-        Me.Button1.TextAlign = System.Drawing.ContentAlignment.MiddleRight
         Me.Button1.UseVisualStyleBackColor = True
         '
         'btnApplicationFolder
         '
-        Me.btnApplicationFolder.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.folder_Open_16xLG
+        Me.btnApplicationFolder.Image = Global.easyFLOW.My.Resources.Resources.folder_Open_16xLG
-        Me.btnApplicationFolder.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        resources.ApplyResources(Me.btnApplicationFolder, "btnApplicationFolder")
-        Me.btnApplicationFolder.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.btnApplicationFolder.Location = New System.Drawing.Point(462, 45)
         Me.btnApplicationFolder.Name = "btnApplicationFolder"
-        Me.btnApplicationFolder.Size = New System.Drawing.Size(198, 23)
-        Me.btnApplicationFolder.TabIndex = 2
-        Me.btnApplicationFolder.Text = "Open AppFolder User"
-        Me.btnApplicationFolder.TextAlign = System.Drawing.ContentAlignment.MiddleRight
         Me.btnApplicationFolder.UseVisualStyleBackColor = True
         '
-        'LinkLabel1
-        '
-        Me.LinkLabel1.AutoSize = True
-        Me.LinkLabel1.Font = New System.Drawing.Font("Segoe UI", 9.75!)
-        Me.LinkLabel1.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.LinkLabel1.Location = New System.Drawing.Point(459, 16)
-        Me.LinkLabel1.Name = "LinkLabel1"
-        Me.LinkLabel1.Size = New System.Drawing.Size(200, 17)
-        Me.LinkLabel1.TabIndex = 1
-        Me.LinkLabel1.TabStop = True
-        Me.LinkLabel1.Text = "Link zu Support-Tool Digital Data"
-        '
         'TabPage3
         '
-        Me.TabPage3.Controls.Add(Me.LabelVersion)
+        Me.TabPage3.Controls.Add(Me.Label8)
         Me.TabPage3.Controls.Add(Me.PictureBox1)
-        Me.TabPage3.Location = New System.Drawing.Point(4, 22)
+        resources.ApplyResources(Me.TabPage3, "TabPage3")
         Me.TabPage3.Name = "TabPage3"
-        Me.TabPage3.Padding = New System.Windows.Forms.Padding(3)
-        Me.TabPage3.Size = New System.Drawing.Size(668, 160)
-        Me.TabPage3.TabIndex = 2
-        Me.TabPage3.Text = "Info"
         Me.TabPage3.UseVisualStyleBackColor = True
         '
-        'LabelVersion
+        'Label8
         '
-        Me.LabelVersion.AutoSize = True
+        resources.ApplyResources(Me.Label8, "Label8")
-        Me.LabelVersion.Location = New System.Drawing.Point(6, 115)
+        Me.Label8.Name = "Label8"
-        Me.LabelVersion.Name = "LabelVersion"
-        Me.LabelVersion.Size = New System.Drawing.Size(38, 13)
-        Me.LabelVersion.TabIndex = 0
-        Me.LabelVersion.Text = "Label8"
         '
         'PictureBox1
         '
-        Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image)
+        resources.ApplyResources(Me.PictureBox1, "PictureBox1")
-        Me.PictureBox1.Location = New System.Drawing.Point(-80, -22)
         Me.PictureBox1.Name = "PictureBox1"
-        Me.PictureBox1.Size = New System.Drawing.Size(366, 134)
-        Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
-        Me.PictureBox1.TabIndex = 1
         Me.PictureBox1.TabStop = False
         '
         'frmConfig_Basic
         '
-        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.Appearance.Options.UseFont = True
+        resources.ApplyResources(Me, "$this")
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(676, 186)
         Me.Controls.Add(Me.TabControl1)
-        Me.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
-        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
+        Me.IconOptions.Icon = CType(resources.GetObject("frmConfig_Basic.IconOptions.Icon"), System.Drawing.Icon)
         Me.MaximizeBox = False
         Me.MinimizeBox = False
         Me.Name = "frmConfig_Basic"
-        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
-        Me.Text = "Grundeinstellungen"
         Me.TabControl1.ResumeLayout(False)
         Me.TabPage1.ResumeLayout(False)
         Me.TabPage1.PerformLayout()
@@ -424,6 +298,6 @@ Partial Class frmConfig_Basic
     Friend WithEvents btnChangeHotkey As Button
     Friend WithEvents lblChanges As Label
     Friend WithEvents TabPage3 As TabPage
-    Friend WithEvents LabelVersion As Label
     Friend WithEvents PictureBox1 As PictureBox
+    Friend WithEvents Label8 As Label
 End Class

app/DD_Clipboard_Searcher/frmConfig_Basic.en.resx

@@ -0,0 +1,174 @@
+<?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=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <data name="TabPage1.Text">
+    <value>Database connection</value>
+  </data>
+  <data name="TabPage3.Text">
+    <value>Info</value>
+  </data>
+  <data name="$this.Text">
+    <value>Basic settings</value>
+  </data>
+  <data name="BtnConnect.Text">
+    <value>Connect to database</value>
+  </data>
+  <data name="LinkLabel1.Text">
+    <value>Link to support tool Digital Data</value>
+  </data>
+  <data name="Label3.Text">
+    <value>Password:</value>
+  </data>
+  <data name="Label5.Text">
+    <value>Current ConnectionString:</value>
+  </data>
+  <data name="TabPage2.Text">
+    <value>Keyboard combination and settings</value>
+  </data>
+  <data name="chkLogErrorsOnly.Text">
+    <value>Log Errors Only</value>
+  </data>
+  <data name="chkbxUserAut.Text">
+    <value>Windows Authentication</value>
+  </data>
+  <data name="btnChangeHotkey.Text">
+    <value>Change Hotkey</value>
+  </data>
+  <data name="Label7.Text">
+    <value>Numeric key:</value>
+  </data>
+  <data name="Label2.Text">
+    <value>Username:</value>
+  </data>
+  <data name="Label1.Text">
+    <value>Server Name:</value>
+  </data>
+  <data name="btnApplicationFolder.Text">
+    <value>Open AppFolder User</value>
+  </data>
+  <data name="Label4.Text">
+    <value>Database:</value>
+  </data>
+  <data name="Button1.Text">
+    <value>Open Log-Folder</value>
+  </data>
+  <data name="Label6.Text">
+    <value>Function key:</value>
+  </data>
+</root>

app/DD_Clipboard_Searcher/frmConfig_Basic.fr.resx

@@ -0,0 +1,174 @@
+<?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=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <data name="TabPage1.Text">
+    <value>Connexion à la base de données</value>
+  </data>
+  <data name="TabPage3.Text">
+    <value>Info</value>
+  </data>
+  <data name="$this.Text">
+    <value>Paramètres de base</value>
+  </data>
+  <data name="BtnConnect.Text">
+    <value>Se connecter à la base de données</value>
+  </data>
+  <data name="LinkLabel1.Text">
+    <value>Lien vers l'outil d'assistance Digital Data</value>
+  </data>
+  <data name="Label3.Text">
+    <value>Mot de passe :</value>
+  </data>
+  <data name="Label5.Text">
+    <value>ConnectionString actuel :</value>
+  </data>
+  <data name="TabPage2.Text">
+    <value>Combinaison de clavier et paramètres</value>
+  </data>
+  <data name="chkLogErrorsOnly.Text">
+    <value>Log Errors Only</value>
+  </data>
+  <data name="chkbxUserAut.Text">
+    <value>Authentification Windows</value>
+  </data>
+  <data name="btnChangeHotkey.Text">
+    <value>Modifier la touche de raccourci</value>
+  </data>
+  <data name="Label7.Text">
+    <value>touche numérique :</value>
+  </data>
+  <data name="Label2.Text">
+    <value>Nom d'utilisateur :</value>
+  </data>
+  <data name="Label1.Text">
+    <value>Nom du serveur :</value>
+  </data>
+  <data name="btnApplicationFolder.Text">
+    <value>Open AppFolder Utilisateur</value>
+  </data>
+  <data name="Label4.Text">
+    <value>Base de données :</value>
+  </data>
+  <data name="Button1.Text">
+    <value>Open Log-Folder</value>
+  </data>
+  <data name="Label6.Text">
+    <value>Touche de fonction :</value>
+  </data>
+</root>

app/DD_Clipboard_Searcher/frmConfig_Basic.vb

@@ -1,5 +1,5 @@
-Imports DD_LIB_Standards
+Imports easyFLOW.ClassHotkey.ModfierKey
-Imports DD_Clipboard_Watcher.ClassHotkey.ModfierKey
+Imports DigitalData.Modules.Database
 
 Public Class frmConfig_Basic
     Dim WithEvents Hotkey As New ClassHotkey(Me)
@@ -22,7 +22,7 @@ Public Class frmConfig_Basic
             'DialogResult = Windows.Forms.DialogResult.OK
             Dim result As MsgBoxResult
             Dim msg = "Die Verbindung wurde erfolgreich aufgebaut!" & vbNewLine & "Möchten Sie diese Verbindung nun in der Anwendung speichern?"
-            If USER_LANGUAGE <> "de-DE" Then
+            If USER_LANGUAGE <> LANGUAGE_GERMAN Then
                 msg = "Connection was successfully opened!" & vbNewLine & "Would You like to save it?"
             End If
             result = MessageBox.Show(msg, "Database-Connection", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
@@ -30,17 +30,14 @@ Public Class frmConfig_Basic
                 CONNECTION_CHANGED = True
                 'Set the construction string
                 MyConnectionString = con 'csb.ConnectionString
-                clsDatabase.Init(MyConnectionString)
+                'clsDatabase.Init(MyConnectionString)
                 If chkbxUserAut.Checked = False Then
-                    Dim wrapper As New clsEncryption("!35452didalog=")
+                    con = MSSQLServer.EncryptConnectionString("Server=" & Me.txtServer.Text & ";Database=" & Me.cmbDatenbank.Text & ";User Id=" & Me.txtUser.Text & ";Password=" & Me.txtPasswort.Text & ";")
-                    Dim cipherText As String = wrapper.EncryptData(Me.txtPasswort.Text)
+
-                    Dim pw As String = cipherText
-                    con = "Server=" & Me.txtServer.Text & ";Database=" & Me.cmbDatenbank.Text & ";User Id=" & Me.txtUser.Text & ";Password=" & pw & ";"
                 End If
 
-                'SaveConfigValue("MyConnectionString", con)
+                CONFIG.Config.ConnectionString = con
-                ConfigManager.Config.ConnectionString = con
+                CONFIG.Save()
-                ConfigManager.Save()
 
                 Dim csb As New SqlClient.SqlConnectionStringBuilder
                 csb.ConnectionString = MyConnectionString
@@ -126,14 +123,26 @@ Public Class frmConfig_Basic
                 txtActualConnection.Text = constr
                 chkLogErrorsOnly.Checked = LogErrorsOnly
             Catch ex As Exception
-                MsgBox("Fehler in FormLoad: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
+                MsgBox("Error in frmConfig_Basic_Load: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
             End Try
         End If
     End Sub
 
     Private Sub LinkLabel1_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
-        LinkLabel1.LinkVisited = True
+        Try
-        Process.Start("http://www.didalog.de/Support")
+            Me.LinkLabel1.LinkVisited = True
+
+            Dim oSql As String = "SELECT CAT_STRING FROM TBDD_CATALOG WHERE CAT_TITLE = 'DDSUPPORT_PORTAL'"
+            Dim oSupportLink As String = MyDB_DDECM.GetScalarValue(oSql)?.ToString()
+
+            If Not String.IsNullOrEmpty(oSupportLink) Then
+                Process.Start(oSupportLink)
+            Else
+                MsgBox("Support-Link nicht gefunden.", MsgBoxStyle.Information)
+            End If
+        Catch ex As Exception
+            MsgBox("Fehler beim Öffnen des Support-Links: " & ex.Message, MsgBoxStyle.Critical)
+        End Try
     End Sub
 
     Private Sub btnApplicationFolder_Click(sender As Object, e As EventArgs) Handles btnApplicationFolder.Click
@@ -148,8 +157,8 @@ Public Class frmConfig_Basic
         LogErrorsOnly = chkLogErrorsOnly.Checked
         LogConfig.Debug = Not LogErrorsOnly
 
-        ConfigManager.Config.LogErrorsOnly = LogErrorsOnly
+        CONFIG.Config.LogErrorsOnly = LogErrorsOnly
-        ConfigManager.Save()
+        CONFIG.Save()
     End Sub
 
     Private Sub TabControl1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles TabControl1.SelectedIndexChanged
@@ -162,7 +171,7 @@ Public Class frmConfig_Basic
 
                 End Try
             Case 2
-                LabelVersion.Text = $"Version: {My.Application.Info.Version.ToString}"
+                Label8.Text = $"Version: {My.Application.Info.Version.ToString}"
         End Select
     End Sub
 
@@ -181,9 +190,9 @@ Public Class frmConfig_Basic
             If cmbfunctionHit.SelectedIndex <> -1 Then
                 Hotkey.RemoveHotKey(ClassConstants.HOTKEY_TRIGGER_WATCHER)
 
-                ConfigManager.Config.HotkeyFunctionKey = cmbfunctionHit.Text
+                CONFIG.Config.HotkeyFunctionKey = cmbfunctionHit.Text
-                ConfigManager.Config.HotkeySearchKey = txtHotkeySearchKey.Text
+                CONFIG.Config.HotkeySearchKey = txtHotkeySearchKey.Text
-                ConfigManager.Save()
+                CONFIG.Save()
 
                 Dim keyCode As Keys
                 Dim kc As New KeysConverter
@@ -196,7 +205,7 @@ Public Class frmConfig_Basic
                 End If
 
                 Dim msg = "Die Änderung des Hotkeys war erfolgreich." & vbNewLine & "Da es sich um einen global Hotkey handelt muss die Anwendung neugestartet werden!"
-                If USER_LANGUAGE <> "de-DE" Then
+                If USER_LANGUAGE <> LANGUAGE_GERMAN Then
                     msg = "The change of your desired hotkey was successfull." & vbNewLine & "For using it the application must be restarted now!"
                 End If
                 MsgBox(msg, MsgBoxStyle.Information)

app/DD_Clipboard_Searcher/frmConnection.Designer.vb

@@ -39,7 +39,7 @@ Partial Class frmConnection
         Me.SplitContainerControl1 = New DevExpress.XtraEditors.SplitContainerControl()
         Me.GridControl1 = New DevExpress.XtraGrid.GridControl()
         Me.TBDD_CONNECTIONBindingSource = New System.Windows.Forms.BindingSource(Me.components)
-        Me.MyDataset = New DD_Clipboard_Watcher.MyDataset()
+        Me.MyDataset = New easyFLOW.MyDataset()
         Me.GridView1 = New DevExpress.XtraGrid.Views.Grid.GridView()
         Me.colBEZEICHNUNG = New DevExpress.XtraGrid.Columns.GridColumn()
         Me.colSQL_PROVIDER = New DevExpress.XtraGrid.Columns.GridColumn()
@@ -58,8 +58,8 @@ Partial Class frmConnection
         Me.ERSTELLTWANNDateTimePicker = New System.Windows.Forms.DateTimePicker()
         Me.GEANDERTWERTextBox = New System.Windows.Forms.TextBox()
         Me.GEAENDERTWANNDateTimePicker = New System.Windows.Forms.DateTimePicker()
-        Me.TBDD_CONNECTIONTableAdapter = New DD_Clipboard_Watcher.MyDatasetTableAdapters.TBDD_CONNECTIONTableAdapter()
+        Me.TBDD_CONNECTIONTableAdapter = New easyFLOW.MyDatasetTableAdapters.TBDD_CONNECTIONTableAdapter()
-        Me.TableAdapterManager = New DD_Clipboard_Watcher.MyDatasetTableAdapters.TableAdapterManager()
+        Me.TableAdapterManager = New easyFLOW.MyDatasetTableAdapters.TableAdapterManager()
         Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl()
         Me.BarButtonAdd = New DevExpress.XtraBars.BarButtonItem()
         Me.BarButtonDelete = New DevExpress.XtraBars.BarButtonItem()
@@ -437,7 +437,7 @@ Partial Class frmConnection
         Me.TableAdapterManager.TBCW_PROFILESTableAdapter = Nothing
         Me.TableAdapterManager.TBCW_USER_PROFILETableAdapter = Nothing
         Me.TableAdapterManager.TBDD_CONNECTIONTableAdapter = Me.TBDD_CONNECTIONTableAdapter
-        Me.TableAdapterManager.UpdateOrder = DD_Clipboard_Watcher.MyDatasetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete
+        Me.TableAdapterManager.UpdateOrder = easyFLOW.MyDatasetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete
         '
         'RibbonControl1
         '

app/DD_Clipboard_Searcher/frmConnection.vb

@@ -63,6 +63,7 @@ Public Class frmConnection
     Private Sub TBDD_CONNECTIONBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBDD_CONNECTIONBindingSource.AddingNew
         MyDataset.TBDD_CONNECTION.AKTIVColumn.DefaultValue = True
         MyDataset.TBDD_CONNECTION.ERSTELLTWERColumn.DefaultValue = Environment.UserName
+        MyDataset.TBDD_CONNECTION.SQL_PROVIDERColumn.DefaultValue = "MS-SQL"
     End Sub
 
     Private Sub Button1_Click(sender As Object, e As EventArgs)
@@ -196,7 +197,7 @@ Public Class frmConnection
         Try
             If GUIDTextBox.Text <> String.Empty Then
                 Dim oSQL = $"SELECT dbo.FNCW_GET_SEARCH_COUNT_FOR_CONNECTION({GUIDTextBox.Text})"
-                Dim oCount = Database.GetScalarValue(oSQL)
+                Dim oCount = MyDB_DDECM.GetScalarValue(oSQL)
 
                 If oCount IsNot Nothing AndAlso oCount = 0 Then
                     Dim oResult As MsgBoxResult = MsgBox("Wollen Sie die Verbindung wirklich löschen?", MsgBoxStyle.YesNo, Text)

app/DD_Clipboard_Searcher/frmControlCapture.Designer.vb

@@ -1,6 +1,6 @@
 <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
 Partial Class frmControlCapture
-    Inherits System.Windows.Forms.Form
+    Inherits DevExpress.XtraEditors.XtraForm
 
     'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
     <System.Diagnostics.DebuggerNonUserCode()>
@@ -26,18 +26,13 @@ Partial Class frmControlCapture
         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmControlCapture))
         Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
         Me.Label3 = New System.Windows.Forms.Label()
-        Me.Button1 = New System.Windows.Forms.Button()
+        Me.btnOK = New System.Windows.Forms.Button()
-        Me.Button2 = New System.Windows.Forms.Button()
+        Me.btnCancel = New System.Windows.Forms.Button()
         Me.rbControlName = New System.Windows.Forms.RadioButton()
         Me.rbControlPosition = New System.Windows.Forms.RadioButton()
-        Me.gbControlName = New System.Windows.Forms.GroupBox()
+        Me.txtControlName = New System.Windows.Forms.TextBox()
-        Me.gbControlPosition = New System.Windows.Forms.GroupBox()
+        Me.txtControlBounds = New System.Windows.Forms.TextBox()
-        Me.TextBox1 = New System.Windows.Forms.TextBox()
         Me.Label1 = New System.Windows.Forms.Label()
-        Me.Label2 = New System.Windows.Forms.Label()
-        Me.TextBox2 = New System.Windows.Forms.TextBox()
-        Me.gbControlName.SuspendLayout()
-        Me.gbControlPosition.SuspendLayout()
         Me.SuspendLayout()
         '
         'Timer1
@@ -49,38 +44,38 @@ Partial Class frmControlCapture
         '
         Me.Label3.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.Label3.Font = New System.Drawing.Font("Tahoma", 9.75!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label3.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label3.Location = New System.Drawing.Point(12, 269)
+        Me.Label3.Location = New System.Drawing.Point(9, 141)
         Me.Label3.Name = "Label3"
         Me.Label3.Size = New System.Drawing.Size(383, 27)
         Me.Label3.TabIndex = 11
-        Me.Label3.Text = "Auswertung von aktivem Feld läuft!" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10)
+        Me.Label3.Text = "Auswertung läuft"
         '
-        'Button1
+        'btnOK
         '
-        Me.Button1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.btnOK.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
-        Me.Button1.DialogResult = System.Windows.Forms.DialogResult.OK
+        Me.btnOK.DialogResult = System.Windows.Forms.DialogResult.OK
-        Me.Button1.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.add
+        Me.btnOK.Image = Global.easyFLOW.My.Resources.Resources.add
-        Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnOK.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.Button1.Location = New System.Drawing.Point(12, 299)
+        Me.btnOK.Location = New System.Drawing.Point(12, 190)
-        Me.Button1.Name = "Button1"
+        Me.btnOK.Name = "btnOK"
-        Me.Button1.Size = New System.Drawing.Size(159, 34)
+        Me.btnOK.Size = New System.Drawing.Size(159, 34)
-        Me.Button1.TabIndex = 0
+        Me.btnOK.TabIndex = 0
-        Me.Button1.Text = "Feld zuordnen"
+        Me.btnOK.Text = "Feld zuordnen"
-        Me.Button1.UseVisualStyleBackColor = True
+        Me.btnOK.UseVisualStyleBackColor = True
         '
-        'Button2
+        'btnCancel
         '
-        Me.Button2.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.btnCancel.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.Button2.DialogResult = System.Windows.Forms.DialogResult.Cancel
+        Me.btnCancel.DialogResult = System.Windows.Forms.DialogResult.Cancel
-        Me.Button2.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.cancel
+        Me.btnCancel.Image = Global.easyFLOW.My.Resources.Resources.cancel
-        Me.Button2.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnCancel.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.Button2.Location = New System.Drawing.Point(236, 299)
+        Me.btnCancel.Location = New System.Drawing.Point(236, 190)
-        Me.Button2.Name = "Button2"
+        Me.btnCancel.Name = "btnCancel"
-        Me.Button2.Size = New System.Drawing.Size(159, 34)
+        Me.btnCancel.Size = New System.Drawing.Size(159, 34)
-        Me.Button2.TabIndex = 0
+        Me.btnCancel.TabIndex = 0
-        Me.Button2.Text = "Abbruch"
+        Me.btnCancel.Text = "Abbruch"
-        Me.Button2.UseVisualStyleBackColor = True
+        Me.btnCancel.UseVisualStyleBackColor = True
         '
         'rbControlName
         '
@@ -97,105 +92,74 @@ Partial Class frmControlCapture
         'rbControlPosition
         '
         Me.rbControlPosition.AutoSize = True
-        Me.rbControlPosition.Location = New System.Drawing.Point(12, 118)
+        Me.rbControlPosition.Location = New System.Drawing.Point(12, 36)
         Me.rbControlPosition.Name = "rbControlPosition"
         Me.rbControlPosition.Size = New System.Drawing.Size(100, 17)
         Me.rbControlPosition.TabIndex = 14
         Me.rbControlPosition.Text = "Control Position"
         Me.rbControlPosition.UseVisualStyleBackColor = True
         '
-        'gbControlName
+        'txtControlName
         '
-        Me.gbControlName.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
+        Me.txtControlName.Location = New System.Drawing.Point(152, 8)
-            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.txtControlName.Name = "txtControlName"
-        Me.gbControlName.Controls.Add(Me.Label2)
+        Me.txtControlName.ReadOnly = True
-        Me.gbControlName.Controls.Add(Me.TextBox1)
+        Me.txtControlName.Size = New System.Drawing.Size(243, 21)
-        Me.gbControlName.Location = New System.Drawing.Point(140, 12)
+        Me.txtControlName.TabIndex = 0
-        Me.gbControlName.Name = "gbControlName"
-        Me.gbControlName.Size = New System.Drawing.Size(255, 100)
-        Me.gbControlName.TabIndex = 15
-        Me.gbControlName.TabStop = False
-        Me.gbControlName.Text = "Control Name"
         '
-        'gbControlPosition
+        'txtControlBounds
         '
-        Me.gbControlPosition.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
+        Me.txtControlBounds.Location = New System.Drawing.Point(152, 35)
-            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.txtControlBounds.Multiline = True
-        Me.gbControlPosition.Controls.Add(Me.TextBox2)
+        Me.txtControlBounds.Name = "txtControlBounds"
-        Me.gbControlPosition.Controls.Add(Me.Label1)
+        Me.txtControlBounds.ReadOnly = True
-        Me.gbControlPosition.Location = New System.Drawing.Point(140, 118)
+        Me.txtControlBounds.Size = New System.Drawing.Size(240, 88)
-        Me.gbControlPosition.Name = "gbControlPosition"
+        Me.txtControlBounds.TabIndex = 1
-        Me.gbControlPosition.Size = New System.Drawing.Size(255, 137)
-        Me.gbControlPosition.TabIndex = 15
-        Me.gbControlPosition.TabStop = False
-        Me.gbControlPosition.Text = "Control Position"
-        '
-        'TextBox1
-        '
-        Me.TextBox1.Location = New System.Drawing.Point(6, 20)
-        Me.TextBox1.Name = "TextBox1"
-        Me.TextBox1.Size = New System.Drawing.Size(243, 21)
-        Me.TextBox1.TabIndex = 0
         '
         'Label1
         '
-        Me.Label1.Location = New System.Drawing.Point(6, 100)
+        Me.Label1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label1.AutoSize = True
+        Me.Label1.Location = New System.Drawing.Point(9, 168)
         Me.Label1.Name = "Label1"
-        Me.Label1.Size = New System.Drawing.Size(243, 34)
+        Me.Label1.Size = New System.Drawing.Size(255, 13)
-        Me.Label1.TabIndex = 0
+        Me.Label1.TabIndex = 15
-        Me.Label1.Text = "Wechseln Sie durch die aktiven Anwendungen und klicken Sie in ein Feld"
+        Me.Label1.Text = "Markieren und kopieren Sie einen Text in einem Feld"
-        '
-        'Label2
-        '
-        Me.Label2.Location = New System.Drawing.Point(6, 49)
-        Me.Label2.Name = "Label2"
-        Me.Label2.Size = New System.Drawing.Size(243, 48)
-        Me.Label2.TabIndex = 0
-        Me.Label2.Text = "Markieren Sie Text in einem Feld und Kopieren Sie Text"
-        '
-        'TextBox2
-        '
-        Me.TextBox2.Location = New System.Drawing.Point(9, 20)
-        Me.TextBox2.Multiline = True
-        Me.TextBox2.Name = "TextBox2"
-        Me.TextBox2.Size = New System.Drawing.Size(240, 77)
-        Me.TextBox2.TabIndex = 1
         '
         'frmControlCapture
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(407, 345)
+        Me.ClientSize = New System.Drawing.Size(407, 236)
-        Me.Controls.Add(Me.gbControlPosition)
+        Me.Controls.Add(Me.Label1)
-        Me.Controls.Add(Me.gbControlName)
+        Me.Controls.Add(Me.txtControlBounds)
+        Me.Controls.Add(Me.txtControlName)
         Me.Controls.Add(Me.rbControlPosition)
         Me.Controls.Add(Me.rbControlName)
         Me.Controls.Add(Me.Label3)
-        Me.Controls.Add(Me.Button2)
+        Me.Controls.Add(Me.btnCancel)
-        Me.Controls.Add(Me.Button1)
+        Me.Controls.Add(Me.btnOK)
         Me.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
         Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
+        Me.MaximizeBox = False
+        Me.MinimizeBox = False
         Me.Name = "frmControlCapture"
+        Me.ShowIcon = False
         Me.Text = "Feld Auswertung"
         Me.TopMost = True
-        Me.gbControlName.ResumeLayout(False)
-        Me.gbControlName.PerformLayout()
-        Me.gbControlPosition.ResumeLayout(False)
-        Me.gbControlPosition.PerformLayout()
         Me.ResumeLayout(False)
         Me.PerformLayout()
 
     End Sub
     Friend WithEvents Timer1 As Timer
     Friend WithEvents Label3 As Label
-    Friend WithEvents Button1 As Button
+    Friend WithEvents btnOK As Button
-    Friend WithEvents Button2 As Button
+    Friend WithEvents btnCancel As Button
     Friend WithEvents rbControlName As RadioButton
     Friend WithEvents rbControlPosition As RadioButton
-    Friend WithEvents gbControlName As GroupBox
+    Friend WithEvents txtControlName As TextBox
-    Friend WithEvents TextBox1 As TextBox
+    Friend WithEvents txtControlBounds As TextBox
-    Friend WithEvents gbControlPosition As GroupBox
-    Friend WithEvents Label2 As Label
     Friend WithEvents Label1 As Label
-    Friend WithEvents TextBox2 As TextBox
 End Class

app/DD_Clipboard_Searcher/frmControlCapture.vb

@@ -7,19 +7,24 @@ Public Class frmControlCapture
     Public Property BottomLeft As RectangleInfo
     Public Property BottomRight As RectangleInfo
 
-    Public Property ControlName As String
+    Public Property ControlName As String = String.Empty
+    Public Property ControlBounds As String
 
-    Private WithEvents Watcher As ClipboardWatcher = ClipboardWatcher.Singleton
+    'Private WithEvents Watcher As ClipboardWatcher = ClipboardWatcher.Singleton
+    Private WithEvents Watcher2 As ClasseasyFLOW = ClasseasyFLOW.Singleton
     Private Window As Window
 
     Private EditMode As Boolean = False
 
-    Public Sub New(EditMode As Boolean)
+
+    Public Sub New(EditMode As Boolean, Optional ControlBounds As String = "", Optional ControlName As String = "")
         ' Dieser Aufruf ist für den Designer erforderlich.
         InitializeComponent()
 
         ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
-        EditMode = EditMode
+        Me.EditMode = EditMode
+        Me.ControlName = ControlName
+        Me.ControlBounds = ControlBounds
     End Sub
 
     Private Sub frmControlCapture_Load(sender As Object, e As EventArgs) Handles Me.Load
@@ -27,51 +32,76 @@ Public Class frmControlCapture
 
         rbControlName.Checked = True
 
-        AddHandler Watcher.Changed, AddressOf Watcher_Changed
+        If ControlName <> String.Empty Then
+            rbControlName.Checked = True
+            txtControlName.Text = ControlName
+        End If
+
+        If ControlBounds <> String.Empty Then
+            rbControlPosition.Checked = True
+            txtControlBounds.Text = ControlBounds
+        End If
+
+        'AddHandler Watcher.Changed, AddressOf Watcher_Changed
+        AddHandler Watcher2.Changed, AddressOf Watcher_Changed
     End Sub
 
-    Private Sub Watcher_Changed(sender As Object, e As EventArgs)
+    Private Sub frmControlCapture_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
-        ' === CONTROL NAME ===
+        RemoveHandler Watcher2.Changed, AddressOf Watcher_Changed
+    End Sub
 
+    Private Sub Watcher_Changed(sender As Object, e As String)
+        Try
+            ' === CONTROL NAME ===
             Dim oControl As WindowInfo = Window.GetFocusedControl(Handle)
 
             If oControl IsNot Nothing Then
-            TextBox1.Text = oControl.ControlName
+                txtControlName.Text = oControl.ControlName
                 ControlName = oControl.ControlName
             End If
+        Catch ex As Exception
+            Logger.Error(ex)
+            MsgBox($"Control Name konnte nicht ausgelesen werden!{vbNewLine}Dies kann ein temporärer Fehler sein. Bitte versuchen Sie es noch einmal.", MsgBoxStyle.Exclamation, Text)
+        End Try
 
+        Try
             ' === CONTROL POSITION ===
+            Dim oRectangles As Dictionary(Of String, RectangleInfo) = Window.GetFocusedControlLocation(Handle)
 
-        For Each oAnchor As Anchor In [Enum].GetValues(GetType(Anchor))
+            For Each oRect As KeyValuePair(Of String, RectangleInfo) In oRectangles
-            Dim oRect As RectangleInfo = Window.GetFocusedControlLocation(Handle, oAnchor)
+                Select Case oRect.Key
-
+                    Case Window.Anchor.TopLeft.ToString
-            Select Case oAnchor
+                        If oRect.Value IsNot Nothing Then
-                Case Window.Anchor.TopLeft
+                            TopLeft = oRect.Value
-                    If oRect IsNot Nothing Then
-                        TopLeft = oRect
                         End If
 
-                Case Window.Anchor.TopRight
+                    Case Window.Anchor.TopRight.ToString
-                    If oRect IsNot Nothing Then
+                        If oRect.Value IsNot Nothing Then
-                        TopRight = oRect
+                            TopRight = oRect.Value
                         End If
 
-                Case Window.Anchor.BottomLeft
+                    Case Window.Anchor.BottomLeft.ToString
-                    If oRect IsNot Nothing Then
+                        If oRect.Value IsNot Nothing Then
-                        BottomLeft = oRect
+                            BottomLeft = oRect.Value
                         End If
 
-                Case Window.Anchor.BottomRight
+                    Case Window.Anchor.BottomRight.ToString
-                    If oRect IsNot Nothing Then
+                        If oRect.Value IsNot Nothing Then
-                        BottomRight = oRect
+                            BottomRight = oRect.Value
                         End If
                 End Select
-
-            TextBox2.Text = GetBoundsString()
             Next
+
+            txtControlBounds.Text = GetBoundsString(TopLeft, TopRight, BottomLeft, BottomRight)
+        Catch ex As Exception
+            Logger.Error(ex)
+            MsgBox($"Control Koordinaten konnten nicht ausgelesen werden!{vbNewLine}Dies kann ein temporärer Fehler sein. Bitte versuchen Sie es noch einmal.", MsgBoxStyle.Exclamation, Text)
+        End Try
+
+        UpdateOKButton()
     End Sub
 
-    Private Function GetBoundsString()
+    Public Shared Function GetBoundsString(TopLeft As RectangleInfo, TopRight As RectangleInfo, BottomLeft As RectangleInfo, BottomRight As RectangleInfo)
         Dim oResult As String = String.Empty
 
         If TopLeft IsNot Nothing Then
@@ -90,25 +120,33 @@ Public Class frmControlCapture
         Return oResult
     End Function
 
+    Private Sub UpdateOKButton()
+        If rbControlName.Checked Then
+            txtControlName.Enabled = rbControlName.Checked
+            txtControlBounds.Enabled = Not rbControlName.Checked
+
+            btnOK.Enabled = rbControlName.Checked And ControlName <> String.Empty
+        ElseIf rbControlPosition.Checked Then
+            txtControlBounds.Enabled = rbControlPosition.Checked
+            txtControlName.Enabled = Not rbControlPosition.Checked
+
+            btnOK.Enabled = rbControlPosition.Checked And TopLeft IsNot Nothing
+        End If
+    End Sub
+
+
     Private Sub RadioButton1_CheckedChanged(sender As Object, e As EventArgs) Handles rbControlName.CheckedChanged
-        gbControlName.Enabled = rbControlName.Checked
+        UpdateOKButton()
-        gbControlPosition.Enabled = Not rbControlName.Checked
     End Sub
 
     Private Sub RadioButton2_CheckedChanged(sender As Object, e As EventArgs) Handles rbControlPosition.CheckedChanged
-        gbControlName.Enabled = Not rbControlPosition.Checked
+        UpdateOKButton()
-        gbControlPosition.Enabled = rbControlPosition.Checked
     End Sub
 
-    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnOK.Click
-        If TextBox1.Text = String.Empty And TextBox2.Text = String.Empty Then
-            MsgBox("Kein Control gefunden!")
-            DialogResult = DialogResult.Cancel
-        End If
-
         If rbControlPosition.Checked Then
             ControlName = String.Empty
-        Else
+        ElseIf rbControlName.Checked Then
             TopLeft = New RectangleInfo()
             TopRight = New RectangleInfo()
             BottomLeft = New RectangleInfo()

app/DD_Clipboard_Searcher/frmDocView.designer.vb

@@ -1,503 +0,0 @@
-<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
-Partial Class frmDocView
-    Inherits System.Windows.Forms.Form
-
-    'Form overrides dispose to clean up the component list.
-    <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
-
-    'Required by the Windows Form Designer
-    Private components As System.ComponentModel.IContainer
-
-    'NOTE: The following procedure is required by the Windows Form Designer
-    'It can be modified using the Windows Form Designer.  
-    'Do not modify it using the code editor.
-    <System.Diagnostics.DebuggerStepThrough()> _
-    Private Sub InitializeComponent()
-        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmDocView))
-        Me.GdViewer1 = New GdPicture14.GdViewer()
-        Me.statusbar = New System.Windows.Forms.StatusStrip()
-        Me.ToolStripStatusLabel1 = New System.Windows.Forms.ToolStripStatusLabel()
-        Me.ToolStripStatusLabel2 = New System.Windows.Forms.ToolStripStatusLabel()
-        Me.mainToolStrip = New System.Windows.Forms.ToolStrip()
-        Me.btnOpen = New System.Windows.Forms.ToolStripButton()
-        Me.btnPrint = New System.Windows.Forms.ToolStripButton()
-        Me.ToolStripSeparator3 = New System.Windows.Forms.ToolStripSeparator()
-        Me.btnFitWidth = New System.Windows.Forms.ToolStripButton()
-        Me.btnFitPage = New System.Windows.Forms.ToolStripButton()
-        Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator()
-        Me.btnMouseMode = New System.Windows.Forms.ToolStripDropDownButton()
-        Me.DefaultToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
-        Me.PanToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
-        Me.AreaSelectionToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
-        Me.AreaZoomingToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
-        Me.MagnifierToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
-        Me.ToolStripSeparator6 = New System.Windows.Forms.ToolStripSeparator()
-        Me.btnFirstPage = New System.Windows.Forms.ToolStripButton()
-        Me.btnPreviousPage = New System.Windows.Forms.ToolStripButton()
-        Me.tbCurrentPage = New System.Windows.Forms.ToolStripTextBox()
-        Me.lblPageCount = New System.Windows.Forms.ToolStripLabel()
-        Me.btnNextPage = New System.Windows.Forms.ToolStripButton()
-        Me.btnLastPage = New System.Windows.Forms.ToolStripButton()
-        Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
-        Me.btnZoomOut = New System.Windows.Forms.ToolStripButton()
-        Me.cbZoom = New System.Windows.Forms.ToolStripComboBox()
-        Me.btnZoomIn = New System.Windows.Forms.ToolStripButton()
-        Me.ToolStripSeparator5 = New System.Windows.Forms.ToolStripSeparator()
-        Me.btnRotateLeft = New System.Windows.Forms.ToolStripButton()
-        Me.btnRotateRight = New System.Windows.Forms.ToolStripButton()
-        Me.btnFlipX = New System.Windows.Forms.ToolStripButton()
-        Me.btnFlipY = New System.Windows.Forms.ToolStripButton()
-        Me.ToolStripSeparator4 = New System.Windows.Forms.ToolStripSeparator()
-        Me.btnSettings = New System.Windows.Forms.ToolStripButton()
-        Me.btnAbout = New System.Windows.Forms.ToolStripButton()
-        Me.pMain = New System.Windows.Forms.Panel()
-        Me.statusbar.SuspendLayout()
-        Me.mainToolStrip.SuspendLayout()
-        Me.pMain.SuspendLayout()
-        Me.SuspendLayout()
-        '
-        'GdViewer1
-        '
-        Me.GdViewer1.AllowDropFile = False
-        Me.GdViewer1.AnimateGIF = True
-        Me.GdViewer1.AnnotationDropShadow = False
-        Me.GdViewer1.AnnotationResizeRotateHandlesColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(128, Byte), Integer))
-        Me.GdViewer1.AnnotationResizeRotateHandlesScale = 1.0!
-        Me.GdViewer1.AnnotationSelectionLineColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer))
-        Me.GdViewer1.AutoScrollMargin = New System.Drawing.Size(0, 0)
-        Me.GdViewer1.AutoScrollMinSize = New System.Drawing.Size(0, 0)
-        Me.GdViewer1.BackColor = System.Drawing.SystemColors.AppWorkspace
-        Me.GdViewer1.BackgroundImage = Nothing
-        Me.GdViewer1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None
-        Me.GdViewer1.ContinuousViewMode = True
-        Me.GdViewer1.Cursor = System.Windows.Forms.Cursors.Default
-        Me.GdViewer1.DisplayQuality = GdPicture14.DisplayQuality.DisplayQualityAutomatic
-        Me.GdViewer1.DisplayQualityAuto = True
-        Me.GdViewer1.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.GdViewer1.DocumentAlignment = GdPicture14.ViewerDocumentAlignment.DocumentAlignmentMiddleCenter
-        Me.GdViewer1.DocumentPosition = GdPicture14.ViewerDocumentPosition.DocumentPositionMiddleCenter
-        Me.GdViewer1.DrawPageBorders = True
-        Me.GdViewer1.EnableDeferredPainting = True
-        Me.GdViewer1.EnabledProgressBar = True
-        Me.GdViewer1.EnableICM = False
-        Me.GdViewer1.EnableMenu = True
-        Me.GdViewer1.EnableMouseWheel = True
-        Me.GdViewer1.EnableTextSelection = True
-        Me.GdViewer1.ForceScrollBars = False
-        Me.GdViewer1.ForceTemporaryMode = False
-        Me.GdViewer1.ForeColor = System.Drawing.Color.Black
-        Me.GdViewer1.Gamma = 1.0!
-        Me.GdViewer1.HQAnnotationRendering = True
-        Me.GdViewer1.IgnoreDocumentResolution = False
-        Me.GdViewer1.KeepDocumentPosition = False
-        Me.GdViewer1.Location = New System.Drawing.Point(0, 0)
-        Me.GdViewer1.LockViewer = False
-        Me.GdViewer1.MagnifierHeight = 90
-        Me.GdViewer1.MagnifierWidth = 160
-        Me.GdViewer1.MagnifierZoomX = 2.0!
-        Me.GdViewer1.MagnifierZoomY = 2.0!
-        Me.GdViewer1.MouseButtonForMouseMode = GdPicture14.MouseButton.MouseButtonLeft
-        Me.GdViewer1.MouseMode = GdPicture14.ViewerMouseMode.MouseModePan
-        Me.GdViewer1.MouseWheelMode = GdPicture14.ViewerMouseWheelMode.MouseWheelModeZoom
-        Me.GdViewer1.Name = "GdViewer1"
-        Me.GdViewer1.PageBordersColor = System.Drawing.Color.Black
-        Me.GdViewer1.PageBordersPenSize = 1
-        Me.GdViewer1.PageDisplayMode = GdPicture14.PageDisplayMode.MultiplePagesView
-        Me.GdViewer1.PdfDisplayFormField = True
-        Me.GdViewer1.PdfEnableFileLinks = True
-        Me.GdViewer1.PdfEnableLinks = True
-        Me.GdViewer1.PdfIncreaseTextContrast = False
-        Me.GdViewer1.PdfRasterizerEngine = GdPicture14.PdfRasterizerEngine.PdfRasterizerEngineHybrid
-        Me.GdViewer1.PdfShowDialogForPassword = True
-        Me.GdViewer1.PdfShowOpenFileDialogForDecryption = True
-        Me.GdViewer1.PdfVerifyDigitalCertificates = False
-        Me.GdViewer1.RectBorderColor = System.Drawing.Color.Black
-        Me.GdViewer1.RectBorderSize = 1
-        Me.GdViewer1.RectIsEditable = True
-        Me.GdViewer1.RegionsAreEditable = True
-        Me.GdViewer1.RenderGdPictureAnnots = True
-        Me.GdViewer1.ScrollBars = True
-        Me.GdViewer1.ScrollLargeChange = CType(50, Short)
-        Me.GdViewer1.ScrollSmallChange = CType(1, Short)
-        Me.GdViewer1.SilentMode = True
-        Me.GdViewer1.Size = New System.Drawing.Size(1264, 676)
-        Me.GdViewer1.TabIndex = 0
-        Me.GdViewer1.ViewRotation = System.Drawing.RotateFlipType.RotateNoneFlipNone
-        Me.GdViewer1.Zoom = 0R
-        Me.GdViewer1.ZoomCenterAtMousePosition = False
-        Me.GdViewer1.ZoomMode = GdPicture14.ViewerZoomMode.ZoomModeFitToViewer
-        Me.GdViewer1.ZoomStep = 25
-        '
-        'statusbar
-        '
-        Me.statusbar.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripStatusLabel1, Me.ToolStripStatusLabel2})
-        Me.statusbar.Location = New System.Drawing.Point(0, 707)
-        Me.statusbar.Name = "statusbar"
-        Me.statusbar.Size = New System.Drawing.Size(1264, 22)
-        Me.statusbar.TabIndex = 3
-        Me.statusbar.Text = "StatusStrip1"
-        '
-        'ToolStripStatusLabel1
-        '
-        Me.ToolStripStatusLabel1.Name = "ToolStripStatusLabel1"
-        Me.ToolStripStatusLabel1.Size = New System.Drawing.Size(0, 17)
-        '
-        'ToolStripStatusLabel2
-        '
-        Me.ToolStripStatusLabel2.Name = "ToolStripStatusLabel2"
-        Me.ToolStripStatusLabel2.Size = New System.Drawing.Size(0, 17)
-        '
-        'mainToolStrip
-        '
-        Me.mainToolStrip.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.mainToolStrip.GripStyle = System.Windows.Forms.ToolStripGripStyle.Hidden
-        Me.mainToolStrip.ImageScalingSize = New System.Drawing.Size(24, 24)
-        Me.mainToolStrip.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.btnOpen, Me.btnPrint, Me.ToolStripSeparator3, Me.btnFitWidth, Me.btnFitPage, Me.ToolStripSeparator2, Me.btnMouseMode, Me.ToolStripSeparator6, Me.btnFirstPage, Me.btnPreviousPage, Me.tbCurrentPage, Me.lblPageCount, Me.btnNextPage, Me.btnLastPage, Me.ToolStripSeparator1, Me.btnZoomOut, Me.cbZoom, Me.btnZoomIn, Me.ToolStripSeparator5, Me.btnRotateLeft, Me.btnRotateRight, Me.btnFlipX, Me.btnFlipY, Me.ToolStripSeparator4, Me.btnSettings, Me.btnAbout})
-        Me.mainToolStrip.Location = New System.Drawing.Point(0, 0)
-        Me.mainToolStrip.Name = "mainToolStrip"
-        Me.mainToolStrip.Size = New System.Drawing.Size(1264, 31)
-        Me.mainToolStrip.TabIndex = 5
-        Me.mainToolStrip.Text = "ToolStrip1"
-        '
-        'btnOpen
-        '
-        Me.btnOpen.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
-        Me.btnOpen.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.btnOpen.Image = CType(resources.GetObject("btnOpen.Image"), System.Drawing.Image)
-        Me.btnOpen.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None
-        Me.btnOpen.ImageTransparentColor = System.Drawing.Color.Magenta
-        Me.btnOpen.Margin = New System.Windows.Forms.Padding(10, 1, 0, 2)
-        Me.btnOpen.Name = "btnOpen"
-        Me.btnOpen.Size = New System.Drawing.Size(28, 28)
-        Me.btnOpen.Text = "Open document"
-        '
-        'btnPrint
-        '
-        Me.btnPrint.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
-        Me.btnPrint.Image = CType(resources.GetObject("btnPrint.Image"), System.Drawing.Image)
-        Me.btnPrint.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None
-        Me.btnPrint.ImageTransparentColor = System.Drawing.Color.Magenta
-        Me.btnPrint.Name = "btnPrint"
-        Me.btnPrint.Size = New System.Drawing.Size(28, 28)
-        Me.btnPrint.Text = "Print document"
-        '
-        'ToolStripSeparator3
-        '
-        Me.ToolStripSeparator3.Margin = New System.Windows.Forms.Padding(10, 0, 10, 0)
-        Me.ToolStripSeparator3.Name = "ToolStripSeparator3"
-        Me.ToolStripSeparator3.Size = New System.Drawing.Size(6, 31)
-        '
-        'btnFitWidth
-        '
-        Me.btnFitWidth.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
-        Me.btnFitWidth.Image = CType(resources.GetObject("btnFitWidth.Image"), System.Drawing.Image)
-        Me.btnFitWidth.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None
-        Me.btnFitWidth.ImageTransparentColor = System.Drawing.Color.Magenta
-        Me.btnFitWidth.Name = "btnFitWidth"
-        Me.btnFitWidth.Size = New System.Drawing.Size(28, 28)
-        Me.btnFitWidth.Text = "Adjust to page width"
-        '
-        'btnFitPage
-        '
-        Me.btnFitPage.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
-        Me.btnFitPage.Image = CType(resources.GetObject("btnFitPage.Image"), System.Drawing.Image)
-        Me.btnFitPage.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None
-        Me.btnFitPage.ImageTransparentColor = System.Drawing.Color.Magenta
-        Me.btnFitPage.Name = "btnFitPage"
-        Me.btnFitPage.Size = New System.Drawing.Size(28, 28)
-        Me.btnFitPage.Text = "Adjust to whole page"
-        '
-        'ToolStripSeparator2
-        '
-        Me.ToolStripSeparator2.Margin = New System.Windows.Forms.Padding(10, 0, 10, 0)
-        Me.ToolStripSeparator2.Name = "ToolStripSeparator2"
-        Me.ToolStripSeparator2.Size = New System.Drawing.Size(6, 31)
-        '
-        'btnMouseMode
-        '
-        Me.btnMouseMode.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
-        Me.btnMouseMode.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DefaultToolStripMenuItem, Me.PanToolStripMenuItem, Me.AreaSelectionToolStripMenuItem, Me.AreaZoomingToolStripMenuItem, Me.MagnifierToolStripMenuItem})
-        Me.btnMouseMode.Image = CType(resources.GetObject("btnMouseMode.Image"), System.Drawing.Image)
-        Me.btnMouseMode.ImageTransparentColor = System.Drawing.Color.Magenta
-        Me.btnMouseMode.Name = "btnMouseMode"
-        Me.btnMouseMode.Size = New System.Drawing.Size(37, 28)
-        Me.btnMouseMode.Text = "Mouse mode"
-        '
-        'DefaultToolStripMenuItem
-        '
-        Me.DefaultToolStripMenuItem.CheckOnClick = True
-        Me.DefaultToolStripMenuItem.Name = "DefaultToolStripMenuItem"
-        Me.DefaultToolStripMenuItem.Size = New System.Drawing.Size(151, 22)
-        Me.DefaultToolStripMenuItem.Text = "Default"
-        '
-        'PanToolStripMenuItem
-        '
-        Me.PanToolStripMenuItem.Checked = True
-        Me.PanToolStripMenuItem.CheckOnClick = True
-        Me.PanToolStripMenuItem.CheckState = System.Windows.Forms.CheckState.Checked
-        Me.PanToolStripMenuItem.Name = "PanToolStripMenuItem"
-        Me.PanToolStripMenuItem.Size = New System.Drawing.Size(151, 22)
-        Me.PanToolStripMenuItem.Text = "Pan"
-        '
-        'AreaSelectionToolStripMenuItem
-        '
-        Me.AreaSelectionToolStripMenuItem.CheckOnClick = True
-        Me.AreaSelectionToolStripMenuItem.Name = "AreaSelectionToolStripMenuItem"
-        Me.AreaSelectionToolStripMenuItem.Size = New System.Drawing.Size(151, 22)
-        Me.AreaSelectionToolStripMenuItem.Text = "Area selection"
-        '
-        'AreaZoomingToolStripMenuItem
-        '
-        Me.AreaZoomingToolStripMenuItem.CheckOnClick = True
-        Me.AreaZoomingToolStripMenuItem.Name = "AreaZoomingToolStripMenuItem"
-        Me.AreaZoomingToolStripMenuItem.Size = New System.Drawing.Size(151, 22)
-        Me.AreaZoomingToolStripMenuItem.Text = "Area zooming"
-        '
-        'MagnifierToolStripMenuItem
-        '
-        Me.MagnifierToolStripMenuItem.CheckOnClick = True
-        Me.MagnifierToolStripMenuItem.Name = "MagnifierToolStripMenuItem"
-        Me.MagnifierToolStripMenuItem.Size = New System.Drawing.Size(151, 22)
-        Me.MagnifierToolStripMenuItem.Text = "Magnifier"
-        '
-        'ToolStripSeparator6
-        '
-        Me.ToolStripSeparator6.Margin = New System.Windows.Forms.Padding(5, 0, 10, 0)
-        Me.ToolStripSeparator6.Name = "ToolStripSeparator6"
-        Me.ToolStripSeparator6.Size = New System.Drawing.Size(6, 31)
-        '
-        'btnFirstPage
-        '
-        Me.btnFirstPage.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
-        Me.btnFirstPage.Image = CType(resources.GetObject("btnFirstPage.Image"), System.Drawing.Image)
-        Me.btnFirstPage.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None
-        Me.btnFirstPage.ImageTransparentColor = System.Drawing.Color.Magenta
-        Me.btnFirstPage.Name = "btnFirstPage"
-        Me.btnFirstPage.Size = New System.Drawing.Size(28, 28)
-        Me.btnFirstPage.Text = "Go to first page"
-        '
-        'btnPreviousPage
-        '
-        Me.btnPreviousPage.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
-        Me.btnPreviousPage.Image = CType(resources.GetObject("btnPreviousPage.Image"), System.Drawing.Image)
-        Me.btnPreviousPage.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None
-        Me.btnPreviousPage.ImageTransparentColor = System.Drawing.Color.Magenta
-        Me.btnPreviousPage.Name = "btnPreviousPage"
-        Me.btnPreviousPage.Size = New System.Drawing.Size(28, 28)
-        Me.btnPreviousPage.Text = "Go to previous page"
-        '
-        'tbCurrentPage
-        '
-        Me.tbCurrentPage.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.tbCurrentPage.Name = "tbCurrentPage"
-        Me.tbCurrentPage.Size = New System.Drawing.Size(40, 31)
-        Me.tbCurrentPage.TextBoxTextAlign = System.Windows.Forms.HorizontalAlignment.Right
-        '
-        'lblPageCount
-        '
-        Me.lblPageCount.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.lblPageCount.Name = "lblPageCount"
-        Me.lblPageCount.Size = New System.Drawing.Size(25, 28)
-        Me.lblPageCount.Text = "/ X"
-        '
-        'btnNextPage
-        '
-        Me.btnNextPage.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
-        Me.btnNextPage.Image = CType(resources.GetObject("btnNextPage.Image"), System.Drawing.Image)
-        Me.btnNextPage.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None
-        Me.btnNextPage.ImageTransparentColor = System.Drawing.Color.Magenta
-        Me.btnNextPage.Name = "btnNextPage"
-        Me.btnNextPage.Size = New System.Drawing.Size(28, 28)
-        Me.btnNextPage.Text = "Go to next page"
-        '
-        'btnLastPage
-        '
-        Me.btnLastPage.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
-        Me.btnLastPage.Image = CType(resources.GetObject("btnLastPage.Image"), System.Drawing.Image)
-        Me.btnLastPage.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None
-        Me.btnLastPage.ImageTransparentColor = System.Drawing.Color.Magenta
-        Me.btnLastPage.Name = "btnLastPage"
-        Me.btnLastPage.Size = New System.Drawing.Size(28, 28)
-        Me.btnLastPage.Text = "Go to last page"
-        '
-        'ToolStripSeparator1
-        '
-        Me.ToolStripSeparator1.Margin = New System.Windows.Forms.Padding(10, 0, 10, 0)
-        Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
-        Me.ToolStripSeparator1.Size = New System.Drawing.Size(6, 31)
-        '
-        'btnZoomOut
-        '
-        Me.btnZoomOut.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
-        Me.btnZoomOut.Image = CType(resources.GetObject("btnZoomOut.Image"), System.Drawing.Image)
-        Me.btnZoomOut.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None
-        Me.btnZoomOut.ImageTransparentColor = System.Drawing.Color.Magenta
-        Me.btnZoomOut.Name = "btnZoomOut"
-        Me.btnZoomOut.Size = New System.Drawing.Size(28, 28)
-        Me.btnZoomOut.Text = "Zoom out"
-        '
-        'cbZoom
-        '
-        Me.cbZoom.DropDownWidth = 200
-        Me.cbZoom.Name = "cbZoom"
-        Me.cbZoom.Size = New System.Drawing.Size(75, 31)
-        '
-        'btnZoomIn
-        '
-        Me.btnZoomIn.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
-        Me.btnZoomIn.Image = CType(resources.GetObject("btnZoomIn.Image"), System.Drawing.Image)
-        Me.btnZoomIn.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None
-        Me.btnZoomIn.ImageTransparentColor = System.Drawing.Color.Magenta
-        Me.btnZoomIn.Name = "btnZoomIn"
-        Me.btnZoomIn.Size = New System.Drawing.Size(28, 28)
-        Me.btnZoomIn.Text = "Zoom In"
-        '
-        'ToolStripSeparator5
-        '
-        Me.ToolStripSeparator5.Margin = New System.Windows.Forms.Padding(10, 0, 10, 0)
-        Me.ToolStripSeparator5.Name = "ToolStripSeparator5"
-        Me.ToolStripSeparator5.Size = New System.Drawing.Size(6, 31)
-        '
-        'btnRotateLeft
-        '
-        Me.btnRotateLeft.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
-        Me.btnRotateLeft.Image = CType(resources.GetObject("btnRotateLeft.Image"), System.Drawing.Image)
-        Me.btnRotateLeft.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None
-        Me.btnRotateLeft.ImageTransparentColor = System.Drawing.Color.Magenta
-        Me.btnRotateLeft.Name = "btnRotateLeft"
-        Me.btnRotateLeft.Size = New System.Drawing.Size(28, 28)
-        Me.btnRotateLeft.Text = "Rotate left"
-        '
-        'btnRotateRight
-        '
-        Me.btnRotateRight.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
-        Me.btnRotateRight.Image = CType(resources.GetObject("btnRotateRight.Image"), System.Drawing.Image)
-        Me.btnRotateRight.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None
-        Me.btnRotateRight.ImageTransparentColor = System.Drawing.Color.Magenta
-        Me.btnRotateRight.Name = "btnRotateRight"
-        Me.btnRotateRight.Size = New System.Drawing.Size(28, 28)
-        Me.btnRotateRight.Text = "Rotate right"
-        '
-        'btnFlipX
-        '
-        Me.btnFlipX.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
-        Me.btnFlipX.Image = CType(resources.GetObject("btnFlipX.Image"), System.Drawing.Image)
-        Me.btnFlipX.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None
-        Me.btnFlipX.ImageTransparentColor = System.Drawing.Color.Magenta
-        Me.btnFlipX.Name = "btnFlipX"
-        Me.btnFlipX.Size = New System.Drawing.Size(28, 28)
-        Me.btnFlipX.Text = "Vertical flip"
-        '
-        'btnFlipY
-        '
-        Me.btnFlipY.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
-        Me.btnFlipY.Image = CType(resources.GetObject("btnFlipY.Image"), System.Drawing.Image)
-        Me.btnFlipY.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None
-        Me.btnFlipY.ImageTransparentColor = System.Drawing.Color.Magenta
-        Me.btnFlipY.Name = "btnFlipY"
-        Me.btnFlipY.Size = New System.Drawing.Size(28, 28)
-        Me.btnFlipY.Text = "Horizontal flip"
-        '
-        'ToolStripSeparator4
-        '
-        Me.ToolStripSeparator4.Margin = New System.Windows.Forms.Padding(10, 0, 10, 0)
-        Me.ToolStripSeparator4.Name = "ToolStripSeparator4"
-        Me.ToolStripSeparator4.Size = New System.Drawing.Size(6, 31)
-        '
-        'btnSettings
-        '
-        Me.btnSettings.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
-        Me.btnSettings.Image = CType(resources.GetObject("btnSettings.Image"), System.Drawing.Image)
-        Me.btnSettings.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None
-        Me.btnSettings.ImageTransparentColor = System.Drawing.Color.Magenta
-        Me.btnSettings.Name = "btnSettings"
-        Me.btnSettings.Size = New System.Drawing.Size(28, 28)
-        Me.btnSettings.Text = "Viewer settings"
-        '
-        'btnAbout
-        '
-        Me.btnAbout.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
-        Me.btnAbout.Image = CType(resources.GetObject("btnAbout.Image"), System.Drawing.Image)
-        Me.btnAbout.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None
-        Me.btnAbout.ImageTransparentColor = System.Drawing.Color.Magenta
-        Me.btnAbout.Name = "btnAbout"
-        Me.btnAbout.Size = New System.Drawing.Size(28, 28)
-        Me.btnAbout.Text = "About"
-        '
-        'pMain
-        '
-        Me.pMain.Controls.Add(Me.GdViewer1)
-        Me.pMain.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.pMain.Location = New System.Drawing.Point(0, 31)
-        Me.pMain.Name = "pMain"
-        Me.pMain.Size = New System.Drawing.Size(1264, 676)
-        Me.pMain.TabIndex = 6
-        '
-        'frmDocView
-        '
-        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
-        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(1264, 729)
-        Me.Controls.Add(Me.pMain)
-        Me.Controls.Add(Me.mainToolStrip)
-        Me.Controls.Add(Me.statusbar)
-        Me.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
-        Me.Name = "frmDocView"
-        Me.Text = "Document Viewer"
-        Me.statusbar.ResumeLayout(False)
-        Me.statusbar.PerformLayout()
-        Me.mainToolStrip.ResumeLayout(False)
-        Me.mainToolStrip.PerformLayout()
-        Me.pMain.ResumeLayout(False)
-        Me.ResumeLayout(False)
-        Me.PerformLayout()
-
-    End Sub
-    Friend WithEvents GdViewer1 As GdPicture14.GdViewer
-    Friend WithEvents statusbar As System.Windows.Forms.StatusStrip
-    Friend WithEvents mainToolStrip As System.Windows.Forms.ToolStrip
-    Friend WithEvents pMain As System.Windows.Forms.Panel
-    Friend WithEvents btnOpen As System.Windows.Forms.ToolStripButton
-    Friend WithEvents btnPrint As System.Windows.Forms.ToolStripButton
-    Friend WithEvents btnAbout As System.Windows.Forms.ToolStripButton
-    Friend WithEvents ToolStripStatusLabel1 As System.Windows.Forms.ToolStripStatusLabel
-    Friend WithEvents ToolStripSeparator3 As System.Windows.Forms.ToolStripSeparator
-    Friend WithEvents ToolStripSeparator4 As System.Windows.Forms.ToolStripSeparator
-    Friend WithEvents btnFirstPage As System.Windows.Forms.ToolStripButton
-    Friend WithEvents btnPreviousPage As System.Windows.Forms.ToolStripButton
-    Friend WithEvents tbCurrentPage As System.Windows.Forms.ToolStripTextBox
-    Friend WithEvents lblPageCount As System.Windows.Forms.ToolStripLabel
-    Friend WithEvents btnNextPage As System.Windows.Forms.ToolStripButton
-    Friend WithEvents btnLastPage As System.Windows.Forms.ToolStripButton
-    Friend WithEvents ToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator
-    Friend WithEvents btnZoomOut As System.Windows.Forms.ToolStripButton
-    Friend WithEvents cbZoom As System.Windows.Forms.ToolStripComboBox
-    Friend WithEvents btnZoomIn As System.Windows.Forms.ToolStripButton
-    Friend WithEvents ToolStripSeparator2 As System.Windows.Forms.ToolStripSeparator
-    Friend WithEvents btnRotateLeft As System.Windows.Forms.ToolStripButton
-    Friend WithEvents btnRotateRight As System.Windows.Forms.ToolStripButton
-    Friend WithEvents btnFlipX As System.Windows.Forms.ToolStripButton
-    Friend WithEvents btnFlipY As System.Windows.Forms.ToolStripButton
-    Friend WithEvents btnSettings As System.Windows.Forms.ToolStripButton
-    Friend WithEvents btnFitWidth As System.Windows.Forms.ToolStripButton
-    Friend WithEvents btnFitPage As System.Windows.Forms.ToolStripButton
-    Friend WithEvents btnMouseMode As System.Windows.Forms.ToolStripDropDownButton
-    Friend WithEvents ToolStripSeparator6 As System.Windows.Forms.ToolStripSeparator
-    Friend WithEvents DefaultToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
-    Friend WithEvents AreaSelectionToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
-    Friend WithEvents PanToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
-    Friend WithEvents AreaZoomingToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
-    Friend WithEvents MagnifierToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
-    Friend WithEvents ToolStripSeparator5 As System.Windows.Forms.ToolStripSeparator
-    Friend WithEvents ToolStripStatusLabel2 As ToolStripStatusLabel
-End Class

app/DD_Clipboard_Searcher/frmDocView.vb

@@ -1,479 +0,0 @@
-Option Strict On
-Option Explicit On
-
-Imports GdPicture14
-Imports System.Globalization
-Imports System.Text.RegularExpressions
-Imports System.Text
-Imports System.ComponentModel
-
-Public Class frmDocView
-    Private Enum ZoomMode
-        Zoom50
-        Zoom100
-        Zoom150
-        Zoom200
-        ZoomSelectedArea
-        ZoomFitToViewer
-        ZoomFitWidth
-        ZoomFitHeight
-    End Enum
-    Private _docPath As String
-    Private _currentSearchOccurence As Integer = 0
-    Private _toggleGamma As Boolean = True
-
-    Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As EventArgs) Handles MyBase.Load
-        Try
-            If GDPICTURE_LICENSE = String.Empty Then
-                Logger.Warn("GD Picture Missing! Please add a license to the Database!")
-                MsgBox($"Lizenz für den Dokumenten Viewer wurde nicht konfiguriert.{vbNewLine}Bitte wenden Sie sich an Digital Data!", MsgBoxStyle.Exclamation, "Clipboard Watcher")
-                Me.Close()
-
-            End If
-
-            Dim oLicenceManager As New GdPicture14.LicenseManager()
-            oLicenceManager.RegisterKEY(GDPICTURE_LICENSE) 'Please, replace XXXX by a valid demo or commercial license key.
-
-            Dim zoomModes As New Dictionary(Of ZoomMode, String) From {
-                {ZoomMode.Zoom50, "50%"},
-                {ZoomMode.Zoom100, "100%"},
-                {ZoomMode.Zoom150, "150%"},
-                {ZoomMode.Zoom200, "200%"},
-                {ZoomMode.ZoomSelectedArea, "Zoom to selected area"},
-                {ZoomMode.ZoomFitToViewer, "Fit to viewer"},
-                {ZoomMode.ZoomFitWidth, "Fit to viewer width"},
-                {ZoomMode.ZoomFitHeight, "Fit to viewer height"}
-            }
-            For Each item In zoomModes
-                cbZoom.Items.Add(item.Value)
-            Next
-
-            Dim imageListSearchResults As New ImageList
-            imageListSearchResults.ImageSize = New Size(20, 20)
-            imageListSearchResults.Images.Add(CType(My.Resources.ResourceManager.GetObject("search"), Image))
-
-            UpdateMainUi()
-
-            If Not ConfigManager.Config.ViewerWindowLocation.IsEmpty Then
-                Location = ConfigManager.Config.ViewerWindowLocation
-            End If
-
-            If Not ConfigManager.Config.ViewerWindowSize.IsEmpty Then
-                Size = ConfigManager.Config.ViewerWindowSize
-            End If
-        Catch ex As Exception
-            MsgBox(ex.Message, MsgBoxStyle.Critical)
-        End Try
-
-    End Sub
-    Public Sub Load_File_from_Path(filepath As String)
-        CloseDocument()
-        _docPath = filepath
-        ToolStripStatusLabel2.Text = _docPath
-        GdViewer1.ZoomMode = ViewerZoomMode.ZoomModeWidthViewer
-        GdViewer1.DocumentAlignment = ViewerDocumentAlignment.DocumentAlignmentTopCenter
-
-        GdViewer1.DisplayFromFile(filepath)
-        GdViewer1.Focus()
-        UpdateMainUi()
-    End Sub
-
-    Private Sub UpdateMainUi()
-        If GdViewer1.PageCount = 0 Then
-            btnOpen.Enabled = True
-            btnPrint.Enabled = False
-            btnFirstPage.Enabled = False
-            btnPreviousPage.Enabled = False
-            tbCurrentPage.Enabled = False
-            lblPageCount.Enabled = False
-            btnNextPage.Enabled = False
-            btnLastPage.Enabled = False
-            btnZoomOut.Enabled = False
-            cbZoom.Enabled = False
-            btnZoomIn.Enabled = False
-            btnFitPage.Enabled = False
-            btnFitWidth.Enabled = False
-            btnRotateLeft.Enabled = False
-            btnRotateRight.Enabled = False
-            btnFlipX.Enabled = False
-            btnFlipY.Enabled = False
-            tbCurrentPage.Text = "0"
-            lblPageCount.Text = "/ 0"
-            cbZoom.SelectedIndex = -1
-        Else
-            btnOpen.Enabled = False
-            btnPrint.Enabled = True
-            btnFirstPage.Enabled = True
-            btnPreviousPage.Enabled = True
-            tbCurrentPage.Enabled = True
-            lblPageCount.Enabled = True
-            btnNextPage.Enabled = True
-            btnLastPage.Enabled = True
-            btnZoomOut.Enabled = True
-            cbZoom.Enabled = True
-            btnZoomIn.Enabled = True
-            btnFitPage.Enabled = True
-            btnFitWidth.Enabled = True
-            btnRotateLeft.Enabled = True
-            btnRotateRight.Enabled = True
-            btnFlipX.Enabled = True
-            btnFlipY.Enabled = True
-            UpdateaNavigationToolbar()
-        End If
-    End Sub
-
-    Private Sub UpdateaNavigationToolbar()
-        Dim currentPage As Integer = GdViewer1.CurrentPage()
-        tbCurrentPage.Text = currentPage.ToString()
-        lblPageCount.Text = "/ " & GdViewer1.PageCount.ToString()
-        If currentPage = 1 Then
-            btnFirstPage.Enabled = False
-            btnPreviousPage.Enabled = False
-        Else
-            btnFirstPage.Enabled = True
-            btnPreviousPage.Enabled = True
-        End If
-        If currentPage = GdViewer1.PageCount Then
-            btnNextPage.Enabled = False
-            btnLastPage.Enabled = False
-        Else
-            btnNextPage.Enabled = True
-            btnLastPage.Enabled = True
-        End If
-        cbZoom.Text = String.Format(CultureInfo.InvariantCulture, "{0:#0.##%}", GdViewer1.Zoom)
-
-
-        Dim widthInches, heightInches As Double
-
-        If GdViewer1.GetDocumentType = DocumentType.DocumentTypePDF Then
-            widthInches = GdViewer1.PdfGetPageWidth / 72
-            heightInches = GdViewer1.PdfGetPageHeight / 72
-        Else
-            widthInches = GdViewer1.PageWidth / GdViewer1.HorizontalResolution
-            heightInches = GdViewer1.PageHeight / GdViewer1.VerticalResolution
-        End If
-
-        Me.ToolStripStatusLabel1.Text = "Typ: " + GetDocumentTypeLabel() + "  -  " +
-                                        "Seitengröße (zoll): " + Trim(Str(Math.Round(widthInches, 2))) + " × " + Trim(Str(Math.Round(heightInches, 2))) + "  -  " +
-                                        "Seitengröße (pixel): " + Trim(Str(GdViewer1.PageWidth)) + " × " + Trim(Str(GdViewer1.PageHeight)) + "  -  " +
-                                        "Horizontale Auflösung: " + Trim(Str(Math.Round(GdViewer1.HorizontalResolution, 2))) + " DPI  -  " +
-                                        "Vertikale Auflösung: " + Trim(Str(Math.Round(GdViewer1.VerticalResolution, 2))) + " DPI"
-
-    End Sub
-
-    Private Function GetDocumentTypeLabel() As String
-        Dim result As String = ""
-        Select Case GdViewer1.GetDocumentType()
-            Case DocumentType.DocumentTypeBitmap
-                result = "Bilddatei"
-            Case DocumentType.DocumentTypeMetaFile
-                result = "Metafile"
-            Case DocumentType.DocumentTypePDF
-                result = "PDF"
-            Case DocumentType.DocumentTypeSVG
-                result = "SVG"
-            Case DocumentType.DocumentTypeTXT
-                result = "Textdatei"
-            Case DocumentType.DocumentTypeUnknown
-                result = "Unbekannt"
-        End Select
-        Return result
-    End Function
-
-    Private Sub CloseDocument()
-        GdViewer1.CloseDocument()
-        UpdateMainUi()
-    End Sub
-
-    Private Sub btnOpen_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles btnOpen.Click
-        CloseDocument()
-
-        GdViewer1.ZoomMode = ViewerZoomMode.ZoomModeWidthViewer
-        GdViewer1.DocumentAlignment = ViewerDocumentAlignment.DocumentAlignmentTopCenter
-
-        Using frmOpen As New frmDocViewOpen(GdViewer1)
-            frmOpen.ShowDialog(Me)
-        End Using
-        GdViewer1.Focus()
-        UpdateMainUi()
-    End Sub
-
-    Private Sub btnFirstPage_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles btnFirstPage.Click
-        GdViewer1.DisplayFirstPage()
-    End Sub
-
-    Private Sub btnPreviousPage_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles btnPreviousPage.Click
-        GdViewer1.DisplayPreviousPage()
-    End Sub
-
-    Private Sub btnNextPage_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles btnNextPage.Click
-        GdViewer1.DisplayNextPage()
-    End Sub
-
-    Private Sub btnLastPage_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles btnLastPage.Click
-        GdViewer1.DisplayLastPage()
-    End Sub
-
-    Private Sub tbCurrentPage_Leave(ByVal sender As System.Object, ByVal e As EventArgs) Handles tbCurrentPage.Leave
-        Dim page As Integer = 0
-        If Integer.TryParse(tbCurrentPage.Text, page) Then
-            If page > 0 And page <= GdViewer1.PageCount Then
-                GdViewer1.DisplayPage(page)
-                UpdateaNavigationToolbar()
-            End If
-        End If
-    End Sub
-
-    Private Sub GdViewer1_PageChanged() Handles GdViewer1.PageChanged
-        UpdateaNavigationToolbar()
-    End Sub
-
-    Private Sub ChangeZoomValue()
-        If cbZoom.SelectedIndex <> -1 Then
-            Select Case CType(cbZoom.SelectedIndex, ZoomMode)
-                Case ZoomMode.Zoom50
-                    GdViewer1.Zoom = 50.0F / 100
-                Case ZoomMode.Zoom100
-                    GdViewer1.Zoom = 100.0F / 100
-                Case ZoomMode.Zoom150
-                    GdViewer1.Zoom = 150.0F / 100
-                Case ZoomMode.Zoom200
-                    GdViewer1.Zoom = 250.0F / 100
-                Case ZoomMode.ZoomSelectedArea
-                    If GdViewer1.IsRect() Then
-                        GdViewer1.ZoomRect()
-                    Else
-                        GdViewer1.MouseMode = ViewerMouseMode.MouseModeAreaSelection
-                        GdViewer1.Focus()
-                    End If
-                Case ZoomMode.ZoomFitToViewer
-                    GdViewer1.ZoomMode = ViewerZoomMode.ZoomModeFitToViewer
-                Case ZoomMode.ZoomFitWidth
-                    GdViewer1.ZoomMode = ViewerZoomMode.ZoomModeWidthViewer
-                Case ZoomMode.ZoomFitHeight
-                    GdViewer1.ZoomMode = ViewerZoomMode.ZoomModeHeightViewer
-            End Select
-        Else
-            If (IsNumeric(Regex.Replace(cbZoom.Text, "[^0-9,.]", ""))) Then
-                GdViewer1.Zoom = Val(Regex.Replace(cbZoom.Text, "[^0-9,.]", "")) / 100
-            End If
-        End If
-        UpdateaNavigationToolbar()
-    End Sub
-
-    Private Sub cbZoom_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As EventArgs) Handles cbZoom.SelectedIndexChanged
-        ChangeZoomValue()
-    End Sub
-
-    Private Sub GdViewer1_AfterZoomChange() Handles GdViewer1.AfterZoomChange
-        UpdateaNavigationToolbar()
-        If GdViewer1.MouseMode = ViewerMouseMode.MouseModeAreaZooming Then
-            GdViewer1.MouseMode = ViewerMouseMode.MouseModePan
-        End If
-    End Sub
-
-    Private Sub btnZoomOut_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles btnZoomOut.Click
-        GdViewer1.ZoomOUT()
-    End Sub
-
-    Private Sub btnZoomIn_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles btnZoomIn.Click
-        GdViewer1.ZoomIN()
-    End Sub
-
-    Private Sub cbZoom_TextUpdate(ByVal sender As System.Object, ByVal e As EventArgs) Handles cbZoom.Validating
-        ChangeZoomValue()
-    End Sub
-
-    Private Sub btnAbout_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles btnAbout.Click
-        Using frmAbout As New frmDocViewAbout()
-            frmAbout.ShowDialog(Me)
-        End Using
-    End Sub
-
-    Private Sub btnPrint_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles btnPrint.Click
-        If GdViewer1.PageCount = 0 Then
-            Return
-        End If
-        Using f As New frmPrint(GdViewer1)
-            f.ShowDialog(Me)
-            If f.DialogResult <> DialogResult.OK Then
-                Return
-            End If
-            Dim printSettings As frmPrint.PrintSettings = f.printConfiguration
-            If Not GdViewer1.PrintSetActivePrinter(printSettings.Printer) Then
-                Return
-            End If
-            GdViewer1.PrintSetDocumentName("GdPicture Print Job " + DateTime.Now.ToString("yyyy-MM-dd HH\mm"))
-            GdViewer1.PrintSetAlignment(printSettings.PrintAlignment)
-            Select Case printSettings.Orientation
-                Case frmPrint.PrintOrientation.AutoDetection
-                    GdViewer1.PrintSetAutoRotation(True)
-                    Exit Select
-                Case frmPrint.PrintOrientation.Portrait
-                    GdViewer1.PrintSetAutoRotation(False)
-                    GdViewer1.PrintSetOrientation(PrinterOrientation.PrinterOrientationPortrait)
-                    Exit Select
-                Case frmPrint.PrintOrientation.Paysage
-                    GdViewer1.PrintSetAutoRotation(False)
-                    GdViewer1.PrintSetOrientation(PrinterOrientation.PrinterOrientationLandscape)
-                    Exit Select
-            End Select
-            GdViewer1.PrintSetCopies(printSettings.Copies)
-            If printSettings.Copies > 1 Then
-                GdViewer1.PrintSetCollate(printSettings.Collate)
-            End If
-            Select Case printSettings.PagesToPrint
-                Case frmPrint.PagesToPrint.All
-                    GdViewer1.PrintSetFromToPage(1, GdViewer1.PageCount)
-                    GdViewer1.Print(printSettings.PrintSize)
-                    Exit Select
-                Case frmPrint.PagesToPrint.Current
-                    GdViewer1.PrintSetFromToPage(GdViewer1.CurrentPage, GdViewer1.CurrentPage)
-                    GdViewer1.Print(printSettings.PrintSize)
-                    Exit Select
-                Case frmPrint.PagesToPrint.Range
-                    If printSettings.PageRange IsNot Nothing And printSettings.PageRange <> String.Empty Then
-                        If printSettings.PageRange.Contains("-") Then
-                            Dim pageStart As Integer = 0
-                            If Integer.TryParse(printSettings.PageRange.Split("-"c)(0), pageStart) Then
-                                Dim pageEnd As Integer = 0
-                                If Integer.TryParse(printSettings.PageRange.Split("-"c)(1), pageEnd) Then
-                                    If pageEnd < pageStart Then
-                                        GdViewer1.PrintSetFromToPage(pageEnd, pageStart)
-                                        GdViewer1.Print(printSettings.PrintSize)
-                                    Else
-                                        GdViewer1.PrintSetFromToPage(pageStart, pageEnd)
-                                        GdViewer1.Print(printSettings.PrintSize)
-                                    End If
-                                Else
-                                    MessageBox.Show("Page range is invalid.", "Error", MessageBoxButtons.OK, MessageBoxIcon.[Error])
-                                End If
-                            Else
-                                MessageBox.Show("Page range is invalid.", "Error", MessageBoxButtons.OK, MessageBoxIcon.[Error])
-                            End If
-                        Else
-                            Dim page As Integer = 0
-                            If Integer.TryParse(printSettings.PageRange, page) Then
-                                GdViewer1.PrintSetFromToPage(page, page)
-                                GdViewer1.Print(printSettings.PrintSize)
-                            Else
-                                MessageBox.Show("Page range is invalid.", "Error", MessageBoxButtons.OK, MessageBoxIcon.[Error])
-                            End If
-                        End If
-                    Else
-                        MessageBox.Show("Page range is invalid.", "Error", MessageBoxButtons.OK, MessageBoxIcon.[Error])
-                    End If
-                    Exit Select
-            End Select
-        End Using
-    End Sub
-
-    Private Sub btnRotateLeft_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles btnRotateLeft.Click
-        GdViewer1.Rotate(RotateFlipType.Rotate270FlipNone)
-    End Sub
-
-    Private Sub btnRotateRight_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles btnRotateRight.Click
-        GdViewer1.Rotate(RotateFlipType.Rotate90FlipNone)
-    End Sub
-
-    Private Sub btnFlipX_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles btnFlipX.Click
-        GdViewer1.Rotate(RotateFlipType.RotateNoneFlipX)
-    End Sub
-
-    Private Sub btnFlipY_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles btnFlipY.Click
-        GdViewer1.Rotate(RotateFlipType.RotateNoneFlipY)
-    End Sub
-
-    Private Sub GdViewer1_TransferEnded(ByVal status As GdPictureStatus, ByVal download As System.Boolean) Handles GdViewer1.TransferEnded
-        GdViewer1.Focus()
-        UpdateMainUi()
-    End Sub
-
-    Private Sub cbZoom_Validating(ByVal sender As System.Object, ByVal e As CancelEventArgs) Handles cbZoom.Validating
-        ChangeZoomValue()
-    End Sub
-
-    Private Sub AddSearchRegion(ByVal occurence As Integer, ByVal leftCoordinate As Single, ByVal topCoordinate As Single, ByVal regionWidth As Single, ByVal regionheight As Single, ByVal ensureVisibility As Boolean)
-        Dim searchRegion As Integer = GdViewer1.AddRegionInches("SearchResult" & occurence, leftCoordinate, topCoordinate, regionWidth, regionheight, ForegroundMixMode.ForegroundMixModeMASKPEN, Color.Yellow)
-        GdViewer1.SetRegionEditable(searchRegion, False)
-        If ensureVisibility Then
-            GdViewer1.EnsureRegionVisibility(searchRegion)
-        End If
-    End Sub
-
-    Private Sub btnSettings_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnSettings.Click
-        Using frmSettings As New frmSettings(GdViewer1)
-            frmSettings.ShowDialog(Me)
-        End Using
-        UpdateaNavigationToolbar()
-    End Sub
-
-    Private Sub btnFitWidth_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnFitWidth.Click
-        GdViewer1.ZoomMode = ViewerZoomMode.ZoomModeWidthViewer
-    End Sub
-
-    Private Sub btnFitPage_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnFitPage.Click
-        GdViewer1.ZoomMode = ViewerZoomMode.ZoomModeFitToViewer
-    End Sub
-
-    Private Sub DefaultToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles DefaultToolStripMenuItem.Click
-        GdViewer1.MouseMode = ViewerMouseMode.MouseModeDefault
-        DefaultToolStripMenuItem.Checked = True
-        AreaSelectionToolStripMenuItem.Checked = False
-        PanToolStripMenuItem.Checked = False
-        AreaZoomingToolStripMenuItem.Checked = False
-        MagnifierToolStripMenuItem.Checked = False
-        GdViewer1.Focus()
-    End Sub
-
-    Private Sub AreaSelectionToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles AreaSelectionToolStripMenuItem.Click
-        GdViewer1.MouseMode = ViewerMouseMode.MouseModeAreaSelection
-        DefaultToolStripMenuItem.Checked = False
-        AreaSelectionToolStripMenuItem.Checked = True
-        PanToolStripMenuItem.Checked = False
-        AreaZoomingToolStripMenuItem.Checked = False
-        MagnifierToolStripMenuItem.Checked = False
-        GdViewer1.Focus()
-    End Sub
-
-    Private Sub PanToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles PanToolStripMenuItem.Click
-        GdViewer1.MouseMode = ViewerMouseMode.MouseModePan
-        DefaultToolStripMenuItem.Checked = False
-        AreaSelectionToolStripMenuItem.Checked = False
-        PanToolStripMenuItem.Checked = True
-        AreaZoomingToolStripMenuItem.Checked = False
-        MagnifierToolStripMenuItem.Checked = False
-        GdViewer1.Focus()
-    End Sub
-
-    Private Sub AreaZoomingToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles AreaZoomingToolStripMenuItem.Click
-        GdViewer1.MouseMode = ViewerMouseMode.MouseModeAreaZooming
-        DefaultToolStripMenuItem.Checked = False
-        AreaSelectionToolStripMenuItem.Checked = False
-        PanToolStripMenuItem.Checked = False
-        AreaZoomingToolStripMenuItem.Checked = True
-        MagnifierToolStripMenuItem.Checked = False
-        GdViewer1.Focus()
-    End Sub
-
-    Private Sub MagnifierToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles MagnifierToolStripMenuItem.Click
-        GdViewer1.MouseMode = ViewerMouseMode.MouseModeMagnifier
-        DefaultToolStripMenuItem.Checked = False
-        AreaSelectionToolStripMenuItem.Checked = False
-        PanToolStripMenuItem.Checked = False
-        AreaZoomingToolStripMenuItem.Checked = False
-        MagnifierToolStripMenuItem.Checked = True
-        GdViewer1.Focus()
-    End Sub
-
-    Private Sub frmDocView_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
-        Try
-            ConfigManager.Config.ViewerWindowLocation = Location
-            ConfigManager.Config.ViewerWindowSize = Size
-            ConfigManager.Save()
-        Catch ex As Exception
-            Logger.Error(ex)
-            Logger.Info("Error in Save FormLayout: " & ex.Message)
-        End Try
-    End Sub
-End Class

app/DD_Clipboard_Searcher/frmDocViewAbout.designer.vb

@@ -1,160 +0,0 @@
-<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
-Partial Class frmDocViewAbout
-    Inherits System.Windows.Forms.Form
-
-    'Form overrides dispose to clean up the component list.
-    <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
-
-    'Required by the Windows Form Designer
-    Private components As System.ComponentModel.IContainer
-
-    'NOTE: The following procedure is required by the Windows Form Designer
-    'It can be modified using the Windows Form Designer.  
-    'Do not modify it using the code editor.
-    <System.Diagnostics.DebuggerStepThrough()> _
-    Private Sub InitializeComponent()
-        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmDocViewAbout))
-        Me.btnClose = New System.Windows.Forms.Button()
-        Me.lblCopyrightORPALIS = New System.Windows.Forms.Label()
-        Me.PictureBox1 = New System.Windows.Forms.PictureBox()
-        Me.Panel1 = New System.Windows.Forms.Panel()
-        Me.Panel2 = New System.Windows.Forms.Panel()
-        Me.lblDemoName = New System.Windows.Forms.Label()
-        Me.lblGdPictureDemo = New System.Windows.Forms.Label()
-        Me.lblGdPictureWebsite = New System.Windows.Forms.LinkLabel()
-        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
-        Me.Panel1.SuspendLayout()
-        Me.Panel2.SuspendLayout()
-        Me.SuspendLayout()
-        '
-        'btnClose
-        '
-        Me.btnClose.Location = New System.Drawing.Point(664, 283)
-        Me.btnClose.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
-        Me.btnClose.Name = "btnClose"
-        Me.btnClose.Size = New System.Drawing.Size(100, 28)
-        Me.btnClose.TabIndex = 0
-        Me.btnClose.Text = "Close"
-        Me.btnClose.UseVisualStyleBackColor = True
-        '
-        'lblCopyrightORPALIS
-        '
-        Me.lblCopyrightORPALIS.AutoSize = True
-        Me.lblCopyrightORPALIS.Enabled = False
-        Me.lblCopyrightORPALIS.Location = New System.Drawing.Point(11, 289)
-        Me.lblCopyrightORPALIS.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
-        Me.lblCopyrightORPALIS.Name = "lblCopyrightORPALIS"
-        Me.lblCopyrightORPALIS.Size = New System.Drawing.Size(181, 17)
-        Me.lblCopyrightORPALIS.TabIndex = 1
-        Me.lblCopyrightORPALIS.Text = "Copyright © 2018 ORPALIS"
-        '
-        'PictureBox1
-        '
-        Me.PictureBox1.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image)
-        Me.PictureBox1.Location = New System.Drawing.Point(0, 0)
-        Me.PictureBox1.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
-        Me.PictureBox1.Name = "PictureBox1"
-        Me.PictureBox1.Size = New System.Drawing.Size(780, 191)
-        Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
-        Me.PictureBox1.TabIndex = 2
-        Me.PictureBox1.TabStop = False
-        '
-        'Panel1
-        '
-        Me.Panel1.Controls.Add(Me.PictureBox1)
-        Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top
-        Me.Panel1.Location = New System.Drawing.Point(0, 0)
-        Me.Panel1.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
-        Me.Panel1.Name = "Panel1"
-        Me.Panel1.Size = New System.Drawing.Size(780, 191)
-        Me.Panel1.TabIndex = 3
-        '
-        'Panel2
-        '
-        Me.Panel2.BackColor = System.Drawing.SystemColors.Window
-        Me.Panel2.Controls.Add(Me.lblDemoName)
-        Me.Panel2.Controls.Add(Me.lblGdPictureDemo)
-        Me.Panel2.Dock = System.Windows.Forms.DockStyle.Top
-        Me.Panel2.Location = New System.Drawing.Point(0, 191)
-        Me.Panel2.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
-        Me.Panel2.Name = "Panel2"
-        Me.Panel2.Size = New System.Drawing.Size(780, 80)
-        Me.Panel2.TabIndex = 4
-        '
-        'lblDemoName
-        '
-        Me.lblDemoName.AutoSize = True
-        Me.lblDemoName.Location = New System.Drawing.Point(27, 39)
-        Me.lblDemoName.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
-        Me.lblDemoName.Name = "lblDemoName"
-        Me.lblDemoName.Size = New System.Drawing.Size(251, 17)
-        Me.lblDemoName.TabIndex = 1
-        Me.lblDemoName.Text = ".NET Winform Document Viewer Demo"
-        '
-        'lblGdPictureDemo
-        '
-        Me.lblGdPictureDemo.AutoSize = True
-        Me.lblGdPictureDemo.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.lblGdPictureDemo.Location = New System.Drawing.Point(13, 14)
-        Me.lblGdPictureDemo.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
-        Me.lblGdPictureDemo.Name = "lblGdPictureDemo"
-        Me.lblGdPictureDemo.Size = New System.Drawing.Size(247, 17)
-        Me.lblGdPictureDemo.TabIndex = 0
-        Me.lblGdPictureDemo.Text = "GdPicture.NET Application Demo"
-        '
-        'lblGdPictureWebsite
-        '
-        Me.lblGdPictureWebsite.AutoSize = True
-        Me.lblGdPictureWebsite.Location = New System.Drawing.Point(204, 289)
-        Me.lblGdPictureWebsite.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
-        Me.lblGdPictureWebsite.Name = "lblGdPictureWebsite"
-        Me.lblGdPictureWebsite.Size = New System.Drawing.Size(168, 17)
-        Me.lblGdPictureWebsite.TabIndex = 6
-        Me.lblGdPictureWebsite.TabStop = True
-        Me.lblGdPictureWebsite.Text = "http://www.gdpicture.com/"
-        '
-        'frmAbout
-        '
-        Me.AutoScaleDimensions = New System.Drawing.SizeF(8.0!, 16.0!)
-        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(780, 326)
-        Me.Controls.Add(Me.lblGdPictureWebsite)
-        Me.Controls.Add(Me.Panel2)
-        Me.Controls.Add(Me.Panel1)
-        Me.Controls.Add(Me.lblCopyrightORPALIS)
-        Me.Controls.Add(Me.btnClose)
-        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
-        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
-        Me.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
-        Me.MaximizeBox = False
-        Me.MinimizeBox = False
-        Me.Name = "frmAbout"
-        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
-        Me.Text = "About..."
-        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.Panel1.ResumeLayout(False)
-        Me.Panel2.ResumeLayout(False)
-        Me.Panel2.PerformLayout()
-        Me.ResumeLayout(False)
-        Me.PerformLayout()
-
-    End Sub
-    Friend WithEvents btnClose As System.Windows.Forms.Button
-    Friend WithEvents lblCopyrightORPALIS As System.Windows.Forms.Label
-    Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
-    Friend WithEvents Panel1 As System.Windows.Forms.Panel
-    Friend WithEvents Panel2 As System.Windows.Forms.Panel
-    Friend WithEvents lblDemoName As System.Windows.Forms.Label
-    Friend WithEvents lblGdPictureDemo As System.Windows.Forms.Label
-    Friend WithEvents lblGdPictureWebsite As System.Windows.Forms.LinkLabel
-End Class

app/DD_Clipboard_Searcher/frmDocViewAbout.vb

@@ -1,13 +0,0 @@
-Option Strict On
-Option Explicit On
-
-Public Class frmDocViewAbout
-
-    Private Sub btnClose_Click(sender As Object, e As EventArgs) Handles btnClose.Click
-        Me.Close()
-    End Sub
-
-    Private Sub lblGdPictureWebsite_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles lblGdPictureWebsite.LinkClicked
-        Process.Start("http://www.gdpicture.com/")
-    End Sub
-End Class

app/DD_Clipboard_Searcher/frmDocViewOpen.designer.vb

@@ -1,412 +0,0 @@
-<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
-Partial Class frmDocViewOpen
-    Inherits System.Windows.Forms.Form
-
-    'Form overrides dispose to clean up the component list.
-    <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
-
-    'Required by the Windows Form Designer
-    Private components As System.ComponentModel.IContainer
-
-    'NOTE: The following procedure is required by the Windows Form Designer
-    'It can be modified using the Windows Form Designer.  
-    'Do not modify it using the code editor.
-    <System.Diagnostics.DebuggerStepThrough()> _
-    Private Sub InitializeComponent()
-        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmDocViewOpen))
-        Me.pOpenFromFile = New System.Windows.Forms.Panel()
-        Me.btOpenFromFile = New System.Windows.Forms.Button()
-        Me.tbFile = New System.Windows.Forms.TextBox()
-        Me.rbOpenFromFile = New System.Windows.Forms.RadioButton()
-        Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog()
-        Me.rbOpenFromHTTP = New System.Windows.Forms.RadioButton()
-        Me.pOpenFromHTTP = New System.Windows.Forms.Panel()
-        Me.tbOpenFromHTTP = New System.Windows.Forms.TextBox()
-        Me.rbOpenFromFTP = New System.Windows.Forms.RadioButton()
-        Me.pOpenFromFTP = New System.Windows.Forms.Panel()
-        Me.tbPassword = New System.Windows.Forms.TextBox()
-        Me.lblPassword = New System.Windows.Forms.Label()
-        Me.tbLogin = New System.Windows.Forms.TextBox()
-        Me.lblLogin = New System.Windows.Forms.Label()
-        Me.tbPath = New System.Windows.Forms.TextBox()
-        Me.lblPath = New System.Windows.Forms.Label()
-        Me.tbPort = New System.Windows.Forms.TextBox()
-        Me.lblPort = New System.Windows.Forms.Label()
-        Me.tbHost = New System.Windows.Forms.TextBox()
-        Me.lblHost = New System.Windows.Forms.Label()
-        Me.rbOpenFromClipboard = New System.Windows.Forms.RadioButton()
-        Me.btnCancel = New System.Windows.Forms.Button()
-        Me.btnOpen = New System.Windows.Forms.Button()
-        Me.PictureBox1 = New System.Windows.Forms.PictureBox()
-        Me.PictureBox2 = New System.Windows.Forms.PictureBox()
-        Me.PictureBox3 = New System.Windows.Forms.PictureBox()
-        Me.PictureBox4 = New System.Windows.Forms.PictureBox()
-        Me.pOpenFromFile.SuspendLayout()
-        Me.pOpenFromHTTP.SuspendLayout()
-        Me.pOpenFromFTP.SuspendLayout()
-        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).BeginInit()
-        Me.SuspendLayout()
-        '
-        'pOpenFromFile
-        '
-        Me.pOpenFromFile.AutoSize = True
-        Me.pOpenFromFile.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
-        Me.pOpenFromFile.Controls.Add(Me.btOpenFromFile)
-        Me.pOpenFromFile.Controls.Add(Me.tbFile)
-        Me.pOpenFromFile.Location = New System.Drawing.Point(17, 44)
-        Me.pOpenFromFile.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
-        Me.pOpenFromFile.Name = "pOpenFromFile"
-        Me.pOpenFromFile.Size = New System.Drawing.Size(633, 33)
-        Me.pOpenFromFile.TabIndex = 0
-        '
-        'btOpenFromFile
-        '
-        Me.btOpenFromFile.Location = New System.Drawing.Point(529, 1)
-        Me.btOpenFromFile.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
-        Me.btOpenFromFile.Name = "btOpenFromFile"
-        Me.btOpenFromFile.Size = New System.Drawing.Size(100, 28)
-        Me.btOpenFromFile.TabIndex = 1
-        Me.btOpenFromFile.Text = "Browse..."
-        Me.btOpenFromFile.UseVisualStyleBackColor = True
-        '
-        'tbFile
-        '
-        Me.tbFile.Location = New System.Drawing.Point(4, 4)
-        Me.tbFile.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
-        Me.tbFile.Name = "tbFile"
-        Me.tbFile.ReadOnly = True
-        Me.tbFile.Size = New System.Drawing.Size(516, 22)
-        Me.tbFile.TabIndex = 0
-        '
-        'rbOpenFromFile
-        '
-        Me.rbOpenFromFile.AutoSize = True
-        Me.rbOpenFromFile.Location = New System.Drawing.Point(56, 16)
-        Me.rbOpenFromFile.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
-        Me.rbOpenFromFile.Name = "rbOpenFromFile"
-        Me.rbOpenFromFile.Size = New System.Drawing.Size(118, 21)
-        Me.rbOpenFromFile.TabIndex = 1
-        Me.rbOpenFromFile.TabStop = True
-        Me.rbOpenFromFile.Text = "Open from file"
-        Me.rbOpenFromFile.UseVisualStyleBackColor = True
-        '
-        'rbOpenFromHTTP
-        '
-        Me.rbOpenFromHTTP.AutoSize = True
-        Me.rbOpenFromHTTP.Location = New System.Drawing.Point(56, 98)
-        Me.rbOpenFromHTTP.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
-        Me.rbOpenFromHTTP.Name = "rbOpenFromHTTP"
-        Me.rbOpenFromHTTP.Size = New System.Drawing.Size(137, 21)
-        Me.rbOpenFromHTTP.TabIndex = 2
-        Me.rbOpenFromHTTP.TabStop = True
-        Me.rbOpenFromHTTP.Text = "Open from HTTP"
-        Me.rbOpenFromHTTP.UseVisualStyleBackColor = True
-        '
-        'pOpenFromHTTP
-        '
-        Me.pOpenFromHTTP.AutoSize = True
-        Me.pOpenFromHTTP.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
-        Me.pOpenFromHTTP.Controls.Add(Me.tbOpenFromHTTP)
-        Me.pOpenFromHTTP.Location = New System.Drawing.Point(21, 133)
-        Me.pOpenFromHTTP.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
-        Me.pOpenFromHTTP.Name = "pOpenFromHTTP"
-        Me.pOpenFromHTTP.Size = New System.Drawing.Size(627, 26)
-        Me.pOpenFromHTTP.TabIndex = 3
-        '
-        'tbOpenFromHTTP
-        '
-        Me.tbOpenFromHTTP.Location = New System.Drawing.Point(0, 0)
-        Me.tbOpenFromHTTP.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
-        Me.tbOpenFromHTTP.Name = "tbOpenFromHTTP"
-        Me.tbOpenFromHTTP.Size = New System.Drawing.Size(623, 22)
-        Me.tbOpenFromHTTP.TabIndex = 0
-        Me.tbOpenFromHTTP.Text = "http://download.bitsdujour.com/software/screenshot/orpalis-pdf-ocr-desktop-editio" &
-    "n-dbigw.png"
-        '
-        'rbOpenFromFTP
-        '
-        Me.rbOpenFromFTP.AutoSize = True
-        Me.rbOpenFromFTP.Location = New System.Drawing.Point(56, 180)
-        Me.rbOpenFromFTP.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
-        Me.rbOpenFromFTP.Name = "rbOpenFromFTP"
-        Me.rbOpenFromFTP.Size = New System.Drawing.Size(126, 21)
-        Me.rbOpenFromFTP.TabIndex = 4
-        Me.rbOpenFromFTP.TabStop = True
-        Me.rbOpenFromFTP.Text = "Open from FTP"
-        Me.rbOpenFromFTP.UseVisualStyleBackColor = True
-        '
-        'pOpenFromFTP
-        '
-        Me.pOpenFromFTP.AutoSize = True
-        Me.pOpenFromFTP.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
-        Me.pOpenFromFTP.Controls.Add(Me.tbPassword)
-        Me.pOpenFromFTP.Controls.Add(Me.lblPassword)
-        Me.pOpenFromFTP.Controls.Add(Me.tbLogin)
-        Me.pOpenFromFTP.Controls.Add(Me.lblLogin)
-        Me.pOpenFromFTP.Controls.Add(Me.tbPath)
-        Me.pOpenFromFTP.Controls.Add(Me.lblPath)
-        Me.pOpenFromFTP.Controls.Add(Me.tbPort)
-        Me.pOpenFromFTP.Controls.Add(Me.lblPort)
-        Me.pOpenFromFTP.Controls.Add(Me.tbHost)
-        Me.pOpenFromFTP.Controls.Add(Me.lblHost)
-        Me.pOpenFromFTP.Location = New System.Drawing.Point(17, 208)
-        Me.pOpenFromFTP.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
-        Me.pOpenFromFTP.Name = "pOpenFromFTP"
-        Me.pOpenFromFTP.Size = New System.Drawing.Size(632, 95)
-        Me.pOpenFromFTP.TabIndex = 5
-        '
-        'tbPassword
-        '
-        Me.tbPassword.Location = New System.Drawing.Point(392, 69)
-        Me.tbPassword.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
-        Me.tbPassword.Name = "tbPassword"
-        Me.tbPassword.PasswordChar = Global.Microsoft.VisualBasic.ChrW(42)
-        Me.tbPassword.Size = New System.Drawing.Size(236, 22)
-        Me.tbPassword.TabIndex = 9
-        Me.tbPassword.Text = "Anonymous"
-        '
-        'lblPassword
-        '
-        Me.lblPassword.AutoSize = True
-        Me.lblPassword.Location = New System.Drawing.Point(313, 73)
-        Me.lblPassword.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
-        Me.lblPassword.Name = "lblPassword"
-        Me.lblPassword.Size = New System.Drawing.Size(69, 17)
-        Me.lblPassword.TabIndex = 8
-        Me.lblPassword.Text = "Password"
-        '
-        'tbLogin
-        '
-        Me.tbLogin.Location = New System.Drawing.Point(52, 69)
-        Me.tbLogin.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
-        Me.tbLogin.Name = "tbLogin"
-        Me.tbLogin.Size = New System.Drawing.Size(236, 22)
-        Me.tbLogin.TabIndex = 7
-        Me.tbLogin.Text = "Anonymous"
-        '
-        'lblLogin
-        '
-        Me.lblLogin.AutoSize = True
-        Me.lblLogin.Location = New System.Drawing.Point(5, 73)
-        Me.lblLogin.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
-        Me.lblLogin.Name = "lblLogin"
-        Me.lblLogin.Size = New System.Drawing.Size(43, 17)
-        Me.lblLogin.TabIndex = 6
-        Me.lblLogin.Text = "Login"
-        '
-        'tbPath
-        '
-        Me.tbPath.Location = New System.Drawing.Point(52, 37)
-        Me.tbPath.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
-        Me.tbPath.Name = "tbPath"
-        Me.tbPath.Size = New System.Drawing.Size(576, 22)
-        Me.tbPath.TabIndex = 5
-        Me.tbPath.Text = "/design/processor/datashts/325567.pdf"
-        '
-        'lblPath
-        '
-        Me.lblPath.AutoSize = True
-        Me.lblPath.Location = New System.Drawing.Point(5, 41)
-        Me.lblPath.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
-        Me.lblPath.Name = "lblPath"
-        Me.lblPath.Size = New System.Drawing.Size(37, 17)
-        Me.lblPath.TabIndex = 4
-        Me.lblPath.Text = "Path"
-        '
-        'tbPort
-        '
-        Me.tbPort.Location = New System.Drawing.Point(559, 4)
-        Me.tbPort.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
-        Me.tbPort.Name = "tbPort"
-        Me.tbPort.Size = New System.Drawing.Size(69, 22)
-        Me.tbPort.TabIndex = 3
-        Me.tbPort.Text = "21"
-        Me.tbPort.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
-        '
-        'lblPort
-        '
-        Me.lblPort.AutoSize = True
-        Me.lblPort.Location = New System.Drawing.Point(516, 9)
-        Me.lblPort.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
-        Me.lblPort.Name = "lblPort"
-        Me.lblPort.Size = New System.Drawing.Size(34, 17)
-        Me.lblPort.TabIndex = 2
-        Me.lblPort.Text = "Port"
-        '
-        'tbHost
-        '
-        Me.tbHost.Location = New System.Drawing.Point(52, 5)
-        Me.tbHost.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
-        Me.tbHost.Name = "tbHost"
-        Me.tbHost.Size = New System.Drawing.Size(455, 22)
-        Me.tbHost.TabIndex = 1
-        Me.tbHost.Text = "ftp://download.intel.com"
-        '
-        'lblHost
-        '
-        Me.lblHost.AutoSize = True
-        Me.lblHost.Location = New System.Drawing.Point(4, 9)
-        Me.lblHost.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
-        Me.lblHost.Name = "lblHost"
-        Me.lblHost.Size = New System.Drawing.Size(37, 17)
-        Me.lblHost.TabIndex = 0
-        Me.lblHost.Text = "Host"
-        '
-        'rbOpenFromClipboard
-        '
-        Me.rbOpenFromClipboard.AutoSize = True
-        Me.rbOpenFromClipboard.Location = New System.Drawing.Point(56, 331)
-        Me.rbOpenFromClipboard.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
-        Me.rbOpenFromClipboard.Name = "rbOpenFromClipboard"
-        Me.rbOpenFromClipboard.Size = New System.Drawing.Size(158, 21)
-        Me.rbOpenFromClipboard.TabIndex = 6
-        Me.rbOpenFromClipboard.TabStop = True
-        Me.rbOpenFromClipboard.Text = "Open from clipboard"
-        Me.rbOpenFromClipboard.UseVisualStyleBackColor = True
-        '
-        'btnCancel
-        '
-        Me.btnCancel.DialogResult = System.Windows.Forms.DialogResult.Cancel
-        Me.btnCancel.Location = New System.Drawing.Point(551, 361)
-        Me.btnCancel.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
-        Me.btnCancel.Name = "btnCancel"
-        Me.btnCancel.Size = New System.Drawing.Size(100, 28)
-        Me.btnCancel.TabIndex = 34
-        Me.btnCancel.Text = "Cancel"
-        Me.btnCancel.UseVisualStyleBackColor = True
-        '
-        'btnOpen
-        '
-        Me.btnOpen.Location = New System.Drawing.Point(444, 361)
-        Me.btnOpen.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
-        Me.btnOpen.Name = "btnOpen"
-        Me.btnOpen.Size = New System.Drawing.Size(99, 28)
-        Me.btnOpen.TabIndex = 33
-        Me.btnOpen.Text = "Open"
-        Me.btnOpen.UseVisualStyleBackColor = True
-        '
-        'PictureBox1
-        '
-        Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image)
-        Me.PictureBox1.Location = New System.Drawing.Point(21, 12)
-        Me.PictureBox1.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
-        Me.PictureBox1.Name = "PictureBox1"
-        Me.PictureBox1.Size = New System.Drawing.Size(20, 20)
-        Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.AutoSize
-        Me.PictureBox1.TabIndex = 35
-        Me.PictureBox1.TabStop = False
-        '
-        'PictureBox2
-        '
-        Me.PictureBox2.Image = CType(resources.GetObject("PictureBox2.Image"), System.Drawing.Image)
-        Me.PictureBox2.Location = New System.Drawing.Point(21, 95)
-        Me.PictureBox2.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
-        Me.PictureBox2.Name = "PictureBox2"
-        Me.PictureBox2.Size = New System.Drawing.Size(20, 20)
-        Me.PictureBox2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.AutoSize
-        Me.PictureBox2.TabIndex = 36
-        Me.PictureBox2.TabStop = False
-        '
-        'PictureBox3
-        '
-        Me.PictureBox3.Image = CType(resources.GetObject("PictureBox3.Image"), System.Drawing.Image)
-        Me.PictureBox3.Location = New System.Drawing.Point(21, 176)
-        Me.PictureBox3.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
-        Me.PictureBox3.Name = "PictureBox3"
-        Me.PictureBox3.Size = New System.Drawing.Size(20, 20)
-        Me.PictureBox3.SizeMode = System.Windows.Forms.PictureBoxSizeMode.AutoSize
-        Me.PictureBox3.TabIndex = 37
-        Me.PictureBox3.TabStop = False
-        '
-        'PictureBox4
-        '
-        Me.PictureBox4.Image = CType(resources.GetObject("PictureBox4.Image"), System.Drawing.Image)
-        Me.PictureBox4.Location = New System.Drawing.Point(21, 327)
-        Me.PictureBox4.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
-        Me.PictureBox4.Name = "PictureBox4"
-        Me.PictureBox4.Size = New System.Drawing.Size(20, 20)
-        Me.PictureBox4.SizeMode = System.Windows.Forms.PictureBoxSizeMode.AutoSize
-        Me.PictureBox4.TabIndex = 38
-        Me.PictureBox4.TabStop = False
-        '
-        'frmOpen
-        '
-        Me.AutoScaleDimensions = New System.Drawing.SizeF(8.0!, 16.0!)
-        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.CancelButton = Me.btnCancel
-        Me.ClientSize = New System.Drawing.Size(671, 407)
-        Me.Controls.Add(Me.PictureBox4)
-        Me.Controls.Add(Me.PictureBox3)
-        Me.Controls.Add(Me.PictureBox2)
-        Me.Controls.Add(Me.PictureBox1)
-        Me.Controls.Add(Me.btnCancel)
-        Me.Controls.Add(Me.btnOpen)
-        Me.Controls.Add(Me.rbOpenFromClipboard)
-        Me.Controls.Add(Me.pOpenFromFTP)
-        Me.Controls.Add(Me.rbOpenFromFTP)
-        Me.Controls.Add(Me.pOpenFromHTTP)
-        Me.Controls.Add(Me.rbOpenFromHTTP)
-        Me.Controls.Add(Me.rbOpenFromFile)
-        Me.Controls.Add(Me.pOpenFromFile)
-        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
-        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
-        Me.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
-        Me.MaximizeBox = False
-        Me.MinimizeBox = False
-        Me.Name = "frmOpen"
-        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
-        Me.Text = "Open"
-        Me.pOpenFromFile.ResumeLayout(False)
-        Me.pOpenFromFile.PerformLayout()
-        Me.pOpenFromHTTP.ResumeLayout(False)
-        Me.pOpenFromHTTP.PerformLayout()
-        Me.pOpenFromFTP.ResumeLayout(False)
-        Me.pOpenFromFTP.PerformLayout()
-        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.ResumeLayout(False)
-        Me.PerformLayout()
-
-    End Sub
-    Friend WithEvents pOpenFromFile As System.Windows.Forms.Panel
-    Friend WithEvents btOpenFromFile As System.Windows.Forms.Button
-    Friend WithEvents tbFile As System.Windows.Forms.TextBox
-    Friend WithEvents rbOpenFromFile As System.Windows.Forms.RadioButton
-    Friend WithEvents OpenFileDialog1 As System.Windows.Forms.OpenFileDialog
-    Friend WithEvents rbOpenFromHTTP As System.Windows.Forms.RadioButton
-    Friend WithEvents pOpenFromHTTP As System.Windows.Forms.Panel
-    Friend WithEvents tbOpenFromHTTP As System.Windows.Forms.TextBox
-    Friend WithEvents rbOpenFromFTP As System.Windows.Forms.RadioButton
-    Friend WithEvents pOpenFromFTP As System.Windows.Forms.Panel
-    Friend WithEvents tbPort As System.Windows.Forms.TextBox
-    Friend WithEvents lblPort As System.Windows.Forms.Label
-    Friend WithEvents tbHost As System.Windows.Forms.TextBox
-    Friend WithEvents lblHost As System.Windows.Forms.Label
-    Friend WithEvents tbPath As System.Windows.Forms.TextBox
-    Friend WithEvents lblPath As System.Windows.Forms.Label
-    Friend WithEvents tbLogin As System.Windows.Forms.TextBox
-    Friend WithEvents lblLogin As System.Windows.Forms.Label
-    Friend WithEvents tbPassword As System.Windows.Forms.TextBox
-    Friend WithEvents lblPassword As System.Windows.Forms.Label
-    Friend WithEvents rbOpenFromClipboard As System.Windows.Forms.RadioButton
-    Friend WithEvents btnCancel As System.Windows.Forms.Button
-    Friend WithEvents btnOpen As System.Windows.Forms.Button
-    Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
-    Friend WithEvents PictureBox2 As System.Windows.Forms.PictureBox
-    Friend WithEvents PictureBox3 As System.Windows.Forms.PictureBox
-    Friend WithEvents PictureBox4 As System.Windows.Forms.PictureBox
-End Class

app/DD_Clipboard_Searcher/frmDocViewOpen.vb

@@ -1,131 +0,0 @@
-Option Strict On
-Option Explicit On
-
-Imports System.IO
-Imports GdPicture14
-
-Public Class frmDocViewOpen
-
-    Private ReadOnly m_owner As GdViewer
-
-    Public Sub New(ByVal owner As GdViewer)
-        InitializeComponent()
-        m_owner = owner
-    End Sub
-
-    Private Sub UpdateUi()
-        If rbOpenFromFile.Checked Then
-            pOpenFromFile.Enabled = True
-            pOpenFromHTTP.Enabled = False
-            pOpenFromFTP.Enabled = False
-        ElseIf rbOpenFromHTTP.Checked Then
-            pOpenFromFile.Enabled = False
-            pOpenFromHTTP.Enabled = True
-            pOpenFromFTP.Enabled = False
-        ElseIf rbOpenFromFTP.Checked Then
-            pOpenFromFile.Enabled = False
-            pOpenFromHTTP.Enabled = False
-            pOpenFromFTP.Enabled = True
-        ElseIf rbOpenFromClipboard.Checked Then
-            pOpenFromFile.Enabled = False
-            pOpenFromHTTP.Enabled = False
-            pOpenFromFTP.Enabled = False
-        End If
-    End Sub
-
-    Private Sub frmOpen_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
-        If Clipboard.ContainsImage() Then
-            rbOpenFromClipboard.Checked = True
-        Else
-            rbOpenFromFile.Checked = True
-        End If
-    End Sub
-
-    Private Sub rbOpenFromFile_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbOpenFromFile.CheckedChanged
-        If rbOpenFromFile.Checked Then
-            updateUI()
-        End If
-    End Sub
-
-    Private Sub rbOpenFromFTP_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbOpenFromFTP.CheckedChanged
-        If rbOpenFromFTP.Checked Then
-            updateUI()
-        End If
-    End Sub
-
-    Private Sub rbOpenFromHTTP_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbOpenFromHTTP.CheckedChanged
-        If rbOpenFromHTTP.Checked Then
-            updateUI()
-        End If
-    End Sub
-
-    Private Sub rbOpenFromClipboard_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbOpenFromClipboard.CheckedChanged
-        If rbOpenFromClipboard.Checked Then
-            updateUI()
-        End If
-    End Sub
-
-    Private Sub btnOpen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOpen.Click
-        Dim ok As Boolean = False
-        If rbOpenFromFile.Checked Then
-            If Not String.IsNullOrWhiteSpace(tbFile.Text) And File.Exists(tbFile.Text) Then
-                Dim status As GdPictureStatus = m_owner.DisplayFromFile(tbFile.Text)
-                If status = GdPictureStatus.OK Then
-                    ok = True
-                Else
-                    MessageBox.Show("Error during file loading: " + status.ToString(), "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
-                End If
-            Else
-                MessageBox.Show("You must select a file", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
-                Return
-            End If
-        ElseIf rbOpenFromFTP.Checked Then
-            Dim port As Integer
-            If Not String.IsNullOrWhiteSpace(tbHost.Text) And Not String.IsNullOrWhiteSpace(tbPort.Text) _
-                And Integer.TryParse(tbPort.Text, port) And Not String.IsNullOrWhiteSpace(tbPath.Text) Then
-                Dim status As GdPictureStatus = m_owner.DisplayFromFTP(tbHost.Text, tbPath.Text, tbLogin.Text, tbPassword.Text, port)
-                If status = GdPictureStatus.OK Then
-                    ok = True
-                Else
-                    MessageBox.Show("FTP Error: " + m_owner.GetLastTransferError(), "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
-                End If
-            Else
-                MessageBox.Show("You must enter all data for FTP connection", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
-            End If
-        ElseIf rbOpenFromHTTP.Checked Then
-            Dim uri As Uri = Nothing
-            If Not String.IsNullOrWhiteSpace(tbOpenFromHTTP.Text) And System.Uri.TryCreate(tbOpenFromHTTP.Text, UriKind.Absolute, uri) Then
-                Dim status As GdPictureStatus = m_owner.DisplayFromHTTP(uri.ToString(), "", "")
-                If status = GdPictureStatus.OK Then
-                    ok = True
-                Else
-                    MessageBox.Show("HTTP Error: " + m_owner.GetLastTransferError(), "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
-                End If
-            Else
-                MessageBox.Show("You must specify an URI", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
-            End If
-        ElseIf rbOpenFromClipboard.Checked Then
-            If Clipboard.ContainsImage() Then
-                Dim status As GdPictureStatus = m_owner.DisplayFromClipboard()
-                If status = GdPictureStatus.OK Then
-                    ok = True
-                Else
-                    MessageBox.Show("Error: " + status.ToString(), "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
-                End If
-            Else
-                MessageBox.Show("There is no image in clipboard", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
-            End If
-        End If
-        If ok Then
-            Me.Close()
-        End If
-    End Sub
-
-    Private Sub btOpenFromFile_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btOpenFromFile.Click
-        Dim result As DialogResult = OpenFileDialog1.ShowDialog()
-
-        If (result = DialogResult.OK) Then
-            tbFile.Text = OpenFileDialog1.FileName
-        End If
-    End Sub
-End Class

app/DD_Clipboard_Searcher/frmGhostUser.Designer.vb

@@ -0,0 +1,76 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class frmGhostUser
+    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.Label1 = New System.Windows.Forms.Label()
+        Me.TextBox1 = New System.Windows.Forms.TextBox()
+        Me.Button1 = New System.Windows.Forms.Button()
+        Me.SuspendLayout()
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Location = New System.Drawing.Point(9, 8)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(108, 13)
+        Me.Label1.TabIndex = 0
+        Me.Label1.Text = "Usernamen eingeben"
+        '
+        'TextBox1
+        '
+        Me.TextBox1.Location = New System.Drawing.Point(12, 24)
+        Me.TextBox1.Name = "TextBox1"
+        Me.TextBox1.Size = New System.Drawing.Size(226, 20)
+        Me.TextBox1.TabIndex = 1
+        '
+        'Button1
+        '
+        Me.Button1.Location = New System.Drawing.Point(12, 50)
+        Me.Button1.Name = "Button1"
+        Me.Button1.Size = New System.Drawing.Size(226, 23)
+        Me.Button1.TabIndex = 2
+        Me.Button1.Text = "Ghostmodus starten"
+        Me.Button1.UseVisualStyleBackColor = True
+        '
+        'frmGhostUser
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(252, 81)
+        Me.Controls.Add(Me.Button1)
+        Me.Controls.Add(Me.TextBox1)
+        Me.Controls.Add(Me.Label1)
+        Me.MaximizeBox = False
+        Me.MinimizeBox = False
+        Me.Name = "frmGhostUser"
+        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
+        Me.Text = "Ghost User wählen"
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+
+    Friend WithEvents Label1 As Label
+    Friend WithEvents TextBox1 As TextBox
+    Friend WithEvents Button1 As Button
+End Class

app/DD_Clipboard_Searcher/frmGhostUser.resx

@@ -0,0 +1,120 @@
+<?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>
+</root>

app/DD_Clipboard_Searcher/frmGhostUser.vb

@@ -0,0 +1,15 @@
+Public Class frmGhostUser
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+        If TextBox1.Text <> String.Empty Then
+            Dim osql = $"SELECT COALESCE(MAX(GUID),0) FROM TBDD_USER WHERE USERNAME = '{TextBox1.Text}'"
+            Dim oUSERID = MyDB_DDECM.GetScalarValue(osql)
+            If oUSERID = 0 Then
+                MsgBox("Username unbekannt!", MsgBoxStyle.Information)
+            Else
+                GHOST_USERID = oUSERID
+                USER_USERNAME = TextBox1.Text
+                Me.Close()
+            End If
+        End If
+    End Sub
+End Class

app/DD_Clipboard_Searcher/frmLicense.Designer.vb

@@ -34,6 +34,8 @@ Partial Class frmLicense
         Me.txtNewlicences = New System.Windows.Forms.TextBox()
         Me.lblnewlicenses = New System.Windows.Forms.Label()
         Me.btnPW_check = New System.Windows.Forms.Button()
+        Me.txtClient = New System.Windows.Forms.TextBox()
+        Me.lblClient1 = New System.Windows.Forms.Label()
         Me.grbBoxlicense.SuspendLayout()
         Me.SuspendLayout()
         '
@@ -58,6 +60,8 @@ Partial Class frmLicense
         '
         'grbBoxlicense
         '
+        Me.grbBoxlicense.Controls.Add(Me.lblClient1)
+        Me.grbBoxlicense.Controls.Add(Me.txtClient)
         Me.grbBoxlicense.Controls.Add(Me.lblClient)
         Me.grbBoxlicense.Controls.Add(Me.cmbClients)
         Me.grbBoxlicense.Controls.Add(Me.Label5)
@@ -118,7 +122,7 @@ Partial Class frmLicense
         'btnnewLicenses
         '
         Me.btnnewLicenses.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.btnnewLicenses.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.KeyDown_8461
+        Me.btnnewLicenses.Image = Global.easyFLOW.My.Resources.Resources.KeyDown_8461
         Me.btnnewLicenses.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
         Me.btnnewLicenses.ImeMode = System.Windows.Forms.ImeMode.NoControl
         Me.btnnewLicenses.Location = New System.Drawing.Point(307, 91)
@@ -151,7 +155,7 @@ Partial Class frmLicense
         '
         'btnPW_check
         '
-        Me.btnPW_check.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.KeyDown_8461
+        Me.btnPW_check.Image = Global.easyFLOW.My.Resources.Resources.KeyDown_8461
         Me.btnPW_check.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
         Me.btnPW_check.ImeMode = System.Windows.Forms.ImeMode.NoControl
         Me.btnPW_check.Location = New System.Drawing.Point(322, 1)
@@ -163,6 +167,23 @@ Partial Class frmLicense
         Me.btnPW_check.TextAlign = System.Drawing.ContentAlignment.MiddleRight
         Me.btnPW_check.UseVisualStyleBackColor = True
         '
+        'txtClient
+        '
+        Me.txtClient.Location = New System.Drawing.Point(307, 39)
+        Me.txtClient.Name = "txtClient"
+        Me.txtClient.ReadOnly = True
+        Me.txtClient.Size = New System.Drawing.Size(100, 21)
+        Me.txtClient.TabIndex = 20
+        '
+        'lblClient1
+        '
+        Me.lblClient1.AutoSize = True
+        Me.lblClient1.Location = New System.Drawing.Point(307, 22)
+        Me.lblClient1.Name = "lblClient1"
+        Me.lblClient1.Size = New System.Drawing.Size(38, 13)
+        Me.lblClient1.TabIndex = 21
+        Me.lblClient1.Text = "Label1"
+        '
         'frmLicense
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -196,4 +217,6 @@ Partial Class frmLicense
     Friend WithEvents btnnewLicenses As System.Windows.Forms.Button
     Friend WithEvents txtNewlicences As System.Windows.Forms.TextBox
     Friend WithEvents lblnewlicenses As System.Windows.Forms.Label
+    Friend WithEvents lblClient1 As Label
+    Friend WithEvents txtClient As TextBox
 End Class

app/DD_Clipboard_Searcher/frmLicense.vb

@@ -1,7 +1,10 @@
-Imports DD_LIB_Standards
+Imports System.Globalization
+Imports DigitalData.Modules.License
+
 Public Class frmLicense
     Dim CLIENT_ID As Integer
-    Public _lizenzManager As clsLicenseManager
+    Public _lizenzManager As LicenseManagerLegacy
+
     Private Sub btnPW_check_Click(sender As System.Object, e As System.EventArgs) Handles btnPW_check.Click
         OpenLicenseManager()
     End Sub
@@ -14,6 +17,8 @@ Public Class frmLicense
                 Me.txtPW.Visible = False
                 Me.btnPW_check.Visible = False
                 If DT_CLIENT_USER.Rows.Count > 1 Then
+                    lblClient1.Visible = False
+                    txtClient.Visible = False
                     lblClient.Visible = True
                     cmbClients.Visible = True
                     Try
@@ -24,9 +29,13 @@ Public Class frmLicense
                         MsgBox("Unexpected Error in Loading Clients: " & ex.Message, MsgBoxStyle.Critical)
                     End Try
                 ElseIf DT_CLIENT_USER.Rows.Count = 1 Then
+                    lblClient1.Visible = True
+                    txtClient.Visible = True
+
                     lblClient.Visible = False
                     cmbClients.Visible = False
                     CLIENT_ID = DT_CLIENT_USER.Rows(0).Item("CLIENT_ID")
+                    txtClient.Text = CLIENT_ID
                 End If
 
 
@@ -40,14 +49,20 @@ Public Class frmLicense
     End Sub
     Private Sub btnnewLicenses_Click(sender As System.Object, e As System.EventArgs) Handles btnnewLicenses.Click
         Try
-            _lizenzManager = New clsLicenseManager("#DigitalData35452!#", "")
+            _lizenzManager = New LicenseManagerLegacy(LogConfig, "#DigitalData35452!#", "")
             If Me.txtNewlicences.Text <> "" Then
                 'Encode the license
-                Dim result As String = Me._lizenzManager.EncodeLicenseKey(txtNewlicences.Text & "#" & dtpGueltig_GI.Text, "#DigitalData35452!#")
+                Dim oDate = CDate(dtpGueltig_GI.Value)
+                Dim oDateddMMyyyy = oDate.ToString("dd.MM.yyyy", CultureInfo.InvariantCulture)
+                Dim result As String = Me._lizenzManager.EncodeLicenseKey(txtNewlicences.Text & "#" & oDate, "#DigitalData35452!#")
 
-                Dim sql As String = String.Format("UPDATE TBDD_CLIENT SET LICENSE_DDCBSEARCHER = '" & result & "' WHERE GUID = {0}", CLIENT_ID)
+                Dim sql As String = String.Format("UPDATE TBDD_CLIENT SET LICENSE_CBSEARCHER = '" & result & "' WHERE GUID = {0}", CLIENT_ID)
-                If Database.ExecuteNonQuery(sql) = True Then
+                If MyDB_DDECM.ExecuteNonQuery(sql) = False Then
+                    sql = $"UPDATE TBDD_MODULES SET LICENSE = '{result}' where SHORT_NAME = 'CW'"
+                    MyDB_DDECM.ExecuteNonQuery(sql)
                     Refresh_Licence(True)
+                Else
+                    MsgBox("Could not renew the license!!", MsgBoxStyle.Critical)
                 End If
 
                 'MsgBox("Die Lizenzen wurden erfolgreich aktualisiert!", MsgBoxStyle.Exclamation, "Erfolgsmeldung:")
@@ -66,7 +81,7 @@ Public Class frmLicense
             If Neu = True Then
                 If CInt(LICENSE_COUNT) > 0 Then
                     Dim msg As String = "Die Lizenz wurde aktualisiert!" & vbNewLine & Now
-                    If USER_LANGUAGE <> "de-DE" Then
+                    If USER_LANGUAGE <> LANGUAGE_GERMAN Then
                         msg = "The license was renewed!" & vbNewLine & Now
                     End If
                     MsgBox(msg, MsgBoxStyle.Information, "License renewed:")

app/DD_Clipboard_Searcher/frmMain.Designer.vb

@@ -0,0 +1,352 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Class frmMain
+    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 resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMain))
+        Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl()
+        Me.lblUser = New DevExpress.XtraBars.BarStaticItem()
+        Me.lblVersion = New DevExpress.XtraBars.BarStaticItem()
+        Me.lblApplicationServer = New DevExpress.XtraBars.BarStaticItem()
+        Me.bbtniKonfig = New DevExpress.XtraBars.BarButtonItem()
+        Me.bbtnitemAdmin = New DevExpress.XtraBars.BarButtonItem()
+        Me.lblRefresh = New DevExpress.XtraBars.BarStaticItem()
+        Me.bbtnitmLanguage = New DevExpress.XtraBars.BarButtonItem()
+        Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage()
+        Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
+        Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
+        Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
+        Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage()
+        Me.GroupBox2 = New System.Windows.Forms.GroupBox()
+        Me.labelStatus = New System.Windows.Forms.Label()
+        Me.labelRefresh = New System.Windows.Forms.Label()
+        Me.GroupBox1 = New System.Windows.Forms.GroupBox()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.labelHotkey = New System.Windows.Forms.Label()
+        Me.NotifyIconMain = New System.Windows.Forms.NotifyIcon(Me.components)
+        Me.cmstrpNotifyIcon = New System.Windows.Forms.ContextMenuStrip(Me.components)
+        Me.FunktionenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.BisherigenAblaufAnzeigenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.tsmiChangeState = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ClientÖffnenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ClientBeendenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.TimerClose = New System.Windows.Forms.Timer(Me.components)
+        Me.TimerRefresh = New System.Windows.Forms.Timer(Me.components)
+        Me.ContextMenuStripForm = New System.Windows.Forms.ContextMenuStrip(Me.components)
+        Me.MinimierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
+        Me.AlertControl1 = New DevExpress.XtraBars.Alerter.AlertControl(Me.components)
+        CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.GroupBox2.SuspendLayout()
+        Me.GroupBox1.SuspendLayout()
+        Me.cmstrpNotifyIcon.SuspendLayout()
+        Me.ContextMenuStripForm.SuspendLayout()
+        Me.SuspendLayout()
+        '
+        'RibbonControl1
+        '
+        Me.RibbonControl1.AllowMinimizeRibbon = False
+        Me.RibbonControl1.CommandLayout = DevExpress.XtraBars.Ribbon.CommandLayout.Simplified
+        Me.RibbonControl1.ExpandCollapseItem.Id = 0
+        Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.lblUser, Me.lblVersion, Me.lblApplicationServer, Me.bbtniKonfig, Me.bbtnitemAdmin, Me.lblRefresh, Me.bbtnitmLanguage})
+        resources.ApplyResources(Me.RibbonControl1, "RibbonControl1")
+        Me.RibbonControl1.MaxItemId = 8
+        Me.RibbonControl1.Name = "RibbonControl1"
+        Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1})
+        Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False]
+        Me.RibbonControl1.ShowDisplayOptionsMenuButton = DevExpress.Utils.DefaultBoolean.[False]
+        Me.RibbonControl1.ShowExpandCollapseButton = DevExpress.Utils.DefaultBoolean.[False]
+        Me.RibbonControl1.ShowPageHeadersMode = DevExpress.XtraBars.Ribbon.ShowPageHeadersMode.Hide
+        Me.RibbonControl1.ShowToolbarCustomizeItem = False
+        Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1
+        Me.RibbonControl1.Toolbar.ShowCustomizeItem = False
+        '
+        'lblUser
+        '
+        resources.ApplyResources(Me.lblUser, "lblUser")
+        Me.lblUser.Id = 1
+        Me.lblUser.ImageOptions.SvgImage = CType(resources.GetObject("lblUser.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
+        Me.lblUser.Name = "lblUser"
+        Me.lblUser.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph
+        '
+        'lblVersion
+        '
+        resources.ApplyResources(Me.lblVersion, "lblVersion")
+        Me.lblVersion.Id = 2
+        Me.lblVersion.ImageOptions.SvgImage = CType(resources.GetObject("lblVersion.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
+        Me.lblVersion.Name = "lblVersion"
+        Me.lblVersion.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph
+        '
+        'lblApplicationServer
+        '
+        resources.ApplyResources(Me.lblApplicationServer, "lblApplicationServer")
+        Me.lblApplicationServer.Id = 3
+        Me.lblApplicationServer.ImageOptions.SvgImage = CType(resources.GetObject("lblApplicationServer.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
+        Me.lblApplicationServer.Name = "lblApplicationServer"
+        Me.lblApplicationServer.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph
+        '
+        'bbtniKonfig
+        '
+        resources.ApplyResources(Me.bbtniKonfig, "bbtniKonfig")
+        Me.bbtniKonfig.Id = 4
+        Me.bbtniKonfig.ImageOptions.SvgImage = CType(resources.GetObject("bbtniKonfig.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
+        Me.bbtniKonfig.Name = "bbtniKonfig"
+        '
+        'bbtnitemAdmin
+        '
+        resources.ApplyResources(Me.bbtnitemAdmin, "bbtnitemAdmin")
+        Me.bbtnitemAdmin.Id = 5
+        Me.bbtnitemAdmin.ImageOptions.SvgImage = CType(resources.GetObject("bbtnitemAdmin.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
+        Me.bbtnitemAdmin.Name = "bbtnitemAdmin"
+        '
+        'lblRefresh
+        '
+        resources.ApplyResources(Me.lblRefresh, "lblRefresh")
+        Me.lblRefresh.Id = 6
+        Me.lblRefresh.ImageOptions.SvgImage = CType(resources.GetObject("lblRefresh.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
+        Me.lblRefresh.Name = "lblRefresh"
+        Me.lblRefresh.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph
+        '
+        'bbtnitmLanguage
+        '
+        resources.ApplyResources(Me.bbtnitmLanguage, "bbtnitmLanguage")
+        Me.bbtnitmLanguage.Id = 7
+        Me.bbtnitmLanguage.ImageOptions.SvgImage = CType(resources.GetObject("bbtnitmLanguage.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
+        Me.bbtnitmLanguage.Name = "bbtnitmLanguage"
+        '
+        'RibbonPage1
+        '
+        Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1, Me.RibbonPageGroup2})
+        Me.RibbonPage1.Name = "RibbonPage1"
+        resources.ApplyResources(Me.RibbonPage1, "RibbonPage1")
+        '
+        'RibbonPageGroup1
+        '
+        Me.RibbonPageGroup1.ItemLinks.Add(Me.bbtniKonfig)
+        Me.RibbonPageGroup1.ItemLinks.Add(Me.bbtnitemAdmin)
+        Me.RibbonPageGroup1.Name = "RibbonPageGroup1"
+        resources.ApplyResources(Me.RibbonPageGroup1, "RibbonPageGroup1")
+        '
+        'RibbonPageGroup2
+        '
+        Me.RibbonPageGroup2.Alignment = DevExpress.XtraBars.Ribbon.RibbonPageGroupAlignment.Far
+        Me.RibbonPageGroup2.ItemLinks.Add(Me.bbtnitmLanguage)
+        Me.RibbonPageGroup2.Name = "RibbonPageGroup2"
+        resources.ApplyResources(Me.RibbonPageGroup2, "RibbonPageGroup2")
+        '
+        'RibbonStatusBar1
+        '
+        Me.RibbonStatusBar1.ItemLinks.Add(Me.lblUser)
+        Me.RibbonStatusBar1.ItemLinks.Add(Me.lblVersion)
+        Me.RibbonStatusBar1.ItemLinks.Add(Me.lblApplicationServer)
+        Me.RibbonStatusBar1.ItemLinks.Add(Me.lblRefresh)
+        resources.ApplyResources(Me.RibbonStatusBar1, "RibbonStatusBar1")
+        Me.RibbonStatusBar1.Name = "RibbonStatusBar1"
+        Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1
+        '
+        'RibbonPage2
+        '
+        Me.RibbonPage2.Name = "RibbonPage2"
+        resources.ApplyResources(Me.RibbonPage2, "RibbonPage2")
+        '
+        'GroupBox2
+        '
+        Me.GroupBox2.Controls.Add(Me.labelStatus)
+        Me.GroupBox2.Controls.Add(Me.labelRefresh)
+        resources.ApplyResources(Me.GroupBox2, "GroupBox2")
+        Me.GroupBox2.Name = "GroupBox2"
+        Me.GroupBox2.TabStop = False
+        '
+        'labelStatus
+        '
+        resources.ApplyResources(Me.labelStatus, "labelStatus")
+        Me.labelStatus.Name = "labelStatus"
+        '
+        'labelRefresh
+        '
+        resources.ApplyResources(Me.labelRefresh, "labelRefresh")
+        Me.labelRefresh.Name = "labelRefresh"
+        '
+        'GroupBox1
+        '
+        Me.GroupBox1.Controls.Add(Me.Label2)
+        Me.GroupBox1.Controls.Add(Me.labelHotkey)
+        resources.ApplyResources(Me.GroupBox1, "GroupBox1")
+        Me.GroupBox1.Name = "GroupBox1"
+        Me.GroupBox1.TabStop = False
+        '
+        'Label2
+        '
+        resources.ApplyResources(Me.Label2, "Label2")
+        Me.Label2.Name = "Label2"
+        '
+        'labelHotkey
+        '
+        resources.ApplyResources(Me.labelHotkey, "labelHotkey")
+        Me.labelHotkey.ForeColor = System.Drawing.SystemColors.ControlDarkDark
+        Me.labelHotkey.Name = "labelHotkey"
+        '
+        'NotifyIconMain
+        '
+        Me.NotifyIconMain.BalloonTipIcon = System.Windows.Forms.ToolTipIcon.Info
+        resources.ApplyResources(Me.NotifyIconMain, "NotifyIconMain")
+        Me.NotifyIconMain.ContextMenuStrip = Me.cmstrpNotifyIcon
+        '
+        'cmstrpNotifyIcon
+        '
+        Me.cmstrpNotifyIcon.ImageScalingSize = New System.Drawing.Size(24, 24)
+        Me.cmstrpNotifyIcon.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.FunktionenToolStripMenuItem, Me.ClientÖffnenToolStripMenuItem, Me.tsmiChangeState, Me.ClientBeendenToolStripMenuItem})
+        Me.cmstrpNotifyIcon.Name = "cmstrpNotifyIcon"
+        resources.ApplyResources(Me.cmstrpNotifyIcon, "cmstrpNotifyIcon")
+        '
+        'FunktionenToolStripMenuItem
+        '
+        Me.FunktionenToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BisherigenAblaufAnzeigenToolStripMenuItem})
+        Me.FunktionenToolStripMenuItem.Name = "FunktionenToolStripMenuItem"
+        resources.ApplyResources(Me.FunktionenToolStripMenuItem, "FunktionenToolStripMenuItem")
+        '
+        'BisherigenAblaufAnzeigenToolStripMenuItem
+        '
+        Me.BisherigenAblaufAnzeigenToolStripMenuItem.Name = "BisherigenAblaufAnzeigenToolStripMenuItem"
+        resources.ApplyResources(Me.BisherigenAblaufAnzeigenToolStripMenuItem, "BisherigenAblaufAnzeigenToolStripMenuItem")
+        '
+        'tsmiChangeState
+        '
+        Me.tsmiChangeState.ForeColor = System.Drawing.Color.Red
+        Me.tsmiChangeState.Name = "tsmiChangeState"
+        resources.ApplyResources(Me.tsmiChangeState, "tsmiChangeState")
+        '
+        'ClientÖffnenToolStripMenuItem
+        '
+        Me.ClientÖffnenToolStripMenuItem.Name = "ClientÖffnenToolStripMenuItem"
+        resources.ApplyResources(Me.ClientÖffnenToolStripMenuItem, "ClientÖffnenToolStripMenuItem")
+        '
+        'ClientBeendenToolStripMenuItem
+        '
+        Me.ClientBeendenToolStripMenuItem.ForeColor = System.Drawing.Color.Red
+        Me.ClientBeendenToolStripMenuItem.Name = "ClientBeendenToolStripMenuItem"
+        resources.ApplyResources(Me.ClientBeendenToolStripMenuItem, "ClientBeendenToolStripMenuItem")
+        '
+        'TimerClose
+        '
+        Me.TimerClose.Interval = 10000
+        '
+        'TimerRefresh
+        '
+        Me.TimerRefresh.Interval = 120000
+        '
+        'ContextMenuStripForm
+        '
+        Me.ContextMenuStripForm.ImageScalingSize = New System.Drawing.Size(24, 24)
+        Me.ContextMenuStripForm.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.MinimierenToolStripMenuItem})
+        Me.ContextMenuStripForm.Name = "ContextMenuStripForm"
+        resources.ApplyResources(Me.ContextMenuStripForm, "ContextMenuStripForm")
+        '
+        'MinimierenToolStripMenuItem
+        '
+        Me.MinimierenToolStripMenuItem.Image = Global.easyFLOW.My.Resources.Resources.ReduceSize
+        Me.MinimierenToolStripMenuItem.Name = "MinimierenToolStripMenuItem"
+        resources.ApplyResources(Me.MinimierenToolStripMenuItem, "MinimierenToolStripMenuItem")
+        '
+        'ImageList1
+        '
+        Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
+        Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent
+        Me.ImageList1.Images.SetKeyName(0, "WorkItem_32xMD.png")
+        Me.ImageList1.Images.SetKeyName(1, "key_16xLG.png")
+        Me.ImageList1.Images.SetKeyName(2, "ResultstoFile_9946.png")
+        Me.ImageList1.Images.SetKeyName(3, "WindowsForm_817.ico")
+        Me.ImageList1.Images.SetKeyName(4, "process_16xMD.png")
+        '
+        'AlertControl1
+        '
+        Me.AlertControl1.AllowHotTrack = False
+        Me.AlertControl1.AppearanceCaption.Font = CType(resources.GetObject("AlertControl1.AppearanceCaption.Font"), System.Drawing.Font)
+        Me.AlertControl1.AppearanceCaption.Options.UseFont = True
+        Me.AlertControl1.AppearanceText.Font = CType(resources.GetObject("AlertControl1.AppearanceText.Font"), System.Drawing.Font)
+        Me.AlertControl1.AppearanceText.Options.UseFont = True
+        Me.AlertControl1.AutoFormDelay = 2500
+        Me.AlertControl1.AutoHeight = True
+        Me.AlertControl1.FormShowingEffect = DevExpress.XtraBars.Alerter.AlertFormShowingEffect.SlideHorizontal
+        Me.AlertControl1.ShowPinButton = False
+        '
+        'frmMain
+        '
+        resources.ApplyResources(Me, "$this")
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ContextMenuStrip = Me.ContextMenuStripForm
+        Me.Controls.Add(Me.GroupBox2)
+        Me.Controls.Add(Me.GroupBox1)
+        Me.Controls.Add(Me.RibbonStatusBar1)
+        Me.Controls.Add(Me.RibbonControl1)
+        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
+        Me.IconOptions.Icon = CType(resources.GetObject("frmMain.IconOptions.Icon"), System.Drawing.Icon)
+        Me.IconOptions.Image = CType(resources.GetObject("frmMain.IconOptions.Image"), System.Drawing.Image)
+        Me.MaximizeBox = False
+        Me.Name = "frmMain"
+        Me.Ribbon = Me.RibbonControl1
+        Me.StatusBar = Me.RibbonStatusBar1
+        CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.GroupBox2.ResumeLayout(False)
+        Me.GroupBox2.PerformLayout()
+        Me.GroupBox1.ResumeLayout(False)
+        Me.cmstrpNotifyIcon.ResumeLayout(False)
+        Me.ContextMenuStripForm.ResumeLayout(False)
+        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 GroupBox2 As GroupBox
+    Friend WithEvents labelStatus As Label
+    Friend WithEvents labelRefresh As Label
+    Friend WithEvents GroupBox1 As GroupBox
+    Friend WithEvents Label2 As Label
+    Friend WithEvents labelHotkey As Label
+    Friend WithEvents lblUser As DevExpress.XtraBars.BarStaticItem
+    Friend WithEvents lblVersion As DevExpress.XtraBars.BarStaticItem
+    Friend WithEvents lblApplicationServer As DevExpress.XtraBars.BarStaticItem
+    Friend WithEvents bbtniKonfig As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents bbtnitemAdmin As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents NotifyIconMain As NotifyIcon
+    Friend WithEvents cmstrpNotifyIcon As ContextMenuStrip
+    Friend WithEvents FunktionenToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents tsmiChangeState As ToolStripMenuItem
+    Friend WithEvents ClientÖffnenToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents ClientBeendenToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents BisherigenAblaufAnzeigenToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents lblRefresh As DevExpress.XtraBars.BarStaticItem
+    Friend WithEvents TimerClose As Timer
+    Friend WithEvents TimerRefresh As Timer
+    Friend WithEvents ContextMenuStripForm As ContextMenuStrip
+    Friend WithEvents MinimierenToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents ImageList1 As ImageList
+    Friend WithEvents AlertControl1 As DevExpress.XtraBars.Alerter.AlertControl
+    Friend WithEvents bbtnitmLanguage As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents RibbonPageGroup2 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
+End Class

app/DD_Clipboard_Searcher/frmMain.en-US.resx

@@ -117,12 +117,194 @@
   <resheader name="writer">
     <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </resheader>
-  <metadata name="NotifyIconMain.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+  <assembly alias="DevExpress.Data.v21.2" name="DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
-    <value>17, 17</value>
+  <data name="lblUser.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
-  </metadata>
+    <value>
-  <metadata name="cmstrpNotifyIcon.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+        AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
-    <value>153, 17</value>
+        LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
-  </metadata>
+        dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAKEDAAAC77u/
+        PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
+        IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
+        MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
+        Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
+        MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5Z
+        ZWxsb3d7ZmlsbDojRkZCMTE1O30KCS5CbGFja3tmaWxsOiM3MjcyNzI7fQoJLkdyZWVue2ZpbGw6IzAz
+        OUMyMzt9CgkuUmVke2ZpbGw6I0QxMUMxQzt9Cgkuc3Qwe29wYWNpdHk6MC43NTt9Cgkuc3Qxe29wYWNp
+        dHk6MC41O30KPC9zdHlsZT4NCiAgPGcgaWQ9IlVzZXIiPg0KICAgIDxwYXRoIGQ9Ik0xMCw5LjljLTAu
+        MSwwLjUsMC4yLDAuOSwwLjQsMS40YzAuMiwwLjUtMC4xLDEuNywwLjksMS42YzAsMCwwLDAuMSwwLDAu
+        MmMwLjYsMi4zLDIsNC45LDQuNyw0LjkgICBjMi43LDAsNC4yLTIuNiw0LjctNC45YzAsMCwwLTAuMSww
+        LTAuMWMxLDAuMSwwLjYtMS4xLDAuOS0xLjZjMC4yLTAuNSwwLjQtMC45LDAuMy0xLjRjLTAuMS0wLjQt
+        MC40LTAuNC0wLjUtMC4zICAgYzEuOC00LjktMS4xLTQuNy0xLjEtNC43UzIwLDIsMTQuOCwyQzEwLDIs
+        OS40LDYsMTAuNSw5LjZDMTAuNCw5LjYsMTAuMSw5LjcsMTAsOS45eiIgY2xhc3M9IkJsYWNrIiAvPg0K
+        ICAgIDxwYXRoIGQ9Ik0yMCwxOGMtMC44LDEuNS0yLjEsNC00LDRjLTEuOSwwLTMuMi0yLjUtNC00Yy0y
+        LjMsMy41LTgsMS04LDguNVYzMGgyNHYtMy41QzI4LDE5LjEsMjIuMywyMS40LDIwLDE4eiIgY2xhc3M9
+        IkJsYWNrIiAvPg0KICA8L2c+DQo8L3N2Zz4L
+</value>
+  </data>
+  <data name="lblVersion.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
+        LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
+        dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAADsEAAAC77u/
+        PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
+        IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
+        MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
+        Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
+        MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5Z
+        ZWxsb3d7ZmlsbDojRkZCMTE1O30KCS5SZWR7ZmlsbDojRDExQzFDO30KCS5HcmVlbntmaWxsOiMwMzlD
+        MjM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh
+        Y2l0eTowLjU7fQoJLnN0MXtvcGFjaXR5OjAuNzU7fQoJLnN0MntkaXNwbGF5Om5vbmU7fQoJLnN0M3tk
+        aXNwbGF5OmlubGluZTtmaWxsOiNGRkIxMTU7fQoJLnN0NHtkaXNwbGF5OmlubGluZTt9Cgkuc3Q1e2Rp
+        c3BsYXk6aW5saW5lO29wYWNpdHk6MC43NTt9Cgkuc3Q2e2Rpc3BsYXk6aW5saW5lO29wYWNpdHk6MC41
+        O30KCS5zdDd7ZGlzcGxheTppbmxpbmU7ZmlsbDojMDM5QzIzO30KCS5zdDh7ZGlzcGxheTppbmxpbmU7
+        ZmlsbDojRDExQzFDO30KCS5zdDl7ZGlzcGxheTppbmxpbmU7ZmlsbDojMTE3N0Q3O30KCS5zdDEwe2Rp
+        c3BsYXk6aW5saW5lO2ZpbGw6I0ZGRkZGRjt9Cjwvc3R5bGU+DQogIDxnPg0KICAgIDxnIGNsYXNzPSJz
+        dDEiPg0KICAgICAgPHJlY3QgeD0iMiIgeT0iMTIiIHdpZHRoPSIxOCIgaGVpZ2h0PSIxOCIgcng9IjAi
+        IHJ5PSIwIiBjbGFzcz0iWWVsbG93IiAvPg0KICAgIDwvZz4NCiAgICA8cG9seWdvbiBwb2ludHM9IjIy
+        LDExLjQgMjIsMzAgMzAsMjIgMzAsMy40ICAiIGNsYXNzPSJZZWxsb3ciIC8+DQogICAgPGcgY2xhc3M9
+        InN0MCI+DQogICAgICA8cGF0aCBkPSJNOS45LDEwSDJsOC04aDcuOUw5LjksMTB6IE0yMC43LDJsLTgs
+        OGg3LjlsOC04SDIwLjd6IiBjbGFzcz0iWWVsbG93IiAvPg0KICAgIDwvZz4NCiAgPC9nPg0KPC9zdmc+
+        Cw==
+</value>
+  </data>
+  <data name="lblApplicationServer.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
+        LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
+        dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAIQDAAAC77u/
+        PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
+        IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
+        MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
+        Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
+        MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlllbGxvd3tmaWxsOiNGRkIxMTU7fQoJ
+        LlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuQmx1ZXtmaWxsOiMxMTc3
+        RDc7fQoJLldoaXRle2ZpbGw6I0ZGRkZGRjt9CgkuR3JlZW57ZmlsbDojMDM5QzIzO30KCS5zdDB7b3Bh
+        Y2l0eTowLjc1O30KCS5zdDF7b3BhY2l0eTowLjU7fQoJLnN0MntvcGFjaXR5OjAuMjU7fQoJLnN0M3tm
+        aWxsOiNGRkIxMTU7fQo8L3N0eWxlPg0KICA8ZyAvPg0KICA8ZyBpZD0iU2VydmVyTW9kZSI+DQogICAg
+        PHBhdGggZD0iTTI3LDIwSDVjLTAuNSwwLTEsMC41LTEsMXY0YzAsMC41LDAuNSwxLDEsMWgyMmMwLjUs
+        MCwxLTAuNSwxLTF2LTRDMjgsMjAuNSwyNy41LDIwLDI3LDIweiBNOCwyNEg2di0yaDJWMjQgICB6IE0y
+        NywxMkg1Yy0wLjUsMC0xLDAuNS0xLDF2NGMwLDAuNSwwLjUsMSwxLDFoMjJjMC41LDAsMS0wLjUsMS0x
+        di00QzI4LDEyLjUsMjcuNSwxMiwyNywxMnogTTgsMTZINnYtMmgyVjE2eiBNMjcsNEg1ICAgQzQuNSw0
+        LDQsNC41LDQsNXY0YzAsMC41LDAuNSwxLDEsMWgyMmMwLjUsMCwxLTAuNSwxLTFWNUMyOCw0LjUsMjcu
+        NSw0LDI3LDR6IE04LDhINlY2aDJWOHoiIGNsYXNzPSJCbGFjayIgLz4NCiAgPC9nPg0KPC9zdmc+Cw==
+</value>
+  </data>
+  <data name="bbtniKonfig.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
+        LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
+        dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAKEDAAAC77u/
+        PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
+        IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
+        MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
+        Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
+        MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5Z
+        ZWxsb3d7ZmlsbDojRkZCMTE1O30KCS5CbGFja3tmaWxsOiM3MjcyNzI7fQoJLkdyZWVue2ZpbGw6IzAz
+        OUMyMzt9CgkuUmVke2ZpbGw6I0QxMUMxQzt9Cgkuc3Qwe29wYWNpdHk6MC43NTt9Cgkuc3Qxe29wYWNp
+        dHk6MC41O30KPC9zdHlsZT4NCiAgPGcgaWQ9IlVzZXIiPg0KICAgIDxwYXRoIGQ9Ik0xMCw5LjljLTAu
+        MSwwLjUsMC4yLDAuOSwwLjQsMS40YzAuMiwwLjUtMC4xLDEuNywwLjksMS42YzAsMCwwLDAuMSwwLDAu
+        MmMwLjYsMi4zLDIsNC45LDQuNyw0LjkgICBjMi43LDAsNC4yLTIuNiw0LjctNC45YzAsMCwwLTAuMSww
+        LTAuMWMxLDAuMSwwLjYtMS4xLDAuOS0xLjZjMC4yLTAuNSwwLjQtMC45LDAuMy0xLjRjLTAuMS0wLjQt
+        MC40LTAuNC0wLjUtMC4zICAgYzEuOC00LjktMS4xLTQuNy0xLjEtNC43UzIwLDIsMTQuOCwyQzEwLDIs
+        OS40LDYsMTAuNSw5LjZDMTAuNCw5LjYsMTAuMSw5LjcsMTAsOS45eiIgY2xhc3M9IkJsYWNrIiAvPg0K
+        ICAgIDxwYXRoIGQ9Ik0yMCwxOGMtMC44LDEuNS0yLjEsNC00LDRjLTEuOSwwLTMuMi0yLjUtNC00Yy0y
+        LjMsMy41LTgsMS04LDguNVYzMGgyNHYtMy41QzI4LDE5LjEsMjIuMywyMS40LDIwLDE4eiIgY2xhc3M9
+        IkJsYWNrIiAvPg0KICA8L2c+DQo8L3N2Zz4L
+</value>
+  </data>
+  <data name="bbtnitemAdmin.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
+        LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
+        dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAFcFAAAC77u/
+        PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
+        IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
+        MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
+        Y2U9InByZXNlcnZlIiBpZD0iRWRpdFJhbmdlUGVybWlzc2lvbiIgc3R5bGU9ImVuYWJsZS1iYWNrZ3Jv
+        dW5kOm5ldyAwIDAgMzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlllbGxvd3tmaWxs
+        OiNGRkIxMTU7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9Cjwvc3R5bGU+DQogIDxwYXRoIGQ9Ik0zMSwy
+        NGgtMXYtM2MwLTEuNy0xLjMtMy0zLTNoLTJjLTEuNywwLTMsMS4zLTMsM3YzaC0xYy0wLjYsMC0xLDAu
+        NC0xLDF2NmMwLDAuNiwwLjQsMSwxLDFoMTAgIGMwLjYsMCwxLTAuNCwxLTF2LTZDMzIsMjQuNCwzMS42
+        LDI0LDMxLDI0eiBNMjQsMjFjMC0wLjYsMC40LTEsMS0xaDJjMC42LDAsMSwwLjQsMSwxdjNoLTRWMjF6
+        IiBjbGFzcz0iWWVsbG93IiAvPg0KICA8cGF0aCBkPSJNMTAsMjJoMTB2MC4yYy0wLjksMC4zLTEuNSwx
+        LTEuOCwxLjhIMTBWMjJ6IE0yNyw0SDEyLjNjMCwwLDAsMCwwLDBjMCwwLjEsMC4xLDAuMiwwLjEsMC40
+        ICBDMTIuNiw1LDEyLjUsNS42LDEyLjMsNkgyNnYxMGgxYzAuMywwLDAuNywwLDEsMC4xVjVDMjgsNC40
+        LDI3LjYsNCwyNyw0eiBNMTAsMTh2MmgxMC4xYzAuMi0wLjcsMC41LTEuNCwwLjktMmgtNUgxMHogTTYs
+        MThINHYxMSAgYzAsMC42LDAuNCwxLDEsMWgxM3YtMkg2VjE4eiBNMTYsMTUuMVYxNmg2di0yaC02LjFD
+        MTYsMTQuMywxNiwxNC43LDE2LDE1LjF6IE0xNS40LDEySDIydi0yaC04LjZDMTQuMSwxMC40LDE0Ljks
+        MTEsMTUuNCwxMnoiIGNsYXNzPSJCbGFjayIgLz4NCiAgPHBhdGggZD0iTTMuNyw1LjdDMy42LDUuNCwz
+        LjQsNS4yLDMuNSw0LjhjMC0wLjEsMC4yLTAuMiwwLjMtMC4yQzMuMSwyLjQsMy44LDAuMiw2LjMsMEM5
+        LTAuMiw5LjUsMS44LDkuNSwxLjggIHMxLjQtMC4xLDAuNiwyLjljMC4xLDAsMC4zLDAsMC4zLDAuMmMw
+        LjEsMC4zLDAsMC42LTAuMiwwLjljLTAuMSwwLjMsMC4xLDEtMC41LDFjMCwwLDAsMC4xLDAsMC4xYy0w
+        LjMsMS40LTEuMiwzLTIuOCwzICBjLTEuNiwwLTIuNC0xLjYtMi44LTNjMCwwLDAtMC4xLDAtMC4xQzMu
+        Nyw2LjcsMy45LDYsMy43LDUuN3ogTTkuMyw5LjljLTAuNSwwLjktMS4yLDIuNS0yLjMsMi41Yy0xLjEs
+        MC0xLjgtMS42LTIuMy0yLjYgIEMzLjQsMTIuMSwwLDEwLjUsMCwxNS4xVjE2aDE0di0wLjlDMTQsMTAu
+        NSwxMC43LDEyLDkuMyw5Ljl6IiBjbGFzcz0iQmxhY2siIC8+DQo8L3N2Zz4L
+</value>
+  </data>
+  <data name="lblRefresh.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
+        LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
+        dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAFAEAAAC77u/
+        PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
+        IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
+        MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
+        Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
+        MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5Z
+        ZWxsb3d7ZmlsbDojRkZCMTE1O30KCS5SZWR7ZmlsbDojRDExQzFDO30KCS5HcmVlbntmaWxsOiMwMzlD
+        MjM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh
+        Y2l0eTowLjU7fQoJLnN0MXtvcGFjaXR5OjAuNzU7fQoJLnN0MntkaXNwbGF5Om5vbmU7fQoJLnN0M3tk
+        aXNwbGF5OmlubGluZTtmaWxsOiNGRkIxMTU7fQoJLnN0NHtkaXNwbGF5OmlubGluZTt9Cgkuc3Q1e2Rp
+        c3BsYXk6aW5saW5lO29wYWNpdHk6MC43NTt9Cgkuc3Q2e2Rpc3BsYXk6aW5saW5lO29wYWNpdHk6MC41
+        O30KCS5zdDd7ZGlzcGxheTppbmxpbmU7ZmlsbDojMDM5QzIzO30KCS5zdDh7ZGlzcGxheTppbmxpbmU7
+        ZmlsbDojRDExQzFDO30KCS5zdDl7ZGlzcGxheTppbmxpbmU7ZmlsbDojMTE3N0Q3O30KCS5zdDEwe2Rp
+        c3BsYXk6aW5saW5lO2ZpbGw6I0ZGRkZGRjt9Cjwvc3R5bGU+DQogIDxnIGlkPSJBdWRpdF94NUZfQ2hh
+        bmdlSGlzdG9yeSI+DQogICAgPHBvbHlnb24gcG9pbnRzPSIxNiwxNiAxNiwxMCAxNCwxMCAxNCwxOCAy
+        MiwxOCAyMiwxNiAgIiBjbGFzcz0iQmxhY2siIC8+DQogICAgPHBhdGggZD0iTTE2LDJDMTEuNiwyLDcu
+        Nyw0LDUuMiw3LjJMMiw0djEwaDAuMmg0SDEybC00LTRjMS44LTIuNCw0LjctNCw4LTRjNS41LDAsMTAs
+        NC41LDEwLDEwYzAsNS41LTQuNSwxMC0xMCwxMCAgIGMtNC44LDAtOC45LTMuNC05LjgtOGgtNGMxLDYu
+        OCw2LjgsMTIsMTMuOCwxMmM3LjcsMCwxNC02LjMsMTQtMTRTMjMuNywyLDE2LDJ6IiBjbGFzcz0iQmx1
+        ZSIgLz4NCiAgPC9nPg0KPC9zdmc+Cw==
+</value>
+  </data>
+  <data name="bbtnitmLanguage.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
+        LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
+        dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAPIGAAAC77u/
+        PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
+        IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
+        MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
+        Y2U9InByZXNlcnZlIiBpZD0iTGFuZ3VhZ2UiIHN0eWxlPSJlbmFibGUtYmFja2dyb3VuZDpuZXcgMCAw
+        IDMyIDMyIj4NCiAgPHN0eWxlIHR5cGU9InRleHQvY3NzIj4KCS5CbGFja3tmaWxsOiM3MjcyNzI7fQoJ
+        LlllbGxvd3tmaWxsOiNGRkIxMTU7fQoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KPC9zdHlsZT4NCiAgPHBh
+        dGggZD0iTTMuMywyOGMxLjMtMS4xLDIuOS0xLjcsNC43LTEuOXYzLjlDNi4yLDI5LjcsNC42LDI5LjEs
+        My4zLDI4eiBNMTQuOSwxOGwtMiwyaDUuMWMtMC4xLTAuNy0wLjMtMS40LTAuNS0yICBIMTQuOXogTTEw
+        LDIydjIuMWMyLjMsMC4yLDQuNCwxLjEsNi4xLDIuNWMxLTEuMywxLjctMi45LDEuOS00LjZoLTcuMUgx
+        MHogTTEuOSwyNi42YzEuNy0xLjQsMy44LTIuMyw2LjEtMi41VjIySDAuMSAgQzAuMiwyMy43LDAuOSwy
+        NS4zLDEuOSwyNi42eiBNMTAsMjkuOWMxLjgtMC4yLDMuNC0wLjksNC43LTEuOWMtMS4zLTEuMS0yLjkt
+        MS43LTQuNy0xLjlWMjkuOXogTTUsMThjLTEuNSwwLTIuNy0xLjEtMi45LTIuNSAgYzAsMC0wLjEtMC4x
+        LTAuMS0wLjFjLTEsMS4zLTEuNywyLjktMS45LDQuNkg4di0ySDdINXoiIGNsYXNzPSJCbHVlIiAvPg0K
+        ICA8cGF0aCBkPSJNMjksMEg1QzQuNSwwLDQsMC41LDQsMXYxNGMwLDAuNSwwLjUsMSwxLDFoNXY0bDQt
+        NGgxNWMwLjUsMCwxLTAuNSwxLTFWMUMzMCwwLjUsMjkuNSwwLDI5LDB6IiBjbGFzcz0iWWVsbG93IiAv
+        Pg0KICA8cGF0aCBkPSJNMTMuOSwxMmgtMmwtMC42LTEuOEg4LjVMOCwxMkg2bDIuOS04SDExTDEzLjks
+        MTJ6IE0xMC45LDguOGwtMC45LTIuN0MxMCw1LjksMTAsNS43LDEwLDUuNGgwICBjMCwwLjItMC4xLDAu
+        NS0wLjEsMC43TDguOSw4LjhIMTAuOXogTTE0LjksMTJWNGgyLjljMC45LDAsMS42LDAuMiwyLjEsMC41
+        YzAuNSwwLjMsMC43LDAuOCwwLjcsMS40YzAsMC40LTAuMSwwLjgtMC40LDEuMSAgYy0wLjMsMC4zLTAu
+        NywwLjUtMS4xLDAuN3YwYzAuNiwwLjEsMSwwLjMsMS40LDAuNmMwLjMsMC4zLDAuNSwwLjgsMC41LDEu
+        M2MwLDAuNy0wLjMsMS4zLTAuOCwxLjdDMTkuNiwxMS44LDE4LjksMTIsMTgsMTJIMTQuOXogICBNMTYu
+        Nyw1LjN2MS45aDAuOGMwLjQsMCwwLjctMC4xLDAuOS0wLjNzMC4zLTAuNCwwLjMtMC43YzAtMC42LTAu
+        NC0wLjktMS4zLTAuOUgxNi43eiBNMTYuNyw4LjZ2Mi4xaDFjMC40LDAsMC43LTAuMSwxLTAuMyAgYzAu
+        Mi0wLjIsMC40LTAuNSwwLjQtMC44YzAtMC4zLTAuMS0wLjYtMC4zLTAuOGMtMC4yLTAuMi0wLjYtMC4z
+        LTEtMC4zSDE2Ljd6IE0yNy45LDExLjdjLTAuNiwwLjMtMS4zLDAuNC0yLjMsMC40ICBjLTEuMiwwLTIu
+        Mi0wLjQtMi45LTEuMWMtMC43LTAuNy0xLjEtMS43LTEuMS0yLjljMC0xLjMsMC40LTIuMywxLjItMy4x
+        YzAuOC0wLjgsMS44LTEuMiwzLjEtMS4yYzAuOCwwLDEuNCwwLjEsMiwwLjN2MS43ICBjLTAuNS0wLjMt
+        MS4xLTAuNS0xLjgtMC41Yy0wLjgsMC0xLjQsMC4yLTEuOCwwLjdjLTAuNSwwLjUtMC43LDEuMS0wLjcs
+        MS45YzAsMC44LDAuMiwxLjQsMC43LDEuOHMxLDAuNywxLjgsMC43ICBjMC43LDAsMS4zLTAuMiwxLjkt
+        MC41VjExLjd6IiBjbGFzcz0iQmxhY2siIC8+DQo8L3N2Zz4L
+</value>
+  </data>
   <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
   <data name="NotifyIconMain.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
@@ -4635,35 +4817,12 @@
         AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA=
 </value>
   </data>
-  <metadata name="StatusStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>299, 17</value>
-  </metadata>
-  <data name="labelUser.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
-        xAAADsQBlSsOGwAAASJJREFUWEftk8sNgzAQRFMKJVADXdAQbdAJ1SS5cuPqeKydaNlMhJSPiVBWehIa
-        22/XkJxSSrsiw5rIsCYyrIkMiaplWZrMmJkzycAzssa2rUq5iQxJrNygtWZsHMFaa9vvpdxEhsRXFuPm
-        pfk0Tanv+9R1XQHPyLBme1ZvQrmJDImvLMUrLo3YOOKGGO1YKeUmMiS+srTc3t88gjUbYLZjpZSbyJD4
-        MrFs7OE+O1ZKuYkMia+fGWDPT7D7j7D+39CEbxO9HhkSJXuF6PXIkFDgvzMYhuGhCbK4j2vR65EhoSCK
-        gR9CNQdcj16PDAkFSg7Q+Flz8PUBtjj+AJfztaDWwPEH2OI/wMcGeJfo9ciQKNkrRK9HhjWRYU1kWBMZ
-        1iOdbmae7IkqFqH2AAAAAElFTkSuQmCC
-</value>
-  </data>
-  <metadata name="TimerClose.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>416, 17</value>
-  </metadata>
-  <metadata name="ContextMenuStripForm.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>528, 17</value>
-  </metadata>
-  <metadata name="ImageList1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>707, 17</value>
-  </metadata>
   <data name="ImageList1.ImageStream" mimetype="application/x-microsoft.net.object.binary.base64">
     <value>
         AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
         LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
         ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAABU
-        CwAAAk1TRnQBSQFMAgEBBQEAASABAAEgAQABEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
+        CwAAAk1TRnQBSQFMAgEBBQEAASwBAQEsAQEBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
         AwABQAMAASADAAEBAQABCAYAAQgYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
         AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
         AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA
@@ -4714,10 +4873,7 @@
         Af8BnwL/AQABBwGAAQAE/wHAB/8BwQP/Cw==
 </value>
   </data>
-  <metadata name="TimerRefresh.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+  <data name="frmMain.IconOptions.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>817, 17</value>
-  </metadata>
-  <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         AAABAAEAAAAAAAEAIAAoIAQAFgAAACgAAAAAAQAAAAIAAAEAIAAAAAAAACAEABMLAAATCwAAAAAAAAAA
         AAAxJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEk

app/DD_Clipboard_Searcher/frmMain.vb

@@ -0,0 +1,522 @@
+Imports System.Threading
+Imports System.IO
+Imports System.Globalization
+Imports easyFLOW.ClassConstants
+Imports easyFLOW.ClassWindowAPI
+Imports DigitalData.Modules.ZooFlow
+Imports DigitalData.Modules.Windows
+Imports DigitalData.Modules.Base
+Imports DigitalData.GUIs.ClipboardWatcher
+Imports DevExpress.XtraBars.ToastNotifications
+Imports DigitalData.GUIs.Common
+
+Public Class frmMain
+
+
+    Private WithEvents _Hotkey As New ClassHotkey(Me)
+    Private WithEvents _Watcher As ClasseasyFLOW = ClasseasyFLOW.Singleton
+
+    Private _Animator As New Animator() With {
+        .PopupColor = Color.FromArgb(165, 36, 49),
+        .PopupOpacity = 0.8,
+        .PopupSize = New Size(100, 30)
+    }
+    Private _MatchForm As frmMatch = Nothing
+    Private _DataASorDB As ClassDataASorDB
+
+    Private Class S
+        Inherits My.Resources.frmMain_Strings
+    End Class
+
+    Public Sub New()
+
+        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+        Dim splash As New frmSplash()
+        splash.ShowDialog()
+
+        ' === Language is set in ClassInit ===
+        'Try
+        '    If USER_LANGUAGE <> "" Then
+        '        Dim cultureInfo As New CultureInfo(USER_LANGUAGE)
+        '        cultureInfo.DateTimeFormat.ShortDatePattern = USER_DATE_FORMAT
+        '        Thread.CurrentThread.CurrentCulture = cultureInfo
+        '        Thread.CurrentThread.CurrentUICulture = cultureInfo
+        '        CultureInfo.DefaultThreadCurrentCulture = cultureInfo
+        '        CultureInfo.DefaultThreadCurrentUICulture = cultureInfo
+        '    End If
+        'Catch ex As Exception
+        '    Logger.Error(ex)
+        'End Try
+
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+
+        _DataASorDB = New ClassDataASorDB(LogConfig)
+    End Sub
+
+    Private Sub frmMain_Load(sender As Object, e As EventArgs) Handles Me.Load
+        ClassWindowLocation.LoadFormLocationSize(Me)
+        If ERROR_INIT = "FAILED DBCONNECTION" Or ERROR_INIT = "DATABASE" Then
+            frmConfig_Basic.ShowDialog()
+        End If
+        lblUser.Caption = USER_USERNAME
+
+        LanguageEx.LogApplicationLanguage(Logger)
+
+        If MyDB_DDECM.DBInitialized = True Then
+            If ERROR_INIT <> "" Then
+                If ERROR_INIT = "NO CLIENT" Then
+
+                    MsgBox(String.Format(S.Sie_sind_keinem_Mandanten_zugewiesen__0_Bitte_wenden_Sie_sich_an__Ihren_Administrator_, vbNewLine), MsgBoxStyle.Exclamation)
+                Else
+                    MsgBox(String.Format(S.Die_Benutzerkonfiguration_konnte_nicht_erfolgreich_durchgeführt_werden__0_Grund___1__2_Bitte_kontaktieren_sie_Ihren_Administrator_, vbNewLine, ERROR_INIT, vbNewLine), MsgBoxStyle.Exclamation)
+                    'MsgBox("Sorry Something went wrong in user configuration!" & vbNewLine & "Reason: " & ERROR_INIT & vbNewLine & "Please contact the system administrator!", MsgBoxStyle.Exclamation)
+                End If
+                Exit Sub
+            End If
+            NotifyIconMain.Visible = True
+            ClassInit.Refresh_Profile_Links()
+            _DataASorDB.Refresh_Connections()
+            Try
+                _Hotkey.AddHotKey(Keys.T, ClassHotkey.ModfierKey.MOD_CONTROL, HOTKEY_TOGGLE_WATCHER)
+                Dim oKeyCode As Keys
+                Dim oConverter As New KeysConverter
+                Dim oObject As Object = oConverter.ConvertFromString(HotkeySearchKey.ToUpper)
+                oKeyCode = CType(oObject, Keys)
+
+                If HotkeyFunctionKey = HOTKEY_CTRL Then
+                    _Hotkey.AddHotKey(oKeyCode, ClassHotkey.ModfierKey.MOD_CONTROL, ClassConstants.HOTKEY_TRIGGER_WATCHER)
+                ElseIf HotkeyFunctionKey = HOTKEY_SHIFT Then
+                    _Hotkey.AddHotKey(oKeyCode, ClassHotkey.ModfierKey.MOD_SHIFT, ClassConstants.HOTKEY_TRIGGER_WATCHER)
+                End If
+            Catch ex As Exception
+                Logger.Warn($"Unexpected Error in Hotkey inititialize: {ex.Message}")
+            End Try
+
+            Try
+                If APPSERVER_ACTIVE = True Then
+                    lblApplicationServer.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
+                Else
+                    lblApplicationServer.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
+                End If
+                If BASIC_CONF_VISIBLE = False Then
+                    bbtniKonfig.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
+                Else
+                    bbtniKonfig.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
+                End If
+                If USER_IS_ADMIN = True Then
+                    bbtnitemAdmin.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
+                Else
+                    bbtnitemAdmin.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
+                End If
+                If USER_IS_ADMIN = False And BASIC_CONF_VISIBLE = False Then
+                    RibbonPageGroup1.Visible = False
+                    RibbonControl1.Minimized = True
+                End If
+                If BASEDATA_DT_LANGUAGE.Rows.Count >= 1 Then
+                    bbtniKonfig.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
+                Else
+                    Logger.Info("Keine Grundeinstellungen weil keine Sprachen definiert!")
+                    bbtniKonfig.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
+                End If
+
+                lblVersion.Caption = My.Application.Info.Version.ToString
+                lblUser.Caption = String.Format(lblUser.Caption, USER_USERNAME)
+            Catch ex As Exception
+                Logger.Warn($"Unexpected Error in FormLoad2: {ex.Message}")
+            End Try
+
+        End If
+
+        RefreshUI()
+
+        'Dim resources = New System.ComponentModel.ComponentResourceManager(Me.[GetType]())
+        'GetChildren(Me).ToList().ForEach(Sub(c) resources.ApplyResources(c, c.Name))
+    End Sub
+
+    Private Function GetChildren(pControl As Control) As IEnumerable(Of Control)
+        Dim oControls = pControl.Controls.Cast(Of Control)()
+        Return oControls.SelectMany(Of Control)(Function(ctrl) GetChildren(ctrl)).Concat(oControls)
+    End Function
+
+    Private Sub frmMain_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
+        Logger.Info(">> Logout time: " & Now.ToString, False)
+        If ERROR_INIT = "INVALID USER" Or ERROR_INIT = "NO CLIENT" Then
+            Exit Sub
+        End If
+        Try
+            Dim sql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_ID & " AND (MODULE = 'easyFLOW' OR MODULE = 'Clipboard-Watcher')"
+            MyDB_DDECM.ExecuteNonQuery(sql)
+            ClassWindowLocation.SaveFormLocationSize(Me, "")
+            My.Settings.Save()
+        Catch ex As Exception
+
+        End Try
+        Try
+            _Hotkey.RemoveHotKey(HOTKEY_TOGGLE_WATCHER)
+            _Hotkey.RemoveHotKey(HOTKEY_TRIGGER_WATCHER)
+        Catch ex As Exception
+            Logger.Error(ex)
+            Logger.Warn("Hotkeys could not be removed")
+        End Try
+
+        'TempDateien löschen
+        For Each oFile In TEMP_FILES
+            Try
+                IO.File.Delete(oFile)
+            Catch ex As Exception
+                Logger.Warn("Temp file {0} could not be deleted", oFile)
+                Logger.Error(ex)
+            End Try
+        Next
+    End Sub
+
+    Private Sub frmClipboardWatch_Disposed(ByVal sender As Object, ByVal e As EventArgs) Handles Me.Disposed
+        _Watcher.Dispose()
+    End Sub
+
+    Private Sub WatcherChanged_New(ByVal sender As Object, ByVal e As String) Handles _Watcher.Changed
+        If MONITORING_ACTIVE = False Then
+            Logger.Info($"{AppTitle} is inactive!")
+            'NotifyIconMain.ShowBalloonTip(20000, "easyFLOW", "Clipboard-watcher is inactive.", ToolTipIcon.Info)
+            Exit Sub
+        End If
+
+        If DT_USER_PROFILES Is Nothing OrElse DT_USER_PROFILES.Rows.Count = 0 Then
+            Logger.Warn("DT_USER_PROFILES is Nothing/contains no rows!")
+            Exit Sub
+        End If
+
+        If DTPROFILE_REL_PROCESS Is Nothing OrElse DTPROFILE_REL_PROCESS.Rows.Count = 0 Then
+            Logger.Warn("DTPROFILE_REL_PROCESS is Nothing/contains no rows!")
+            Exit Sub
+        End If
+
+        If DTPROFILE_REL_WINDOW Is Nothing Then
+            Logger.Warn("DTPROFILE_REL_WINDOW is Nothing!")
+            Exit Sub
+        End If
+
+        If DTPROFILE_REL_CONTROL Is Nothing Then
+            Logger.Warn("DTPROFILE_REL_CONTROL is Nothing!")
+            Exit Sub
+        End If
+
+        Dim oWindowInfo = GetWindowInfo()
+        Dim ClipboardContents As String = Clipboard.GetText().Trim()
+        Dim oProfileFilter As ProfileFilter
+
+        Try
+            CurrMatchTreeView.Nodes.Clear()
+            CurrMatchTreeView.ImageList = ImageList1
+            CurrMatchTreeView.SelectedImageIndex = 0
+
+            oProfileFilter = New ProfileFilter(
+                LogConfig,
+                DT_USER_PROFILES,
+                DTPROFILE_REL_PROCESS,
+                DTPROFILE_REL_WINDOW,
+                DTPROFILE_REL_CONTROL,
+                CurrMatchTreeView
+            )
+        Catch ex As Exception
+            Logger.Error(ex)
+            MsgBox(S.Fehler_beim_Laden_der_Profile_, MsgBoxStyle.Critical, Text)
+            'MsgBox("Fehler beim Laden der Profile. Möglicherweise liegt ein Konfigurationsfehler vor. Mehr Informationen im Log.", MsgBoxStyle.Critical, Text)
+            Exit Sub
+        End Try
+
+        Try
+            Dim oProfiles = oProfileFilter.Profiles.AsEnumerable()
+            Dim oEnvironment = GetEnvironment()
+
+            oProfiles = oProfileFilter.FilterProfilesByClipboardRegex(oProfiles, ClipboardContents)
+            oProfiles = oProfileFilter.LogRemainingProfiles(oProfiles, "FilterProfilesByClipboardRegex")
+
+            oProfiles = oProfileFilter.FilterProfilesByProcess(oProfiles, oWindowInfo.ProcessName)
+            oProfiles = oProfileFilter.LogRemainingProfiles(oProfiles, "FilterProfilesByProcess")
+
+            oProfiles = oProfileFilter.FilterWindowsByWindowTitleRegex(oProfiles, oWindowInfo.WindowTitle)
+            oProfiles = oProfileFilter.LogRemainingProfiles(oProfiles, "FilterWindowsByWindowTitleRegex")
+
+            oProfiles = oProfileFilter.FilterProfilesByFocusedControl(oProfiles, ClipboardContents, Handle)
+            oProfiles = oProfileFilter.LogRemainingProfiles(oProfiles, "FilterProfilesByFocusedControl")
+
+            CURRENT_MATCHING_PROFILES = oProfiles.ToList()
+
+            oProfiles = oProfileFilter.FilterProfilesBySearchResults(oProfiles, oEnvironment.Database, oEnvironment.User, ClipboardContents)
+            oProfiles = oProfileFilter.LogRemainingProfiles(oProfiles, "FilterProfilesBySearchResults")
+
+            oProfiles = oProfileFilter.ClearNotMatchedProfiles(oProfiles)
+            oProfiles = oProfileFilter.ClearDuplicateProfiles(oProfiles)
+            oProfiles = oProfileFilter.LogRemainingProfiles(oProfiles, "CleanUp")
+
+            CURRENT_PROFILES_WITH_RESULTS = oProfiles.ToList()
+            CURRENT_CLIPBOARD_CONTENTS = ClipboardContents
+            Logger.Debug("WatcherChanged_New: CURRENT_PROFILES_WITH_RESULTS.Count: " & CURRENT_PROFILES_WITH_RESULTS.Count)
+        Catch ex As Exception
+            MsgBox(S.Fehler_beim_Auswerten_der_Profile__Mehr_Informationen_im_Log_, MsgBoxStyle.Critical, Text)
+            'MsgBox("Fehler beim Auswerten der Profile. Mehr Informationen im Log.", MsgBoxStyle.Critical, Text)
+            Logger.Error(ex)
+        End Try
+    End Sub
+
+    Private Sub ReceiveHotKey(ByVal HotKeyID As String) Handles _Hotkey.HotKeyPressed
+        If HotKeyID = HOTKEY_TRIGGER_WATCHER Then
+            '_Animator.Highlight(Cursor.Position)
+
+            If CURRENT_CLIPBOARD_CONTENTS IsNot Nothing Then
+                If MONITORING_ACTIVE = True Then
+                    If CURRENT_MATCHING_PROFILES.Count = 0 Then
+                        Logger.Info("ReceiveHotKey - No profiles matched the Clipboard-Content!")
+                        Logger.Info("NOMATCH_INFO = {0}", NOMATCH_INFO)
+                        If NOMATCH_INFO = False Then
+                            Dim oMessageTitle As String
+                            Dim oMessageText As String
+
+                            oMessageTitle = AppTitle
+                            oMessageText = String.Format(S.Es_wurden_keine_passenden_Profile_gefunden_für_die_Suche_nach___0___, CURRENT_CLIPBOARD_CONTENTS)
+
+
+                            If NOTIFY_MODE.ToUpper = "MSGBOX" Then
+                                MsgBox(oMessageText, MsgBoxStyle.Exclamation, oMessageTitle)
+                            Else
+                                'NotifyIconMain.BalloonTipTitle = oMessageTitle
+                                'NotifyIconMain.BalloonTipText = oMessageText
+                                'NotifyIconMain.BalloonTipIcon = ToolTipIcon.Warning
+                                'NotifyIconMain.ShowBalloonTip(2500)
+
+                                AlertControl1.AutoFormDelay = 2500
+                                AlertControl1.Show(Me, oMessageTitle, oMessageText)
+                            End If
+                        Else
+                            Logger.Info("Popup will not be shown. NOMATCH_INFO Is True.")
+                        End If
+
+                    ElseIf CURRENT_PROFILES_WITH_RESULTS.Count = 0 Then
+                        Logger.Info("ReceiveHotKey - No documents or data found for Clipboard-Content!")
+                        Logger.Info("NOMATCH_INFO = {0}", NOMATCH_INFO)
+                        If NOMATCH_INFO = False Then
+                            Dim oMessageTitle As String
+                            Dim oMessageText As String
+
+                            oMessageTitle = AppTitle
+                            oMessageText = String.Format(S.Es_wurden_weder_Dokumente_noch_Daten_gefunden_für_die_Suche_nach___0___, CURRENT_CLIPBOARD_CONTENTS)
+
+                            If NOTIFY_MODE.ToUpper = "MSGBOX" Then
+                                MsgBox(oMessageText, MsgBoxStyle.Exclamation, oMessageTitle)
+                            Else
+                                'NotifyIconMain.BalloonTipTitle = oMessageTitle
+                                'NotifyIconMain.BalloonTipText = oMessageText
+                                'NotifyIconMain.BalloonTipIcon = ToolTipIcon.Warning
+                                'NotifyIconMain.ShowBalloonTip(2500)
+
+                                AlertControl1.AutoFormDelay = 2500
+                                AlertControl1.Show(Me, oMessageTitle, oMessageText)
+                            End If
+                        Else
+                            Logger.Info("Popup will not be shown. NOMATCH_INFO Is True.")
+                        End If
+                    Else
+                        OpenMatchForm()
+                    End If
+                End If
+
+            End If
+        ElseIf HotKeyID = HOTKEY_TOGGLE_WATCHER Then
+            Change_Monitoring_State()
+        End If
+    End Sub
+    Sub OpenMatchForm()
+        Logger.Debug("...now CHECK_PROFILE_MATCH...")
+        Dim oProfiles = CURRENT_PROFILES_WITH_RESULTS
+        Dim oEnv = GetEnvironment()
+
+        Dim oParams = New ClipboardWatcherParams() With {
+            .ClipboardContents = CURRENT_CLIPBOARD_CONTENTS,
+            .MatchingProfiles = oProfiles,
+            .MatchTreeView = CurrMatchTreeView,
+            .OperationModeOverride = IIf(
+                oEnv.Service.IsActive,
+                DigitalData.Modules.ZooFlow.Constants.OperationMode.WithAppServer,
+                DigitalData.Modules.ZooFlow.Constants.OperationMode.NoAppServer)
+        }
+
+        Dim oForm As New frmMatch(LogConfig, oEnv, oParams)
+
+        _MatchForm = oForm
+        oForm.Show()
+    End Sub
+
+    Private Function GetEnvironment() As Environment
+        Dim oUser As New State.UserState() With {
+            .DateFormat = USER_DATE_FORMAT,
+            .Email = USER_EMAIL,
+            .GivenName = USER_PRENAME,
+            .Language = USER_LANGUAGE,
+            .MachineName = System.Environment.MachineName,
+            .ShortName = USER_SHORTNAME,
+            .Surname = USER_SURNAME,
+            .UserId = USER_ID,
+            .UserName = USER_USERNAME
+        }
+
+        Dim oService As New State.ServiceState() With {
+            .Address = CONFIG.Config.AppServerConfig,
+            .IsActive = CONFIG.Config.IsIDB,
+            .IsOnline = False,
+            .Client = _Client
+        }
+
+        Dim oSettings As New State.SettingsState() With {
+            .GdPictureKey = GDPICTURE_LICENSE
+        }
+
+        Dim oEnvironment As New Environment() With {
+            .Database = MyDB_DDECM,
+            .Modules = Nothing,
+            .User = oUser,
+            .Settings = oSettings,
+            .Service = oService
+        }
+
+        Return oEnvironment
+    End Function
+
+    Sub Change_Monitoring_State()
+        If MONITORING_ACTIVE = True Then
+            MONITORING_ACTIVE = False
+            NotifyIconMain.ShowBalloonTip(30000, AppTitle, S.Clipboard_Watcher_wurde_deaktiviert_, ToolTipIcon.Info)
+        Else
+            MONITORING_ACTIVE = True
+            NotifyIconMain.ShowBalloonTip(30000, AppTitle, S.Clipboard_Watcher_wurde_wieder_aktiviert_, ToolTipIcon.Info)
+        End If
+    End Sub
+    Private Sub frmMain_Shown(sender As Object, e As EventArgs) Handles Me.Shown
+        If ERROR_INIT <> "INVALID USER" And LICENSE_COUNT > 0 Then
+            If DT_USER_PROFILES.Rows.Count >= 1 Then
+                Hide()
+            End If
+        Else
+            If USER_IS_ADMIN = True And ERROR_INIT = "NO LICENSE" Then
+                MsgBox("As an admin You have access! Please inforFm Digital Data to add a valid license!", MsgBoxStyle.Exclamation, "No valid License")
+            Else
+                If Not USER_IS_ADMIN Then
+                    MsgBox("Application will close now!", MsgBoxStyle.Critical, "No valid License")
+                    Close()
+                End If
+
+            End If
+        End If
+
+        TimerRefresh.Start()
+    End Sub
+
+    Private Sub NotifyIcon1_DoubleClick(sender As Object, e As EventArgs) Handles NotifyIconMain.DoubleClick
+        OpenClose()
+    End Sub
+    Sub OpenClose()
+        If Visible = False Then
+            BringToFront()
+            Visible = True
+            TimerClose.Start()
+        Else
+            Hide()
+            NotifyIconMain.Visible = True
+        End If
+    End Sub
+
+    Private Sub TimerClose_Tick(sender As Object, e As EventArgs) Handles TimerClose.Tick
+        Hide()
+    End Sub
+
+    Private Sub frmMain_VisibleChanged(sender As Object, e As EventArgs) Handles Me.VisibleChanged
+        If TimerClose.Enabled = True Then
+            TimerClose.Stop()
+        End If
+    End Sub
+
+    Private Sub MinimierenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles MinimierenToolStripMenuItem.Click
+        Hide()
+    End Sub
+    Private Sub ClientÖffnenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ClientÖffnenToolStripMenuItem.Click
+        OpenClose()
+    End Sub
+
+    Private Sub ClientBeendenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ClientBeendenToolStripMenuItem.Click
+        Shut_Down()
+    End Sub
+    Sub Shut_Down()
+        If MsgBox(S.Wollen_Sie_Clipboard_Watcher_wirklich_beenden_, MsgBoxStyle.Question Or MsgBoxStyle.YesNo, Text) = MsgBoxResult.Yes Then
+            Close()
+        End If
+    End Sub
+    Private Sub TimerRefresh_Tick(sender As Object, e As EventArgs) Handles TimerRefresh.Tick
+        RefreshUI()
+    End Sub
+
+    Private Sub RefreshUI()
+        Dim oResultText = ClassInit.Refresh_Profile_Links()
+        lblRefresh.Caption = ""
+        _DataASorDB.CheckModuleData()
+        'ClassInit.CheckModuleData()
+        labelStatus.Text = oResultText
+
+
+        labelRefresh.Text = String.Format(S.Aktualisiert___0_, Now.ToShortTimeString)
+        'labelRefresh.Text = $"Aktualisiert: {Now.ToShortTimeString}"
+
+        lblRefresh.Caption = String.Format(S.Eingeloggte_Benutzer___0_, USERCOUNT_LOGGED_IN)
+        'lblRefresh.Caption = $"Eingeloggte Benutzer: {USERCOUNT_LOGGED_IN}"
+
+        lblVersion.Caption = My.Application.Info.Version.ToString
+        lblUser.Caption = String.Format(lblUser.Caption, USER_USERNAME)
+        labelHotkey.Text = String.Format(labelHotkey.Text, $"{HotkeyFunctionKey.ToUpper}+{HotkeySearchKey.ToUpper}")
+    End Sub
+    Private Sub BisherigenAblaufAnzeigenToolStripMenuItem_Click_1(sender As Object, e As EventArgs) Handles BisherigenAblaufAnzeigenToolStripMenuItem.Click
+        If CurrMatchTreeView.Nodes.Count > 0 Then
+            Dim oForm As New frmTreeView(CurrMatchTreeView.Nodes)
+            oForm.Show()
+        End If
+    End Sub
+
+    Private Sub ClipboardWatcherStoppenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles tsmiChangeState.Click
+        If tsmiChangeState.Tag = "stop" Then
+            tsmiChangeState.Tag = "start"
+            tsmiChangeState.Image = My.Resources.control_start_blue
+            tsmiChangeState.Text = S.Clipboard_Watcher_starten
+            MONITORING_ACTIVE = False
+            NotifyIconMain.ShowBalloonTip(30000, "easyFLOW", S.Clipboard_Watcher_wurde_deaktiviert_, ToolTipIcon.Info)
+        Else
+            tsmiChangeState.Image = My.Resources.StatusAnnotations_Stop_16xLG
+            tsmiChangeState.Tag = "stop"
+            tsmiChangeState.Text = S.Clipboard_Watcher_stoppen
+            MONITORING_ACTIVE = True
+            NotifyIconMain.ShowBalloonTip(30000, "easyFLOW", S.Clipboard_Watcher_wurde_wieder_aktiviert_, ToolTipIcon.Info)
+        End If
+    End Sub
+
+    Private Sub bbtnitemAdmin_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbtnitemAdmin.ItemClick
+        TimerClose.Stop()
+        MONITORING_ACTIVE = False
+        frmAdministration.ShowDialog()
+        TimerClose.Start()
+        MONITORING_ACTIVE = True
+
+        RefreshUI()
+    End Sub
+
+    Private Sub bbtniKonfig_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbtniKonfig.ItemClick
+        frmConfig_Basic.ShowDialog()
+    End Sub
+
+    Private Sub bbtnitmLanguage_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbtnitmLanguage.ItemClick
+        Dim oNForm As New frmLanguage_Select(LogConfig, MyConnectionString, USER_USERNAME, BASEDATA_DT_LANGUAGE, "EF")
+        oNForm.ShowDialog()
+
+        If oNForm.pChanged = True Then
+            MsgBox("For the changes to take effect, the program must now be closed. Restart it afterwards.", MsgBoxStyle.Exclamation, "Restart:")
+            Me.Close()
+        End If
+    End Sub
+End Class

app/DD_Clipboard_Searcher/frmProcessCapture.Designer.vb

@@ -1,6 +1,6 @@
 <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
 Partial Class frmProcessCapture
-    Inherits System.Windows.Forms.Form
+    Inherits DevExpress.XtraEditors.XtraForm
 
     'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
     <System.Diagnostics.DebuggerNonUserCode()> _
@@ -34,6 +34,7 @@ Partial Class frmProcessCapture
         Me.Label4 = New System.Windows.Forms.Label()
         Me.Button2 = New System.Windows.Forms.Button()
         Me.Button1 = New System.Windows.Forms.Button()
+        Me.chkIgnoreProcessName = New System.Windows.Forms.CheckBox()
         Me.SuspendLayout()
         '
         'txtPID
@@ -42,7 +43,7 @@ Partial Class frmProcessCapture
         Me.txtPID.Location = New System.Drawing.Point(132, 4)
         Me.txtPID.Name = "txtPID"
         Me.txtPID.ReadOnly = True
-        Me.txtPID.Size = New System.Drawing.Size(224, 21)
+        Me.txtPID.Size = New System.Drawing.Size(218, 21)
         Me.txtPID.TabIndex = 1
         '
         'txtName
@@ -51,14 +52,14 @@ Partial Class frmProcessCapture
         Me.txtName.Location = New System.Drawing.Point(132, 32)
         Me.txtName.Name = "txtName"
         Me.txtName.ReadOnly = True
-        Me.txtName.Size = New System.Drawing.Size(224, 21)
+        Me.txtName.Size = New System.Drawing.Size(218, 21)
         Me.txtName.TabIndex = 2
         '
         'Label1
         '
         Me.Label1.AutoSize = True
         Me.Label1.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label1.Location = New System.Drawing.Point(12, 9)
+        Me.Label1.Location = New System.Drawing.Point(9, 7)
         Me.Label1.Name = "Label1"
         Me.Label1.Size = New System.Drawing.Size(62, 13)
         Me.Label1.TabIndex = 3
@@ -68,7 +69,7 @@ Partial Class frmProcessCapture
         '
         Me.Label2.AutoSize = True
         Me.Label2.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label2.Location = New System.Drawing.Point(12, 35)
+        Me.Label2.Location = New System.Drawing.Point(9, 35)
         Me.Label2.Name = "Label2"
         Me.Label2.Size = New System.Drawing.Size(78, 13)
         Me.Label2.TabIndex = 3
@@ -76,10 +77,10 @@ Partial Class frmProcessCapture
         '
         'Label3
         '
-        Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label3.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label3.Location = New System.Drawing.Point(12, 98)
+        Me.Label3.Location = New System.Drawing.Point(12, 131)
         Me.Label3.Name = "Label3"
-        Me.Label3.Size = New System.Drawing.Size(344, 42)
+        Me.Label3.Size = New System.Drawing.Size(338, 42)
         Me.Label3.TabIndex = 4
         Me.Label3.Text = "Auswertung von aktivem Fenster läuft! Wechseln Sie durch die aktiven Anwendungen!" &
     ""
@@ -94,14 +95,14 @@ Partial Class frmProcessCapture
         Me.txtWindowTitle.Location = New System.Drawing.Point(132, 58)
         Me.txtWindowTitle.Name = "txtWindowTitle"
         Me.txtWindowTitle.ReadOnly = True
-        Me.txtWindowTitle.Size = New System.Drawing.Size(224, 21)
+        Me.txtWindowTitle.Size = New System.Drawing.Size(218, 21)
         Me.txtWindowTitle.TabIndex = 2
         '
         'Label4
         '
         Me.Label4.AutoSize = True
         Me.Label4.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label4.Location = New System.Drawing.Point(12, 61)
+        Me.Label4.Location = New System.Drawing.Point(9, 61)
         Me.Label4.Name = "Label4"
         Me.Label4.Size = New System.Drawing.Size(71, 13)
         Me.Label4.TabIndex = 3
@@ -110,9 +111,9 @@ Partial Class frmProcessCapture
         'Button2
         '
         Me.Button2.DialogResult = System.Windows.Forms.DialogResult.Cancel
-        Me.Button2.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.cancel
+        Me.Button2.Image = Global.easyFLOW.My.Resources.Resources.cancel
         Me.Button2.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.Button2.Location = New System.Drawing.Point(197, 155)
+        Me.Button2.Location = New System.Drawing.Point(191, 176)
         Me.Button2.Name = "Button2"
         Me.Button2.Size = New System.Drawing.Size(159, 34)
         Me.Button2.TabIndex = 0
@@ -123,20 +124,30 @@ Partial Class frmProcessCapture
         '
         Me.Button1.DialogResult = System.Windows.Forms.DialogResult.OK
         Me.Button1.Enabled = False
-        Me.Button1.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.add
+        Me.Button1.Image = Global.easyFLOW.My.Resources.Resources.add
         Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.Button1.Location = New System.Drawing.Point(18, 155)
+        Me.Button1.Location = New System.Drawing.Point(12, 176)
         Me.Button1.Name = "Button1"
         Me.Button1.Size = New System.Drawing.Size(159, 34)
         Me.Button1.TabIndex = 0
         Me.Button1.Text = "Fenster zuordnen"
         Me.Button1.UseVisualStyleBackColor = True
         '
+        'chkIgnoreProcessName
+        '
+        Me.chkIgnoreProcessName.Location = New System.Drawing.Point(12, 85)
+        Me.chkIgnoreProcessName.Name = "chkIgnoreProcessName"
+        Me.chkIgnoreProcessName.Size = New System.Drawing.Size(338, 24)
+        Me.chkIgnoreProcessName.TabIndex = 5
+        Me.chkIgnoreProcessName.Text = "Prozess-/Fenster-Erkennung überspringen"
+        Me.chkIgnoreProcessName.UseVisualStyleBackColor = True
+        '
         'frmProcessCapture
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(362, 199)
+        Me.ClientSize = New System.Drawing.Size(362, 222)
+        Me.Controls.Add(Me.chkIgnoreProcessName)
         Me.Controls.Add(Me.Label3)
         Me.Controls.Add(Me.Label4)
         Me.Controls.Add(Me.Label2)
@@ -146,7 +157,7 @@ Partial Class frmProcessCapture
         Me.Controls.Add(Me.txtPID)
         Me.Controls.Add(Me.Button2)
         Me.Controls.Add(Me.Button1)
-        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
+        Me.IconOptions.Icon = CType(resources.GetObject("frmProcessCapture.IconOptions.Icon"), System.Drawing.Icon)
         Me.Name = "frmProcessCapture"
         Me.Text = "Prozess Auswertung"
         Me.TopMost = True
@@ -164,4 +175,5 @@ Partial Class frmProcessCapture
     Friend WithEvents Label4 As Label
     Friend WithEvents Button2 As Button
     Friend WithEvents Button1 As Button
+    Friend WithEvents chkIgnoreProcessName As CheckBox
 End Class

app/DD_Clipboard_Searcher/frmProcessCapture.resx

@@ -121,7 +121,7 @@
     <value>17, 17</value>
   </metadata>
   <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
-  <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+  <data name="frmProcessCapture.IconOptions.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         AAABAAYAEBAQAAEABAAoAQAAZgAAABAQAAABAAgAaAUAAI4BAAAQEAAAAQAgAGgEAAD2BgAAICAQAAEA
         BADoAgAAXgsAACAgAAABAAgAqAgAAEYOAAAgIAAAAQAgAKgQAADuFgAAKAAAABAAAAAgAAAAAQAEAAAA

app/DD_Clipboard_Searcher/frmProcessCapture.vb

@@ -4,6 +4,22 @@ Public Class frmProcessCapture
     Public ProcessId As Integer
     Public ProcessName As String
     Public WindowTitle As String
+    Public IgnoreProcess As Boolean = False
+
+    Private _CurrentProcess As String = String.Empty
+
+    Public Sub New()
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+    End Sub
+
+    Public Sub New(CurrentProcess As String)
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+
+        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+        _CurrentProcess = CurrentProcess
+    End Sub
 
     Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
         Dim oWindow = ClassWindowAPI.GetWindowInfo()
@@ -13,8 +29,9 @@ Public Class frmProcessCapture
         End If
 
         Dim oProgramName As String = Assembly.GetEntryAssembly().GetName().Name
+        Dim oIsClipboardWatcherWindow = oWindow.ProcessName <> oProgramName
+        Dim oIsCorrectProcessName = IIf(_CurrentProcess = String.Empty, True, oWindow.ProcessName = _CurrentProcess)
 
-        If oWindow.ProcessName <> oProgramName Then
         txtPID.Text = oWindow.ProcessId
         txtName.Text = oWindow.ProcessName
         txtWindowTitle.Text = oWindow.WindowTitle
@@ -22,11 +39,20 @@ Public Class frmProcessCapture
         ProcessName = oWindow.ProcessName
         WindowTitle = oWindow.WindowTitle
 
+        If oIsClipboardWatcherWindow And oIsCorrectProcessName Then
             Button1.Enabled = True
+            txtName.BackColor = SystemColors.Control
+        Else
+            Button1.Enabled = False
+            txtName.BackColor = Color.LightSalmon
         End If
     End Sub
 
     Private Sub frmProcessCapture_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         Timer1.Enabled = True
     End Sub
+
+    Private Sub chkIgnoreProcessName_CheckedChanged(sender As Object, e As EventArgs) Handles chkIgnoreProcessName.CheckedChanged
+        IgnoreProcess = chkIgnoreProcessName.Checked
+    End Sub
 End Class

app/DD_Clipboard_Searcher/frmProfileMatch.Designer.vb

@@ -1,140 +0,0 @@
-<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
-Partial Class frmProfileMatch
-    Inherits DevExpress.XtraEditors.XtraForm
-
-    '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 resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmProfileMatch))
-        Me.Label1 = New System.Windows.Forms.Label()
-        Me.TileControlMatch = New DevExpress.XtraEditors.TileControl()
-        Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
-        Me.AblaufSucheAnzeigenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
-        Me.TileGroupDocumentsData = New DevExpress.XtraEditors.TileGroup()
-        Me.TileGroupDocuments = New DevExpress.XtraEditors.TileGroup()
-        Me.TileGroupData = New DevExpress.XtraEditors.TileGroup()
-        Me.ContextMenuStrip1.SuspendLayout()
-        Me.SuspendLayout()
-        '
-        'Label1
-        '
-        Me.Label1.AutoSize = True
-        Me.Label1.BackColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer))
-        Me.Label1.Font = New System.Drawing.Font("Calibri", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label1.ForeColor = System.Drawing.Color.White
-        Me.Label1.Location = New System.Drawing.Point(12, 9)
-        Me.Label1.Name = "Label1"
-        Me.Label1.Size = New System.Drawing.Size(356, 19)
-        Me.Label1.TabIndex = 2
-        Me.Label1.Text = "Es wurde(n) {0} für Ihre Suche nach '{1}' gefunden:"
-        '
-        'TileControlMatch
-        '
-        Me.TileControlMatch.AllowDragTilesBetweenGroups = False
-        Me.TileControlMatch.AppearanceGroupText.BackColor = System.Drawing.Color.Transparent
-        Me.TileControlMatch.AppearanceGroupText.Font = New System.Drawing.Font("Tahoma", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.TileControlMatch.AppearanceGroupText.ForeColor = System.Drawing.Color.White
-        Me.TileControlMatch.AppearanceGroupText.Options.UseBackColor = True
-        Me.TileControlMatch.AppearanceGroupText.Options.UseFont = True
-        Me.TileControlMatch.AppearanceGroupText.Options.UseForeColor = True
-        Me.TileControlMatch.AppearanceGroupText.Options.UseTextOptions = True
-        Me.TileControlMatch.AppearanceGroupText.TextOptions.Trimming = DevExpress.Utils.Trimming.None
-        Me.TileControlMatch.AppearanceGroupText.TextOptions.WordWrap = DevExpress.Utils.WordWrap.Wrap
-        Me.TileControlMatch.AppearanceItem.Normal.BackColor = System.Drawing.Color.FromArgb(CType(CType(165, Byte), Integer), CType(CType(36, Byte), Integer), CType(CType(49, Byte), Integer))
-        Me.TileControlMatch.AppearanceItem.Normal.BorderColor = System.Drawing.Color.FromArgb(CType(CType(165, Byte), Integer), CType(CType(36, Byte), Integer), CType(CType(49, Byte), Integer))
-        Me.TileControlMatch.AppearanceItem.Normal.Font = New System.Drawing.Font("Tahoma", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.TileControlMatch.AppearanceItem.Normal.ForeColor = System.Drawing.Color.White
-        Me.TileControlMatch.AppearanceItem.Normal.Options.UseBackColor = True
-        Me.TileControlMatch.AppearanceItem.Normal.Options.UseBorderColor = True
-        Me.TileControlMatch.AppearanceItem.Normal.Options.UseFont = True
-        Me.TileControlMatch.AppearanceItem.Normal.Options.UseForeColor = True
-        Me.TileControlMatch.BackColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer))
-        Me.TileControlMatch.ContextMenuStrip = Me.ContextMenuStrip1
-        Me.TileControlMatch.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.TileControlMatch.Groups.Add(Me.TileGroupDocumentsData)
-        Me.TileControlMatch.Groups.Add(Me.TileGroupDocuments)
-        Me.TileControlMatch.Groups.Add(Me.TileGroupData)
-        Me.TileControlMatch.ItemSize = 150
-        Me.TileControlMatch.Location = New System.Drawing.Point(0, 0)
-        Me.TileControlMatch.MaxId = 18
-        Me.TileControlMatch.Name = "TileControlMatch"
-        Me.TileControlMatch.ShowGroupText = True
-        Me.TileControlMatch.Size = New System.Drawing.Size(990, 523)
-        Me.TileControlMatch.TabIndex = 6
-        Me.TileControlMatch.Text = "TileControl1"
-        '
-        'ContextMenuStrip1
-        '
-        Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.AblaufSucheAnzeigenToolStripMenuItem})
-        Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
-        Me.ContextMenuStrip1.Size = New System.Drawing.Size(195, 26)
-        '
-        'AblaufSucheAnzeigenToolStripMenuItem
-        '
-        Me.AblaufSucheAnzeigenToolStripMenuItem.Name = "AblaufSucheAnzeigenToolStripMenuItem"
-        Me.AblaufSucheAnzeigenToolStripMenuItem.Size = New System.Drawing.Size(194, 22)
-        Me.AblaufSucheAnzeigenToolStripMenuItem.Text = "Ablauf Suche anzeigen"
-        '
-        'TileGroupDocumentsData
-        '
-        Me.TileGroupDocumentsData.Name = "TileGroupDocumentsData"
-        Me.TileGroupDocumentsData.Text = "Kombiniert"
-        '
-        'TileGroupDocuments
-        '
-        Me.TileGroupDocuments.Name = "TileGroupDocuments"
-        Me.TileGroupDocuments.Text = "Dokumente"
-        '
-        'TileGroupData
-        '
-        Me.TileGroupData.Name = "TileGroupData"
-        Me.TileGroupData.Text = "Daten"
-        '
-        'frmProfileMatch
-        '
-        Me.Appearance.Options.UseFont = True
-        Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 15.0!)
-        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(990, 523)
-        Me.Controls.Add(Me.Label1)
-        Me.Controls.Add(Me.TileControlMatch)
-        Me.Font = New System.Drawing.Font("Calibri", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
-        Me.MaximizeBox = False
-        Me.MinimizeBox = False
-        Me.MinimumSize = New System.Drawing.Size(729, 486)
-        Me.Name = "frmProfileMatch"
-        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
-        Me.Text = "Profile Match"
-        Me.TopMost = True
-        Me.ContextMenuStrip1.ResumeLayout(False)
-        Me.ResumeLayout(False)
-        Me.PerformLayout()
-
-    End Sub
-    Friend WithEvents Label1 As Label
-    Friend WithEvents TileControlMatch As DevExpress.XtraEditors.TileControl
-    Friend WithEvents TileGroupDocumentsData As DevExpress.XtraEditors.TileGroup
-    Friend WithEvents TileGroupDocuments As DevExpress.XtraEditors.TileGroup
-    Friend WithEvents TileGroupData As DevExpress.XtraEditors.TileGroup
-    Friend WithEvents ContextMenuStrip1 As ContextMenuStrip
-    Friend WithEvents AblaufSucheAnzeigenToolStripMenuItem As ToolStripMenuItem
-End Class

app/DD_Clipboard_Searcher/frmProfileMatch.resx

@@ -1,380 +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>
-  <metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>17, 17</value>
-  </metadata>
-  <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
-  <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        AAABAAMAMDAAAAEAIACoJQAANgAAACAgAAABACAAqBAAAN4lAAAQEAAAAQAgAGgEAACGNgAAKAAAADAA
-        AABgAAAAAQAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAP///wAAAAAAAAAAAAAAAAgAAAAdAAAAJAAA
-        AB0AAAATAAAACgAAAAMAAAABAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
-        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
-        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD///8A////AP///wAAAAAAAAAAAQBk
-        hjEAAABPAAAAfCxCSagwSVGYAAAAQwAAAC4AAAAfAAAAFgAAAA0AAAAFAAAAAQAAAAEAAAAAAAAAAAAA
-        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
-        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD///8A////AP//
-        /wAAAAAAAAAAAQCPvpkAlcf1BYay7hFvjukdWGzaJjk/wy0tLbMyMjKjL0dPnAAAAEoAAAA0AAAAIwAA
-        ABkAAAAQAAAABwAAAAEAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
-        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
-        AAD///8A////AP///wAAAAAAAAAAAQCMuoxAs9n/gc3m/5bX7P81sdz/CJ7Q/wCPv/kSfKDyGl923yNB
-        TMosMDG4MDAwpy5FTaAAAABRAAAAOQAAACcAAAAcAAAAEwAAAAkAAAACAAAAAQAAAAEAAAAAAAAAAAAA
-        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
-        AAAAAAAAAAAAAAAAAAD///8A////AP///wAAAAAAAAAAAQCMu5wAmcz/gs3m/+L2//+W3///atH+/1zK
-        9/9CvOr/Jq3e/w2g0/8AkcL7DYGo9BdmgOMgS1nQKjI2vC8vL6wsQkmoMElRlwAAAD8AAAArAAAAHwAA
-        ABUAAAALAAAAAwAAAAEAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
-        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD///8A////AP///wAAAAAAAAAAAQCTxMcOoNL/YcDh/8Hn
-        9f+76///b9X//2/V//9v1f//b9X//2/V//9m0Pr/SsLu/y6y4f8VpNb/BZfH/AmIs/cWeJjwHVNl1ig2
-        OsAuLi6xOjI6oi9HT5w0T1iKAAAALgAAACIAAAAYAAAADQAAAAUAAAABAAAAAQAAAAAAAAAAAAAAAAAA
-        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD///8A////AP///wAAAAAAAAAAAQCT
-        xMczsuL/Trrg/5fV6v/U8///ftz//3PZ//9z2f//c9n//3PZ//9z2f//c9n//3PZ//9z2f//bNX8/1TI
-        8f84ueT/HanZ/wmbzP4Ejbv5Enyg8iRqgeklOD/ELS4ttTAwMKcyPECZMktTjA0ODjYAAAAlAAAAGgAA
-        ABAAAAAIAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD///8A////AP//
-        /wAAAAAAAAAAAQCTxMdqy/n/GKPS/4/S6f/k+P//nOf//3bc//923P//dtz//3bc//923P//dtz//3bc
-        //923P//dtz//3bc//923P//dtz//3HZ/f9ezvT/Qr/p/yqx3v8PodP/AZHA+w6ApvMgbYXqI0FLyisx
-        NLosLS2oLTQ5mS5ETYwTExM+AAAAHAAAAAYAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
-        AAD///8A////AP///wAAAAAAAAAAAQCRwsl+1P//Iqna/3PI5v/H6/f/tez//3nf//953///ed///3nf
-        //953///ed///3nf//953///ed///3nf//953///ed///3nf//953///ed///3nf//913f7/ZtP3/0vF
-        6/8xteD/F6PR/wiSwPwOgaf0HG2J6iFRYNUpOT67NTc4jUNeamagtKUEAAAAAAAAAAAAAAAAAAAAAAAA
-        AAAAAAAAAAAAAAAAAAD///8A////AP///wAAAAAAAAAAAQCXyvKD1v//MbDh/1G74v+i2uz/1Pb//4Lk
-        //994///feP//33j//994///feP//33j//994///feP//33j//994///feP//33j//994///feP//33j
-        //994///fOP//3zj//964v7/dt79/2TV9f9JxOr/MrXe/x6l0f8PibD1HWF30U1OW3uLjY8V7PDxAwAA
-        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD///8A////AP///wAAAAAAAAAAAQCZzP+H1///Q7np/zGv
-        3f9uxeL/4/n//6Dr//+A5v//gOb//4Dm//+A5v//gOb//4Dm//+A5v//gOb//4Dm//+A5v//gOb//4Dm
-        //+A5v//gOb//4Dm//+A5v//gOb//3/m//+A5v//f+X//3/l//9/5f//e+P8/23Z+P9Dv+P+GIGh4ixW
-        ZKVLYmppzc3PCgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD///8A////AP///wAAAAAAAAAAAQCZ
-        zP+M2f//TL3t/y6v4P9Tu+D/0vD4/7vz//+E6v//hOr//4Tq//+E6v//hOr//4Tq//+E6v//hOr//4Tq
-        //+E6v//hOr//4Tq//+E6v//hOr//4Tq//+E6f//hOr//4Tp//+D6f//g+n//4Pp//+D6f//g+n//3je
-        //9p2vT/Ra/L8i58k9Q8YGuCo6mtF+zu7gMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD///8A////AP//
-        /wAAAAAAAAAAAySp2f+R2v//R7vt/zSy5f9DtuD/qt3v/9D4//+H7f//h+3//4ft//+H7f//h+3//4ft
-        //+H7f//h+3//4ft//+H7f//h+3//4ft//+H7f//h+3//4ft//+H7P//h+3//4bs//+G7P//hu3//4bs
-        //+G7P//huz//3rh//+I7v3/Wczm/DWOpd83X2qgdIOFK+To6AMAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
-        AAD///8A////AP///wAAAAAAAAAACSaq2f+W3P//Qrrt/z646/83s+L/eMnk/+P7//+h8///ivD//4rw
-        //+K8P//ivD//4rw//+K8P//ivD//4rw//+K8P//ivD//4rw//+K8P//ivD//4rw//+J8P//iu///4nw
-        //+K7///ifD//4nv//+J7///ie///3zj//+S9f//c+H0/0+xxe82cYDAQ2Frea60txHw9PEBAAAAAAAA
-        AAAAAAAAAAAAAAAAAAD///8A////AP///wAAAAAAAIi2SCeq2f+b3v//SL3w/0i98P8gqdz/V73g/9v1
-        +/+9+P//jfP//43z//+N8///jfP//43z//+N8///jfP//43z//+N8///jfP//43z//+N8///jfP//43z
-        //+N8///jfL//43z//+M8///jPL//4zy//+M8v//jPL//37l//+X9v//jPD6/2DN4vs7kKPdQGFqlH2J
-        iyLp7O0EAAAAAAAAAAAAAAAAAAAAAAAAAAD///8A////AP///wAAAAAAAIi2SCir2f+f3///TsDz/07A
-        8/8sr+L/T7vk/7Th8f/T/P//kff//5H3//+R9///kff//5H3//+R9///kff//5H3//+R9///kff//5H3
-        //+R9///kff//5H3//+R9///kPf//5H3//+Q9v//kPb//5D2//+Q9v//kPb//4Hn//+c+f//nvr//3ni
-        8v9Sq7zqO214t0hkbXPJzs8N8fPyAgAAAAAAAAAAAAAAAAAAAAD///8A////AP///wAAAAAAAIazSTOw
-        3P+f3/7/VMP2/1TD9v9KvvH/Rbjk/4rR6P/h/v//ovv//5T6//+U+v//lPr//5T6//+U+v//lPr//5T6
-        //+U+v//lPr//5T6//+U+v//lPr//5T6//+U+v//lPr//5T5//+U+f//k/n//5P5//+T+f//k/n//4Tp
-        //99rbX/j6Km/5ikpv+UnKL/dXeV/4tHUP+Ol5oa6e3tAwAAAAAAAAAAAAAAAAAAAAD///8A////AP//
-        /wAAAAAAAIOuS1W+5v+W2/7/XMf6/1zH+v9cx/r/DJ/S/4DN5//k+/7/vv///5n///+Z////mf///5n/
-        //+Z////mf///5n///+Z////mf///5n///+Z////mf///5n///+Z////mf///5n+//+Y////mP7//5j9
-        //+Y/v//gbC1/4Gwtf+Qpab/kqWm/6mwtf+ysbX/g4mn/4dUYf+LPkn/rEQw//T19gEAAAAAAAAAAAAA
-        AAD///8A////AP///wAAAAABAIOvXVe/5v+b3f7/Ysr9/2LK/f9iyv3/K67h/2fE5/+85vP/0////5n/
-        //+Z////mf///5n///+Z////mf///5n///+Z////mf///5n///+Z////mf///5n///+Z////mf///5n/
-        //+Z////mf///5n///+BprX/kKam/5+xtf+Qpqb/oLG1/6ixtf+0sbX/p6ex/3N9j/+TWFH/rUg0/6tA
-        Vv8AAAAAAAAAAAAAAAD///8A////AP///wAAAAABAI6+ilm/5v+f3///Zsz//2bM//9mzP//U8L1/1C5
-        3P+N0ej/6////7r///+j////o////6P///+j////o////6P///+j////o////6P///+j////o////6P/
-        //+j////ov///6P///+j////o////6L///+IsbX/pbG1/5Wmpv+lsbX/p7y1/668tf/VsbX/vry1/5qY
-        r/++XW7//Uk1/6tBV/8AAAAAAAAAAAAAAAD///8A////AP///wAAAAABAI6+ilzA5v+k4f//a9H//2vR
-        //9r0f//a9H//w6g0v9Su97/4PP4//j////k////0f///8P///+3////rf///63///+t////rf///63/
-        //+t////rf///63///+t////rf///6z///+t////rP///46xtf+dpqb/rLG1/6yxtf+rvLX/y7G1/9Gx
-        tf+8vLX/4LG1/7youv+oboX/1WaG//9jWf+qYFb/AAAAAAAAAAD///8A////AP///wAAAAABAI28i4HQ
-        7/+b4f//cNb//3DW//9w1v//cNb//03D7/8wst//RbXa/4zR6P/K6vT/6vf7////////////+v///+//
-        ///k////1////8v////A////uf///7j///+4////uP///7j///+4////uP///5Wxtf+zsbX/srG1/7Ox
-        tf/RsbX/tLy1/9extf/gsbX/5LzE/+HF0P+KrMT/x5B9//5jgv//f3//AAAAAAAAAAD///8A////AP//
-        /wAAAAABAIq4jpHW8v+b4///dtz//3bc//923P//dtz//3bc//9n1Pn/Q7/p/zq65f8nr93/E6TU/xij
-        0f9Mt9v/a8Th/5bV6v/K6vT/6vf7///////y////0f///8P////C////wv///8L////C////nLG1/6um
-        pv+rpqb/urG1/7m8tf/XsbX/2bG1/96xtf/mvLX/6sfE/+rp4f+m1O7/sLi7/8SOmP//YID/AAAAAAAA
-        AAD///8A////AP///wAAAAABAJHBuZXX8v+h5///fOL//3zi//984v//fOL//3zi//984v//fOL//3zi
-        //984v//fOL//23Z+f9WzO//QsDn/za54v8hrdr/D6LT/zev1//B5vP/9P///9j+///N////zP///8z/
-        ///M////orG1/8Cxtf/AprX/wLG1/968xP/AvLX/4LG1/+a8tf/rsbX/7cfE/+3p4f/f7ez/dKvE/8x5
-        ef//gKv//f79AQAAAAD///8A////AP///wAAAAABAJPEx5jY8v+l6v//gef//4Hn//+B5///gef//4Hn
-        //+B5///gef//4Hn//+B5///gef//4Hn//+B5///gef//4Hn//+B5///eeL8/xio1v9ux+T/xOjz//X/
-        /v/g////1////9b////W////qbG1/7impv/HsbX/x7y1/+Sxtf/ksbX/6Ly1/+2xtf/wvMT/8sfE//PS
-        0v/z6eH/m7e//7uQgf9JWV9tf39/AgAAAAD///8A////AP///wAAAAABAJPEx6jf9f+m7v//h+3//4ft
-        //+H7f//h+3//4ft//+H7f//h+3//4ft//+H7f//h+3//4ft//+H7f//h+3//4ft//+H7f//h+3//27d
-        9f8Jns//V73e/8Hm8//9/v///P////j////1/v//u7G1/9axtf/VprX/8bG1/+28xP/svLX/8LG1//O8
-        xP/3sbX/97zE//fHxP/30tL/0sLK/3KHnP9DRUR7AAAACQAAAAD///8A////AP///wAAAAABAJLDyNTx
-        //+e8v//jfP//43z//+N8///jfP//43z//+N8///jfP//43z//+N8///jfP//43z//+N8///jfP//43z
-        //+N8///jfP//43z//9z4vX/GanV/yqs1v9Qudz/a8Th/5DS6f+Mmar/ppSe/9Wssv/dsLT//rvC//+8
-        tf//vLX//rzE//68tf/8vMT//LzE//vH0v/7x9L/+8fS/zCLp+U1QESYTV1jZgAAAAH///8A////AP//
-        /wAAAAABAJHCydny//+k9v//kvj//5L4//+S+P//kvj//5L4//+S+P//kvj//5L4//+S+P//kvj//5L4
-        //+S+P//AAD//wAA//8AAP//AF///wB///+S+P//kvj//4ny/P9u4fL/Ztzv/1XQ6v9Phpz/UHKH/1p6
-        mP9sfZP/foeY/4+PrP+ljKL/yLK4/9q4u//4xML//sfS///H0v//x9L/0+32/1mvzfIbYXipTV1jZgAA
-        AAH///8A////AP///wAAAAABAJnM/970//+p+///mP7//5j+//+Y/v//mP7//5j+//+Y/v//mP7//5j+
-        //+Y/v//mP7//5j+//8AAP//AAD//wBf//8AX///AH///wB///9Vn///mP7//5j+//+Y/v//mP7//5j+
-        //9VHyr/gAAA/6ofKv//Pyr//z9V//9fVf+Fe47/q25z/8Jvnf/Fbp7/MqvW/1y93v+Gz+f/acPh/yaZ
-        v9NMYZhqAAAABwAAAAD///8A////AP///wAAAAABAJnM/+L1//+r/f//mf///5n///+Z////mf///5n/
-        //+Z////mf///5n///+Z////mf///wAA//8AAP//AF///wB///8Af///AJ///1Wf//9Vn///Vb///5n/
-        //+Z////mf///5n///9VHyr/qh8q/6ofKv//P1X//39V//9ff//cgmX/JiorP3R4eQJ2dnYCAJPEMgCO
-        vkUAksOGAI++iQBNZiAAAAAHAAAAAQAAAAD///8A////AP///wAAAAABAJnM/+f3///A+///mf///5n/
-        //+Z////mf///5n///+Z////mf///5n///+Z////mf///wAA//8AAP//AH///wB///8An///AJ///1Wf
-        //9Vv///Vb///5n///+Z////mf///1UfKv+AAAD/qgAq//8/Vf//f3///19//wCZzP8AAQKVAgICKwAA
-        AAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD///8A////AP///wAAAAAAAJbIopTV
-        7P/n+f//nv///5n///+Z////mf///5n///+Z////mf///5n///+Z////mf///wAA//8AX///AH///wCf
-        //8An///Vb///6rf//+qv///qr///5n///+Z////mf///1UfKv+qHyr/qh8q//9fVf//X3//mf///wCZ
-        zP8AAACVAAAAKgAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD///8A////AP//
-        /wAAAAAAAJTGIR6l0v/i9Pz/xf3//5n///+Z////mf///5n///+Z////mf///5n///+Z////n////wAA
-        //8AX///AH///wCf//8An///qr////D7//+q3///Vd////H6///b+///0Pz//1UfKv+qHyr//z9V//9f
-        Vf+Z////mf///wCZzP8AAACMAAAAJgAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
-        AAD///8A////AP///wAAAAAAAAAAAACVx6N7y+b/7/z//5////+Z////mf///5n///+Z////mf///5n/
-        //+Z////0/3//wAA//8AAP//AH///wCf//8An///VZ///6rf//9Vv///qt///x+l0v89stn/VR8q/6of
-        Kv+qHyr//19V//9/f//q/P//3v3//w+fz/8AAABeAAAAGAAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
-        AAAAAAAAAAAAAAAAAAD///8A////AP///wAAAAAAAAAAAACUxiEQn8//6vf8//r9///6/f//4v7//+L+
-        ///K/v//w/7//7H////D/v//+v3//0643P8AAP//AH///wB///9Vn///Vb///1W///+q3///AAAAAQAA
-        AAEAlMYhVR8q/6ofKv+qPyr//19//wCUxcYAmcz/AJnM/wCMu60AAAAYAAAABgAAAAAAAAAAAAAAAAAA
-        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD///8A////AP///wAAAAAAAAAAAAAAAAAAl8qhIKbS/0Cz
-        2f9gv9//gMzm/4/S6f+/5vL/z+z1////////////j9Lp/wCEsN0AAAA3AF///wBf//8Af///Vb///6q/
-        //8AAAAAAAAAAAAAAABVHyr/gAAA/6ofKv//X1X//39V/wAAAAEAAAABAAAAAQAAAAEAAAABAAAAAAAA
-        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD///8A////AP///wAAAAAAAAAAAAAA
-        AAAAAAAAAAAAAQCUxkIAirhHAJDAdwCPvokAksKnAJTFxgCVxtUAmcz/AJXH5ABTbjsAAAALAAAAAQAA
-        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAFUfKv+AAAD/gAAA/6ofKv//X1X//19//wAAAAAAAAAAAAAAAAAA
-        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD///8A////AP//
-        /wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAAAAQAAAAEAAAABAAAAAQAA
-        AAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAFUfKv+AAAD/qh8q//9/f///f1X/AAAAAAAA
-        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
-        AAD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
-        /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8AVQAq/4AAAP+qHyr/qj8q//9/
-        f///f1X/////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
-        /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
-        /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8AVR8q/4AA
-        AP+qHyr//39///+ff///X3//////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
-        /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
-        /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
-        /wBVHyr/gAAA/6ofKv+qPyr//39///+ff///X3//////AP///wD///8A////AP///wD///8A////AP//
-        /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
-        /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
-        /wD///8A////AP///wBVHyr/qh8q/6oAKv+qPyr//59///+ff///X3//////AP///wD///8A////AP//
-        /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
-        /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
-        /wD///8A////AP///wD///8A////AP///wBVHyr/qgAq/6o/Kv+qPyr//59////f1P//f3//////AP//
-        /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
-        /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
-        /wD///8A////AP///wD///8A////AP///wD///8A////AP///wBVHyr/qh8q/6o/Kv//P1X//59////f
-        ////X1X/////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
-        /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
-        /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wBVHyr/qh8q/6o/
-        Kv//P1X//59////f1P//f3//////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
-        /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
-        /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
-        /wCAAAD/qh8q/6o/Kv//P1X//59///+ff///f3//////AP///wD///8A////AP///wD///8A////AP//
-        /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
-        /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
-        /wD///8A////AP///wD///8AgAAA/6oAKv+qPyr//59///9/f///X1X/////AP///wD///8A////AP//
-        /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
-        /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
-        /wD///8A////AP///wD///8A////AP///wD///8A////AKofKv+qACr/qj8q//9fVf////8A////AP//
-        /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
-        /wD///8A////AOAP/////wAAwAD/////AADAAA////8AAMAAAH///wAAwAAAB///AADAAAAAf/8AAMAA
-        AAAP/wAAwAAAAAf/AADAAAAAA/8AAMAAAAAB/wAAwAAAAAH/AADAAAAAAP8AAMAAAAAA/wAAwAAAAAB/
-        AADAAAAAAH8AAMAAAAAAPwAAwAAAAAA/AADAAAAAAB8AAIAAAAAAHwAAgAAAAAAfAACAAAAAAA8AAIAA
-        AAAADwAAgAAAAAAPAACAAAAAAAcAAIAAAAAABwAAgAAAAAAHAACAAAAAAAMAAIAAAAAAAwAAgAAAAAAH
-        AACAAAAAAAcAAIAAAAAH/wAAwAAAAAf/AADAAAAAB/8AAOAAAAAH/wAA4AAAAA//AADwAAOAH/8AAPgA
-        PwP//wAA/8D/B///AAD///4H//8AAP///gf//wAA///8B///AAD///wH//8AAP///Af//wAA///8B///
-        AAD///wH//8AAP///Af//wAA///+B///AAD///8P//8AACgAAAAgAAAAQAAAAAEAIAAAAAAAAAAAAAAA
-        AAAAAAAAAAAAAAAAAAD///8AAAAAAAAAAAoAAAAqAAAAOwAAADEAAAAjAAAAGAAAAA4AAAAHAAAAAQAA
-        AAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
-        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAP///wAAAAABAH2nTjBZZ6YsOD24LCwstTAwMKc2NjaVAAAATAAA
-        ADgAAAAmAAAAGgAAABAAAAAHAAAAAQAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
-        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA////AAAAAAEAjr6KULnc/0253/8Ni7X7H3iW9CBX
-        atwnP0jLLCwsuC8vL6sAAABtAAAAUgAAADoAAAAoAAAAHQAAABMAAAAJAAAAAgAAAAEAAAABAAAAAAAA
-        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD///8AAAAAAQCOvopnw+L/2vT//23T
-        //9TxfL/N7fm/xyo2f8Qk8H8E3ia8R5edOEnP0fLLCwsuTgvM64AAABzAAAAWQAAAEAAAAAsAAAAHwAA
-        ABUAAAALAAAAAwAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAP///wAAAAABAI28izu0
-        4v//////e9r//3LY//9y2P//ctj//3LY//9dzfX/Qb3p/ySt3P8Mmcf+EH6j9Btlf+YkSFPSKysruy0t
-        LbMAAAB6AAAAYAAAAEUAAAAuAAAAHwAAAA8AAAADAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA////AAAA
-        AAEAjLqMTL3s/6/f7/+p6f//dtz//3bc//923P//dtz//3bc//923P//dtz//3bc//9o1Pn/SsTs/y2z
-        3/8PotL/DYSr9xlsiOoiUF/XKysrvSwtLbQAAAB3AAAAQAAAAA8AAAAAAAAAAAAAAAAAAAAAAAAAAAAA
-        AAD///8AAAAAAQCMu5x50fz/cMbi/9b2//984v//fOL//3zi//984v//fOL//3zi//984v//fOL//3zi
-        //984v//fOL//3zi//903vz/Vszv/zi64v8YqNf/C4m0+SBXat0AAAB2AAAAJAAAAAMAAAAAAAAAAAAA
-        AAAAAAAAAAAAAP///wAAAAABAJPEx3fQ+v8wrtr/9/3//4Dm//+A5v//gOb//4Dm//+A5v//gOb//4Dm
-        //+A5v//gOb//4Dm//+A5v//gOb//4Dm//+A5v//f+b//4Dm/v934Pz/GIuu9issLLkAAABGAAAADAAA
-        AAAAAAAAAAAAAAAAAAAAAAAA////AAAAAAEXns3HedH5/ySr3v/P7PX/rPL//4bs//+G7P//huz//4bs
-        //+G7P//huz//4bs//+G7P//huz//4bs//+G7P//huz//4bs//+G7f//iO3//3vi/P9Wy+P/IFBg2QQF
-        BW8AAAAdAAAAAQAAAAAAAAAAAAAAAAAAAAD///8AAAAAATCo1MeA0/v/O7fq/4DM5v/T+f//ivD//4rw
-        //+K8P//ivD//4rw//+K8P//ivD//4rw//+K8P//ivD//4rw//+L8P//i/D//4/x//+R8/7/h+j8/47o
-        8/8oiKLxKSosswAAADoAAAAIAAAAAAAAAAAAAAAAAAAAAP///wAAAAABMafSyYnX/P9Nv/L/PrPd//H+
-        //+Q9v//kPb//5D2//+Q9v//kPb//5D2//+Q9v//kPb//5D2//+Q9v//kPb//5H2//+T9v//lff//5j3
-        /v+N6f3/n/T5/1rD3P8lQUvPBgcHZAAAABcAAAABAAAAAAAAAAAAAAAA////AAAAAAEqqtfyi9j9/1bE
-        9/8wseT/3/L5/6j7//+U+v//lPr//5T6//+U+v//lPr//5T6//+U+v//lPr//5T6//+U+v//lPn//5b5
-        //+a+///nvv+/5Xn9v+dztX/jJei/2BPX/yPJDzzhRkfhIkyLBoAAAAAAAAAAAAAAAD///8AAAAAASus
-        2f+F1v3/X8j7/02/8v+P0un/0v///5n///+Z////mf///5n///+Z////mf///5n///+Z////mf///5n/
-        //+b////nv3//5/+//+e6e7/mayx/6Klqf+gnKP/gXeI/48xQv+mKyf/pj8156k+WCYAAAAAAAAAAP//
-        /wAAAAABWb/m/4zY//9mzP//Zsz//1y/4v/z////rf///6P///+j////o////6P///+j////o////6P/
-        //+j////o////6T///+l/v//p/3+/5vN0f+trK//saqs/7qvrv+okpj/m1RY//U6Tf/kQEH/o1JSeAAA
-        AAAAAAAA////AAAAAANdweb/k97//23T//9t0///N7bm/4/S6f//////8P///+X////W////yf///8D/
-        //+z////s////7P///+z////s////7L///+v+Pn/oK2x/7Svs//EsrT/0rOy/8Wfpf+wbYT/0Gx7//98
-        f//qamz/AAAAAAAAAAD///8AAAAACWDB5v+a4v//dNr//3Ta//902v//SsPs/y2z3/9exOb/YL/f/4DM
-        5v+/5vL/3/L5//v////L////wP///8D///+/////v////6PDx/+tqKz/urC0/863t//esbP/3q+u/8Cu
-        sv+3uMH//8zK//9xjv8AAAABAAAAAP///wAAiLZIZMPm/5Xn//9+5P//fuT//37k//9+5P//fuT//37k
-        //9+5P//Z9b1/1fN7/9Av+b/aMTi//z////Z////0v///9L////R////rcLE/7ursP/Ftrf/3bW4/+S2
-        s//otLn/48PC/6qvtP/Ql4T/12+DrAAAAAkAAAAA////AACItkh0yen/l+z//4Xr//+F6///hev//4Xr
-        //+F6///hev//4Xr//+F6///hev//4Xr//9t3PX/aMXi///////0////8v7//+b19v++urz/x6qy/+Kx
-        t//svLj/7re5//W2vP/1vcH/s6/A/8F0eP1fMDCBAAAAFgAAAAH///8AAIazSaDb8v+h9P//j/X//4/1
-        //+P9f//j/X//4/1//+P9f//j/X//4/1//9Ri///Kkn//ypy//9k1Pf/Lrfc/2XL5v9gv9//erLJ/5yU
-        n//Ao6v/87q4//mytP/8v77/+sTB//zG0P/zxdL/MXqc7gAAAGEAAAAZAAAAAf///wAAiLZIpt3y/6j6
-        //+W/P//lvz//5b8//+W/P//lvz//5b8//+W/P//VI3//wAT//8AZP//AH3//y2P//9z1P//lvz//5b8
-        //92pq3/dpqk/4mbqf9pi6b/n36J/76Dl/eymLb/hMnj/7/m8v8jjMfeAAAAKAAAAAoAAAAA////AACQ
-        wFWq3vL/rP3//5n///+Z////mf///5n///+Z////mf///5n///8JEP//AE3//wCP//8Aof//WKj//1/C
-        //+Z////lvX1/2g3PP+mCiL/9FRi/993jP9eKyiwAAAAKwAAAAEAlMYhAJDARAB6oygAAAAGAAAAAQAA
-        AAD///8AAJTGIXXJ5v/M+///mf///5n///+Z////mf///5n///+Z////o/7//xcp//8Aff//AJz//1K3
-        ///N5f//k9X//5n///+X+vr/cx4p/9MsNv/sf4f/NK3U/wAAAJEAAAAoAAAAAQAAAAAAAAAAAAAAAAAA
-        AAAAAAAAAAAAAP///wAAAAAAFJ7NwuP0/P+k////mf///5n///+Z////mf///5n////i+///FiX5/gBV
-        //8Eo///Tqf//5rY//+K5P7/zu75/4ltdf+ZGyX/8VNY/9LGyf87udz/AAAAbQAAAB4AAAABAAAAAAAA
-        AAAAAAAAAAAAAAAAAAAAAAAA////AAAAAAAAlMZCe8vm/+z9///h/f//yv7//8P+//+x////1f7//7nk
-        8v8AUIWqAD743Ax6//9Hr///hcn+6kOx1l8ah7GXWhQe87ovLv/ndGz9a8Ti/zSq0uQAAAAeAAAACAAA
-        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD///8AAAAAAAAAAAAAl8qhUrXWxUOz2PFwxuL/gMzm/6/f
-        7/+/5vL/E5bBzgAAACUAI6YXAGX/JjSq/ya11/8VAAAAAFcHDO6GAgT/2EVD//9odc0AAAABAAAAAQAA
-        AAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAP///wAAAAAAAAAAAAAAAAAAAAABAAAAAQAA
-        AAEAlMYhAJDARACKuEcAZogYAAAABAAAAAEAAAAAAAAAAAAAAABNABtceQwS/64sLP//h3H//3RgKwAA
-        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA////AP///wD///8A////AP//
-        /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8AVREZDlgVIcmSDA7/52xn//+I
-        gP//YHg1////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
-        /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wBQICxQhhId/6ga
-        JP/qh2n//4eB//9agTX///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
-        /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AE8g
-        KkuQEiv/sTMp/++Tev//tbX//2tpNf///wD///8A////AP///wD///8A////AP///wD///8A////AP//
-        /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
-        /wD///8ATx8qTowiKf/ROjj//5KI//+5uv//amU1////AP///wD///8A////AP///wD///8A////AP//
-        /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
-        /wD///8A////AP///wB8AQE1kRAT9L8uMv/9kXn//5CA//91dDn///8A////AP///wD///8A////AP//
-        /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
-        /wD///8A////AP///wD///8A////AP///wB/AAAxpQwn9r9LP/b/ZV2w/1xREP///wD///8A////AP//
-        /wD///8A////AP///wD///8A////AP///wD///8AwA///4AA//+AAAf/gAAA/4AAAD+AAAA/gAAAH4AA
-        AB+AAAAPgAAAD4AAAAeAAAAHgAAAA4AAAAOAAAADgAAAAYAAAAGAAAAAgAAAAIAAAAGAAAABgAAAP8AA
-        AD/AAAB/4ACA//AHB////gf///4H///+B////gf///4H////B/8oAAAAEAAAACAAAAABACAAAAAAAAAA
-        AAAAAAAAAAAAAAAAAAAAAAAAAAAACgAAADgDAwN+AwMDlQMDA5UDAwOVAwMDlQMDA5UDAwOVAwMDlQMD
-        A5UDAwOVAwMDlQMDA5UDAwN+AAAAOAAAACEcgrX/GoCz/xd9sP8Ve67/Enir/w91qP8McqX/CnCj/wdt
-        oP8Fa57/A2mc/wFnmv8AZpn/AgICywMDA34hh7r/Zsz//x+FuP+Z////btT//27U//9u1P//btT//27U
-        //9u1P//btT//27U//9cwvD/mf///wBmmf8DAwOUJIq9/2bM//8mjL//mf///3rg//964P//euD//3rg
-        //964P//euD//3rg//964P//Z83z/5n///8BZ5r/AwMDlSeNwP9mzP//LJLF/5n///+F6///hev//4Xr
-        //+F6///hev//4Lc8f9/ucr/iam8/4O60f+Z+Pj/A2mc/wMDA5Upj8L/Zsz//zKYy/+Z////kff//5H3
-        //+R9///kff//5D1/f+Js73/mquw/6Wvtv+ss7z/o9TV/wVrnv8DAwOVLJLF/27U//8zmcz/mf///5n/
-        //+Z////mf///5n///+Q4OH/ma6x/7G1tf+8trb/veHi/7zZ3P8HbaD/AwMDlC6Ux/964P//LJLF////
-        ////////////////////////3M3Q/+mwtf/9t7f//7e6///Y1f//5+f/CnCj/wMDA3Uwlsn/hev//4Dm
-        //8picj/InTT/ySJ0/8ulMf/LJHE/z5skv9qbo//cHSU/2J3n/9LeKj/IICy/xqAs/8AAAAhMpjL/5H3
-        //+O9P//KFD//wJ///8/t///dbrb//Ht7v+bICz//XeC///W1f//9vf/FXuu/wMDA3YAAAApAAAAATOZ
-        zP//////mf///zJi//8Djv//gtL//8HW4v85VXb/1EFE/0x/rf8cgrX/GoCz/xd9sP8AAAAhAAAACQAA
-        AAAAAAAAM5nM///////o6f//d6n//7jp//9ClsL/eQkN7/FgXdQAAAABAAAAAQAAAAEAAAABAAAAAQAA
-        AAAAAAAAAAAAAAAAAAAzmcz/MpjL/zCWyf8ulMf/YhYjrMRBPP//eHNyAAAAAAAAAAAAAAAAAAAAAAAA
-        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAABTA8RH4MOGvLofGr//3OHbwAAAAAAAAAAAAAAAAAA
-        AAAAAAAAAAAAAAAAAAD///8A////AP///wD///8A////AFEaJSSbICb9+ZWI//+LiHX///8A////AP//
-        /wD///8A////AP///wD///8A////AP///wD///8A////AP///wB7AAAJkAgQn91fV/T/b2ZS////AP//
-        /wD///8A////AP///wD///8A////AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
-        AAAAAQAAgAMAAMB/AADgfwAA+H8AAPh/AAA=
-</value>
-  </data>
-</root>

app/DD_Clipboard_Searcher/frmProfileMatch.vb

@@ -1,238 +0,0 @@
-Imports DD_Clipboard_Watcher.ClassProfileFilter
-Imports DD_Clipboard_Watcher.ClassConstants
-Imports DevExpress.XtraEditors
-
-Public Class frmProfileMatch
-    Private PrimaryFont As New Font("Segoe UI", 12, FontStyle.Bold)
-    Private SecondaryFont As New Font("Segoe UI", 10)
-
-    Private OpenForms As New List(Of IResultForm)
-    Private ShouldHideInitially As Boolean = False
-
-    Private Enum ProfileType
-        ANY = 0
-        DOCS_ONLY = 1
-        DATA_ONLY = 2
-    End Enum
-
-    Private Sub frmProfileMatch_Load(sender As Object, e As EventArgs) Handles Me.Load
-        If Not ConfigManager.Config.MatchWindowLocation.IsEmpty Then
-            Location = ConfigManager.Config.MatchWindowLocation
-        End If
-
-        If Not ConfigManager.Config.MatchWindowSize.IsEmpty Then
-            Size = ConfigManager.Config.MatchWindowSize
-        End If
-
-        Dim oCreatedTiles = CreateTiles()
-
-        If oCreatedTiles = -1 Then
-            Exit Sub
-        End If
-
-        If oCreatedTiles = 0 Then
-            Logger.Warn("No Results found for ""{0}""", CURRENT_CLIPBOARD_CONTENTS)
-            Me.Close()
-        End If
-
-        Dim oMatchString = IIf(oCreatedTiles = 1, "1 Match", $"{oCreatedTiles} Matches")
-        Label1.Text = String.Format(Label1.Text, oMatchString, CURRENT_CLIPBOARD_CONTENTS)
-
-        ' Open Result Forms directly if only one match found
-        If oCreatedTiles = 1 Then
-            Dim oProfile As ProfileData = CURRENT_MATCHING_PROFILES.First()
-            OpenResultForms(oProfile.Guid, oProfile.ProfileType)
-            ShouldHideInitially = True
-        End If
-    End Sub
-
-    Private Sub frmProfileMatch_Shown(sender As Object, e As EventArgs) Handles Me.Shown
-        If ShouldHideInitially Then
-            Hide()
-        End If
-    End Sub
-
-    Function CreateTiles() As Integer
-        Try
-            Dim oCreatedTiles As Integer = 0
-            Dim oDocumentGroup = TileControlMatch.Groups.Item("TileGroupDocuments")
-            Dim oDataGroup = TileControlMatch.Groups.Item("TileGroupData")
-            Dim oDataDocumentsGroup = TileControlMatch.Groups.Item("TileGroupDocumentsData")
-
-            oDocumentGroup.Items.Clear()
-            oDataGroup.Items.Clear()
-
-            For Each oProfile As ProfileData In CURRENT_MATCHING_PROFILES
-                If oProfile.ProfileType = PROFILE_TYPE_DATA_DOCS Then
-                    If oProfile.CountData > 0 And oProfile.CountDocs > 0 Then
-                        Dim oCountText = oProfile.CountData + oProfile.CountDocs
-                        Dim oItem = CreateTile(oProfile, $"{oCountText} Ergebnisse")
-                        oDataDocumentsGroup.Items.Add(oItem)
-                        oCreatedTiles += 1
-                    End If
-                End If
-
-                If oProfile.ProfileType = PROFILE_TYPE_DATA_DOCS Or oProfile.ProfileType = PROFILE_TYPE_DOCS_ONLY Then
-                    If oProfile.CountDocs > 0 Then
-                        Dim oItem = CreateTile(oProfile, $"{oProfile.CountDocs} Dokumente")
-                        oDocumentGroup.Items.Add(oItem)
-                        oCreatedTiles += 1
-                    End If
-                End If
-
-                If oProfile.ProfileType = PROFILE_TYPE_DATA_DOCS Or oProfile.ProfileType = PROFILE_TYPE_DATA_ONLY Then
-                    If oProfile.CountData > 0 Then
-                        Dim oItem = CreateTile(oProfile, $"{oProfile.CountData} Datensätze")
-                        oDataGroup.Items.Add(oItem)
-                        oCreatedTiles += 1
-                    End If
-                End If
-            Next
-
-            Return oCreatedTiles
-        Catch ex As Exception
-            Logger.Error(ex)
-            MsgBox("Error while creating profile tiles!" & vbNewLine & ex.Message)
-            Return -1
-        End Try
-    End Function
-
-    Private Function CreateTile(Profile As ProfileData, CountText As String) As TileItem
-        Dim oItem As New TileItem() With {.Tag = Profile.Guid}
-        oItem.Elements.Clear()
-
-        Dim oNameElement = New TileItemElement With {
-            .Text = Profile.Name,
-            .TextAlignment = TileItemContentAlignment.TopLeft
-        }
-        oNameElement.Appearance.Normal.Font = PrimaryFont
-        oItem.Elements.Add(oNameElement)
-
-        Dim oCommentElement = New TileItemElement With {
-            .Text = Profile.Comment,
-            .TextAlignment = TileItemContentAlignment.MiddleLeft
-        }
-        oCommentElement.Appearance.Normal.Font = SecondaryFont
-        oItem.Elements.Add(oCommentElement)
-
-        Dim oCountElement = New TileItemElement With {
-            .Text = GetCountText(Profile, CountText),
-            .TextAlignment = TileItemContentAlignment.BottomRight
-        }
-        oCountElement.Appearance.Normal.Font = SecondaryFont
-        oItem.Elements.Add(oCountElement)
-
-        Return oItem
-    End Function
-
-    Private Function GetCountText(Profile As ProfileData, CountText As String) As String
-        Dim oText As String = "No implemented"
-
-        If Profile.CountData = INVALID_COUNT_SQL Then
-            oText = "Invalid SQL!"
-        ElseIf Profile.CountData = NO_COUNT_SQL Then
-            oText = "No SQL!"
-        Else
-            oText = CountText
-        End If
-
-        If Profile.CountDocs = INVALID_COUNT_SQL Then
-            oText = "Invalid SQL!"
-        ElseIf Profile.CountDocs = NO_COUNT_SQL Then
-            oText = "No SQL!"
-        Else
-            oText = CountText
-        End If
-
-        Return oText
-    End Function
-
-    Private Sub frmProfileMatch_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
-        Try
-            ConfigManager.Config.MatchWindowSize = Size
-            ConfigManager.Config.MatchWindowLocation = Location
-            ConfigManager.Save()
-            CURRENT_CLIPBOARD_CONTENTS = Nothing
-        Catch ex As Exception
-            Logger.Error(ex)
-            Logger.Info("Error in Save FormLayout: " & ex.Message)
-        End Try
-    End Sub
-
-    Private Sub TileControlMatch_ItemClick(sender As Object, e As TileItemEventArgs) Handles TileControlMatch.ItemClick
-        Dim oItem As TileItem = e.Item
-        Dim oProfileId As Integer = oItem.Tag
-
-        Select Case oItem.Group.Name
-            Case TileGroupData.Name
-                OpenResultForms(oProfileId, ProfileType.DATA_ONLY)
-
-            Case TileGroupDocuments.Name
-                OpenResultForms(oProfileId, ProfileType.DOCS_ONLY)
-
-            Case Else
-                OpenResultForms(oProfileId, ProfileType.ANY)
-        End Select
-
-        Hide()
-    End Sub
-
-    Private Sub OpenResultForms(ProfileId As Integer, OpenType As ProfileType)
-        Dim oMatchingProfiles As New List(Of ProfileData)
-
-        ' TODO: Implement Show All
-
-        ' Click on specific profile
-        Dim oProfile As ProfileData = CURRENT_MATCHING_PROFILES.
-                Where(Function(p) p.Guid = ProfileId).
-                First()
-            oMatchingProfiles.Add(oProfile)
-
-        If OpenType = ProfileType.ANY Or OpenType = ProfileType.DOCS_ONLY Then
-            ' Show Result Document Form
-            Dim oForm As New frmResultDoc(Me, oMatchingProfiles)
-            AddHandler oForm.FormClosed, AddressOf ProfileResultForm_Closed
-            OpenForms.Add(oForm)
-
-            oForm.Show()
-        End If
-
-        If OpenType = ProfileType.ANY Or OpenType = ProfileType.DATA_ONLY Then
-            ' Show Result Data Form
-            Dim oForm As New frmResultSQL(Me, oMatchingProfiles)
-            AddHandler oForm.FormClosed, AddressOf ProfileResultForm_Closed
-            OpenForms.Add(oForm)
-
-            oForm.Show()
-        End If
-    End Sub
-
-    Private Sub ProfileResultForm_Closed(sender As Object, e As FormClosedEventArgs)
-        Dim oShouldOpenAgain As Boolean = False
-        Dim oThisForm = New List(Of IResultForm) From {sender}
-
-        If TypeOf sender Is frmResultDoc Or TypeOf sender Is frmResultSQL Then
-            For Each oForm As IResultForm In OpenForms
-                ' Determine if frmProfileMatch should be shown
-                If oForm.ShouldReturnToMatchForm Then
-                    oShouldOpenAgain = True
-                End If
-            Next
-        End If
-
-        ' If frmProfileMatch should be shown, close all windows of this profile
-        If oShouldOpenAgain Then
-            For Each oForm As Form In OpenForms.Except(oThisForm)
-                ' Remove the Handler to prevent a loop
-                RemoveHandler oForm.FormClosed, AddressOf ProfileResultForm_Closed
-                oForm.Close()
-            Next
-
-            Show()
-        End If
-    End Sub
-
-    Private Sub AblaufSucheAnzeigenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AblaufSucheAnzeigenToolStripMenuItem.Click
-        frmTreeView.ShowDialog()
-    End Sub
-End Class

app/DD_Clipboard_Searcher/frmResultDoc.Designer.vb

@@ -1,468 +0,0 @@
-<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
-Partial Class frmResultDoc
-    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 resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmResultDoc))
-        Me.StatusStrip1 = New System.Windows.Forms.StatusStrip()
-        Me.tslblDocID = New System.Windows.Forms.ToolStripStatusLabel()
-        Me.tslblState = New System.Windows.Forms.ToolStripStatusLabel()
-        Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
-        Me.ToolStripDropDownButtonFile = New System.Windows.Forms.ToolStripDropDownButton()
-        Me.ÖffnenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
-        Me.EigenschaftenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
-        Me.ToolStripButtonDocView = New System.Windows.Forms.ToolStripButton()
-        Me.btnBackToMatchForm = New System.Windows.Forms.ToolStripButton()
-        Me.XtraTabControlDocs = New DevExpress.XtraTab.XtraTabControl()
-        Me.XtraTabPageDoc1 = New DevExpress.XtraTab.XtraTabPage()
-        Me.GridControlDocSearch1 = New DevExpress.XtraGrid.GridControl()
-        Me.GridViewDocSearch1 = New DevExpress.XtraGrid.Views.Grid.GridView()
-        Me.XtraTabPageDoc2 = New DevExpress.XtraTab.XtraTabPage()
-        Me.GridControlDocSearch2 = New DevExpress.XtraGrid.GridControl()
-        Me.GridViewDocSearch2 = New DevExpress.XtraGrid.Views.Grid.GridView()
-        Me.XtraTabPageDoc3 = New DevExpress.XtraTab.XtraTabPage()
-        Me.GridControlDocSearch3 = New DevExpress.XtraGrid.GridControl()
-        Me.GridViewDocSearch3 = New DevExpress.XtraGrid.Views.Grid.GridView()
-        Me.XtraTabPageDoc4 = New DevExpress.XtraTab.XtraTabPage()
-        Me.GridControlDocSearch4 = New DevExpress.XtraGrid.GridControl()
-        Me.GridViewDocSearch4 = New DevExpress.XtraGrid.Views.Grid.GridView()
-        Me.XtraTabPageDoc5 = New DevExpress.XtraTab.XtraTabPage()
-        Me.GridControlDocSearch5 = New DevExpress.XtraGrid.GridControl()
-        Me.GridViewDocSearch5 = New DevExpress.XtraGrid.Views.Grid.GridView()
-        Me.ContextMenuStripWMFile = New System.Windows.Forms.ContextMenuStrip(Me.components)
-        Me.EigenschaftenDateiToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
-        Me.DateiÖffnenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
-        Me.OrdnerÖffnenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
-        Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
-        Me.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
-        Me.ToolStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem()
-        Me.StatusStrip1.SuspendLayout()
-        Me.ToolStrip1.SuspendLayout()
-        CType(Me.XtraTabControlDocs, System.ComponentModel.ISupportInitialize).BeginInit()
-        Me.XtraTabControlDocs.SuspendLayout()
-        Me.XtraTabPageDoc1.SuspendLayout()
-        CType(Me.GridControlDocSearch1, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.GridViewDocSearch1, System.ComponentModel.ISupportInitialize).BeginInit()
-        Me.XtraTabPageDoc2.SuspendLayout()
-        CType(Me.GridControlDocSearch2, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.GridViewDocSearch2, System.ComponentModel.ISupportInitialize).BeginInit()
-        Me.XtraTabPageDoc3.SuspendLayout()
-        CType(Me.GridControlDocSearch3, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.GridViewDocSearch3, System.ComponentModel.ISupportInitialize).BeginInit()
-        Me.XtraTabPageDoc4.SuspendLayout()
-        CType(Me.GridControlDocSearch4, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.GridViewDocSearch4, System.ComponentModel.ISupportInitialize).BeginInit()
-        Me.XtraTabPageDoc5.SuspendLayout()
-        CType(Me.GridControlDocSearch5, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.GridViewDocSearch5, System.ComponentModel.ISupportInitialize).BeginInit()
-        Me.ContextMenuStripWMFile.SuspendLayout()
-        Me.SuspendLayout()
-        '
-        'StatusStrip1
-        '
-        Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tslblDocID, Me.tslblState})
-        Me.StatusStrip1.Location = New System.Drawing.Point(0, 532)
-        Me.StatusStrip1.Name = "StatusStrip1"
-        Me.StatusStrip1.Padding = New System.Windows.Forms.Padding(1, 0, 16, 0)
-        Me.StatusStrip1.Size = New System.Drawing.Size(933, 22)
-        Me.StatusStrip1.TabIndex = 0
-        Me.StatusStrip1.Text = "StatusStrip1"
-        '
-        'tslblDocID
-        '
-        Me.tslblDocID.Name = "tslblDocID"
-        Me.tslblDocID.Size = New System.Drawing.Size(0, 17)
-        '
-        'tslblState
-        '
-        Me.tslblState.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.StatusAnnotations_Alert_32xMD_color
-        Me.tslblState.Name = "tslblState"
-        Me.tslblState.Size = New System.Drawing.Size(75, 17)
-        Me.tslblState.Text = "Loading..."
-        '
-        'ToolStrip1
-        '
-        Me.ToolStrip1.GripStyle = System.Windows.Forms.ToolStripGripStyle.Hidden
-        Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripDropDownButtonFile, Me.ToolStripButtonDocView, Me.btnBackToMatchForm})
-        Me.ToolStrip1.Location = New System.Drawing.Point(0, 0)
-        Me.ToolStrip1.Name = "ToolStrip1"
-        Me.ToolStrip1.Size = New System.Drawing.Size(933, 25)
-        Me.ToolStrip1.TabIndex = 1
-        Me.ToolStrip1.Text = "ToolStrip1"
-        '
-        'ToolStripDropDownButtonFile
-        '
-        Me.ToolStripDropDownButtonFile.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
-        Me.ToolStripDropDownButtonFile.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ÖffnenToolStripMenuItem, Me.EigenschaftenToolStripMenuItem})
-        Me.ToolStripDropDownButtonFile.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.ID_FILE_PAGE_SETUP
-        Me.ToolStripDropDownButtonFile.ImageTransparentColor = System.Drawing.Color.Magenta
-        Me.ToolStripDropDownButtonFile.Name = "ToolStripDropDownButtonFile"
-        Me.ToolStripDropDownButtonFile.Size = New System.Drawing.Size(63, 22)
-        Me.ToolStripDropDownButtonFile.Text = "Datei"
-        '
-        'ÖffnenToolStripMenuItem
-        '
-        Me.ÖffnenToolStripMenuItem.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.OpenFile
-        Me.ÖffnenToolStripMenuItem.Name = "ÖffnenToolStripMenuItem"
-        Me.ÖffnenToolStripMenuItem.Size = New System.Drawing.Size(148, 22)
-        Me.ÖffnenToolStripMenuItem.Text = "Öffnen"
-        '
-        'EigenschaftenToolStripMenuItem
-        '
-        Me.EigenschaftenToolStripMenuItem.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.properties_16xMD
-        Me.EigenschaftenToolStripMenuItem.Name = "EigenschaftenToolStripMenuItem"
-        Me.EigenschaftenToolStripMenuItem.Size = New System.Drawing.Size(148, 22)
-        Me.EigenschaftenToolStripMenuItem.Text = "Eigenschaften"
-        '
-        'ToolStripButtonDocView
-        '
-        Me.ToolStripButtonDocView.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
-        Me.ToolStripButtonDocView.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.PreviewTab
-        Me.ToolStripButtonDocView.ImageTransparentColor = System.Drawing.Color.Magenta
-        Me.ToolStripButtonDocView.Name = "ToolStripButtonDocView"
-        Me.ToolStripButtonDocView.Size = New System.Drawing.Size(105, 22)
-        Me.ToolStripButtonDocView.Text = "Datei Vorschau"
-        '
-        'btnBackToMatchForm
-        '
-        Me.btnBackToMatchForm.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.control_start_blue
-        Me.btnBackToMatchForm.ImageTransparentColor = System.Drawing.Color.Magenta
-        Me.btnBackToMatchForm.Name = "btnBackToMatchForm"
-        Me.btnBackToMatchForm.Size = New System.Drawing.Size(157, 22)
-        Me.btnBackToMatchForm.Text = "Zurück zur Profilauswahl"
-        '
-        'XtraTabControlDocs
-        '
-        Me.XtraTabControlDocs.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.XtraTabControlDocs.Location = New System.Drawing.Point(0, 25)
-        Me.XtraTabControlDocs.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
-        Me.XtraTabControlDocs.Name = "XtraTabControlDocs"
-        Me.XtraTabControlDocs.SelectedTabPage = Me.XtraTabPageDoc1
-        Me.XtraTabControlDocs.Size = New System.Drawing.Size(933, 507)
-        Me.XtraTabControlDocs.TabIndex = 5
-        Me.XtraTabControlDocs.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPageDoc1, Me.XtraTabPageDoc2, Me.XtraTabPageDoc3, Me.XtraTabPageDoc4, Me.XtraTabPageDoc5})
-        '
-        'XtraTabPageDoc1
-        '
-        Me.XtraTabPageDoc1.Controls.Add(Me.GridControlDocSearch1)
-        Me.XtraTabPageDoc1.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
-        Me.XtraTabPageDoc1.Name = "XtraTabPageDoc1"
-        Me.XtraTabPageDoc1.Size = New System.Drawing.Size(931, 482)
-        Me.XtraTabPageDoc1.Text = "XtraTabPage1"
-        '
-        'GridControlDocSearch1
-        '
-        Me.GridControlDocSearch1.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.GridControlDocSearch1.EmbeddedNavigator.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
-        Me.GridControlDocSearch1.Location = New System.Drawing.Point(0, 0)
-        Me.GridControlDocSearch1.MainView = Me.GridViewDocSearch1
-        Me.GridControlDocSearch1.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
-        Me.GridControlDocSearch1.Name = "GridControlDocSearch1"
-        Me.GridControlDocSearch1.Size = New System.Drawing.Size(931, 482)
-        Me.GridControlDocSearch1.TabIndex = 0
-        Me.GridControlDocSearch1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewDocSearch1})
-        '
-        'GridViewDocSearch1
-        '
-        Me.GridViewDocSearch1.Appearance.EvenRow.BackColor = System.Drawing.Color.Aqua
-        Me.GridViewDocSearch1.Appearance.EvenRow.Options.UseBackColor = True
-        Me.GridViewDocSearch1.Appearance.SelectedRow.BackColor = System.Drawing.Color.Lime
-        Me.GridViewDocSearch1.Appearance.SelectedRow.Options.UseBackColor = True
-        Me.GridViewDocSearch1.DetailHeight = 431
-        Me.GridViewDocSearch1.GridControl = Me.GridControlDocSearch1
-        Me.GridViewDocSearch1.Name = "GridViewDocSearch1"
-        Me.GridViewDocSearch1.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
-        Me.GridViewDocSearch1.OptionsFind.AlwaysVisible = True
-        Me.GridViewDocSearch1.OptionsSelection.EnableAppearanceFocusedCell = False
-        Me.GridViewDocSearch1.OptionsSelection.EnableAppearanceHideSelection = False
-        Me.GridViewDocSearch1.OptionsView.EnableAppearanceEvenRow = True
-        Me.GridViewDocSearch1.OptionsView.ShowAutoFilterRow = True
-        '
-        'XtraTabPageDoc2
-        '
-        Me.XtraTabPageDoc2.Controls.Add(Me.GridControlDocSearch2)
-        Me.XtraTabPageDoc2.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
-        Me.XtraTabPageDoc2.Name = "XtraTabPageDoc2"
-        Me.XtraTabPageDoc2.PageVisible = False
-        Me.XtraTabPageDoc2.Size = New System.Drawing.Size(931, 482)
-        Me.XtraTabPageDoc2.Text = "XtraTabPage2"
-        '
-        'GridControlDocSearch2
-        '
-        Me.GridControlDocSearch2.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.GridControlDocSearch2.EmbeddedNavigator.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
-        Me.GridControlDocSearch2.Location = New System.Drawing.Point(0, 0)
-        Me.GridControlDocSearch2.MainView = Me.GridViewDocSearch2
-        Me.GridControlDocSearch2.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
-        Me.GridControlDocSearch2.Name = "GridControlDocSearch2"
-        Me.GridControlDocSearch2.Size = New System.Drawing.Size(931, 482)
-        Me.GridControlDocSearch2.TabIndex = 1
-        Me.GridControlDocSearch2.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewDocSearch2})
-        '
-        'GridViewDocSearch2
-        '
-        Me.GridViewDocSearch2.Appearance.EvenRow.BackColor = System.Drawing.Color.Aqua
-        Me.GridViewDocSearch2.Appearance.EvenRow.Options.UseBackColor = True
-        Me.GridViewDocSearch2.Appearance.SelectedRow.BackColor = System.Drawing.Color.Lime
-        Me.GridViewDocSearch2.Appearance.SelectedRow.Options.UseBackColor = True
-        Me.GridViewDocSearch2.DetailHeight = 431
-        Me.GridViewDocSearch2.GridControl = Me.GridControlDocSearch2
-        Me.GridViewDocSearch2.Name = "GridViewDocSearch2"
-        Me.GridViewDocSearch2.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
-        Me.GridViewDocSearch2.OptionsFind.AlwaysVisible = True
-        Me.GridViewDocSearch2.OptionsSelection.EnableAppearanceFocusedCell = False
-        Me.GridViewDocSearch2.OptionsSelection.EnableAppearanceHideSelection = False
-        Me.GridViewDocSearch2.OptionsView.EnableAppearanceEvenRow = True
-        Me.GridViewDocSearch2.OptionsView.ShowAutoFilterRow = True
-        '
-        'XtraTabPageDoc3
-        '
-        Me.XtraTabPageDoc3.Controls.Add(Me.GridControlDocSearch3)
-        Me.XtraTabPageDoc3.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
-        Me.XtraTabPageDoc3.Name = "XtraTabPageDoc3"
-        Me.XtraTabPageDoc3.PageVisible = False
-        Me.XtraTabPageDoc3.Size = New System.Drawing.Size(931, 482)
-        Me.XtraTabPageDoc3.Text = "XtraTabPage1"
-        '
-        'GridControlDocSearch3
-        '
-        Me.GridControlDocSearch3.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.GridControlDocSearch3.EmbeddedNavigator.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
-        Me.GridControlDocSearch3.Location = New System.Drawing.Point(0, 0)
-        Me.GridControlDocSearch3.MainView = Me.GridViewDocSearch3
-        Me.GridControlDocSearch3.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
-        Me.GridControlDocSearch3.Name = "GridControlDocSearch3"
-        Me.GridControlDocSearch3.Size = New System.Drawing.Size(931, 482)
-        Me.GridControlDocSearch3.TabIndex = 1
-        Me.GridControlDocSearch3.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewDocSearch3})
-        '
-        'GridViewDocSearch3
-        '
-        Me.GridViewDocSearch3.Appearance.EvenRow.BackColor = System.Drawing.Color.Aqua
-        Me.GridViewDocSearch3.Appearance.EvenRow.Options.UseBackColor = True
-        Me.GridViewDocSearch3.Appearance.SelectedRow.BackColor = System.Drawing.Color.Lime
-        Me.GridViewDocSearch3.Appearance.SelectedRow.Options.UseBackColor = True
-        Me.GridViewDocSearch3.DetailHeight = 431
-        Me.GridViewDocSearch3.GridControl = Me.GridControlDocSearch3
-        Me.GridViewDocSearch3.Name = "GridViewDocSearch3"
-        Me.GridViewDocSearch3.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
-        Me.GridViewDocSearch3.OptionsFind.AlwaysVisible = True
-        Me.GridViewDocSearch3.OptionsSelection.EnableAppearanceFocusedCell = False
-        Me.GridViewDocSearch3.OptionsSelection.EnableAppearanceHideSelection = False
-        Me.GridViewDocSearch3.OptionsView.EnableAppearanceEvenRow = True
-        Me.GridViewDocSearch3.OptionsView.ShowAutoFilterRow = True
-        '
-        'XtraTabPageDoc4
-        '
-        Me.XtraTabPageDoc4.Controls.Add(Me.GridControlDocSearch4)
-        Me.XtraTabPageDoc4.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
-        Me.XtraTabPageDoc4.Name = "XtraTabPageDoc4"
-        Me.XtraTabPageDoc4.PageVisible = False
-        Me.XtraTabPageDoc4.Size = New System.Drawing.Size(931, 482)
-        Me.XtraTabPageDoc4.Text = "XtraTabPage2"
-        '
-        'GridControlDocSearch4
-        '
-        Me.GridControlDocSearch4.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.GridControlDocSearch4.EmbeddedNavigator.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
-        Me.GridControlDocSearch4.Location = New System.Drawing.Point(0, 0)
-        Me.GridControlDocSearch4.MainView = Me.GridViewDocSearch4
-        Me.GridControlDocSearch4.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
-        Me.GridControlDocSearch4.Name = "GridControlDocSearch4"
-        Me.GridControlDocSearch4.Size = New System.Drawing.Size(931, 482)
-        Me.GridControlDocSearch4.TabIndex = 1
-        Me.GridControlDocSearch4.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewDocSearch4})
-        '
-        'GridViewDocSearch4
-        '
-        Me.GridViewDocSearch4.Appearance.EvenRow.BackColor = System.Drawing.Color.Aqua
-        Me.GridViewDocSearch4.Appearance.EvenRow.Options.UseBackColor = True
-        Me.GridViewDocSearch4.Appearance.SelectedRow.BackColor = System.Drawing.Color.Lime
-        Me.GridViewDocSearch4.Appearance.SelectedRow.Options.UseBackColor = True
-        Me.GridViewDocSearch4.DetailHeight = 431
-        Me.GridViewDocSearch4.GridControl = Me.GridControlDocSearch4
-        Me.GridViewDocSearch4.Name = "GridViewDocSearch4"
-        Me.GridViewDocSearch4.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
-        Me.GridViewDocSearch4.OptionsFind.AlwaysVisible = True
-        Me.GridViewDocSearch4.OptionsSelection.EnableAppearanceFocusedCell = False
-        Me.GridViewDocSearch4.OptionsSelection.EnableAppearanceHideSelection = False
-        Me.GridViewDocSearch4.OptionsView.EnableAppearanceEvenRow = True
-        Me.GridViewDocSearch4.OptionsView.ShowAutoFilterRow = True
-        '
-        'XtraTabPageDoc5
-        '
-        Me.XtraTabPageDoc5.Controls.Add(Me.GridControlDocSearch5)
-        Me.XtraTabPageDoc5.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
-        Me.XtraTabPageDoc5.Name = "XtraTabPageDoc5"
-        Me.XtraTabPageDoc5.PageVisible = False
-        Me.XtraTabPageDoc5.Size = New System.Drawing.Size(931, 482)
-        Me.XtraTabPageDoc5.Text = "XtraTabPage3"
-        '
-        'GridControlDocSearch5
-        '
-        Me.GridControlDocSearch5.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.GridControlDocSearch5.EmbeddedNavigator.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
-        Me.GridControlDocSearch5.Location = New System.Drawing.Point(0, 0)
-        Me.GridControlDocSearch5.MainView = Me.GridViewDocSearch5
-        Me.GridControlDocSearch5.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
-        Me.GridControlDocSearch5.Name = "GridControlDocSearch5"
-        Me.GridControlDocSearch5.Size = New System.Drawing.Size(931, 482)
-        Me.GridControlDocSearch5.TabIndex = 1
-        Me.GridControlDocSearch5.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewDocSearch5})
-        '
-        'GridViewDocSearch5
-        '
-        Me.GridViewDocSearch5.Appearance.EvenRow.BackColor = System.Drawing.Color.Aqua
-        Me.GridViewDocSearch5.Appearance.EvenRow.Options.UseBackColor = True
-        Me.GridViewDocSearch5.Appearance.SelectedRow.BackColor = System.Drawing.Color.Lime
-        Me.GridViewDocSearch5.Appearance.SelectedRow.Options.UseBackColor = True
-        Me.GridViewDocSearch5.DetailHeight = 431
-        Me.GridViewDocSearch5.GridControl = Me.GridControlDocSearch5
-        Me.GridViewDocSearch5.Name = "GridViewDocSearch5"
-        Me.GridViewDocSearch5.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
-        Me.GridViewDocSearch5.OptionsFind.AlwaysVisible = True
-        Me.GridViewDocSearch5.OptionsSelection.EnableAppearanceFocusedCell = False
-        Me.GridViewDocSearch5.OptionsSelection.EnableAppearanceHideSelection = False
-        Me.GridViewDocSearch5.OptionsView.EnableAppearanceEvenRow = True
-        Me.GridViewDocSearch5.OptionsView.ShowAutoFilterRow = True
-        '
-        'ContextMenuStripWMFile
-        '
-        Me.ContextMenuStripWMFile.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.EigenschaftenDateiToolStripMenuItem, Me.DateiÖffnenToolStripMenuItem, Me.OrdnerÖffnenToolStripMenuItem, Me.ToolStripSeparator1, Me.ToolStripMenuItem1, Me.ToolStripMenuItem2})
-        Me.ContextMenuStripWMFile.Name = "ContextMenuStripWMFile"
-        Me.ContextMenuStripWMFile.Size = New System.Drawing.Size(182, 120)
-        '
-        'EigenschaftenDateiToolStripMenuItem
-        '
-        Me.EigenschaftenDateiToolStripMenuItem.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.properties_16xMD
-        Me.EigenschaftenDateiToolStripMenuItem.Name = "EigenschaftenDateiToolStripMenuItem"
-        Me.EigenschaftenDateiToolStripMenuItem.Size = New System.Drawing.Size(181, 22)
-        Me.EigenschaftenDateiToolStripMenuItem.Text = "Eigenschaften Datei"
-        '
-        'DateiÖffnenToolStripMenuItem
-        '
-        Me.DateiÖffnenToolStripMenuItem.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.OpenFile
-        Me.DateiÖffnenToolStripMenuItem.Name = "DateiÖffnenToolStripMenuItem"
-        Me.DateiÖffnenToolStripMenuItem.Size = New System.Drawing.Size(181, 22)
-        Me.DateiÖffnenToolStripMenuItem.Text = "Datei öffnen"
-        '
-        'OrdnerÖffnenToolStripMenuItem
-        '
-        Me.OrdnerÖffnenToolStripMenuItem.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.folder_Open_16xLG
-        Me.OrdnerÖffnenToolStripMenuItem.Name = "OrdnerÖffnenToolStripMenuItem"
-        Me.OrdnerÖffnenToolStripMenuItem.Size = New System.Drawing.Size(181, 22)
-        Me.OrdnerÖffnenToolStripMenuItem.Text = "Ordner öffnen"
-        '
-        'ToolStripSeparator1
-        '
-        Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
-        Me.ToolStripSeparator1.Size = New System.Drawing.Size(178, 6)
-        '
-        'ToolStripMenuItem1
-        '
-        Me.ToolStripMenuItem1.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.refresh_16xLG
-        Me.ToolStripMenuItem1.Name = "ToolStripMenuItem1"
-        Me.ToolStripMenuItem1.Size = New System.Drawing.Size(181, 22)
-        Me.ToolStripMenuItem1.Text = "Aktualisieren"
-        '
-        'ToolStripMenuItem2
-        '
-        Me.ToolStripMenuItem2.Name = "ToolStripMenuItem2"
-        Me.ToolStripMenuItem2.Size = New System.Drawing.Size(181, 22)
-        Me.ToolStripMenuItem2.Text = "Layout zurücksetzen"
-        '
-        'frmResultDoc
-        '
-        Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
-        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(933, 554)
-        Me.Controls.Add(Me.XtraTabControlDocs)
-        Me.Controls.Add(Me.ToolStrip1)
-        Me.Controls.Add(Me.StatusStrip1)
-        Me.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
-        Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
-        Me.MaximizeBox = False
-        Me.MinimizeBox = False
-        Me.Name = "frmResultDoc"
-        Me.Text = "Clipboard-Watcher Doc-Result"
-        Me.StatusStrip1.ResumeLayout(False)
-        Me.StatusStrip1.PerformLayout()
-        Me.ToolStrip1.ResumeLayout(False)
-        Me.ToolStrip1.PerformLayout()
-        CType(Me.XtraTabControlDocs, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.XtraTabControlDocs.ResumeLayout(False)
-        Me.XtraTabPageDoc1.ResumeLayout(False)
-        CType(Me.GridControlDocSearch1, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.GridViewDocSearch1, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.XtraTabPageDoc2.ResumeLayout(False)
-        CType(Me.GridControlDocSearch2, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.GridViewDocSearch2, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.XtraTabPageDoc3.ResumeLayout(False)
-        CType(Me.GridControlDocSearch3, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.GridViewDocSearch3, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.XtraTabPageDoc4.ResumeLayout(False)
-        CType(Me.GridControlDocSearch4, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.GridViewDocSearch4, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.XtraTabPageDoc5.ResumeLayout(False)
-        CType(Me.GridControlDocSearch5, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.GridViewDocSearch5, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.ContextMenuStripWMFile.ResumeLayout(False)
-        Me.ResumeLayout(False)
-        Me.PerformLayout()
-
-    End Sub
-
-    Friend WithEvents StatusStrip1 As StatusStrip
-    Friend WithEvents ToolStrip1 As ToolStrip
-    Friend WithEvents XtraTabControlDocs As DevExpress.XtraTab.XtraTabControl
-    Friend WithEvents XtraTabPageDoc1 As DevExpress.XtraTab.XtraTabPage
-    Friend WithEvents GridControlDocSearch1 As DevExpress.XtraGrid.GridControl
-    Friend WithEvents GridViewDocSearch1 As DevExpress.XtraGrid.Views.Grid.GridView
-    Friend WithEvents XtraTabPageDoc2 As DevExpress.XtraTab.XtraTabPage
-    Friend WithEvents GridControlDocSearch2 As DevExpress.XtraGrid.GridControl
-    Friend WithEvents GridViewDocSearch2 As DevExpress.XtraGrid.Views.Grid.GridView
-    Friend WithEvents XtraTabPageDoc3 As DevExpress.XtraTab.XtraTabPage
-    Friend WithEvents GridControlDocSearch3 As DevExpress.XtraGrid.GridControl
-    Friend WithEvents GridViewDocSearch3 As DevExpress.XtraGrid.Views.Grid.GridView
-    Friend WithEvents XtraTabPageDoc4 As DevExpress.XtraTab.XtraTabPage
-    Friend WithEvents GridControlDocSearch4 As DevExpress.XtraGrid.GridControl
-    Friend WithEvents GridViewDocSearch4 As DevExpress.XtraGrid.Views.Grid.GridView
-    Friend WithEvents XtraTabPageDoc5 As DevExpress.XtraTab.XtraTabPage
-    Friend WithEvents GridControlDocSearch5 As DevExpress.XtraGrid.GridControl
-    Friend WithEvents GridViewDocSearch5 As DevExpress.XtraGrid.Views.Grid.GridView
-    Friend WithEvents ContextMenuStripWMFile As ContextMenuStrip
-    Friend WithEvents EigenschaftenDateiToolStripMenuItem As ToolStripMenuItem
-    Friend WithEvents DateiÖffnenToolStripMenuItem As ToolStripMenuItem
-    Friend WithEvents ToolStripSeparator1 As ToolStripSeparator
-    Friend WithEvents ToolStripMenuItem1 As ToolStripMenuItem
-    Friend WithEvents ToolStripMenuItem2 As ToolStripMenuItem
-    Friend WithEvents tslblDocID As ToolStripStatusLabel
-    Friend WithEvents ToolStripDropDownButtonFile As ToolStripDropDownButton
-    Friend WithEvents ÖffnenToolStripMenuItem As ToolStripMenuItem
-    Friend WithEvents EigenschaftenToolStripMenuItem As ToolStripMenuItem
-    Friend WithEvents tslblState As ToolStripStatusLabel
-    Friend WithEvents OrdnerÖffnenToolStripMenuItem As ToolStripMenuItem
-    Friend WithEvents ToolStripButtonDocView As ToolStripButton
-    Friend WithEvents btnBackToMatchForm As ToolStripButton
-End Class

app/DD_Clipboard_Searcher/frmResultDoc.vb

@@ -1,678 +0,0 @@
-Imports System.ComponentModel
-Imports System.IO
-Imports DevExpress.Utils
-Imports DevExpress.XtraGrid
-Imports DevExpress.XtraGrid.Columns
-Imports DevExpress.XtraGrid.Views.Grid
-Imports DD_LIB_Standards
-Imports DevExpress.XtraTab
-Imports DD_Clipboard_Watcher.ClassProfileFilter
-Imports DigitalData.Modules
-Imports DigitalData.Modules.Database
-Imports DigitalData.Modules.Database.Constants
-
-Public Class frmResultDoc
-    Implements IResultForm
-
-#Region "Laufzeitvariablen & Konstanten"
-    Private Shared BW_DocPath As String
-    Private Shared BW_DocID As Integer
-    Private Shared CurrSearchID As Integer
-    Private DTDocSearchDefinition As DataTable
-
-    Private _frmDocView As frmDocView 'You need a reference to Form1
-    Private _frmProfileMatch As frmProfileMatch 'You need a reference to Form1
-    Private _frmSQL As frmResultSQL 'You need a reference to Form1
-    Private _activeGridView As GridView
-
-    Private Current_MatchingProfiles As List(Of ProfileData)
-
-    Public Property ShouldReturnToMatchForm As Boolean = False Implements IResultForm.ShouldReturnToMatchForm
-#End Region
-    Public Sub New()
-        MyBase.New
-        ' Dieser Aufruf ist für den Designer erforderlich.
-        InitializeComponent()
-
-        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
-        _frmProfileMatch = Nothing
-    End Sub
-
-    Public Sub New(ProfileMatchForm As frmProfileMatch, MatchingProfiles As List(Of ProfileData))
-        ' Dieser Aufruf ist für den Designer erforderlich.
-        InitializeComponent()
-
-        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
-        _frmProfileMatch = ProfileMatchForm
-        Current_MatchingProfiles = MatchingProfiles
-    End Sub
-
-    Private Class DocSearch
-        Public DataTable As DataTable
-        Public TabIndex As Integer
-        Public TabCaption As String
-        Public ProfileId As Integer
-        Public SQLCommand As String
-    End Class
-
-    Private Async Sub frmResultDoc_Load(sender As Object, e As EventArgs) Handles Me.Load
-        ToolStripDropDownButtonFile.Visible = False
-
-        If Not ConfigManager.Config.ResultDocWindowLocation.IsEmpty Then
-            Location = ConfigManager.Config.ResultDocWindowLocation
-        End If
-
-        If Not ConfigManager.Config.ResultDocWindowSize.IsEmpty Then
-            Size = ConfigManager.Config.ResultDocWindowSize
-        End If
-
-        GridViewDocSearch1.ShowLoadingPanel()
-
-        Dim oSearches = Await LoadSearchesAsync()
-
-        For Each oSearch As DocSearch In oSearches
-            RefreshTabDoc(oSearch.ProfileId, oSearch.DataTable, oSearch.TabIndex, oSearch.TabCaption)
-        Next
-
-        GridViewDocSearch1.HideLoadingPanel()
-    End Sub
-
-    Private Sub frmResultDoc_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
-        Try
-            ConfigManager.Config.ResultDocWindowSize = Size
-            ConfigManager.Config.ResultDocWindowLocation = Location
-            ConfigManager.Save()
-        Catch ex As Exception
-            Logger.Error(ex)
-            Logger.Warn("Error in Save FormLayout: " & ex.Message)
-        End Try
-
-        _frmDocView?.Close()
-    End Sub
-
-    Private Async Function LoadSearchesAsync() As Task(Of List(Of DocSearch))
-        Return Await Task.Run(AddressOf DoLoadSearches)
-    End Function
-
-    Private Function DoLoadSearches() As List(Of DocSearch)
-        Dim oMatchingIds = String.Join(",", Current_MatchingProfiles.Select(Function(p) p.Guid).ToArray())
-        Dim oSQL As String = $"SELECT * FROM TBCW_PROF_DOC_SEARCH WHERE ACTIVE = 1 AND PROFILE_ID in ({oMatchingIds}) ORDER BY TAB_INDEX"
-        Dim oSearchesDataTable = Database.GetDatatable(oSQL)
-        Dim oDocSearches As New List(Of DocSearch)
-        Dim oCounter As Integer = 0
-
-        DTDocSearchDefinition = oSearchesDataTable
-
-        For Each oRow As DataRow In oSearchesDataTable.Rows
-            Dim oProfileId As Integer = oRow.Item("PROFILE_ID")
-            Dim oTabTitle As String = oRow.Item("TAB_TITLE")
-            Dim oConnectionId As Integer = oRow.Item("CONN_ID")
-
-            oSQL = oRow.Item("SQL_COMMAND")
-            oSQL = clsPatterns.ReplaceAllValues(oSQL, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_EMAIL, USER_ID, oProfileId)
-
-            Dim oDatatable As DataTable = GetDatatable(oSQL, oConnectionId)
-            oDocSearches.Add(New DocSearch() With {
-                .DataTable = oDatatable,
-                .ProfileId = oProfileId,
-                .TabCaption = oTabTitle,
-                .TabIndex = oCounter,
-                .SQLCommand = oSQL
-            })
-
-            oCounter += 1
-        Next
-
-        Return oDocSearches
-    End Function
-
-    Private Function GetDatatable(SqlCommand As String, ConnectionId As Integer)
-        Try
-            Dim oRow As MyDataset.TBDD_CONNECTIONRow = DT_CONNECTIONS.AsEnumerable().
-            Where(Function(r) r.GUID = ConnectionId).
-            FirstOrDefault()
-
-            Dim oConnectionType As String = oRow.SQL_PROVIDER
-
-            Select Case oRow.SQL_PROVIDER
-                Case PROVIDER_MSSQL
-                    Dim oSQL As New MSSQLServer(LogConfig, oRow.SERVER, oRow.DATENBANK, oRow.USERNAME, oRow.PASSWORD)
-                    Return oSQL.GetDatatable(SqlCommand)
-
-                Case PROVIDER_ODBC
-                    Dim oODBC As New ODBC(LogConfig, oRow.SERVER, oRow.USERNAME, oRow.PASSWORD)
-                    Return oODBC.GetDatatable(SqlCommand)
-
-                Case Else
-                    Dim oOracle As New Database.Oracle(LogConfig, oRow.SERVER, oRow.DATENBANK, oRow.USERNAME, oRow.PASSWORD)
-                    Return oOracle.GetDatatable(SqlCommand)
-            End Select
-        Catch ex As Exception
-            Logger.Error(ex)
-            Return Nothing
-        End Try
-    End Function
-    Sub Filter_EventTab(FilterCount As Integer)
-        Dim oTabIndex = XtraTabControlDocs.SelectedTabPageIndex
-        Dim oTabTitle = DTDocSearchDefinition.Rows(oTabIndex).Item("TAB_TITLE")
-        XtraTabControlDocs.TabPages(TabIndex).Text = $"{oTabTitle} ({FilterCount} Filtered)"
-    End Sub
-    Sub RefreshTabDoc(ProfileId As Integer, Datatable As DataTable, TabIndex As Integer, TabCaption As String)
-        Try
-            Dim myGridControl As GridControl = GridControlDocSearch1
-            Dim myGridview As GridView = GridViewDocSearch1
-
-            Select Case TabIndex
-                Case 0
-                    GridControlDocSearch1.DataSource = Nothing
-                    GridViewDocSearch1.Columns.Clear()
-                    myGridview = GridViewDocSearch1
-                    myGridControl = GridControlDocSearch1
-                Case 1
-                    GridControlDocSearch2.DataSource = Nothing
-                    GridViewDocSearch2.Columns.Clear()
-                    myGridview = GridViewDocSearch2
-                    myGridControl = GridControlDocSearch2
-                Case 2
-                    GridControlDocSearch3.DataSource = Nothing
-                    GridViewDocSearch3.Columns.Clear()
-                    myGridview = GridViewDocSearch3
-                    myGridControl = GridControlDocSearch3
-                Case 3
-                    GridControlDocSearch4.DataSource = Nothing
-                    GridViewDocSearch4.Columns.Clear()
-                    myGridControl = GridControlDocSearch4
-                    myGridview = GridViewDocSearch4
-                Case 4
-                    GridControlDocSearch5.DataSource = Nothing
-                    GridViewDocSearch5.Columns.Clear()
-                    myGridControl = GridControlDocSearch5
-                    myGridview = GridViewDocSearch5
-            End Select
-
-            myGridControl.ContextMenuStrip = ContextMenuStripWMFile
-
-            If Not IsNothing(Datatable) Then
-                XtraTabControlDocs.TabPages(TabIndex).Text = $"{TabCaption} ({Datatable.Rows.Count})"
-                clsWMDocGrid.DTDocuments = Datatable
-
-                Create_GridControl(myGridview, Datatable)
-                Dim oxmlPath As String = Get_DocGrid_Layout_Filename(XtraTabControlDocs.SelectedTabPageIndex)
-
-                If File.Exists(oxmlPath) Then
-                    myGridview.RestoreLayoutFromXml(oxmlPath)
-                    myGridview.GuessAutoFilterRowValuesFromFilter()
-                End If
-                tslblState.Text = $"Tab [{TabCaption}] refreshed - {Now}"
-                XtraTabControlDocs.TabPages(TabIndex).PageVisible = True
-            Else
-                clsWMDocGrid.DTDocuments = Nothing
-            End If
-        Catch ex As Exception
-            Logger.Error(ex)
-        End Try
-    End Sub
-    Private Sub Create_GridControl(MyGridView As GridView, _datatable As DataTable)
-        Dim oMyDocDatatable As New DataTable
-        Try
-            'Die Icon Colum erstellen und konfigurieren
-            Dim oColIcon As New DataColumn() With {
-                .DataType = GetType(Image),
-                .ColumnName = "ICON",
-                .Caption = ""
-            }
-            oMyDocDatatable.Columns.Add(oColIcon)
-
-            Dim oColPath As New DataColumn() With {
-                 .DataType = GetType(String),
-                .ColumnName = "FULL_FILENAME",
-                .Caption = "Fullpath"
-            }
-            oMyDocDatatable.Columns.Add(oColPath)
-
-            Dim oColDocID As New DataColumn() With {
-                .DataType = GetType(Int32),
-                .ColumnName = "DocID",
-                .Caption = "DocID"
-            }
-            oMyDocDatatable.Columns.Add(oColDocID)
-
-            Dim oRestColArray As New List(Of String)
-            For Each oCol As DataColumn In _datatable.Columns
-                Dim onewColumn As New DataColumn()
-                If oCol.ColumnName <> "DocID" And oCol.ColumnName <> "FULL_FILENAME" And oCol.ColumnName <> "Filename" Then
-                    onewColumn.DataType = GetType(String)
-                    onewColumn.ColumnName = oCol.ColumnName
-                    onewColumn.Caption = oCol.Caption
-                    oMyDocDatatable.Columns.Add(onewColumn)
-                    oRestColArray.Add(onewColumn.ColumnName)
-                End If
-
-            Next
-            For Each FILE_ROW As DataRow In _datatable.Rows
-                Dim oFullpath = FILE_ROW.Item("FULL_FILENAME")
-                Dim oDocID = FILE_ROW.Item("DocID")
-                'Dim Folderpath = Path.GetDirectoryName(fullpath)
-                Dim oFilename = Path.GetFileName(oFullpath)
-                Dim oFileextension = Path.GetExtension(oFullpath)
-                Dim oNewRow As DataRow
-                oNewRow = oMyDocDatatable.NewRow()
-                'Icon zuweisen
-                Select Case oFileextension.ToUpper
-                    Case ".csv".ToUpper
-                        oNewRow.Item(0) = My.Resources.doc_excel_csv
-                    Case ".txt".ToUpper
-                        oNewRow.Item(0) = My.Resources.txt
-                    Case ".pdf".ToUpper
-                        oNewRow.Item(0) = My.Resources.pdf
-                    Case ".doc".ToUpper
-                        oNewRow.Item(0) = My.Resources.doc
-                    Case ".docx".ToUpper
-                        oNewRow.Item(0) = My.Resources.doc
-                    Case ".xls".ToUpper
-                        oNewRow.Item(0) = My.Resources.xls
-                    Case ".xlsx".ToUpper
-                        oNewRow.Item(0) = My.Resources.xls
-                    Case ".xlsm".ToUpper
-                        oNewRow.Item(0) = My.Resources.xls
-                    Case ".ppt".ToUpper
-                        oNewRow.Item(0) = My.Resources.ppt
-                    Case ".pptx".ToUpper
-                        oNewRow.Item(0) = My.Resources.ppt
-                    Case ".dwg".ToUpper
-                        oNewRow.Item(0) = My.Resources.dwg
-                    Case ".dxf".ToUpper
-                        oNewRow.Item(0) = My.Resources.dxf
-                    Case ".msg".ToUpper
-                        oNewRow.Item(0) = My.Resources.email_go
-                    Case ".msg".ToUpper
-                        oNewRow.Item(0) = My.Resources.email_go
-                    Case ".tif".ToUpper
-                        oNewRow.Item(0) = My.Resources.tiff
-                    Case ".tiff".ToUpper
-                        oNewRow.Item(0) = My.Resources.tiff
-                    Case ".jpg".ToUpper
-                        oNewRow.Item(0) = My.Resources.jpg
-                    Case Else
-                        oNewRow.Item(0) = My.Resources._blank
-                End Select
-                'Den Filepath mitgeben
-                oNewRow.Item(1) = oFullpath
-                oNewRow.Item(2) = oDocID
-
-                Dim i = 3 'Fängt bei 3 an, um die definierten Spalten zu überspringen
-                For Each Colname As String In oRestColArray
-                    Dim oRowValue
-                    oRowValue = FILE_ROW.Item(Colname)
-                    oNewRow.Item(i) = oRowValue.ToString
-                    i += 1
-                Next
-                oMyDocDatatable.Rows.Add(oNewRow)
-            Next
-
-            Dim oGridControl As GridControl = MyGridView.GridControl
-            oGridControl.DataSource = oMyDocDatatable
-            oGridControl.ForceInitialize()
-            Try
-                MyGridView.Columns.Item("DocID").Visible = False
-            Catch ex As Exception
-            End Try
-            Try
-                MyGridView.Columns.Item("FULL_FILENAME").Visible = False
-            Catch ex As Exception
-            End Try
-
-            Dim created, changed As String
-            If USER_LANGUAGE <> "de-DE" Then
-                changed = "Changed"
-                created = "Created"
-            Else
-                changed = "Geändert"
-                created = "Erstellt"
-            End If
-
-            Dim createdColumn = MyGridView.Columns(created)
-            If Not IsNothing(createdColumn) Then
-                createdColumn.DisplayFormat.FormatType = FormatType.DateTime
-                createdColumn.DisplayFormat.FormatString = USER_DATE_FORMAT & " HH:MM:ss"
-            End If
-
-            Dim changedColumn = MyGridView.Columns(changed)
-            If Not IsNothing(changedColumn) Then
-                changedColumn.DisplayFormat.FormatType = FormatType.DateTime
-                changedColumn.DisplayFormat.FormatString = USER_DATE_FORMAT & " HH:MM:ss"
-            End If
-            ' Alle Spalten aus ReadOnly setzen, danach werden alle passenden auf nicht ReadOnly gesetzt
-            For Each column As GridColumn In MyGridView.Columns
-                column.OptionsColumn.AllowEdit = False
-            Next
-            MyGridView.Columns.Item("ICON").MaxWidth = 24
-            MyGridView.Columns.Item("ICON").MinWidth = 24
-            MyGridView.OptionsView.BestFitMaxRowCount = -1
-            MyGridView.BestFitColumns(True)
-        Catch ex As Exception
-            Logger.Error(ex)
-        End Try
-    End Sub
-
-    Private Function Get_DocGrid_Layout_Filename(oIndex As Integer)
-        Dim oFilename As String = String.Format("GridViewDoc_Search-{0}-{1}-UserLayout.xml", oIndex, CurrSearchID)
-        Dim oPath = Path.Combine(Application.UserAppDataPath(), oFilename)
-        Return oPath
-    End Function
-    Private Sub GridControlDocSearch_Leave(sender As Object, e As EventArgs) Handles GridControlDocSearch1.Leave, GridControlDocSearch2.Leave, GridControlDocSearch3.Leave, GridControlDocSearch4.Leave, GridControlDocSearch5.Leave
-        SaveDocGridLayout()
-    End Sub
-
-    Sub SaveDocGridLayout()
-        Dim oXMLPath = Get_DocGrid_Layout_Filename(XtraTabControlDocs.SelectedTabPageIndex)
-        clsWMDocGrid.ActiveDocGrid.SaveLayoutToXml(oXMLPath)
-    End Sub
-
-    Private Sub EigenschaftenDateiToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EigenschaftenDateiToolStripMenuItem.Click
-        Show_File_Properties()
-    End Sub
-    Sub Show_File_Properties()
-        If IsNothing(clsWMDocGrid.DTDocuments) Then
-            MsgBox("Could not read file Parameters!", MsgBoxStyle.Exclamation)
-            Exit Sub
-        End If
-
-        Cursor = Cursors.WaitCursor
-        For Each oRow As DataRow In clsWMDocGrid.DTDocuments.Rows
-            Dim oWindows As New ClassWindowsAPI(LogConfig)
-            oWindows.ShowFileProperties(oRow.Item("DOC_PATH"))
-        Next
-        Cursor = Cursors.Default
-    End Sub
-
-    Private Sub DateiÖffnenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DateiÖffnenToolStripMenuItem.Click
-        FileShow()
-    End Sub
-    Sub FileShow()
-        Try
-            If IsNothing(clsWMDocGrid.DTDocuments) Then
-                MsgBox("Could not read fileparameters(5)!", MsgBoxStyle.Exclamation)
-                Exit Sub
-            End If
-            For Each row As DataRow In clsWMDocGrid.DTDocuments.Rows
-                File_SYSOPEN(row.Item("DOC_PATH"), row.Item("DOC_ID"))
-            Next
-        Catch ex As Exception
-
-        End Try
-    End Sub
-    Private Shared Sub File_SYSOPEN(RESULT_DOC_PATH As Object, DocID As String)
-        Try
-            If RESULT_DOC_PATH <> Nothing Then
-                BW_DocPath = RESULT_DOC_PATH
-                BW_DocID = DocID
-
-                Dim BWFileHandler As New BackgroundWorker
-                AddHandler BWFileHandler.DoWork, AddressOf BWFileHandler_DoWork
-                BWFileHandler.RunWorkerAsync()
-            End If
-        Catch ex As Exception
-            MsgBox("Unexpected Error in File_SYSOPEN:" & vbNewLine & ex.Message & vbNewLine & RESULT_DOC_PATH & vbNewLine & "DocID: " & DocID, MsgBoxStyle.Critical)
-            Logger.Error(ex)
-        End Try
-    End Sub
-    Private Shared Sub BWFileHandler_DoWork()
-        Try
-
-            Dim oMyProcess = New Process()
-            Dim oExtension
-            Dim oSql
-            Try
-                'Dim oPSI As New ProcessStartInfo(BW_DocPath)
-                oMyProcess.StartInfo.FileName = BW_DocPath
-                oMyProcess.StartInfo.UseShellExecute = True
-                oMyProcess.StartInfo.RedirectStandardOutput = False
-                oMyProcess.Start()
-
-                'oMyProcess.WaitForExit()
-            Catch ex As Exception
-                Logger.Error(ex)
-                Exit Sub
-            End Try
-
-        Catch ex As Exception
-            Logger.Error(ex)
-
-            Try
-                Process.Start(BW_DocPath)
-            Catch ex1 As Exception
-                Logger.Error(ex)
-
-            End Try
-        End Try
-    End Sub
-    Sub Refresh_DocID(myGrid As GridView)
-        Try
-            _activeGridView = myGrid
-            clsWMDocGrid.ActiveDocGrid = myGrid
-            clsWMDocGrid.ActiveDocGrid.EndSelection()
-            clsWMDocGrid.GetDocItems()
-            Try
-                ContextMenuStripWMFile.Close()
-            Catch ex As Exception
-
-            End Try
-
-            If ToolStripDropDownButtonFile.Visible = False Then
-                ToolStripDropDownButtonFile.Visible = True
-            End If
-            If clsWMDocGrid.SELECTED_DOC_ID <> 0 Then
-                Dim msg = "Doc-ID: " & clsWMDocGrid.SELECTED_DOC_ID.ToString
-                tslblDocID.Text = msg
-                ToolStripDropDownButtonFile.Enabled = True
-                Dim frmCollection As New FormCollection()
-                frmCollection = Application.OpenForms()
-                Try
-                    If frmCollection.Item("frmDocView").IsHandleCreated Then
-                        'MsgBox("Yes Opened")
-                        _frmDocView.Load_File_from_Path(clsWMDocGrid.SELECTED_DOC_PATH)
-                    Else
-                        Dim f As New frmDocView
-                        With f
-                            .Show()
-                            .Load_File_from_Path(clsWMDocGrid.SELECTED_DOC_PATH)
-
-                        End With
-                    End If
-                Catch ex As Exception
-                    If ConfigManager.Config.LoadDocumentView = True Then
-                        Dim newDocView As New frmDocView
-                        With newDocView
-                            .Show()
-                            .Load_File_from_Path(clsWMDocGrid.SELECTED_DOC_PATH)
-                        End With
-                        _frmDocView = newDocView
-                        ToolStripButtonDocView.Checked = True
-                    Else
-                        ToolStripButtonDocView.Checked = False
-                    End If
-                End Try
-                BringToFront()
-            Else
-                tslblDocID.Text = "DocRow not selected"
-                ToolStripDropDownButtonFile.Enabled = False
-            End If
-        Catch ex As Exception
-            Logger.Error(ex)
-        End Try
-
-    End Sub
-    Private Sub GridViewDocSearch_FocusedRowChanged(sender As GridView, e As Views.Base.FocusedRowChangedEventArgs) Handles GridViewDocSearch1.FocusedRowChanged, GridViewDocSearch2.FocusedRowChanged, GridViewDocSearch3.FocusedRowChanged, GridViewDocSearch4.FocusedRowChanged, GridViewDocSearch5.FocusedRowChanged
-        _activeGridView = sender
-        Refresh_DocID(sender)
-    End Sub
-
-    Private Sub GridViewDocSearch_ColumnWidthChanged(sender As GridView, e As Views.Base.ColumnEventArgs) Handles GridViewDocSearch1.ColumnWidthChanged, GridViewDocSearch2.ColumnWidthChanged, GridViewDocSearch3.ColumnWidthChanged, GridViewDocSearch4.ColumnWidthChanged, GridViewDocSearch5.ColumnWidthChanged
-        _activeGridView = sender
-        SaveDocGridLayout()
-    End Sub
-
-    Private Sub GridControlDocSearch1_DoubleClick(sender As GridControl, e As EventArgs) Handles GridControlDocSearch1.DoubleClick, GridControlDocSearch2.DoubleClick, GridControlDocSearch3.DoubleClick, GridControlDocSearch4.DoubleClick, GridControlDocSearch5.DoubleClick
-        Refresh_DocID(sender.DefaultView)
-        FileShow()
-    End Sub
-
-    Private Sub ÖffnenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ÖffnenToolStripMenuItem.Click
-        FileShow()
-    End Sub
-
-    Private Sub EigenschaftenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EigenschaftenToolStripMenuItem.Click
-        Show_File_Properties()
-    End Sub
-
-    Private Sub ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem1.Click
-        ReLoad_Active_DocTab()
-    End Sub
-
-    Private Sub ToolStripMenuItem2_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem2.Click
-        Set_DoclayoutBack()
-    End Sub
-    Sub Set_DoclayoutBack()
-        Dim oXMLPath = Get_DocGrid_Layout_Filename(XtraTabControlDocs.SelectedTabPageIndex)
-        Try
-            If File.Exists(oXMLPath) Then
-                File.Delete(oXMLPath)
-                ReLoad_Active_DocTab()
-                tslblState.Text = "Layout has been set back!"
-            Else
-                tslblState.Text = ""
-            End If
-        Catch ex As Exception
-            tslblState.Text = ""
-        End Try
-    End Sub
-
-    Sub ReLoad_Active_DocTab()
-        Try
-            Dim oTabIndex = XtraTabControlDocs.SelectedTabPageIndex
-            Dim oConID = DTDocSearchDefinition.Rows(oTabIndex).Item("CONN_ID")
-            Dim oCommand = DTDocSearchDefinition.Rows(oTabIndex).Item("SQL_COMMAND")
-            Dim oProfID = DTDocSearchDefinition.Rows(oTabIndex).Item("PROFILE_ID")
-            Dim oTabTitle = DTDocSearchDefinition.Rows(oTabIndex).Item("TAB_TITLE")
-            Dim oDatatable As DataTable
-
-            oCommand = clsPatterns.ReplaceAllValues(oCommand, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_EMAIL, USER_ID, oProfID)
-            oDatatable = Database.GetDatatable(oCommand)
-
-            RefreshTabDoc(oProfID, oDatatable, oTabIndex, oTabTitle)
-        Catch ex As Exception
-            Logger.Error(ex)
-            MsgBox($"Error while reloading tab data: " & vbNewLine & ex.Message)
-        End Try
-    End Sub
-
-    Private Sub XtraTabControlDocs_SelectedPageChanged(sender As Object, e As TabPageChangedEventArgs) Handles XtraTabControlDocs.SelectedPageChanged
-        Try
-            If IsNothing(DTDocSearchDefinition) Then
-                Exit Sub
-            End If
-
-            Dim oSearchDefinitionRow = DTDocSearchDefinition.Rows(XtraTabControlDocs.SelectedTabPageIndex)
-            Dim oConID = oSearchDefinitionRow.Item("CONN_ID")
-            Dim oCommand = oSearchDefinitionRow.Item("SQL_COMMAND")
-            Dim oProfileID = oSearchDefinitionRow.Item("PROFILE_ID")
-            Dim oTabIndex = oSearchDefinitionRow.Item("TAB_INDEX")
-            Dim oTabCaption = oSearchDefinitionRow.Item("TAB_TITLE")
-            Dim oDatatable As DataTable
-
-            oCommand = clsPatterns.ReplaceAllValues(oCommand, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_EMAIL, USER_ID, oProfileID)
-            oDatatable = Database.GetDatatable(oCommand)
-
-            RefreshTabDoc(oProfileID, oDatatable, oTabIndex, oTabCaption)
-        Catch ex As Exception
-            Logger.Error(ex)
-            MsgBox("Error while loading tab data: " & vbNewLine & ex.Message)
-        End Try
-    End Sub
-
-    Private Sub GridControlDocSearch2_DoubleClick(sender As Object, e As EventArgs) Handles GridControlDocSearch2.DoubleClick
-        Refresh_DocID(GridViewDocSearch2)
-        FileShow()
-    End Sub
-    Private Sub GridControlDocSearch3_DoubleClick(sender As Object, e As EventArgs) Handles GridControlDocSearch3.DoubleClick
-        Refresh_DocID(GridViewDocSearch3)
-        FileShow()
-    End Sub
-    Private Sub GridControlDocSearch4_DoubleClick(sender As Object, e As EventArgs) Handles GridControlDocSearch4.DoubleClick
-        Refresh_DocID(GridViewDocSearch4)
-        FileShow()
-    End Sub
-    Private Sub GridControlDocSearch5_DoubleClick(sender As Object, e As EventArgs) Handles GridControlDocSearch5.DoubleClick
-        Refresh_DocID(GridViewDocSearch5)
-        FileShow()
-    End Sub
-
-    Private Sub OrdnerÖffnenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles OrdnerÖffnenToolStripMenuItem.Click
-        Open_Folder()
-    End Sub
-    Sub Open_Folder()
-        Dim oFilepath = Path.GetDirectoryName(clsWMDocGrid.SELECTED_DOC_PATH)
-        If Directory.Exists(oFilepath) = True Then
-            Process.Start(oFilepath)
-        Else
-            MsgBox("Folder '" & oFilepath & "' not existing or accessible!", MsgBoxStyle.Exclamation)
-        End If
-    End Sub
-
-    Private Sub ToolStripButtonDocView_Click(sender As Object, e As EventArgs) Handles ToolStripButtonDocView.Click
-        If ConfigManager.Config.LoadDocumentView = False Then
-            Dim newDocView As New frmDocView
-            With newDocView
-                .Show()
-                .Load_File_from_Path(clsWMDocGrid.SELECTED_DOC_PATH)
-            End With
-            _frmDocView = newDocView
-            ToolStripButtonDocView.Checked = True
-            ConfigManager.Config.LoadDocumentView = True
-        Else
-            ToolStripButtonDocView.Checked = False
-            ConfigManager.Config.LoadDocumentView = False
-            Try
-                _frmDocView.Close()
-            Catch ex As Exception
-
-            End Try
-        End If
-        ConfigManager.Save()
-    End Sub
-
-    Private Sub ToolStripButtonDocView_CheckedChanged(sender As Object, e As EventArgs) Handles ToolStripButtonDocView.CheckedChanged
-        If ToolStripButtonDocView.Checked Then
-            ToolStripButtonDocView.Text = "Datei Vorschau (Aktiv)"
-        Else
-            ToolStripButtonDocView.Text = "Datei Vorschau (Inaktiv)"
-        End If
-    End Sub
-
-    Private Sub frmResultDoc_Shown(sender As Object, e As EventArgs) Handles Me.Shown
-        BringToFront()
-        CurrSearchOpen = True
-    End Sub
-
-    Private Sub btnBackToMatchForm_Click(sender As Object, e As EventArgs) Handles btnBackToMatchForm.Click
-        ShouldReturnToMatchForm = True
-        Close()
-    End Sub
-
-    Private Sub GridViewDocSearch1_ColumnFilterChanged(sender As Object, e As EventArgs) Handles GridViewDocSearch1.ColumnFilterChanged
-        Filter_EventTab(GridViewDocSearch1.RowCount)
-    End Sub
-    Private Sub GridViewDocSearch2_ColumnFilterChanged(sender As Object, e As EventArgs) Handles GridViewDocSearch2.ColumnFilterChanged
-        Filter_EventTab(GridViewDocSearch2.RowCount)
-    End Sub
-    Private Sub GridViewDocSearch3_ColumnFilterChanged(sender As Object, e As EventArgs) Handles GridViewDocSearch3.ColumnFilterChanged
-        Filter_EventTab(GridViewDocSearch3.RowCount)
-    End Sub
-    Private Sub GridViewDocSearch4_ColumnFilterChanged(sender As Object, e As EventArgs) Handles GridViewDocSearch4.ColumnFilterChanged
-        Filter_EventTab(GridViewDocSearch4.RowCount)
-    End Sub
-    Private Sub GridViewDocSearch5_ColumnFilterChanged(sender As Object, e As EventArgs) Handles GridViewDocSearch5.ColumnFilterChanged
-        Filter_EventTab(GridViewDocSearch5.RowCount)
-    End Sub
-End Class

app/DD_Clipboard_Searcher/frmResultSQL.Designer.vb

@@ -1,430 +0,0 @@
-<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
-Partial Class frmResultSQL
-    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 GridLevelNode1 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode()
-        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmResultSQL))
-        Me.StatusStrip1 = New System.Windows.Forms.StatusStrip()
-        Me.tslblDocID = New System.Windows.Forms.ToolStripStatusLabel()
-        Me.tslblState = New System.Windows.Forms.ToolStripStatusLabel()
-        Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
-        Me.btnBackToMatchForm = New System.Windows.Forms.ToolStripButton()
-        Me.XtraTabControlData = New DevExpress.XtraTab.XtraTabControl()
-        Me.XtraTabPageDoc1 = New DevExpress.XtraTab.XtraTabPage()
-        Me.GridControlDocSearch1 = New DevExpress.XtraGrid.GridControl()
-        Me.GridViewDataSearch1 = New DevExpress.XtraGrid.Views.Grid.GridView()
-        Me.XtraTabPageDoc2 = New DevExpress.XtraTab.XtraTabPage()
-        Me.GridControlDocSearch2 = New DevExpress.XtraGrid.GridControl()
-        Me.GridViewDataSearch2 = New DevExpress.XtraGrid.Views.Grid.GridView()
-        Me.XtraTabPageDoc3 = New DevExpress.XtraTab.XtraTabPage()
-        Me.GridControlDocSearch3 = New DevExpress.XtraGrid.GridControl()
-        Me.GridViewDataSearch3 = New DevExpress.XtraGrid.Views.Grid.GridView()
-        Me.XtraTabPageDoc4 = New DevExpress.XtraTab.XtraTabPage()
-        Me.GridControlDocSearch4 = New DevExpress.XtraGrid.GridControl()
-        Me.GridViewDataSearch4 = New DevExpress.XtraGrid.Views.Grid.GridView()
-        Me.XtraTabPageDoc5 = New DevExpress.XtraTab.XtraTabPage()
-        Me.GridControlDocSearch5 = New DevExpress.XtraGrid.GridControl()
-        Me.GridViewDataSearch5 = New DevExpress.XtraGrid.Views.Grid.GridView()
-        Me.ContextMenuStripWMFile = New System.Windows.Forms.ContextMenuStrip(Me.components)
-        Me.EigenschaftenDateiToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
-        Me.DateiÖffnenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
-        Me.OrdnerÖffnenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
-        Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
-        Me.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
-        Me.ToolStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem()
-        Me.StatusStrip1.SuspendLayout()
-        Me.ToolStrip1.SuspendLayout()
-        CType(Me.XtraTabControlData, System.ComponentModel.ISupportInitialize).BeginInit()
-        Me.XtraTabControlData.SuspendLayout()
-        Me.XtraTabPageDoc1.SuspendLayout()
-        CType(Me.GridControlDocSearch1, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.GridViewDataSearch1, System.ComponentModel.ISupportInitialize).BeginInit()
-        Me.XtraTabPageDoc2.SuspendLayout()
-        CType(Me.GridControlDocSearch2, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.GridViewDataSearch2, System.ComponentModel.ISupportInitialize).BeginInit()
-        Me.XtraTabPageDoc3.SuspendLayout()
-        CType(Me.GridControlDocSearch3, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.GridViewDataSearch3, System.ComponentModel.ISupportInitialize).BeginInit()
-        Me.XtraTabPageDoc4.SuspendLayout()
-        CType(Me.GridControlDocSearch4, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.GridViewDataSearch4, System.ComponentModel.ISupportInitialize).BeginInit()
-        Me.XtraTabPageDoc5.SuspendLayout()
-        CType(Me.GridControlDocSearch5, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.GridViewDataSearch5, System.ComponentModel.ISupportInitialize).BeginInit()
-        Me.ContextMenuStripWMFile.SuspendLayout()
-        Me.SuspendLayout()
-        '
-        'StatusStrip1
-        '
-        Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tslblDocID, Me.tslblState})
-        Me.StatusStrip1.Location = New System.Drawing.Point(0, 532)
-        Me.StatusStrip1.Name = "StatusStrip1"
-        Me.StatusStrip1.Padding = New System.Windows.Forms.Padding(1, 0, 16, 0)
-        Me.StatusStrip1.Size = New System.Drawing.Size(933, 22)
-        Me.StatusStrip1.TabIndex = 0
-        Me.StatusStrip1.Text = "StatusStrip1"
-        '
-        'tslblDocID
-        '
-        Me.tslblDocID.Name = "tslblDocID"
-        Me.tslblDocID.Size = New System.Drawing.Size(0, 17)
-        '
-        'tslblState
-        '
-        Me.tslblState.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.StatusAnnotations_Alert_32xMD_color
-        Me.tslblState.Name = "tslblState"
-        Me.tslblState.Size = New System.Drawing.Size(107, 17)
-        Me.tslblState.Text = "No action so far"
-        '
-        'ToolStrip1
-        '
-        Me.ToolStrip1.GripStyle = System.Windows.Forms.ToolStripGripStyle.Hidden
-        Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.btnBackToMatchForm})
-        Me.ToolStrip1.Location = New System.Drawing.Point(0, 0)
-        Me.ToolStrip1.Name = "ToolStrip1"
-        Me.ToolStrip1.Size = New System.Drawing.Size(933, 25)
-        Me.ToolStrip1.TabIndex = 1
-        Me.ToolStrip1.Text = "ToolStrip1"
-        '
-        'btnBackToMatchForm
-        '
-        Me.btnBackToMatchForm.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.control_start_blue
-        Me.btnBackToMatchForm.ImageTransparentColor = System.Drawing.Color.Magenta
-        Me.btnBackToMatchForm.Name = "btnBackToMatchForm"
-        Me.btnBackToMatchForm.Size = New System.Drawing.Size(157, 22)
-        Me.btnBackToMatchForm.Text = "Zurück zur Profilauswahl"
-        '
-        'XtraTabControlData
-        '
-        Me.XtraTabControlData.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.XtraTabControlData.Location = New System.Drawing.Point(0, 25)
-        Me.XtraTabControlData.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
-        Me.XtraTabControlData.Name = "XtraTabControlData"
-        Me.XtraTabControlData.SelectedTabPage = Me.XtraTabPageDoc1
-        Me.XtraTabControlData.Size = New System.Drawing.Size(933, 507)
-        Me.XtraTabControlData.TabIndex = 5
-        Me.XtraTabControlData.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPageDoc1, Me.XtraTabPageDoc2, Me.XtraTabPageDoc3, Me.XtraTabPageDoc4, Me.XtraTabPageDoc5})
-        '
-        'XtraTabPageDoc1
-        '
-        Me.XtraTabPageDoc1.Controls.Add(Me.GridControlDocSearch1)
-        Me.XtraTabPageDoc1.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
-        Me.XtraTabPageDoc1.Name = "XtraTabPageDoc1"
-        Me.XtraTabPageDoc1.Size = New System.Drawing.Size(931, 482)
-        Me.XtraTabPageDoc1.Text = "XtraTabPage1"
-        '
-        'GridControlDocSearch1
-        '
-        Me.GridControlDocSearch1.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.GridControlDocSearch1.EmbeddedNavigator.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
-        GridLevelNode1.RelationName = "Level1"
-        Me.GridControlDocSearch1.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode1})
-        Me.GridControlDocSearch1.Location = New System.Drawing.Point(0, 0)
-        Me.GridControlDocSearch1.MainView = Me.GridViewDataSearch1
-        Me.GridControlDocSearch1.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
-        Me.GridControlDocSearch1.Name = "GridControlDocSearch1"
-        Me.GridControlDocSearch1.Size = New System.Drawing.Size(931, 482)
-        Me.GridControlDocSearch1.TabIndex = 0
-        Me.GridControlDocSearch1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewDataSearch1})
-        '
-        'GridViewDataSearch1
-        '
-        Me.GridViewDataSearch1.Appearance.EvenRow.BackColor = System.Drawing.Color.Aqua
-        Me.GridViewDataSearch1.Appearance.EvenRow.Options.UseBackColor = True
-        Me.GridViewDataSearch1.Appearance.SelectedRow.BackColor = System.Drawing.Color.Lime
-        Me.GridViewDataSearch1.Appearance.SelectedRow.Options.UseBackColor = True
-        Me.GridViewDataSearch1.DetailHeight = 431
-        Me.GridViewDataSearch1.GridControl = Me.GridControlDocSearch1
-        Me.GridViewDataSearch1.Name = "GridViewDataSearch1"
-        Me.GridViewDataSearch1.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
-        Me.GridViewDataSearch1.OptionsFind.AlwaysVisible = True
-        Me.GridViewDataSearch1.OptionsSelection.EnableAppearanceFocusedCell = False
-        Me.GridViewDataSearch1.OptionsSelection.EnableAppearanceHideSelection = False
-        Me.GridViewDataSearch1.OptionsView.EnableAppearanceEvenRow = True
-        Me.GridViewDataSearch1.OptionsView.ShowAutoFilterRow = True
-        '
-        'XtraTabPageDoc2
-        '
-        Me.XtraTabPageDoc2.Controls.Add(Me.GridControlDocSearch2)
-        Me.XtraTabPageDoc2.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
-        Me.XtraTabPageDoc2.Name = "XtraTabPageDoc2"
-        Me.XtraTabPageDoc2.PageVisible = False
-        Me.XtraTabPageDoc2.Size = New System.Drawing.Size(927, 479)
-        Me.XtraTabPageDoc2.Text = "XtraTabPage2"
-        '
-        'GridControlDocSearch2
-        '
-        Me.GridControlDocSearch2.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.GridControlDocSearch2.EmbeddedNavigator.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
-        Me.GridControlDocSearch2.Location = New System.Drawing.Point(0, 0)
-        Me.GridControlDocSearch2.MainView = Me.GridViewDataSearch2
-        Me.GridControlDocSearch2.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
-        Me.GridControlDocSearch2.Name = "GridControlDocSearch2"
-        Me.GridControlDocSearch2.Size = New System.Drawing.Size(927, 479)
-        Me.GridControlDocSearch2.TabIndex = 1
-        Me.GridControlDocSearch2.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewDataSearch2})
-        '
-        'GridViewDataSearch2
-        '
-        Me.GridViewDataSearch2.Appearance.EvenRow.BackColor = System.Drawing.Color.Aqua
-        Me.GridViewDataSearch2.Appearance.EvenRow.Options.UseBackColor = True
-        Me.GridViewDataSearch2.Appearance.SelectedRow.BackColor = System.Drawing.Color.Lime
-        Me.GridViewDataSearch2.Appearance.SelectedRow.Options.UseBackColor = True
-        Me.GridViewDataSearch2.DetailHeight = 431
-        Me.GridViewDataSearch2.GridControl = Me.GridControlDocSearch2
-        Me.GridViewDataSearch2.Name = "GridViewDataSearch2"
-        Me.GridViewDataSearch2.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
-        Me.GridViewDataSearch2.OptionsFind.AlwaysVisible = True
-        Me.GridViewDataSearch2.OptionsSelection.EnableAppearanceFocusedCell = False
-        Me.GridViewDataSearch2.OptionsSelection.EnableAppearanceHideSelection = False
-        Me.GridViewDataSearch2.OptionsView.EnableAppearanceEvenRow = True
-        Me.GridViewDataSearch2.OptionsView.ShowAutoFilterRow = True
-        '
-        'XtraTabPageDoc3
-        '
-        Me.XtraTabPageDoc3.Controls.Add(Me.GridControlDocSearch3)
-        Me.XtraTabPageDoc3.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
-        Me.XtraTabPageDoc3.Name = "XtraTabPageDoc3"
-        Me.XtraTabPageDoc3.PageVisible = False
-        Me.XtraTabPageDoc3.Size = New System.Drawing.Size(927, 479)
-        Me.XtraTabPageDoc3.Text = "XtraTabPage1"
-        '
-        'GridControlDocSearch3
-        '
-        Me.GridControlDocSearch3.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.GridControlDocSearch3.EmbeddedNavigator.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
-        Me.GridControlDocSearch3.Location = New System.Drawing.Point(0, 0)
-        Me.GridControlDocSearch3.MainView = Me.GridViewDataSearch3
-        Me.GridControlDocSearch3.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
-        Me.GridControlDocSearch3.Name = "GridControlDocSearch3"
-        Me.GridControlDocSearch3.Size = New System.Drawing.Size(927, 479)
-        Me.GridControlDocSearch3.TabIndex = 1
-        Me.GridControlDocSearch3.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewDataSearch3})
-        '
-        'GridViewDataSearch3
-        '
-        Me.GridViewDataSearch3.Appearance.EvenRow.BackColor = System.Drawing.Color.Aqua
-        Me.GridViewDataSearch3.Appearance.EvenRow.Options.UseBackColor = True
-        Me.GridViewDataSearch3.Appearance.SelectedRow.BackColor = System.Drawing.Color.Lime
-        Me.GridViewDataSearch3.Appearance.SelectedRow.Options.UseBackColor = True
-        Me.GridViewDataSearch3.DetailHeight = 431
-        Me.GridViewDataSearch3.GridControl = Me.GridControlDocSearch3
-        Me.GridViewDataSearch3.Name = "GridViewDataSearch3"
-        Me.GridViewDataSearch3.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
-        Me.GridViewDataSearch3.OptionsFind.AlwaysVisible = True
-        Me.GridViewDataSearch3.OptionsSelection.EnableAppearanceFocusedCell = False
-        Me.GridViewDataSearch3.OptionsSelection.EnableAppearanceHideSelection = False
-        Me.GridViewDataSearch3.OptionsView.EnableAppearanceEvenRow = True
-        Me.GridViewDataSearch3.OptionsView.ShowAutoFilterRow = True
-        '
-        'XtraTabPageDoc4
-        '
-        Me.XtraTabPageDoc4.Controls.Add(Me.GridControlDocSearch4)
-        Me.XtraTabPageDoc4.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
-        Me.XtraTabPageDoc4.Name = "XtraTabPageDoc4"
-        Me.XtraTabPageDoc4.PageVisible = False
-        Me.XtraTabPageDoc4.Size = New System.Drawing.Size(927, 479)
-        Me.XtraTabPageDoc4.Text = "XtraTabPage2"
-        '
-        'GridControlDocSearch4
-        '
-        Me.GridControlDocSearch4.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.GridControlDocSearch4.EmbeddedNavigator.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
-        Me.GridControlDocSearch4.Location = New System.Drawing.Point(0, 0)
-        Me.GridControlDocSearch4.MainView = Me.GridViewDataSearch4
-        Me.GridControlDocSearch4.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
-        Me.GridControlDocSearch4.Name = "GridControlDocSearch4"
-        Me.GridControlDocSearch4.Size = New System.Drawing.Size(927, 479)
-        Me.GridControlDocSearch4.TabIndex = 1
-        Me.GridControlDocSearch4.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewDataSearch4})
-        '
-        'GridViewDataSearch4
-        '
-        Me.GridViewDataSearch4.Appearance.EvenRow.BackColor = System.Drawing.Color.Aqua
-        Me.GridViewDataSearch4.Appearance.EvenRow.Options.UseBackColor = True
-        Me.GridViewDataSearch4.Appearance.SelectedRow.BackColor = System.Drawing.Color.Lime
-        Me.GridViewDataSearch4.Appearance.SelectedRow.Options.UseBackColor = True
-        Me.GridViewDataSearch4.DetailHeight = 431
-        Me.GridViewDataSearch4.GridControl = Me.GridControlDocSearch4
-        Me.GridViewDataSearch4.Name = "GridViewDataSearch4"
-        Me.GridViewDataSearch4.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
-        Me.GridViewDataSearch4.OptionsFind.AlwaysVisible = True
-        Me.GridViewDataSearch4.OptionsSelection.EnableAppearanceFocusedCell = False
-        Me.GridViewDataSearch4.OptionsSelection.EnableAppearanceHideSelection = False
-        Me.GridViewDataSearch4.OptionsView.EnableAppearanceEvenRow = True
-        Me.GridViewDataSearch4.OptionsView.ShowAutoFilterRow = True
-        '
-        'XtraTabPageDoc5
-        '
-        Me.XtraTabPageDoc5.Controls.Add(Me.GridControlDocSearch5)
-        Me.XtraTabPageDoc5.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
-        Me.XtraTabPageDoc5.Name = "XtraTabPageDoc5"
-        Me.XtraTabPageDoc5.PageVisible = False
-        Me.XtraTabPageDoc5.Size = New System.Drawing.Size(927, 479)
-        Me.XtraTabPageDoc5.Text = "XtraTabPage3"
-        '
-        'GridControlDocSearch5
-        '
-        Me.GridControlDocSearch5.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.GridControlDocSearch5.EmbeddedNavigator.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
-        Me.GridControlDocSearch5.Location = New System.Drawing.Point(0, 0)
-        Me.GridControlDocSearch5.MainView = Me.GridViewDataSearch5
-        Me.GridControlDocSearch5.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
-        Me.GridControlDocSearch5.Name = "GridControlDocSearch5"
-        Me.GridControlDocSearch5.Size = New System.Drawing.Size(927, 479)
-        Me.GridControlDocSearch5.TabIndex = 1
-        Me.GridControlDocSearch5.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewDataSearch5})
-        '
-        'GridViewDataSearch5
-        '
-        Me.GridViewDataSearch5.Appearance.EvenRow.BackColor = System.Drawing.Color.Aqua
-        Me.GridViewDataSearch5.Appearance.EvenRow.Options.UseBackColor = True
-        Me.GridViewDataSearch5.Appearance.SelectedRow.BackColor = System.Drawing.Color.Lime
-        Me.GridViewDataSearch5.Appearance.SelectedRow.Options.UseBackColor = True
-        Me.GridViewDataSearch5.DetailHeight = 431
-        Me.GridViewDataSearch5.GridControl = Me.GridControlDocSearch5
-        Me.GridViewDataSearch5.Name = "GridViewDataSearch5"
-        Me.GridViewDataSearch5.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
-        Me.GridViewDataSearch5.OptionsFind.AlwaysVisible = True
-        Me.GridViewDataSearch5.OptionsSelection.EnableAppearanceFocusedCell = False
-        Me.GridViewDataSearch5.OptionsSelection.EnableAppearanceHideSelection = False
-        Me.GridViewDataSearch5.OptionsView.EnableAppearanceEvenRow = True
-        Me.GridViewDataSearch5.OptionsView.ShowAutoFilterRow = True
-        '
-        'ContextMenuStripWMFile
-        '
-        Me.ContextMenuStripWMFile.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.EigenschaftenDateiToolStripMenuItem, Me.DateiÖffnenToolStripMenuItem, Me.OrdnerÖffnenToolStripMenuItem, Me.ToolStripSeparator1, Me.ToolStripMenuItem1, Me.ToolStripMenuItem2})
-        Me.ContextMenuStripWMFile.Name = "ContextMenuStripWMFile"
-        Me.ContextMenuStripWMFile.Size = New System.Drawing.Size(182, 120)
-        '
-        'EigenschaftenDateiToolStripMenuItem
-        '
-        Me.EigenschaftenDateiToolStripMenuItem.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.properties_16xMD
-        Me.EigenschaftenDateiToolStripMenuItem.Name = "EigenschaftenDateiToolStripMenuItem"
-        Me.EigenschaftenDateiToolStripMenuItem.Size = New System.Drawing.Size(181, 22)
-        Me.EigenschaftenDateiToolStripMenuItem.Text = "Eigenschaften Datei"
-        '
-        'DateiÖffnenToolStripMenuItem
-        '
-        Me.DateiÖffnenToolStripMenuItem.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.OpenFile
-        Me.DateiÖffnenToolStripMenuItem.Name = "DateiÖffnenToolStripMenuItem"
-        Me.DateiÖffnenToolStripMenuItem.Size = New System.Drawing.Size(181, 22)
-        Me.DateiÖffnenToolStripMenuItem.Text = "Datei öffnen"
-        '
-        'OrdnerÖffnenToolStripMenuItem
-        '
-        Me.OrdnerÖffnenToolStripMenuItem.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.folder_Open_16xLG
-        Me.OrdnerÖffnenToolStripMenuItem.Name = "OrdnerÖffnenToolStripMenuItem"
-        Me.OrdnerÖffnenToolStripMenuItem.Size = New System.Drawing.Size(181, 22)
-        Me.OrdnerÖffnenToolStripMenuItem.Text = "Ordner öffnen"
-        '
-        'ToolStripSeparator1
-        '
-        Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
-        Me.ToolStripSeparator1.Size = New System.Drawing.Size(178, 6)
-        '
-        'ToolStripMenuItem1
-        '
-        Me.ToolStripMenuItem1.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.refresh_16xLG
-        Me.ToolStripMenuItem1.Name = "ToolStripMenuItem1"
-        Me.ToolStripMenuItem1.Size = New System.Drawing.Size(181, 22)
-        Me.ToolStripMenuItem1.Text = "Aktualisieren"
-        '
-        'ToolStripMenuItem2
-        '
-        Me.ToolStripMenuItem2.Name = "ToolStripMenuItem2"
-        Me.ToolStripMenuItem2.Size = New System.Drawing.Size(181, 22)
-        Me.ToolStripMenuItem2.Text = "Layout zurücksetzen"
-        '
-        'frmResultSQL
-        '
-        Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
-        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(933, 554)
-        Me.Controls.Add(Me.XtraTabControlData)
-        Me.Controls.Add(Me.ToolStrip1)
-        Me.Controls.Add(Me.StatusStrip1)
-        Me.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
-        Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
-        Me.MaximizeBox = False
-        Me.MinimizeBox = False
-        Me.Name = "frmResultSQL"
-        Me.Text = "Clipboard-Watcher SQL-Result"
-        Me.StatusStrip1.ResumeLayout(False)
-        Me.StatusStrip1.PerformLayout()
-        Me.ToolStrip1.ResumeLayout(False)
-        Me.ToolStrip1.PerformLayout()
-        CType(Me.XtraTabControlData, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.XtraTabControlData.ResumeLayout(False)
-        Me.XtraTabPageDoc1.ResumeLayout(False)
-        CType(Me.GridControlDocSearch1, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.GridViewDataSearch1, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.XtraTabPageDoc2.ResumeLayout(False)
-        CType(Me.GridControlDocSearch2, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.GridViewDataSearch2, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.XtraTabPageDoc3.ResumeLayout(False)
-        CType(Me.GridControlDocSearch3, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.GridViewDataSearch3, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.XtraTabPageDoc4.ResumeLayout(False)
-        CType(Me.GridControlDocSearch4, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.GridViewDataSearch4, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.XtraTabPageDoc5.ResumeLayout(False)
-        CType(Me.GridControlDocSearch5, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.GridViewDataSearch5, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.ContextMenuStripWMFile.ResumeLayout(False)
-        Me.ResumeLayout(False)
-        Me.PerformLayout()
-
-    End Sub
-
-    Friend WithEvents StatusStrip1 As StatusStrip
-    Friend WithEvents ToolStrip1 As ToolStrip
-    Friend WithEvents XtraTabControlData As DevExpress.XtraTab.XtraTabControl
-    Friend WithEvents XtraTabPageDoc1 As DevExpress.XtraTab.XtraTabPage
-    Friend WithEvents GridControlDocSearch1 As DevExpress.XtraGrid.GridControl
-    Friend WithEvents GridViewDataSearch1 As DevExpress.XtraGrid.Views.Grid.GridView
-    Friend WithEvents XtraTabPageDoc2 As DevExpress.XtraTab.XtraTabPage
-    Friend WithEvents GridControlDocSearch2 As DevExpress.XtraGrid.GridControl
-    Friend WithEvents GridViewDataSearch2 As DevExpress.XtraGrid.Views.Grid.GridView
-    Friend WithEvents XtraTabPageDoc3 As DevExpress.XtraTab.XtraTabPage
-    Friend WithEvents GridControlDocSearch3 As DevExpress.XtraGrid.GridControl
-    Friend WithEvents GridViewDataSearch3 As DevExpress.XtraGrid.Views.Grid.GridView
-    Friend WithEvents XtraTabPageDoc4 As DevExpress.XtraTab.XtraTabPage
-    Friend WithEvents GridControlDocSearch4 As DevExpress.XtraGrid.GridControl
-    Friend WithEvents GridViewDataSearch4 As DevExpress.XtraGrid.Views.Grid.GridView
-    Friend WithEvents XtraTabPageDoc5 As DevExpress.XtraTab.XtraTabPage
-    Friend WithEvents GridControlDocSearch5 As DevExpress.XtraGrid.GridControl
-    Friend WithEvents GridViewDataSearch5 As DevExpress.XtraGrid.Views.Grid.GridView
-    Friend WithEvents ContextMenuStripWMFile As ContextMenuStrip
-    Friend WithEvents EigenschaftenDateiToolStripMenuItem As ToolStripMenuItem
-    Friend WithEvents DateiÖffnenToolStripMenuItem As ToolStripMenuItem
-    Friend WithEvents ToolStripSeparator1 As ToolStripSeparator
-    Friend WithEvents ToolStripMenuItem1 As ToolStripMenuItem
-    Friend WithEvents ToolStripMenuItem2 As ToolStripMenuItem
-    Friend WithEvents tslblDocID As ToolStripStatusLabel
-    Friend WithEvents tslblState As ToolStripStatusLabel
-    Friend WithEvents OrdnerÖffnenToolStripMenuItem As ToolStripMenuItem
-    Friend WithEvents btnBackToMatchForm As ToolStripButton
-End Class

app/DD_Clipboard_Searcher/frmResultSQL.vb

@@ -1,238 +0,0 @@
-Imports System.IO
-Imports DevExpress.XtraTab
-Imports DevExpress.XtraGrid
-Imports DevExpress.XtraGrid.Views.Grid
-Imports DevExpress.XtraGrid.Views.Base
-Imports DD_LIB_Standards
-Imports DD_Clipboard_Watcher.ClassProfileFilter
-
-Public Class frmResultSQL
-    Implements IResultForm
-
-    Private Shared BW_DocPath As String
-    Private Shared BW_DocID As Integer
-    Private Shared CurrSearchID As Integer
-    Private DTDataSearchDefinition As DataTable
-    Private _activeGridView As GridView
-    Private _frmProfileMatch As frmProfileMatch
-    Private Current_MatchingProfiles As List(Of ProfileData)
-
-    Public Property ShouldReturnToMatchForm As Boolean = False Implements IResultForm.ShouldReturnToMatchForm
-
-    Private Class SQLSearch
-        Public DataTable As DataTable
-        Public TabIndex As Integer
-        Public TabCaption As String
-        Public ProfileId As Integer
-    End Class
-
-    Public Sub New(ProfileMatchForm As frmProfileMatch, MatchingProfiles As List(Of ProfileData))
-        ' Dieser Aufruf ist für den Designer erforderlich.
-        InitializeComponent()
-
-        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
-        Current_MatchingProfiles = MatchingProfiles
-        _frmProfileMatch = ProfileMatchForm
-    End Sub
-
-    Private Async Sub frmResultSQL_Load(sender As Object, e As EventArgs) Handles Me.Load
-        If Not ConfigManager.Config.ResultDataWindowSize.IsEmpty Then
-            Size = ConfigManager.Config.ResultDataWindowSize
-        End If
-
-        If Not ConfigManager.Config.ResultDataWindowLocation.IsEmpty Then
-            Location = ConfigManager.Config.ResultDataWindowLocation
-        End If
-
-        'Load_Searches()
-
-        GridViewDataSearch1.ShowLoadingPanel()
-
-        Dim oSearches = Await LoadSearchesAsync()
-        If oSearches.Count = 0 Then
-            Me.Close()
-        End If
-        For Each oSearch In oSearches
-            RefreshTabData(oSearch.ProfileId, oSearch.DataTable, oSearch.TabIndex, oSearch.TabCaption)
-        Next
-
-        GridViewDataSearch1.HideLoadingPanel()
-    End Sub
-
-    Private Sub frmResultSQL_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
-        Try
-            ConfigManager.Config.ResultDataWindowSize = Size
-            ConfigManager.Config.ResultDataWindowLocation = Location
-            ConfigManager.Save()
-        Catch ex As Exception
-            Logger.Error(ex)
-            Logger.Info("Error in Save FormLayout: " & ex.Message)
-        End Try
-    End Sub
-
-    Sub RefreshTabData(PROFILE_ID As Integer, DataTable As DataTable, TabIndex As Integer, TabCaption As String)
-        Try
-            Dim myGridControl As GridControl
-            Dim myGridview As GridView
-            Select Case TabIndex
-                Case 0
-                    GridControlDocSearch1.DataSource = Nothing
-                    GridViewDataSearch1.Columns.Clear()
-                    myGridview = GridViewDataSearch1
-                    myGridControl = GridControlDocSearch1
-                Case 1
-                    GridControlDocSearch2.DataSource = Nothing
-                    GridViewDataSearch2.Columns.Clear()
-                    myGridview = GridViewDataSearch2
-                    myGridControl = GridControlDocSearch2
-                Case 2
-                    GridControlDocSearch3.DataSource = Nothing
-                    GridViewDataSearch3.Columns.Clear()
-                    myGridview = GridViewDataSearch3
-                    myGridControl = GridControlDocSearch3
-                Case 3
-                    GridControlDocSearch4.DataSource = Nothing
-                    GridViewDataSearch4.Columns.Clear()
-                    myGridControl = GridControlDocSearch4
-                    myGridview = GridViewDataSearch4
-                Case 4
-                    GridControlDocSearch5.DataSource = Nothing
-                    GridViewDataSearch5.Columns.Clear()
-                    myGridControl = GridControlDocSearch5
-                    myGridview = GridViewDataSearch5
-            End Select
-            myGridControl.ContextMenuStrip = ContextMenuStripWMFile
-            If Not IsNothing(DataTable) Then
-                XtraTabControlData.TabPages(TabIndex).Text = $"{TabCaption} ({DataTable.Rows.Count})"
-                clsWMDocGrid.DTDocuments = DataTable
-                myGridControl.DataSource = DataTable
-                myGridControl.ForceInitialize()
-                Dim oxmlPath As String = ""
-                oxmlPath = Get_Grid_Layout_Filename(XtraTabControlData.SelectedTabPageIndex)
-
-                If File.Exists(oxmlPath) Then
-                    myGridview.RestoreLayoutFromXml(oxmlPath)
-                    myGridview.GuessAutoFilterRowValuesFromFilter()
-                End If
-                tslblState.Text = $"Tab [{TabCaption}] refreshed - {Now}"
-                XtraTabControlData.TabPages(TabIndex).PageVisible = True
-            Else
-                clsWMDocGrid.DTDocuments = Nothing
-            End If
-        Catch ex As Exception
-            Logger.Error(ex)
-        End Try
-    End Sub
-    Private Function Get_Grid_Layout_Filename(oIndex As Integer)
-        Dim oFilename As String = String.Format("GridViewData_Search-{0}-{1}-UserLayout.xml", oIndex, CurrSearchID)
-        Dim oPath = Path.Combine(Application.UserAppDataPath(), oFilename)
-        Return oPath
-    End Function
-
-    Private Sub GridControlDocSearch_Leave(sender As Object, e As EventArgs) Handles GridControlDocSearch1.Leave, GridControlDocSearch2.Leave, GridControlDocSearch3.Leave, GridControlDocSearch4.Leave, GridControlDocSearch5.Leave
-        SaveDocGridLayout()
-    End Sub
-
-    Private Sub GridViewDocSearch1_FocusedRowChanged(sender As GridView, e As FocusedRowChangedEventArgs) Handles GridViewDataSearch1.FocusedRowChanged, GridViewDataSearch2.FocusedRowChanged, GridViewDataSearch3.FocusedRowChanged, GridViewDataSearch4.FocusedRowChanged, GridViewDataSearch5.FocusedRowChanged
-        _activeGridView = sender
-    End Sub
-
-    Private Sub GridViewDocSearch1_ColumnWidthChanged(sender As GridView, e As Views.Base.ColumnEventArgs) Handles GridViewDataSearch1.ColumnWidthChanged, GridViewDataSearch2.ColumnWidthChanged, GridViewDataSearch3.ColumnWidthChanged, GridViewDataSearch4.ColumnWidthChanged, GridViewDataSearch5.ColumnWidthChanged
-        _activeGridView = sender
-        SaveDocGridLayout()
-    End Sub
-
-    Sub SaveDocGridLayout()
-        Dim oXMLPath = Get_Grid_Layout_Filename(XtraTabControlData.SelectedTabPageIndex)
-        _activeGridView.SaveLayoutToXml(oXMLPath)
-    End Sub
-
-    Private Async Function LoadSearchesAsync() As Task(Of List(Of SQLSearch))
-        Return Await Task.Run(AddressOf DoLoadSearches)
-    End Function
-
-    Private Function DoLoadSearches() As List(Of SQLSearch)
-        Dim oMatchingIds = String.Join(",", Current_MatchingProfiles.Select(Function(p) p.Guid).ToArray())
-        Dim oSQL = $"SELECT * FROM TBCW_PROF_DATA_SEARCH WHERE ACTIVE = 1 AND PROFILE_ID in ({oMatchingIds}) ORDER BY TAB_INDEX"
-        Dim oSearchesDataTable = Database.GetDatatable(oSQL)
-        Dim oSearches As New List(Of SQLSearch)
-        Dim oCounter As Integer = 0
-
-        DTDataSearchDefinition = oSearchesDataTable
-
-        For Each oRow As DataRow In oSearchesDataTable.Rows
-            Dim oProfileId As Integer = oRow.Item("PROFILE_ID")
-            Dim oTabTitle As String = oRow.Item("TAB_TITLE")
-
-            oSQL = oRow.Item("SQL_COMMAND")
-            oSQL = clsPatterns.ReplaceAllValues(oSQL, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_EMAIL, USER_ID, oProfileId)
-
-            Dim oDatatable As DataTable = Database.GetDatatable(oSQL)
-            oSearches.Add(New SQLSearch() With {
-                .DataTable = oDatatable,
-                .ProfileId = oProfileId,
-                .TabCaption = oTabTitle,
-                .TabIndex = oCounter
-            })
-
-            oCounter += 1
-        Next
-
-        Return oSearches
-    End Function
-
-    Private Sub MenuItemReload_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem1.Click
-        Reload_Active_DocumentTab()
-    End Sub
-
-    Private Sub MenuItemResetLayout_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem2.Click
-        Reset_Layout()
-    End Sub
-    Sub Reset_Layout()
-        Dim oXMLPath = Get_Grid_Layout_Filename(XtraTabControlData.SelectedTabPageIndex)
-        Try
-            If File.Exists(oXMLPath) Then
-                File.Delete(oXMLPath)
-                Reload_Active_DocumentTab()
-                tslblState.Text = "Layout has been set back!"
-            Else
-                tslblState.Text = ""
-            End If
-        Catch ex As Exception
-            tslblState.Text = ""
-        End Try
-    End Sub
-    Sub Reload_Active_DocumentTab()
-        If IsNothing(DTDataSearchDefinition) Then Exit Sub
-
-        Dim oTabIndex = XtraTabControlData.SelectedTabPageIndex
-        Dim oTabTitle = DTDataSearchDefinition.Rows(oTabIndex).Item("TAB_TITLE")
-        Dim oConID = DTDataSearchDefinition.Rows(oTabIndex).Item("CONN_ID")
-        Dim oCommand = DTDataSearchDefinition.Rows(oTabIndex).Item("SQL_COMMAND")
-        Dim oProfID = DTDataSearchDefinition.Rows(oTabIndex).Item("PROFILE_ID")
-        Dim oDatatable As DataTable
-
-        oCommand = clsPatterns.ReplaceAllValues(oCommand, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_EMAIL, USER_ID, oProfID)
-        oDatatable = Database.GetDatatable(oCommand)
-
-
-        RefreshTabData(oProfID, oDatatable, oTabIndex, oTabTitle)
-    End Sub
-
-    Private Sub XtraTabControlDocs_SelectedPageChanged(sender As Object, e As TabPageChangedEventArgs) Handles XtraTabControlData.SelectedPageChanged
-        'If IsNothing(DTDataSearchDefinition) Then Exit Sub
-        'Dim oConID = DTDataSearchDefinition.Rows(XtraTabControlData.SelectedTabPageIndex).Item("CONN_ID")
-        'Dim oCommand = DTDataSearchDefinition.Rows(XtraTabControlData.SelectedTabPageIndex).Item("SQL_COMMAND")
-        'Dim oProfileID = DTDataSearchDefinition.Rows(XtraTabControlData.SelectedTabPageIndex).Item("PROFILE_ID")
-        'oCommand = clsPatterns.ReplaceAllValues(oCommand, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_EMAIL, USER_ID, oProfileID)
-        'Dim oTabIndex = DTDataSearchDefinition.Rows(XtraTabControlData.SelectedTabPageIndex).Item("TAB_INDEX")
-        'Dim oTabCaption = DTDataSearchDefinition.Rows(XtraTabControlData.SelectedTabPageIndex).Item("TAB_TITLE")
-        'RefreshTabData(oProfileID, oConID, oCommand, oTabIndex, oTabCaption)
-        Reload_Active_DocumentTab()
-    End Sub
-
-    Private Sub btnBackToMatchForm_Click(sender As Object, e As EventArgs) Handles btnBackToMatchForm.Click
-        ShouldReturnToMatchForm = True
-        Close()
-    End Sub
-End Class

app/DD_Clipboard_Searcher/frmSettings.designer.vb

@@ -24,6 +24,9 @@ Partial Class frmSettings
     Private Sub InitializeComponent()
         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmSettings))
         Me.GroupBox1 = New System.Windows.Forms.GroupBox()
+        Me.chkEnableDeferredPainting = New System.Windows.Forms.CheckBox()
+        Me.Label8 = New System.Windows.Forms.Label()
+        Me.cbPageDisplayMode = New System.Windows.Forms.ComboBox()
         Me.chkIgnoreDocumentResolution = New System.Windows.Forms.CheckBox()
         Me.PictureBox1 = New System.Windows.Forms.PictureBox()
         Me.txtZoomStep = New System.Windows.Forms.NumericUpDown()
@@ -46,23 +49,18 @@ Partial Class frmSettings
         Me.GroupBox3 = New System.Windows.Forms.GroupBox()
         Me.chkEnableICM = New System.Windows.Forms.CheckBox()
         Me.GroupBox4 = New System.Windows.Forms.GroupBox()
-        Me.Label7 = New System.Windows.Forms.Label()
-        Me.cbPDFRenderingEngine = New System.Windows.Forms.ComboBox()
         Me.chkPDFVerifyDigitalCertificates = New System.Windows.Forms.CheckBox()
         Me.chkPDFIncreaseTextContrast = New System.Windows.Forms.CheckBox()
         Me.chkPDFEnableLinks = New System.Windows.Forms.CheckBox()
         Me.chkPDFEnableFileLinks = New System.Windows.Forms.CheckBox()
         Me.chkPDFDisplayFormFields = New System.Windows.Forms.CheckBox()
-        Me.cbPageDisplayMode = New System.Windows.Forms.ComboBox()
+        Me.GroupBox1.SuspendLayout()
-        Me.Label8 = New System.Windows.Forms.Label()
+        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
-        Me.chkEnableDeferredPainting = New System.Windows.Forms.CheckBox()
+        CType(Me.txtZoomStep, System.ComponentModel.ISupportInitialize).BeginInit()
-        Me.GroupBox1.SuspendLayout
+        Me.GroupBox2.SuspendLayout()
-        CType(Me.PictureBox1,System.ComponentModel.ISupportInitialize).BeginInit
+        Me.GroupBox3.SuspendLayout()
-        CType(Me.txtZoomStep,System.ComponentModel.ISupportInitialize).BeginInit
+        Me.GroupBox4.SuspendLayout()
-        Me.GroupBox2.SuspendLayout
+        Me.SuspendLayout()
-        Me.GroupBox3.SuspendLayout
-        Me.GroupBox4.SuspendLayout
-        Me.SuspendLayout
         '
         'GroupBox1
         '
@@ -84,386 +82,328 @@ Partial Class frmSettings
         Me.GroupBox1.Controls.Add(Me.cbDisplayQuality)
         Me.GroupBox1.Controls.Add(Me.chkContinuousViewMode)
         Me.GroupBox1.Controls.Add(Me.Label1)
-        Me.GroupBox1.Location = New System.Drawing.Point(18, 18)
+        Me.GroupBox1.Location = New System.Drawing.Point(12, 12)
-        Me.GroupBox1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
         Me.GroupBox1.Name = "GroupBox1"
-        Me.GroupBox1.Padding = New System.Windows.Forms.Padding(4, 5, 4, 5)
+        Me.GroupBox1.Size = New System.Drawing.Size(291, 296)
-        Me.GroupBox1.Size = New System.Drawing.Size(436, 455)
         Me.GroupBox1.TabIndex = 1
-        Me.GroupBox1.TabStop = false
+        Me.GroupBox1.TabStop = False
         Me.GroupBox1.Text = "General options"
         '
+        'chkEnableDeferredPainting
+        '
+        Me.chkEnableDeferredPainting.AutoSize = True
+        Me.chkEnableDeferredPainting.CheckAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.chkEnableDeferredPainting.Location = New System.Drawing.Point(6, 270)
+        Me.chkEnableDeferredPainting.Name = "chkEnableDeferredPainting"
+        Me.chkEnableDeferredPainting.Size = New System.Drawing.Size(141, 17)
+        Me.chkEnableDeferredPainting.TabIndex = 17
+        Me.chkEnableDeferredPainting.Text = "Enable deferred painting"
+        Me.chkEnableDeferredPainting.UseVisualStyleBackColor = True
+        '
+        'Label8
+        '
+        Me.Label8.AutoSize = True
+        Me.Label8.Location = New System.Drawing.Point(6, 95)
+        Me.Label8.Name = "Label8"
+        Me.Label8.Size = New System.Drawing.Size(70, 13)
+        Me.Label8.TabIndex = 16
+        Me.Label8.Text = "Display mode"
+        '
+        'cbPageDisplayMode
+        '
+        Me.cbPageDisplayMode.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.cbPageDisplayMode.FormattingEnabled = True
+        Me.cbPageDisplayMode.Location = New System.Drawing.Point(116, 93)
+        Me.cbPageDisplayMode.Name = "cbPageDisplayMode"
+        Me.cbPageDisplayMode.Size = New System.Drawing.Size(130, 21)
+        Me.cbPageDisplayMode.TabIndex = 4
+        '
         'chkIgnoreDocumentResolution
         '
-        Me.chkIgnoreDocumentResolution.AutoSize = true
+        Me.chkIgnoreDocumentResolution.AutoSize = True
         Me.chkIgnoreDocumentResolution.CheckAlign = System.Drawing.ContentAlignment.MiddleRight
-        Me.chkIgnoreDocumentResolution.Location = New System.Drawing.Point(9, 382)
+        Me.chkIgnoreDocumentResolution.Location = New System.Drawing.Point(6, 248)
-        Me.chkIgnoreDocumentResolution.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
         Me.chkIgnoreDocumentResolution.Name = "chkIgnoreDocumentResolution"
-        Me.chkIgnoreDocumentResolution.Size = New System.Drawing.Size(229, 24)
+        Me.chkIgnoreDocumentResolution.Size = New System.Drawing.Size(154, 17)
         Me.chkIgnoreDocumentResolution.TabIndex = 11
         Me.chkIgnoreDocumentResolution.Text = "Ignore document resolution"
-        Me.chkIgnoreDocumentResolution.UseVisualStyleBackColor = true
+        Me.chkIgnoreDocumentResolution.UseVisualStyleBackColor = True
         '
         'PictureBox1
         '
         Me.PictureBox1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
-        Me.PictureBox1.Location = New System.Drawing.Point(174, 305)
+        Me.PictureBox1.Location = New System.Drawing.Point(116, 198)
-        Me.PictureBox1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
         Me.PictureBox1.Name = "PictureBox1"
-        Me.PictureBox1.Size = New System.Drawing.Size(30, 31)
+        Me.PictureBox1.Size = New System.Drawing.Size(21, 21)
         Me.PictureBox1.TabIndex = 3
-        Me.PictureBox1.TabStop = false
+        Me.PictureBox1.TabStop = False
         '
         'txtZoomStep
         '
-        Me.txtZoomStep.Location = New System.Drawing.Point(104, 28)
+        Me.txtZoomStep.Location = New System.Drawing.Point(69, 18)
-        Me.txtZoomStep.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
         Me.txtZoomStep.Maximum = New Decimal(New Integer() {1000, 0, 0, 0})
         Me.txtZoomStep.Minimum = New Decimal(New Integer() {1, 0, 0, 0})
         Me.txtZoomStep.Name = "txtZoomStep"
-        Me.txtZoomStep.Size = New System.Drawing.Size(118, 26)
+        Me.txtZoomStep.Size = New System.Drawing.Size(79, 20)
         Me.txtZoomStep.TabIndex = 0
         Me.txtZoomStep.Value = New Decimal(New Integer() {1, 0, 0, 0})
         '
         'cbMouseWheelMode
         '
         Me.cbMouseWheelMode.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
-        Me.cbMouseWheelMode.FormattingEnabled = true
+        Me.cbMouseWheelMode.FormattingEnabled = True
-        Me.cbMouseWheelMode.Location = New System.Drawing.Point(174, 263)
+        Me.cbMouseWheelMode.Location = New System.Drawing.Point(116, 171)
-        Me.cbMouseWheelMode.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
         Me.cbMouseWheelMode.Name = "cbMouseWheelMode"
-        Me.cbMouseWheelMode.Size = New System.Drawing.Size(158, 28)
+        Me.cbMouseWheelMode.Size = New System.Drawing.Size(107, 21)
         Me.cbMouseWheelMode.TabIndex = 7
         '
         'cbDocumentPosition
         '
         Me.cbDocumentPosition.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
-        Me.cbDocumentPosition.FormattingEnabled = true
+        Me.cbDocumentPosition.FormattingEnabled = True
-        Me.cbDocumentPosition.Location = New System.Drawing.Point(174, 223)
+        Me.cbDocumentPosition.Location = New System.Drawing.Point(116, 145)
-        Me.cbDocumentPosition.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
         Me.cbDocumentPosition.Name = "cbDocumentPosition"
-        Me.cbDocumentPosition.Size = New System.Drawing.Size(158, 28)
+        Me.cbDocumentPosition.Size = New System.Drawing.Size(107, 21)
         Me.cbDocumentPosition.TabIndex = 6
         '
         'cbDocumentAlignment
         '
         Me.cbDocumentAlignment.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
-        Me.cbDocumentAlignment.FormattingEnabled = true
+        Me.cbDocumentAlignment.FormattingEnabled = True
-        Me.cbDocumentAlignment.Location = New System.Drawing.Point(174, 183)
+        Me.cbDocumentAlignment.Location = New System.Drawing.Point(116, 119)
-        Me.cbDocumentAlignment.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
         Me.cbDocumentAlignment.Name = "cbDocumentAlignment"
-        Me.cbDocumentAlignment.Size = New System.Drawing.Size(158, 28)
+        Me.cbDocumentAlignment.Size = New System.Drawing.Size(107, 21)
         Me.cbDocumentAlignment.TabIndex = 5
         '
         'chkEnableMenu
         '
-        Me.chkEnableMenu.AutoSize = true
+        Me.chkEnableMenu.AutoSize = True
         Me.chkEnableMenu.CheckAlign = System.Drawing.ContentAlignment.MiddleRight
-        Me.chkEnableMenu.Location = New System.Drawing.Point(9, 346)
+        Me.chkEnableMenu.Location = New System.Drawing.Point(6, 225)
-        Me.chkEnableMenu.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
         Me.chkEnableMenu.Name = "chkEnableMenu"
-        Me.chkEnableMenu.Size = New System.Drawing.Size(206, 24)
+        Me.chkEnableMenu.Size = New System.Drawing.Size(140, 17)
         Me.chkEnableMenu.TabIndex = 10
         Me.chkEnableMenu.Text = "Enable contextual menu"
-        Me.chkEnableMenu.UseVisualStyleBackColor = true
+        Me.chkEnableMenu.UseVisualStyleBackColor = True
         '
         'Label6
         '
-        Me.Label6.AutoSize = true
+        Me.Label6.AutoSize = True
-        Me.Label6.Location = New System.Drawing.Point(9, 311)
+        Me.Label6.Location = New System.Drawing.Point(6, 202)
-        Me.Label6.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
         Me.Label6.Name = "Label6"
-        Me.Label6.Size = New System.Drawing.Size(133, 20)
+        Me.Label6.Size = New System.Drawing.Size(91, 13)
         Me.Label6.TabIndex = 9
         Me.Label6.Text = "Background color"
         '
         'Label5
         '
-        Me.Label5.AutoSize = true
+        Me.Label5.AutoSize = True
-        Me.Label5.Location = New System.Drawing.Point(10, 266)
+        Me.Label5.Location = New System.Drawing.Point(7, 173)
-        Me.Label5.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
         Me.Label5.Name = "Label5"
-        Me.Label5.Size = New System.Drawing.Size(146, 20)
+        Me.Label5.Size = New System.Drawing.Size(99, 13)
         Me.Label5.TabIndex = 8
         Me.Label5.Text = "Mouse wheel mode"
         '
         'Label4
         '
-        Me.Label4.AutoSize = true
+        Me.Label4.AutoSize = True
-        Me.Label4.Location = New System.Drawing.Point(10, 226)
+        Me.Label4.Location = New System.Drawing.Point(7, 147)
-        Me.Label4.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
         Me.Label4.Name = "Label4"
-        Me.Label4.Size = New System.Drawing.Size(142, 20)
+        Me.Label4.Size = New System.Drawing.Size(95, 13)
         Me.Label4.TabIndex = 7
         Me.Label4.Text = "Document position"
         '
         'Label3
         '
-        Me.Label3.AutoSize = true
+        Me.Label3.AutoSize = True
-        Me.Label3.Location = New System.Drawing.Point(10, 186)
+        Me.Label3.Location = New System.Drawing.Point(7, 121)
-        Me.Label3.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
         Me.Label3.Name = "Label3"
-        Me.Label3.Size = New System.Drawing.Size(156, 20)
+        Me.Label3.Size = New System.Drawing.Size(104, 13)
         Me.Label3.TabIndex = 6
         Me.Label3.Text = "Document alignment"
         '
         'Label2
         '
-        Me.Label2.AutoSize = true
+        Me.Label2.AutoSize = True
-        Me.Label2.Location = New System.Drawing.Point(9, 106)
+        Me.Label2.Location = New System.Drawing.Point(6, 69)
-        Me.Label2.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
         Me.Label2.Name = "Label2"
-        Me.Label2.Size = New System.Drawing.Size(109, 20)
+        Me.Label2.Size = New System.Drawing.Size(74, 13)
         Me.Label2.TabIndex = 4
         Me.Label2.Text = "Display quality"
         '
         'cbDisplayQuality
         '
         Me.cbDisplayQuality.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
-        Me.cbDisplayQuality.FormattingEnabled = true
+        Me.cbDisplayQuality.FormattingEnabled = True
-        Me.cbDisplayQuality.Location = New System.Drawing.Point(174, 103)
+        Me.cbDisplayQuality.Location = New System.Drawing.Point(116, 67)
-        Me.cbDisplayQuality.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
         Me.cbDisplayQuality.Name = "cbDisplayQuality"
-        Me.cbDisplayQuality.Size = New System.Drawing.Size(158, 28)
+        Me.cbDisplayQuality.Size = New System.Drawing.Size(107, 21)
         Me.cbDisplayQuality.TabIndex = 3
         '
         'chkContinuousViewMode
         '
-        Me.chkContinuousViewMode.AutoSize = true
+        Me.chkContinuousViewMode.AutoSize = True
         Me.chkContinuousViewMode.CheckAlign = System.Drawing.ContentAlignment.MiddleRight
-        Me.chkContinuousViewMode.Location = New System.Drawing.Point(9, 65)
+        Me.chkContinuousViewMode.Location = New System.Drawing.Point(6, 42)
-        Me.chkContinuousViewMode.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
         Me.chkContinuousViewMode.Name = "chkContinuousViewMode"
-        Me.chkContinuousViewMode.Size = New System.Drawing.Size(194, 24)
+        Me.chkContinuousViewMode.Size = New System.Drawing.Size(133, 17)
         Me.chkContinuousViewMode.TabIndex = 2
         Me.chkContinuousViewMode.Text = "Continuous view mode"
-        Me.chkContinuousViewMode.UseVisualStyleBackColor = true
+        Me.chkContinuousViewMode.UseVisualStyleBackColor = True
         '
         'Label1
         '
-        Me.Label1.AutoSize = true
+        Me.Label1.AutoSize = True
-        Me.Label1.Location = New System.Drawing.Point(9, 31)
+        Me.Label1.Location = New System.Drawing.Point(6, 20)
-        Me.Label1.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
         Me.Label1.Name = "Label1"
-        Me.Label1.Size = New System.Drawing.Size(85, 20)
+        Me.Label1.Size = New System.Drawing.Size(57, 13)
         Me.Label1.TabIndex = 1
         Me.Label1.Text = "Zoom step"
         '
         'btnApply
         '
-        Me.btnApply.Location = New System.Drawing.Point(793, 520)
+        Me.btnApply.Location = New System.Drawing.Point(529, 338)
-        Me.btnApply.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
         Me.btnApply.Name = "btnApply"
-        Me.btnApply.Size = New System.Drawing.Size(112, 35)
+        Me.btnApply.Size = New System.Drawing.Size(75, 23)
         Me.btnApply.TabIndex = 99
         Me.btnApply.Text = "Apply"
-        Me.btnApply.UseVisualStyleBackColor = true
+        Me.btnApply.UseVisualStyleBackColor = True
         '
         'GroupBox2
         '
         Me.GroupBox2.Controls.Add(Me.chkHQAnnotationsRendering)
         Me.GroupBox2.Controls.Add(Me.chkAnnotationsDropShadow)
-        Me.GroupBox2.Location = New System.Drawing.Point(464, 18)
+        Me.GroupBox2.Location = New System.Drawing.Point(309, 12)
-        Me.GroupBox2.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
         Me.GroupBox2.Name = "GroupBox2"
-        Me.GroupBox2.Padding = New System.Windows.Forms.Padding(4, 5, 4, 5)
+        Me.GroupBox2.Size = New System.Drawing.Size(291, 83)
-        Me.GroupBox2.Size = New System.Drawing.Size(436, 128)
         Me.GroupBox2.TabIndex = 3
-        Me.GroupBox2.TabStop = false
+        Me.GroupBox2.TabStop = False
         Me.GroupBox2.Text = "Annotations options"
         '
         'chkHQAnnotationsRendering
         '
-        Me.chkHQAnnotationsRendering.AutoSize = true
+        Me.chkHQAnnotationsRendering.AutoSize = True
         Me.chkHQAnnotationsRendering.CheckAlign = System.Drawing.ContentAlignment.MiddleRight
-        Me.chkHQAnnotationsRendering.Location = New System.Drawing.Point(9, 65)
+        Me.chkHQAnnotationsRendering.Location = New System.Drawing.Point(6, 42)
-        Me.chkHQAnnotationsRendering.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
         Me.chkHQAnnotationsRendering.Name = "chkHQAnnotationsRendering"
-        Me.chkHQAnnotationsRendering.Size = New System.Drawing.Size(218, 24)
+        Me.chkHQAnnotationsRendering.Size = New System.Drawing.Size(147, 17)
         Me.chkHQAnnotationsRendering.TabIndex = 14
         Me.chkHQAnnotationsRendering.Text = "HQ annotations rendering"
-        Me.chkHQAnnotationsRendering.UseVisualStyleBackColor = true
+        Me.chkHQAnnotationsRendering.UseVisualStyleBackColor = True
         '
         'chkAnnotationsDropShadow
         '
-        Me.chkAnnotationsDropShadow.AutoSize = true
+        Me.chkAnnotationsDropShadow.AutoSize = True
         Me.chkAnnotationsDropShadow.CheckAlign = System.Drawing.ContentAlignment.MiddleRight
-        Me.chkAnnotationsDropShadow.Location = New System.Drawing.Point(9, 29)
+        Me.chkAnnotationsDropShadow.Location = New System.Drawing.Point(6, 19)
-        Me.chkAnnotationsDropShadow.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
         Me.chkAnnotationsDropShadow.Name = "chkAnnotationsDropShadow"
-        Me.chkAnnotationsDropShadow.Size = New System.Drawing.Size(216, 24)
+        Me.chkAnnotationsDropShadow.Size = New System.Drawing.Size(146, 17)
         Me.chkAnnotationsDropShadow.TabIndex = 13
         Me.chkAnnotationsDropShadow.Text = "Annotations drop shadow"
-        Me.chkAnnotationsDropShadow.UseVisualStyleBackColor = true
+        Me.chkAnnotationsDropShadow.UseVisualStyleBackColor = True
         '
         'GroupBox3
         '
         Me.GroupBox3.Controls.Add(Me.chkEnableICM)
-        Me.GroupBox3.Location = New System.Drawing.Point(18, 483)
+        Me.GroupBox3.Location = New System.Drawing.Point(12, 314)
-        Me.GroupBox3.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
         Me.GroupBox3.Name = "GroupBox3"
-        Me.GroupBox3.Padding = New System.Windows.Forms.Padding(4, 5, 4, 5)
+        Me.GroupBox3.Size = New System.Drawing.Size(291, 46)
-        Me.GroupBox3.Size = New System.Drawing.Size(436, 71)
         Me.GroupBox3.TabIndex = 2
-        Me.GroupBox3.TabStop = false
+        Me.GroupBox3.TabStop = False
         Me.GroupBox3.Text = "Image viewing options"
         '
         'chkEnableICM
         '
-        Me.chkEnableICM.AutoSize = true
+        Me.chkEnableICM.AutoSize = True
         Me.chkEnableICM.CheckAlign = System.Drawing.ContentAlignment.MiddleRight
-        Me.chkEnableICM.Location = New System.Drawing.Point(9, 29)
+        Me.chkEnableICM.Location = New System.Drawing.Point(6, 19)
-        Me.chkEnableICM.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
         Me.chkEnableICM.Name = "chkEnableICM"
-        Me.chkEnableICM.Size = New System.Drawing.Size(118, 24)
+        Me.chkEnableICM.Size = New System.Drawing.Size(81, 17)
         Me.chkEnableICM.TabIndex = 12
         Me.chkEnableICM.Text = "Enable ICM"
-        Me.chkEnableICM.UseVisualStyleBackColor = true
+        Me.chkEnableICM.UseVisualStyleBackColor = True
         '
         'GroupBox4
         '
-        Me.GroupBox4.Controls.Add(Me.Label7)
-        Me.GroupBox4.Controls.Add(Me.cbPDFRenderingEngine)
         Me.GroupBox4.Controls.Add(Me.chkPDFVerifyDigitalCertificates)
         Me.GroupBox4.Controls.Add(Me.chkPDFIncreaseTextContrast)
         Me.GroupBox4.Controls.Add(Me.chkPDFEnableLinks)
         Me.GroupBox4.Controls.Add(Me.chkPDFEnableFileLinks)
         Me.GroupBox4.Controls.Add(Me.chkPDFDisplayFormFields)
-        Me.GroupBox4.Location = New System.Drawing.Point(464, 155)
+        Me.GroupBox4.Location = New System.Drawing.Point(309, 101)
-        Me.GroupBox4.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
         Me.GroupBox4.Name = "GroupBox4"
-        Me.GroupBox4.Padding = New System.Windows.Forms.Padding(4, 5, 4, 5)
+        Me.GroupBox4.Size = New System.Drawing.Size(291, 184)
-        Me.GroupBox4.Size = New System.Drawing.Size(436, 283)
         Me.GroupBox4.TabIndex = 4
-        Me.GroupBox4.TabStop = false
+        Me.GroupBox4.TabStop = False
         Me.GroupBox4.Text = "PDF viewing options"
         '
-        'Label7
-        '
-        Me.Label7.AutoSize = true
-        Me.Label7.Location = New System.Drawing.Point(12, 188)
-        Me.Label7.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
-        Me.Label7.Name = "Label7"
-        Me.Label7.Size = New System.Drawing.Size(163, 20)
-        Me.Label7.TabIndex = 6
-        Me.Label7.Text = "PDF rasterizer engine"
-        '
-        'cbPDFRenderingEngine
-        '
-        Me.cbPDFRenderingEngine.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
-        Me.cbPDFRenderingEngine.FormattingEnabled = true
-        Me.cbPDFRenderingEngine.Location = New System.Drawing.Point(183, 182)
-        Me.cbPDFRenderingEngine.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
-        Me.cbPDFRenderingEngine.Name = "cbPDFRenderingEngine"
-        Me.cbPDFRenderingEngine.Size = New System.Drawing.Size(180, 28)
-        Me.cbPDFRenderingEngine.TabIndex = 19
-        '
         'chkPDFVerifyDigitalCertificates
         '
-        Me.chkPDFVerifyDigitalCertificates.AutoSize = true
+        Me.chkPDFVerifyDigitalCertificates.AutoSize = True
         Me.chkPDFVerifyDigitalCertificates.CheckAlign = System.Drawing.ContentAlignment.MiddleRight
-        Me.chkPDFVerifyDigitalCertificates.Location = New System.Drawing.Point(9, 225)
+        Me.chkPDFVerifyDigitalCertificates.Location = New System.Drawing.Point(6, 119)
-        Me.chkPDFVerifyDigitalCertificates.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
         Me.chkPDFVerifyDigitalCertificates.Name = "chkPDFVerifyDigitalCertificates"
-        Me.chkPDFVerifyDigitalCertificates.Size = New System.Drawing.Size(201, 24)
+        Me.chkPDFVerifyDigitalCertificates.Size = New System.Drawing.Size(136, 17)
         Me.chkPDFVerifyDigitalCertificates.TabIndex = 20
         Me.chkPDFVerifyDigitalCertificates.Text = "Verify digital certificates"
-        Me.chkPDFVerifyDigitalCertificates.UseVisualStyleBackColor = true
+        Me.chkPDFVerifyDigitalCertificates.UseVisualStyleBackColor = True
         '
         'chkPDFIncreaseTextContrast
         '
-        Me.chkPDFIncreaseTextContrast.AutoSize = true
+        Me.chkPDFIncreaseTextContrast.AutoSize = True
         Me.chkPDFIncreaseTextContrast.CheckAlign = System.Drawing.ContentAlignment.MiddleRight
-        Me.chkPDFIncreaseTextContrast.Location = New System.Drawing.Point(9, 148)
+        Me.chkPDFIncreaseTextContrast.Location = New System.Drawing.Point(6, 96)
-        Me.chkPDFIncreaseTextContrast.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
         Me.chkPDFIncreaseTextContrast.Name = "chkPDFIncreaseTextContrast"
-        Me.chkPDFIncreaseTextContrast.Size = New System.Drawing.Size(189, 24)
+        Me.chkPDFIncreaseTextContrast.Size = New System.Drawing.Size(128, 17)
         Me.chkPDFIncreaseTextContrast.TabIndex = 18
         Me.chkPDFIncreaseTextContrast.Text = "Increase text contrast"
-        Me.chkPDFIncreaseTextContrast.UseVisualStyleBackColor = true
+        Me.chkPDFIncreaseTextContrast.UseVisualStyleBackColor = True
         '
         'chkPDFEnableLinks
         '
-        Me.chkPDFEnableLinks.AutoSize = true
+        Me.chkPDFEnableLinks.AutoSize = True
         Me.chkPDFEnableLinks.CheckAlign = System.Drawing.ContentAlignment.MiddleRight
-        Me.chkPDFEnableLinks.Location = New System.Drawing.Point(9, 112)
+        Me.chkPDFEnableLinks.Location = New System.Drawing.Point(6, 73)
-        Me.chkPDFEnableLinks.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
         Me.chkPDFEnableLinks.Name = "chkPDFEnableLinks"
-        Me.chkPDFEnableLinks.Size = New System.Drawing.Size(120, 24)
+        Me.chkPDFEnableLinks.Size = New System.Drawing.Size(83, 17)
         Me.chkPDFEnableLinks.TabIndex = 17
         Me.chkPDFEnableLinks.Text = "Enable links"
-        Me.chkPDFEnableLinks.UseVisualStyleBackColor = true
+        Me.chkPDFEnableLinks.UseVisualStyleBackColor = True
         '
         'chkPDFEnableFileLinks
         '
-        Me.chkPDFEnableFileLinks.AutoSize = true
+        Me.chkPDFEnableFileLinks.AutoSize = True
         Me.chkPDFEnableFileLinks.CheckAlign = System.Drawing.ContentAlignment.MiddleRight
-        Me.chkPDFEnableFileLinks.Location = New System.Drawing.Point(9, 77)
+        Me.chkPDFEnableFileLinks.Location = New System.Drawing.Point(6, 50)
-        Me.chkPDFEnableFileLinks.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
         Me.chkPDFEnableFileLinks.Name = "chkPDFEnableFileLinks"
-        Me.chkPDFEnableFileLinks.Size = New System.Drawing.Size(144, 24)
+        Me.chkPDFEnableFileLinks.Size = New System.Drawing.Size(99, 17)
         Me.chkPDFEnableFileLinks.TabIndex = 16
         Me.chkPDFEnableFileLinks.Text = "Enable file links"
-        Me.chkPDFEnableFileLinks.UseVisualStyleBackColor = true
+        Me.chkPDFEnableFileLinks.UseVisualStyleBackColor = True
         '
         'chkPDFDisplayFormFields
         '
-        Me.chkPDFDisplayFormFields.AutoSize = true
+        Me.chkPDFDisplayFormFields.AutoSize = True
         Me.chkPDFDisplayFormFields.CheckAlign = System.Drawing.ContentAlignment.MiddleRight
-        Me.chkPDFDisplayFormFields.Location = New System.Drawing.Point(9, 42)
+        Me.chkPDFDisplayFormFields.Location = New System.Drawing.Point(6, 27)
-        Me.chkPDFDisplayFormFields.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
         Me.chkPDFDisplayFormFields.Name = "chkPDFDisplayFormFields"
-        Me.chkPDFDisplayFormFields.Size = New System.Drawing.Size(163, 24)
+        Me.chkPDFDisplayFormFields.Size = New System.Drawing.Size(110, 17)
         Me.chkPDFDisplayFormFields.TabIndex = 15
         Me.chkPDFDisplayFormFields.Text = "Display form fields"
-        Me.chkPDFDisplayFormFields.UseVisualStyleBackColor = true
+        Me.chkPDFDisplayFormFields.UseVisualStyleBackColor = True
-        '
-        'cbPageDisplayMode
-        '
-        Me.cbPageDisplayMode.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
-        Me.cbPageDisplayMode.FormattingEnabled = true
-        Me.cbPageDisplayMode.Location = New System.Drawing.Point(174, 143)
-        Me.cbPageDisplayMode.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
-        Me.cbPageDisplayMode.Name = "cbPageDisplayMode"
-        Me.cbPageDisplayMode.Size = New System.Drawing.Size(193, 28)
-        Me.cbPageDisplayMode.TabIndex = 4
-        '
-        'Label8
-        '
-        Me.Label8.AutoSize = true
-        Me.Label8.Location = New System.Drawing.Point(9, 146)
-        Me.Label8.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
-        Me.Label8.Name = "Label8"
-        Me.Label8.Size = New System.Drawing.Size(104, 20)
-        Me.Label8.TabIndex = 16
-        Me.Label8.Text = "Display mode"
-        '
-        'chkEnableDeferredPainting
-        '
-        Me.chkEnableDeferredPainting.AutoSize = true
-        Me.chkEnableDeferredPainting.CheckAlign = System.Drawing.ContentAlignment.MiddleRight
-        Me.chkEnableDeferredPainting.Location = New System.Drawing.Point(9, 416)
-        Me.chkEnableDeferredPainting.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
-        Me.chkEnableDeferredPainting.Name = "chkEnableDeferredPainting"
-        Me.chkEnableDeferredPainting.Size = New System.Drawing.Size(209, 24)
-        Me.chkEnableDeferredPainting.TabIndex = 17
-        Me.chkEnableDeferredPainting.Text = "Enable deferred painting"
-        Me.chkEnableDeferredPainting.UseVisualStyleBackColor = true
         '
         'frmSettings
         '
-        Me.AutoScaleDimensions = New System.Drawing.SizeF(9!, 20!)
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(918, 569)
+        Me.ClientSize = New System.Drawing.Size(612, 370)
         Me.Controls.Add(Me.GroupBox4)
         Me.Controls.Add(Me.GroupBox3)
         Me.Controls.Add(Me.GroupBox2)
         Me.Controls.Add(Me.GroupBox1)
         Me.Controls.Add(Me.btnApply)
         Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
-        Me.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
+        Me.MaximizeBox = False
-        Me.MaximizeBox = false
         Me.MinimizeBox = false
         Me.Name = "frmSettings"
         Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
@@ -508,8 +448,6 @@ End Sub
     Friend WithEvents chkPDFEnableFileLinks As System.Windows.Forms.CheckBox
     Friend WithEvents chkPDFDisplayFormFields As System.Windows.Forms.CheckBox
     Friend WithEvents chkPDFVerifyDigitalCertificates As System.Windows.Forms.CheckBox
-    Friend WithEvents Label7 As System.Windows.Forms.Label
-    Friend WithEvents cbPDFRenderingEngine As System.Windows.Forms.ComboBox
     Friend WithEvents chkIgnoreDocumentResolution As System.Windows.Forms.CheckBox
     Friend WithEvents Label8 As Label
     Friend WithEvents cbPageDisplayMode As ComboBox

app/DD_Clipboard_Searcher/frmSettings.vb

@@ -42,11 +42,6 @@ Public Class frmSettings
         {DisplayQuality.DisplayQualityBicubicHQ, "Bicubic HQ"},
         {DisplayQuality.DisplayQualityAutomatic, "Automatic"}
     }
-    Private ReadOnly _renderingEngines As New Dictionary(Of PdfRasterizerEngine, String) From {
-        {PdfRasterizerEngine.PdfRasterizerEngineGdiplus, "GDI+"},
-        {PdfRasterizerEngine.PdfRasterizerEngineWPF, "WPF"},
-        {PdfRasterizerEngine.PdfRasterizerEngineHybrid, "Hybrid"}
-    }
     Private ReadOnly _displayPageModes As New Dictionary(Of PageDisplayMode, String) From {
         {PageDisplayMode.MultiplePagesView, "Multiple pages"},
         {PageDisplayMode.SinglePageView, "Single page"}
@@ -70,9 +65,6 @@ Public Class frmSettings
         For Each item In _displayQualities
             cbDisplayQuality.Items.Add(item.Value)
         Next
-        For Each item In _renderingEngines
-            cbPDFRenderingEngine.Items.Add(item.Value)
-        Next
         For Each item In _displayPageModes
             cbPageDisplayMode.Items.Add(item.Value)
         Next
@@ -98,7 +90,6 @@ Public Class frmSettings
         chkPDFEnableFileLinks.Checked = _owner.PdfEnableFileLinks
         chkPDFEnableLinks.Checked = _owner.PdfEnableLinks
         chkPDFIncreaseTextContrast.Checked = _owner.PdfIncreaseTextContrast
-        cbPDFRenderingEngine.SelectedItem = _renderingEngines(_owner.PdfRasterizerEngine)
         chkPDFVerifyDigitalCertificates.Checked = _owner.PdfVerifyDigitalCertificates
     End Sub
 
@@ -133,7 +124,6 @@ Public Class frmSettings
         _owner.PdfEnableFileLinks = chkPDFEnableFileLinks.Checked
         _owner.PdfEnableLinks = chkPDFEnableLinks.Checked
         _owner.PdfIncreaseTextContrast = chkPDFIncreaseTextContrast.Checked
-        _owner.PdfRasterizerEngine = _renderingEngines.FirstOrDefault(Function(x) x.Value.Contains(cbPDFRenderingEngine.SelectedItem.ToString())).Key
         _owner.PdfVerifyDigitalCertificates = chkPDFVerifyDigitalCertificates.Checked
 
         Me.Close()

app/DD_Clipboard_Searcher/frmSplash.Designer.vb

@@ -22,7 +22,6 @@ Partial Class frmSplash
     'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
     <System.Diagnostics.DebuggerStepThrough()> _
     Private Sub InitializeComponent()
-        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmSplash))
         Me.Copyright = New System.Windows.Forms.Label()
         Me.Version = New System.Windows.Forms.Label()
         Me.lblStatus = New System.Windows.Forms.Label()
@@ -33,12 +32,13 @@ Partial Class frmSplash
         '
         'Copyright
         '
-        Me.Copyright.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.Copyright.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Copyright.AutoSize = True
         Me.Copyright.BackColor = System.Drawing.Color.Transparent
         Me.Copyright.Font = New System.Drawing.Font("Segoe UI", 9.0!)
         Me.Copyright.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.Copyright.Location = New System.Drawing.Point(129, 328)
+        Me.Copyright.Location = New System.Drawing.Point(129, 212)
         Me.Copyright.Name = "Copyright"
         Me.Copyright.Size = New System.Drawing.Size(60, 15)
         Me.Copyright.TabIndex = 2
@@ -47,12 +47,13 @@ Partial Class frmSplash
         '
         'Version
         '
-        Me.Version.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.Version.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Version.AutoSize = True
         Me.Version.BackColor = System.Drawing.Color.Transparent
         Me.Version.Font = New System.Drawing.Font("Segoe UI", 9.0!)
         Me.Version.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.Version.Location = New System.Drawing.Point(4, 328)
+        Me.Version.Location = New System.Drawing.Point(4, 212)
         Me.Version.Name = "Version"
         Me.Version.Size = New System.Drawing.Size(94, 15)
         Me.Version.TabIndex = 1
@@ -61,11 +62,13 @@ Partial Class frmSplash
         '
         'lblStatus
         '
+        Me.lblStatus.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.lblStatus.AutoSize = True
         Me.lblStatus.BackColor = System.Drawing.SystemColors.Control
         Me.lblStatus.Font = New System.Drawing.Font("Segoe UI", 9.0!)
         Me.lblStatus.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.lblStatus.Location = New System.Drawing.Point(4, 355)
+        Me.lblStatus.Location = New System.Drawing.Point(4, 233)
         Me.lblStatus.Name = "lblStatus"
         Me.lblStatus.Size = New System.Drawing.Size(79, 15)
         Me.lblStatus.TabIndex = 8
@@ -76,19 +79,18 @@ Partial Class frmSplash
         '
         Me.pbStatus.Dock = System.Windows.Forms.DockStyle.Bottom
         Me.pbStatus.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.pbStatus.Location = New System.Drawing.Point(0, 375)
+        Me.pbStatus.Location = New System.Drawing.Point(0, 259)
         Me.pbStatus.Name = "pbStatus"
-        Me.pbStatus.Size = New System.Drawing.Size(554, 23)
+        Me.pbStatus.Size = New System.Drawing.Size(795, 23)
         Me.pbStatus.TabIndex = 7
         '
         'PictureBox2
         '
-        Me.PictureBox2.Image = CType(resources.GetObject("PictureBox2.Image"), System.Drawing.Image)
+        Me.PictureBox2.Image = Global.easyFLOW.My.Resources.Resources.DD_easyFLOW_BOOT
         Me.PictureBox2.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.PictureBox2.Location = New System.Drawing.Point(0, 0)
+        Me.PictureBox2.Location = New System.Drawing.Point(0, -1)
         Me.PictureBox2.Name = "PictureBox2"
-        Me.PictureBox2.Size = New System.Drawing.Size(532, 326)
+        Me.PictureBox2.Size = New System.Drawing.Size(795, 188)
-        Me.PictureBox2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
         Me.PictureBox2.TabIndex = 11
         Me.PictureBox2.TabStop = False
         '
@@ -96,7 +98,7 @@ Partial Class frmSplash
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(554, 398)
+        Me.ClientSize = New System.Drawing.Size(795, 282)
         Me.ControlBox = False
         Me.Controls.Add(Me.Copyright)
         Me.Controls.Add(Me.Version)
@@ -105,6 +107,7 @@ Partial Class frmSplash
         Me.Controls.Add(Me.PictureBox2)
         Me.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
+        Me.KeyPreview = True
         Me.Name = "frmSplash"
         Me.ShowIcon = False
         Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen

app/DD_Clipboard_Searcher/frmSplash.vb

@@ -1,9 +1,12 @@
 Imports System.ComponentModel
+Imports System.Globalization
 Imports System.Threading
+Imports DigitalData.Modules.Base
+
 Public NotInheritable Class frmSplash
-    Private InitSteps As Integer = 3
+    Private ReadOnly InitSteps As Integer = 4
-    Private Worker As New BackgroundWorker()
+    Private ReadOnly Worker As New BackgroundWorker()
-    Private MainForm As Form
+    Private ReadOnly MainForm As Form
 
     Private Sub frmSplash_KeyUp(sender As Object, e As KeyEventArgs) Handles Me.KeyUp
         If e.KeyCode = Keys.Escape Then
@@ -32,36 +35,44 @@ Public NotInheritable Class frmSplash
         Return _step * (100 / InitSteps)
     End Function
 
-    Private Sub bw_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs)
+    Private Function bw_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) As Task
-        Try
+        Dim oProgress As String
+        'Try
         Dim Init = New ClassInit()
-            Worker.ReportProgress(CalcProgress(1), "Initializing Logger")
+        oProgress = "Initializing Logger"
+        Worker.ReportProgress(CalcProgress(1), oProgress)
         Init.InitLogger()
-            Thread.Sleep(500)
+        Thread.Sleep(200)
-
+        oProgress = "Initializing Base Config"
-            Worker.ReportProgress(CalcProgress(2), "Initializing Database")
+        Worker.ReportProgress(CalcProgress(2), oProgress)
         Init.InitBasics()
+        Thread.Sleep(200)
+        oProgress = "Initializing Database"
+        Worker.ReportProgress(CalcProgress(3), oProgress)
         If Init.InitDatabase_New() = True Then
-
+            Thread.Sleep(200)
-                Thread.Sleep(500)
+            oProgress = "Initializing User-Configuration"
-
+            Worker.ReportProgress(CalcProgress(4), oProgress)
-                Worker.ReportProgress(CalcProgress(3), "Initializing User-Configuration")
+            If My.Settings.GHOSTUSER <> String.Empty Then
-                If ClassInit.InitUserLogin = False Then
+                Logger.Info($"GHOSTLogin [{My.Settings.GHOSTUSER}] is active!")
+                LogConfig.Debug = True
+            End If
+            If Init.InitUserLogin(My.Settings.GHOSTUSER) = False Then
                 If ERROR_INIT = "" Then
                     ERROR_INIT = "INVALID USER"
                 End If
             End If
 
-                Thread.Sleep(500)
+            Thread.Sleep(200)
 
         Else
             ERROR_INIT = "DATABASE"
         End If
 
-        Catch ex As Exception
+        '  Catch ex As Exception
-            MsgBox("Unexpected Error in bw_DoWork: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
+        ' ' MsgBox("Unexpected Error in bw_DoWork: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
-        End Try
+        ' End Try
-    End Sub
+    End Function
 
     Private Sub bw_ProgressChanged(sender As Object, e As ProgressChangedEventArgs)
         pbStatus.Value = e.ProgressPercentage
@@ -75,6 +86,8 @@ Public NotInheritable Class frmSplash
             Application.Exit()
         End If
 
+        LanguageEx.SetApplicationLanguage(Logger, USER_LANGUAGE, USER_DATE_FORMAT)
+
         ' Wenn kein Fehler, Splashscreen schließen
         Close()
     End Sub

app/DD_Clipboard_Searcher/frmStart.Designer.vb

@@ -1,280 +0,0 @@
-<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
-Partial Class frmStart
-    Inherits DevExpress.XtraEditors.XtraForm
-
-    '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 resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmStart))
-        Me.NotifyIconMain = New System.Windows.Forms.NotifyIcon(Me.components)
-        Me.cmstrpNotifyIcon = New System.Windows.Forms.ContextMenuStrip(Me.components)
-        Me.tsmiChangeState = New System.Windows.Forms.ToolStripMenuItem()
-        Me.ClientÖffnenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
-        Me.ClientBeendenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
-        Me.StatusStrip1 = New System.Windows.Forms.StatusStrip()
-        Me.labelUser = New System.Windows.Forms.ToolStripStatusLabel()
-        Me.lblrefresh = New System.Windows.Forms.ToolStripStatusLabel()
-        Me.TimerClose = New System.Windows.Forms.Timer(Me.components)
-        Me.ContextMenuStripForm = New System.Windows.Forms.ContextMenuStrip(Me.components)
-        Me.MinimierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
-        Me.Label1 = New System.Windows.Forms.Label()
-        Me.GroupBox1 = New System.Windows.Forms.GroupBox()
-        Me.Label2 = New System.Windows.Forms.Label()
-        Me.labelHotkey = New System.Windows.Forms.Label()
-        Me.btnUserConfig = New System.Windows.Forms.Button()
-        Me.btnAdminConfig = New System.Windows.Forms.Button()
-        Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
-        Me.TimerRefresh = New System.Windows.Forms.Timer(Me.components)
-        Me.AblaufAnzeigenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
-        Me.BisherigenAblaufAnzeigenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
-        Me.cmstrpNotifyIcon.SuspendLayout()
-        Me.StatusStrip1.SuspendLayout()
-        Me.ContextMenuStripForm.SuspendLayout()
-        Me.GroupBox1.SuspendLayout()
-        Me.SuspendLayout()
-        '
-        'NotifyIconMain
-        '
-        Me.NotifyIconMain.BalloonTipIcon = System.Windows.Forms.ToolTipIcon.Info
-        Me.NotifyIconMain.BalloonTipText = "Text"
-        Me.NotifyIconMain.BalloonTipTitle = "Title"
-        Me.NotifyIconMain.ContextMenuStrip = Me.cmstrpNotifyIcon
-        Me.NotifyIconMain.Icon = CType(resources.GetObject("NotifyIconMain.Icon"), System.Drawing.Icon)
-        Me.NotifyIconMain.Text = "DD Clipboard Watcher for windream"
-        Me.NotifyIconMain.Visible = True
-        '
-        'cmstrpNotifyIcon
-        '
-        Me.cmstrpNotifyIcon.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.AblaufAnzeigenToolStripMenuItem, Me.tsmiChangeState, Me.ClientÖffnenToolStripMenuItem, Me.ClientBeendenToolStripMenuItem})
-        Me.cmstrpNotifyIcon.Name = "cmstrpNotifyIcon"
-        Me.cmstrpNotifyIcon.Size = New System.Drawing.Size(250, 114)
-        '
-        'tsmiChangeState
-        '
-        Me.tsmiChangeState.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.StatusAnnotations_Stop_16xLG
-        Me.tsmiChangeState.Name = "tsmiChangeState"
-        Me.tsmiChangeState.Size = New System.Drawing.Size(249, 22)
-        Me.tsmiChangeState.Tag = "stop"
-        Me.tsmiChangeState.Text = "Überwachung Clipboard stoppen"
-        '
-        'ClientÖffnenToolStripMenuItem
-        '
-        Me.ClientÖffnenToolStripMenuItem.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.door_open
-        Me.ClientÖffnenToolStripMenuItem.Name = "ClientÖffnenToolStripMenuItem"
-        Me.ClientÖffnenToolStripMenuItem.Size = New System.Drawing.Size(249, 22)
-        Me.ClientÖffnenToolStripMenuItem.Text = "Client öffnen"
-        '
-        'ClientBeendenToolStripMenuItem
-        '
-        Me.ClientBeendenToolStripMenuItem.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.cancel
-        Me.ClientBeendenToolStripMenuItem.Name = "ClientBeendenToolStripMenuItem"
-        Me.ClientBeendenToolStripMenuItem.Size = New System.Drawing.Size(249, 22)
-        Me.ClientBeendenToolStripMenuItem.Text = "Client beenden"
-        '
-        'StatusStrip1
-        '
-        Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.labelUser, Me.lblrefresh})
-        Me.StatusStrip1.Location = New System.Drawing.Point(0, 154)
-        Me.StatusStrip1.Name = "StatusStrip1"
-        Me.StatusStrip1.Size = New System.Drawing.Size(345, 22)
-        Me.StatusStrip1.SizingGrip = False
-        Me.StatusStrip1.TabIndex = 3
-        Me.StatusStrip1.Text = "StatusStrip1"
-        '
-        'labelUser
-        '
-        Me.labelUser.Image = CType(resources.GetObject("labelUser.Image"), System.Drawing.Image)
-        Me.labelUser.Name = "labelUser"
-        Me.labelUser.Size = New System.Drawing.Size(37, 17)
-        Me.labelUser.Text = "{0}"
-        '
-        'lblrefresh
-        '
-        Me.lblrefresh.Name = "lblrefresh"
-        Me.lblrefresh.Size = New System.Drawing.Size(0, 17)
-        '
-        'TimerClose
-        '
-        Me.TimerClose.Interval = 10000
-        '
-        'ContextMenuStripForm
-        '
-        Me.ContextMenuStripForm.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.MinimierenToolStripMenuItem})
-        Me.ContextMenuStripForm.Name = "ContextMenuStripForm"
-        Me.ContextMenuStripForm.Size = New System.Drawing.Size(136, 26)
-        '
-        'MinimierenToolStripMenuItem
-        '
-        Me.MinimierenToolStripMenuItem.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.ReduceSize
-        Me.MinimierenToolStripMenuItem.Name = "MinimierenToolStripMenuItem"
-        Me.MinimierenToolStripMenuItem.Size = New System.Drawing.Size(135, 22)
-        Me.MinimierenToolStripMenuItem.Text = "Minimieren"
-        '
-        'Label1
-        '
-        Me.Label1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
-            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.Label1.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label1.Location = New System.Drawing.Point(12, 56)
-        Me.Label1.Name = "Label1"
-        Me.Label1.Size = New System.Drawing.Size(321, 26)
-        Me.Label1.TabIndex = 7
-        Me.Label1.Text = "Deaktivieren des Watchers über Rechtsklick auf das Systray Icon oder die Tastatur" &
-    "kombination Strg + T"
-        '
-        'GroupBox1
-        '
-        Me.GroupBox1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
-            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.GroupBox1.Controls.Add(Me.Label2)
-        Me.GroupBox1.Controls.Add(Me.labelHotkey)
-        Me.GroupBox1.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.GroupBox1.Location = New System.Drawing.Point(15, 92)
-        Me.GroupBox1.Name = "GroupBox1"
-        Me.GroupBox1.Size = New System.Drawing.Size(318, 59)
-        Me.GroupBox1.TabIndex = 11
-        Me.GroupBox1.TabStop = False
-        Me.GroupBox1.Text = "Aktuelle Tastenkombination:"
-        '
-        'Label2
-        '
-        Me.Label2.Dock = System.Windows.Forms.DockStyle.Top
-        Me.Label2.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label2.Location = New System.Drawing.Point(3, 17)
-        Me.Label2.Name = "Label2"
-        Me.Label2.Size = New System.Drawing.Size(312, 13)
-        Me.Label2.TabIndex = 14
-        Me.Label2.Text = "Zwischenablage gefolgt von:"
-        Me.Label2.TextAlign = System.Drawing.ContentAlignment.TopCenter
-        '
-        'labelHotkey
-        '
-        Me.labelHotkey.Dock = System.Windows.Forms.DockStyle.Bottom
-        Me.labelHotkey.Font = New System.Drawing.Font("Tahoma", 15.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.labelHotkey.ForeColor = System.Drawing.SystemColors.ControlDarkDark
-        Me.labelHotkey.Location = New System.Drawing.Point(3, 29)
-        Me.labelHotkey.Name = "labelHotkey"
-        Me.labelHotkey.Size = New System.Drawing.Size(312, 27)
-        Me.labelHotkey.TabIndex = 13
-        Me.labelHotkey.Text = "{0}"
-        Me.labelHotkey.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
-        '
-        'btnUserConfig
-        '
-        Me.btnUserConfig.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.user_16xLG
-        Me.btnUserConfig.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.btnUserConfig.Location = New System.Drawing.Point(15, 12)
-        Me.btnUserConfig.Name = "btnUserConfig"
-        Me.btnUserConfig.Size = New System.Drawing.Size(151, 32)
-        Me.btnUserConfig.TabIndex = 13
-        Me.btnUserConfig.Text = "Grundeinstellungen"
-        Me.btnUserConfig.UseVisualStyleBackColor = True
-        '
-        'btnAdminConfig
-        '
-        Me.btnAdminConfig.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.Editdatasetwithdesigner_8449
-        Me.btnAdminConfig.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.btnAdminConfig.Location = New System.Drawing.Point(182, 12)
-        Me.btnAdminConfig.Name = "btnAdminConfig"
-        Me.btnAdminConfig.Size = New System.Drawing.Size(151, 32)
-        Me.btnAdminConfig.TabIndex = 13
-        Me.btnAdminConfig.Text = "Administration"
-        Me.btnAdminConfig.UseVisualStyleBackColor = True
-        '
-        'ImageList1
-        '
-        Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
-        Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent
-        Me.ImageList1.Images.SetKeyName(0, "WorkItem_32xMD.png")
-        Me.ImageList1.Images.SetKeyName(1, "key_16xLG.png")
-        Me.ImageList1.Images.SetKeyName(2, "ResultstoFile_9946.png")
-        Me.ImageList1.Images.SetKeyName(3, "WindowsForm_817.ico")
-        Me.ImageList1.Images.SetKeyName(4, "process_16xMD.png")
-        '
-        'TimerRefresh
-        '
-        Me.TimerRefresh.Interval = 120000
-        '
-        'AblaufAnzeigenToolStripMenuItem
-        '
-        Me.AblaufAnzeigenToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BisherigenAblaufAnzeigenToolStripMenuItem})
-        Me.AblaufAnzeigenToolStripMenuItem.Name = "AblaufAnzeigenToolStripMenuItem"
-        Me.AblaufAnzeigenToolStripMenuItem.Size = New System.Drawing.Size(249, 22)
-        Me.AblaufAnzeigenToolStripMenuItem.Text = "Funktionen"
-        '
-        'BisherigenAblaufAnzeigenToolStripMenuItem
-        '
-        Me.BisherigenAblaufAnzeigenToolStripMenuItem.Name = "BisherigenAblaufAnzeigenToolStripMenuItem"
-        Me.BisherigenAblaufAnzeigenToolStripMenuItem.Size = New System.Drawing.Size(217, 22)
-        Me.BisherigenAblaufAnzeigenToolStripMenuItem.Text = "Bisherigen Ablauf anzeigen"
-        '
-        'frmStart
-        '
-        Me.Appearance.Options.UseFont = True
-        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
-        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(345, 176)
-        Me.ContextMenuStrip = Me.ContextMenuStripForm
-        Me.Controls.Add(Me.btnAdminConfig)
-        Me.Controls.Add(Me.btnUserConfig)
-        Me.Controls.Add(Me.GroupBox1)
-        Me.Controls.Add(Me.Label1)
-        Me.Controls.Add(Me.StatusStrip1)
-        Me.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
-        Me.KeyPreview = True
-        Me.MaximizeBox = False
-        Me.MaximumSize = New System.Drawing.Size(361, 215)
-        Me.MinimumSize = New System.Drawing.Size(361, 215)
-        Me.Name = "frmStart"
-        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
-        Me.Text = "Clipboard Watcher"
-        Me.cmstrpNotifyIcon.ResumeLayout(False)
-        Me.StatusStrip1.ResumeLayout(False)
-        Me.StatusStrip1.PerformLayout()
-        Me.ContextMenuStripForm.ResumeLayout(False)
-        Me.GroupBox1.ResumeLayout(False)
-        Me.ResumeLayout(False)
-        Me.PerformLayout()
-
-    End Sub
-    Friend WithEvents NotifyIconMain As System.Windows.Forms.NotifyIcon
-    Friend WithEvents cmstrpNotifyIcon As System.Windows.Forms.ContextMenuStrip
-    Friend WithEvents tsmiChangeState As System.Windows.Forms.ToolStripMenuItem
-    Friend WithEvents StatusStrip1 As System.Windows.Forms.StatusStrip
-    Friend WithEvents labelUser As System.Windows.Forms.ToolStripStatusLabel
-    Friend WithEvents TimerClose As System.Windows.Forms.Timer
-    Friend WithEvents ContextMenuStripForm As System.Windows.Forms.ContextMenuStrip
-    Friend WithEvents MinimierenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
-    Friend WithEvents Label1 As System.Windows.Forms.Label
-    Friend WithEvents GroupBox1 As GroupBox
-    Friend WithEvents ClientÖffnenToolStripMenuItem As ToolStripMenuItem
-    Friend WithEvents labelHotkey As Label
-    Friend WithEvents btnUserConfig As Button
-    Friend WithEvents btnAdminConfig As Button
-    Friend WithEvents Label2 As Label
-    Friend WithEvents ClientBeendenToolStripMenuItem As ToolStripMenuItem
-    Friend WithEvents ImageList1 As ImageList
-    Friend WithEvents TimerRefresh As Timer
-    Friend WithEvents lblrefresh As ToolStripStatusLabel
-    Friend WithEvents AblaufAnzeigenToolStripMenuItem As ToolStripMenuItem
-    Friend WithEvents BisherigenAblaufAnzeigenToolStripMenuItem As ToolStripMenuItem
-End Class

app/DD_Clipboard_Searcher/frmStart.vb

@@ -1,349 +0,0 @@
-Imports System.Threading
-Imports System.IO
-Imports System.Globalization
-Imports DD_Clipboard_Watcher.ClassConstants
-Imports DD_Clipboard_Watcher.ClassWindowAPI
-
-Public Class frmStart
-    Dim WithEvents Hotkey As New ClassHotkey(Me)
-    Private WithEvents _Watcher As ClipboardWatcher = ClipboardWatcher.Singleton
-
-    Public Sub New()
-        ' Dieser Aufruf ist für den Designer erforderlich.
-        InitializeComponent()
-
-        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
-        Dim splash As New frmSplash()
-        splash.ShowDialog()
-        If ERROR_INIT <> "INVALID USER" Then
-            Dim cultureInfo As New CultureInfo(USER_LANGUAGE)
-            Thread.CurrentThread.CurrentCulture = cultureInfo
-            Thread.CurrentThread.CurrentUICulture = cultureInfo
-            CultureInfo.DefaultThreadCurrentCulture = cultureInfo
-            CultureInfo.DefaultThreadCurrentUICulture = cultureInfo
-        End If
-    End Sub
-
-    Private Sub frmMain_Load(sender As Object, e As EventArgs) Handles Me.Load
-        ClassWindowLocation.LoadFormLocationSize(Me)
-        If ERROR_INIT = "FAILED DBCONNECTION" Or ERROR_INIT = "DATABASE" Then
-            frmConfig_Basic.ShowDialog()
-        End If
-
-        If Database.DBInitialized = True Then
-            If ERROR_INIT <> "" Then
-                If ERROR_INIT = "NO CLIENT" Then
-                    MsgBox("You are not related to a client!" & vbNewLine & "Please contact the system administrator!", MsgBoxStyle.Exclamation)
-                Else
-                    MsgBox("Sorry Something went wrong in user configuration!" & vbNewLine & "Reason: " & ERROR_INIT & vbNewLine & "Please contact the system administrator!", MsgBoxStyle.Exclamation)
-                End If
-                Exit Sub
-            End If
-            NotifyIconMain.Visible = True
-            ClassInit.Refresh_Profile_Links()
-            ClassInit.Refresh_Connections()
-            Hotkey.AddHotKey(Keys.T, ClassHotkey.ModfierKey.MOD_CONTROL, HOTKEY_TOGGLE_WATCHER)
-            Dim oKeyCode As Keys
-            Dim oConverter As New KeysConverter
-            Dim oObject As Object = oConverter.ConvertFromString(HotkeySearchKey.ToUpper)
-            oKeyCode = CType(oObject, Keys)
-
-            If HotkeyFunctionKey = HOTKEY_CTRL Then
-                Hotkey.AddHotKey(oKeyCode, ClassHotkey.ModfierKey.MOD_CONTROL, ClassConstants.HOTKEY_TRIGGER_WATCHER)
-            ElseIf HotkeyFunctionKey = HOTKEY_SHIFT Then
-                Hotkey.AddHotKey(oKeyCode, ClassHotkey.ModfierKey.MOD_SHIFT, ClassConstants.HOTKEY_TRIGGER_WATCHER)
-            End If
-
-        End If
-        labelUser.Text = String.Format(labelUser.Text, USER_USERNAME)
-        labelHotkey.Text = String.Format(labelHotkey.Text, $"{HotkeyFunctionKey.ToUpper}+{HotkeySearchKey.ToUpper}")
-    End Sub
-
-    Private Sub frmMain_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
-        Logger.Info(">> Logout time: " & Now.ToString, False)
-        If ERROR_INIT = "INVALID USER" Or ERROR_INIT = "NO CLIENT" Then
-            Exit Sub
-        End If
-        Try
-            Dim sql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_ID & " AND UPPER(MODULE) = UPPER('Clipboard-Watcher')"
-            Database.ExecuteNonQuery(sql)
-            ClassWindowLocation.SaveFormLocationSize(Me, "")
-            My.Settings.Save()
-        Catch ex As Exception
-
-        End Try
-        Try
-            Hotkey.RemoveHotKey(HOTKEY_TOGGLE_WATCHER)
-            Hotkey.RemoveHotKey(HOTKEY_TRIGGER_WATCHER)
-        Catch ex As Exception
-            Logger.Error(ex)
-            Logger.Warn("Hotkeys could not be removed")
-        End Try
-
-        'TempDateien löschen
-        For Each oFile In TEMP_FILES
-            Try
-                File.Delete(oFile)
-            Catch ex As Exception
-                Logger.Warn("Temp file {0} could not be deleted", oFile)
-                Logger.Error(ex)
-            End Try
-        Next
-    End Sub
-
-    Private Sub frmClipboardWatch_Disposed(ByVal sender As Object, ByVal e As EventArgs) Handles Me.Disposed
-        _Watcher.Dispose()
-    End Sub
-
-    Private Sub WatcherChanged_New(ByVal sender As Object, ByVal e As EventArgs) Handles _Watcher.Changed
-        If MONITORING_ACTIVE = False Then
-            NotifyIconMain.ShowBalloonTip(20000, "Clipboard Watcher", "Clipboard-watcher is inactive.", ToolTipIcon.Info)
-            Exit Sub
-        End If
-
-        If DT_USER_PROFILES Is Nothing OrElse DT_USER_PROFILES.Rows.Count = 0 Then
-            Logger.Warn("DT_USER_PROFILES is empty!")
-            Exit Sub
-        End If
-
-        If DTPROFILE_REL_PROCESS Is Nothing OrElse DTPROFILE_REL_PROCESS.Rows.Count = 0 Then
-            Logger.Warn("DTPROFILE_REL_PROCESS is empty!")
-            Exit Sub
-        End If
-
-        If DTPROFILE_REL_WINDOW Is Nothing OrElse DTPROFILE_REL_WINDOW.Rows.Count = 0 Then
-            Logger.Warn("DTPROFILE_REL_WINDOW is empty!")
-            Exit Sub
-        End If
-
-        If DTPROFILE_REL_CONTROL Is Nothing OrElse DTPROFILE_REL_CONTROL.Rows.Count = 0 Then
-            Logger.Warn("DTPROFILE_REL_CONTROL is empty!")
-            Exit Sub
-        End If
-
-        Dim oWindowInfo = GetWindowInfo()
-        Dim ClipboardContents As String = Clipboard.GetText()
-        Dim oProfileFilter As ClassProfileFilter
-        Dim oFocusedControl As IntPtr = FocusedControlinActiveWindow(Handle)
-        Try
-            CurrMatchTreeView.Nodes.Clear()
-            CurrMatchTreeView.ImageList = ImageList1
-            CurrMatchTreeView.SelectedImageIndex = 0
-
-            oProfileFilter = New ClassProfileFilter(
-                DT_USER_PROFILES,
-                DTPROFILE_REL_PROCESS,
-                DTPROFILE_REL_WINDOW,
-                DTPROFILE_REL_CONTROL,
-                CurrMatchTreeView)
-        Catch ex As Exception
-            Logger.Error(ex)
-            MsgBox("Fehler beim Laden der Profile. Möglicherweise liegt ein Konfigurationsfehler vor. Mehr Informationen im Log.", MsgBoxStyle.Critical, Text)
-            Exit Sub
-        End Try
-
-        Try
-            Dim oProfiles = oProfileFilter.Profiles.AsEnumerable()
-
-            oProfiles = oProfileFilter.FilterProfilesByClipboardRegex(oProfiles, ClipboardContents)
-            oProfiles = oProfileFilter.FilterProfilesByProcess(oProfiles, oWindowInfo.ProcessName)
-            oProfiles = oProfileFilter.FilterWindowsByWindowTitleRegex(oProfiles, oWindowInfo.WindowTitle)
-            oProfiles = oProfileFilter.FilterProfilesByFocusedControlLocation(oProfiles, ClipboardContents, Handle)
-            oProfiles = oProfileFilter.ClearNotMatchedProfiles(oProfiles)
-            oProfiles = oProfileFilter.ClearDuplicateProfiles(oProfiles)
-            oProfiles = oProfiles.ToList()
-
-            CURRENT_MATCHING_PROFILES = oProfiles
-            CURRENT_CLIPBOARD_CONTENTS = ClipboardContents
-        Catch ex As Exception
-            MsgBox("Fehler beim Auswerten der Profile.  Mehr Informationen im Log.")
-            Logger.Error(ex)
-        End Try
-    End Sub
-
-    Private Sub ReceiveHotKey(ByVal HotKeyID As String) Handles Hotkey.HotKeyPressed
-        If HotKeyID = HOTKEY_TRIGGER_WATCHER Then
-            If CURRENT_CLIPBOARD_CONTENTS IsNot Nothing Then
-                If CURRENT_MATCHING_PROFILES.Count > 0 And MONITORING_ACTIVE = True Then
-                    CHECK_PROFILE_MATCH()
-                End If
-            End If
-        ElseIf HotKeyID = HOTKEY_TOGGLE_WATCHER Then
-            Change_Monitoring_State()
-        End If
-    End Sub
-    Sub CHECK_PROFILE_MATCH()
-        Dim oProfiles = CURRENT_MATCHING_PROFILES
-        Dim oInvalidDocumentSQL = False
-        Dim oInvalidDataSQL = False
-
-        For Each oProfile In oProfiles
-            Dim oResultDocs As Integer = 0
-            Dim oResultData As Integer = 0
-
-            Dim oDataSearches As DataTable = Database.GetDatatable($"SELECT COUNT_COMMAND FROM TBCW_PROF_DATA_SEARCH WHERE ACTIVE = 1 AND PROFILE_ID = {oProfile.Guid}")
-            Dim oDocSearches As DataTable = Database.GetDatatable($"SELECT COUNT_COMMAND FROM TBCW_PROF_DOC_SEARCH WHERE ACTIVE = 1 AND PROFILE_ID = {oProfile.Guid}")
-
-            For Each oRow As DataRow In oDataSearches.Rows
-                Dim oCountCommand = String.Empty
-                Try
-                    oCountCommand = oRow.Item("COUNT_COMMAND")
-
-                    If oCountCommand = String.Empty Then
-                        Continue For
-                    End If
-
-                    oCountCommand = clsPatterns.ReplaceAllValues(oCountCommand, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_EMAIL, USER_ID, oProfile.Guid)
-                    oResultData += Database.NewExecuteScalar(oCountCommand)
-                Catch ex As Exception
-                    Logger.Warn("Invalid SQL Query for Counting Data in Profile {0}: {1}", oProfile.Guid, oCountCommand)
-                    oInvalidDataSQL = True
-                End Try
-            Next
-
-            For Each oRow As DataRow In oDocSearches.Rows
-                Dim oCountCommand = String.Empty
-                Try
-                    oCountCommand = oRow.Item("COUNT_COMMAND")
-
-                    If oCountCommand = String.Empty Then
-                        Continue For
-                    End If
-
-                    oCountCommand = clsPatterns.ReplaceAllValues(oCountCommand, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_EMAIL, USER_ID, oProfile.Guid)
-                    oResultDocs += Database.NewExecuteScalar(oCountCommand)
-                Catch ex As Exception
-                    Logger.Warn("Invalid SQL Query for Counting Data in Profile {0}: {1}", oProfile.Guid, oCountCommand)
-                    oInvalidDocumentSQL = True
-                End Try
-            Next
-
-            oProfile.CountData = oResultData
-            oProfile.CountDocs = oResultDocs
-        Next
-
-        If oInvalidDocumentSQL Or oInvalidDataSQL Then
-            MsgBox("Ein oder mehrere Abfragen konnten nicht ausgeführt werden. Bitte überprüfen Sie das Log.", MsgBoxStyle.Exclamation, "Warnung")
-            Exit Sub
-        End If
-
-        Dim oForm As New frmProfileMatch()
-        oForm.ShowDialog()
-    End Sub
-    Sub Change_Monitoring_State()
-        If MONITORING_ACTIVE = True Then
-            NotifyIconMain.ShowBalloonTip(30000, "Clipboard Watcher", "Clipboard-Watcher wurde deaktiviert!", ToolTipIcon.Info)
-            MONITORING_ACTIVE = False
-        Else
-            MONITORING_ACTIVE = True
-            NotifyIconMain.ShowBalloonTip(30000, "Clipboard Watcher", "Clipboard-Watcher wurde wieder aktiviert!", ToolTipIcon.Info)
-        End If
-    End Sub
-    Private Sub frmMain_Shown(sender As Object, e As EventArgs) Handles Me.Shown
-        If ERROR_INIT <> "INVALID USER" And LICENSE_COUNT > 0 Then
-            If DT_USER_PROFILES.Rows.Count >= 1 Then
-                Hide()
-            End If
-        Else
-            If USER_IS_ADMIN = True And ERROR_INIT = "NO LICENSE" Then
-                MsgBox("As an admin You have access! Please inform Digital Data to add a valid license!", MsgBoxStyle.Exclamation, "No valid License")
-            Else
-                If Not USER_IS_ADMIN Then
-                    MsgBox("Application will close now!", MsgBoxStyle.Critical, "No valid License")
-                    Close()
-                End If
-
-            End If
-        End If
-        If USER_IS_ADMIN = True Then
-            btnAdminConfig.Visible = True
-        End If
-        TimerRefresh.Start()
-    End Sub
-
-    Private Sub NotifyIcon1_DoubleClick(sender As Object, e As EventArgs) Handles NotifyIconMain.DoubleClick
-        OpenClose()
-    End Sub
-    Sub OpenClose()
-        If Visible = False Then
-            BringToFront()
-            Visible = True
-            TimerClose.Start()
-        Else
-            Hide()
-            NotifyIconMain.Visible = True
-        End If
-    End Sub
-
-    Private Sub frmMain_KeyUp(sender As Object, e As KeyEventArgs) Handles MyBase.KeyUp
-        If e.KeyCode = Keys.F12 And USER_IS_ADMIN = True Then
-            frmLicense.ShowDialog()
-        End If
-    End Sub
-
-    Private Sub tsmiChangeState_Click(sender As Object, e As EventArgs) Handles tsmiChangeState.Click
-        If tsmiChangeState.Tag = "stop" Then
-            tsmiChangeState.Tag = "start"
-            tsmiChangeState.Image = My.Resources.control_start_blue
-            tsmiChangeState.Text = "Überwachung Clipboard starten"
-            MONITORING_ACTIVE = False
-            NotifyIconMain.ShowBalloonTip(30000, "Clipboard Watcher", "Clipboard-Watcher wurde inaktiviert!", ToolTipIcon.Info)
-        Else
-            tsmiChangeState.Image = My.Resources.StatusAnnotations_Stop_16xLG
-            tsmiChangeState.Tag = "stop"
-            tsmiChangeState.Text = "Überwachung Clipboard stoppen"
-            MONITORING_ACTIVE = True
-            NotifyIconMain.ShowBalloonTip(30000, "Clipboard Watcher", "Clipboard-Watcher wurde wieder aktiviert!", ToolTipIcon.Info)
-        End If
-    End Sub
-
-    Private Sub TimerClose_Tick(sender As Object, e As EventArgs) Handles TimerClose.Tick
-        Hide()
-    End Sub
-
-    Private Sub frmMain_VisibleChanged(sender As Object, e As EventArgs) Handles Me.VisibleChanged
-        If TimerClose.Enabled = True Then
-            TimerClose.Stop()
-        End If
-    End Sub
-
-    Private Sub MinimierenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles MinimierenToolStripMenuItem.Click
-        Hide()
-    End Sub
-
-    Private Sub ClientÖffnenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ClientÖffnenToolStripMenuItem.Click
-        OpenClose()
-    End Sub
-
-    Private Sub btnUserConfig_Click(sender As Object, e As EventArgs) Handles btnUserConfig.Click
-        frmConfig_Basic.ShowDialog()
-    End Sub
-
-    Private Sub btnAdminConfig_Click(sender As Object, e As EventArgs) Handles btnAdminConfig.Click
-        TimerClose.Stop()
-        MONITORING_ACTIVE = False
-        frmAdministration.ShowDialog()
-        TimerClose.Start()
-        MONITORING_ACTIVE = True
-    End Sub
-
-    Private Sub ClientBeendenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ClientBeendenToolStripMenuItem.Click
-        Shut_Down
-    End Sub
-    Sub Shut_Down()
-        If MsgBox("Wollen Sie das Programm beenden?", MsgBoxStyle.Question Or MsgBoxStyle.YesNo, Text) = MsgBoxResult.Yes Then
-            Close()
-        End If
-    End Sub
-    Private Sub TimerRefresh_Tick(sender As Object, e As EventArgs) Handles TimerRefresh.Tick
-        ClassInit.Refresh_Profile_Links()
-        lblrefresh.Text =
-        ClassInit.CheckModuleData()
-        lblrefresh.Text = $"Refreshed: {Now.ToShortTimeString} - UserLoggedIn: {USERCOUNT_LOGGED_IN}"
-
-    End Sub
-
-    Private Sub BisherigenAblaufAnzeigenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BisherigenAblaufAnzeigenToolStripMenuItem.Click
-        frmTreeView.ShowDialog()
-    End Sub
-End Class