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>
-    <DD_Clipboard_Watcher.My.MySettings>
-      <setting name="WDSearch_maximized" serializeAs="String">
-        <value>False</value>
-      </setting>
-      <setting name="frmResultSearchSplitterDistance" serializeAs="String">
-        <value>555</value>
-      </setting>
-      <setting name="frmResultDocSize" serializeAs="String">
-        <value>0, 0</value>
-      </setting>
-      <setting name="frmResultDocPosition" serializeAs="String">
-        <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>
+  <runtime>
+    <assemblyBinding xmlns="urn:schemas-microsoft-com:asm.v1">
+      <dependentAssembly>
+        <assemblyIdentity name="NLog" publicKeyToken="5120e14c03d0593c" culture="neutral" />
+        <bindingRedirect oldVersion="0.0.0.0-5.0.0.0" newVersion="5.0.0.0" />
+      </dependentAssembly>
+      <dependentAssembly>
+        <assemblyIdentity name="GdPicture.NET.14" publicKeyToken="f52a2e60ad468dbb" culture="neutral" />
+        <bindingRedirect oldVersion="0.0.0.0-14.2.90.0" newVersion="14.2.90.0" />
+      </dependentAssembly>
+    </assemblyBinding>
+  </runtime>
+</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

@@ -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/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)
-            Return True
+            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,78 +86,176 @@ 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
-            MyConnectionString = DecryptConnectionString(.ConnectionString)
+        ' If prefix is configured, use it to create a subfolder in app data and migrate existing data
+        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()
+        Try
+            Dim oSql = String.Format("SELECT * FROM [dbo].[FNDD_LOGIN_USER_MODULE] ('{0}','CW',{1})", USER_USERNAME, CLIENT_SELECTED)
+            Dim DT_CHECKUSER_MODULE As DataTable
+            DT_CHECKUSER_MODULE = MyDB_DDECM.GetDatatable(oSql)
 
-    Private Function DecryptConnectionString(EncryptedConnectionString As String) As String
-        Dim oBuilder As New SqlClient.SqlConnectionStringBuilder With {
-            .ConnectionString = EncryptedConnectionString
-        }
+            If DT_CHECKUSER_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_CHECKUSER_MODULE.Rows.Count = 1 Then
+                Logger.Info("Login Username: " & USER_ID, False)
+                Logger.Info("Login time: " & Now.ToShortDateString, False)
 
-        If oBuilder.ConnectionString.Contains("Password=") Then
-            Dim oPlaintextPassword As String
-            Dim oDecryptor As New clsEncryption("!35452didalog=")
+                USER_ID = DT_CHECKUSER_MODULE.Rows(0).Item("USER_ID")
+                USER_SURNAME = ObjectEx.NotNull(DT_CHECKUSER_MODULE.Rows(0).Item("USER_SURNAME"), "")
+                USER_PRENAME = ObjectEx.NotNull(DT_CHECKUSER_MODULE.Rows(0).Item("USER_PRENAME"), "")
+                USER_SHORTNAME = ObjectEx.NotNull(DT_CHECKUSER_MODULE.Rows(0).Item("USER_SHORTNAME"), "")
+                USER_EMAIL = ObjectEx.NotNull(DT_CHECKUSER_MODULE.Rows(0).Item("USER_EMAIL"), "")
 
-            Try
-                oPlaintextPassword = oDecryptor.DecryptData(oBuilder.Password)
-            Catch ex As Exception
-                Logger.Error(ex)
-                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"
-            MsgBox("Sorry - Something went wrong in getting Your rights." & vbNewLine & "Please contact the system administrator!", MsgBoxStyle.Exclamation)
+
+                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(" - 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 If
-        If DT_CHECKUSER_MODULE.Rows.Count = 1 Then
-            Logger.Info(">> Login Username: " & USER_USERNAME, False)
-            Logger.Info(">> Login time: " & Now.ToString, 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_PRENAME = IIf(IsDBNull(DT_CHECKUSER_MODULE.Rows(0).Item("USER_PRENAME")), "", DT_CHECKUSER_MODULE.Rows(0).Item("USER_PRENAME"))
-            USER_SHORTNAME = IIf(IsDBNull(DT_CHECKUSER_MODULE.Rows(0).Item("USER_SHORTNAME")), "", DT_CHECKUSER_MODULE.Rows(0).Item("USER_SHORTNAME"))
-            USER_EMAIL = IIf(IsDBNull(DT_CHECKUSER_MODULE.Rows(0).Item("USER_EMAIL")), "", DT_CHECKUSER_MODULE.Rows(0).Item("USER_EMAIL"))
-            USER_LANGUAGE = DT_CHECKUSER_MODULE.Rows(0).Item("USER_LANGUAGE")
-            USER_DATE_FORMAT = DT_CHECKUSER_MODULE.Rows(0).Item("USER_DATE_FORMAT")
+        End Try
 
-            USER_IN_MODULE = DT_CHECKUSER_MODULE.Rows(0).Item("MODULE_ACCESS")
-            USER_IS_ADMIN = DT_CHECKUSER_MODULE.Rows(0).Item("IS_ADMIN")
-
-
-            USERCOUNT_LOGGED_IN = DT_CHECKUSER_MODULE.Rows(0).Item("USERCOUNT_LOGGED_IN")
-            USERCOUNT_LOGGED_IN += 1
-            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
     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 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")
+                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_ID & "' not related to a client", True)
+                        ERROR_INIT = "NO CLIENT"
+                        'ERROR_STATE = "NO CLIENT"
+                        Return False
+                    End If
                 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
+
             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)
-            Database.ExecuteNonQuery(oSQL)
+            oSQL = $"INSERT INTO TBDD_USER_MODULE_LOG_IN (USER_ID,CLIENT_ID,MODULE,VERSION_CLIENT,MACHINE_NAME) VALUES
+                ({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.GetScalarValue("SELECT WD_UNICODE FROM TBCW_CONFIGURATION WHERE GUID = 1")
-            GDPICTURE_LICENSE = Database.GetScalarValue("SELECT GDPICTURE_LICENSE FROM TBCW_CONFIGURATION WHERE GUID = 1")
+            WD_UNICODE = MyDB_DDECM.GetScalarValue("SELECT WD_UNICODE 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 = 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)
+            DT_USER_PROFILES = MyDB_DDECM.GetDatatable(ProfileSQL)
 
-                oSql = $"SELECT * FROM VWCW_PROFILE_REL_WINDOW WHERE USER_ID = {USER_ID}"
-                DTPROFILE_REL_WINDOW = Database.GetDatatable(oSql)
-
-                oSql = $"SELECT * FROM VWCW_PROFILE_REL_CONTROL WHERE USER_ID = {USER_ID}"
-                DTPROFILE_REL_CONTROL = Database.GetDatatable(oSql)
+            If DT_USER_PROFILES Is Nothing Or DT_USER_PROFILES.Rows.Count = 0 Then
+                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_
             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)
-        Dim sql As String = String.Format("SELECT LICENSE_DDCBSEARCHER FROM TBDD_CLIENT WHERE GUID = {0}", CLIENT_ID)
+        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.GetScalarValue(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
-                MsgBox("Your license evaluated!" & vbNewLine & "Last valid date: " & split(1) & vbNewLine & "Please contact Digital Data.", MsgBoxStyle.Exclamation)
-                LICENSE_EXPIRED = True
-                LICENSE_COUNT = 0
-                ERROR_INIT = "NO LICENSE"
-            End If
+            Try
+                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/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>
-  <SingleInstance>false</SingleInstance>
+  <MainForm>frmMain</MainForm>
+  <SingleInstance>true</SingleInstance>
   <ShutdownMode>0</ShutdownMode>
   <EnableVisualStyles>true</EnableVisualStyles>
   <AuthenticationMode>0</AuthenticationMode>

app/DD_Clipboard_Searcher/My Project/AssemblyInfo.vb

@@ -8,12 +8,12 @@ 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: AssemblyCopyright("Copyright ©2019")>
-<Assembly: AssemblyTrademark("")> 
+<Assembly: AssemblyProduct("easyFLOW")>
+<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">
-    <value>..\Resources\Annotation_New.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  <data name="searchFlow_icon" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <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">
-    <value>..\Resources\tiff.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  <data name="Annotation_New" 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>
   </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 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="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">
-    <value>..\Resources\PrepareProcess.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  <data name="DD_easyFLOW_BOOT" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <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="& _ 
-            "True;User ID=sa;Password=dd")>  _
+         Global.System.Configuration.DefaultSettingValueAttribute("Data Source=172.24.12.44\DD_DEVELOP01;Initial Catalog=DD_ECM;Persist Security Inf"& _ 
+            "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")>  _
-        Public Property frmResultSearchSplitterDistance() As Integer
+         Global.System.Configuration.DefaultSettingValueAttribute("11.2024")>  _
+        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;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;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.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">
-      <Value Profile="(Default)">555</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 Name="GDPICTURE_VERSION" Type="System.String" Scope="Application">
+      <Value Profile="(Default)">11.2024</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.v18.1, Version=18.1.5.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.Repository.RepositoryItemTextEdit, DevExpress.XtraEditors.v18.1, Version=18.1.5.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.v18.1, Version=18.1.5.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.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
+DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraEditors.CheckEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraEditors.ComboBoxEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraEditors.LookUpEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraLayout.LayoutControl, DevExpress.XtraLayout.v21.2, Version=21.2.4.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>
-    <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>
+  <TableUISettings />
 </DataSetUISetting>

app/DD_Clipboard_Searcher/MyDataset.xss

@@ -4,70 +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="301" 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="19" X="14" Y="-44" Height="286" Width="240" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="235" />
-    <Shape ID="DesignTable:TBCW_USER_PROFILE" ZOrder="8" X="680" Y="299" Height="172" Width="271" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="121" />
-    <Shape ID="DesignTable:VWUSER_PROFILE" ZOrder="18" X="1049" Y="11" Height="250" Width="191" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="24" SplitterPosition="142" />
-    <Shape ID="DesignTable:TBCW_PROFILE_PROCESS" ZOrder="16" X="20" Y="585" Height="172" Width="294" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="121" />
-    <Shape ID="DesignTable:TBCW_PROF_DATA_SEARCH" ZOrder="15" X="630" Y="-32" Height="305" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
-    <Shape ID="DesignTable:TBCW_PROF_DOC_SEARCH" ZOrder="13" X="321" Y="20" Height="305" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
-    <Shape ID="DesignTable:TBCW_GROUP_PROFILE" ZOrder="6" X="336" Y="635" Height="172" Width="281" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="121" />
-    <Shape ID="DesignTable:VWCW_GROUP_PROFILE" ZOrder="10" X="1252" Y="5" Height="248" Width="218" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="159" />
-    <Shape ID="DesignTable:TBCW_PROF_REL_WINDOW" ZOrder="5" X="10" Y="259" Height="248" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="24" SplitterPosition="197" />
-    <Shape ID="DesignTable:TBDD_CONNECTION" ZOrder="7" X="675" Y="483" Height="305" Width="264" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
-    <Shape ID="DesignTable:TBCW_PROF_REL_CONTROL" ZOrder="2" X="330" Y="327" Height="305" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
-    <Shape ID="DesignTable:TBWH_User" ZOrder="17" X="1221" Y="436" Height="124" Width="150" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="139" />
-    <Shape ID="DesignTable:TBWH_GROUP" ZOrder="11" 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="9" X="1204" Y="609" Height="67" Width="190" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="63" />
-    <Shape ID="DesignTable:TBWH_SEARCH_POSITION" ZOrder="1" X="990" Y="605" Height="67" Width="218" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="63" />
+    <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_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: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_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_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_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_PROFILES" ZOrder="14" X="638" Y="719" Height="267" Width="240" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="216" />
+    <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: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: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: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_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_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_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_DATA_SEARCH_PROF_IF" ZOrder="14" LineWidth="11">
+    <Connector ID="DesignRelation:FK_TBCW_PROF_REL_CONTROL_WINDOW_ID" ZOrder="16" LineWidth="11">
       <RoutePoints>
         <Point>
-          <X>254</X>
-          <Y>-23</Y>
+          <X>1268</X>
+          <Y>473</Y>
         </Point>
         <Point>
-          <X>630</X>
-          <Y>-23</Y>
+          <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>700</X>
+          <Y>719</Y>
+        </Point>
+        <Point>
+          <X>700</X>
+          <Y>416</Y>
         </Point>
       </RoutePoints>
     </Connector>
     <Connector ID="DesignRelation:FK_TBCW_PROF_DOC_SEARCH_PROF_IF" ZOrder="12" LineWidth="11">
       <RoutePoints>
         <Point>
-          <X>254</X>
-          <Y>61</Y>
+          <X>789</X>
+          <Y>719</Y>
         </Point>
         <Point>
-          <X>321</X>
-          <Y>61</Y>
-        </Point>
-      </RoutePoints>
-    </Connector>
-    <Connector ID="DesignRelation:FK_WINDOW_ID" ZOrder="4" 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="3" LineWidth="11">
-      <RoutePoints>
-        <Point>
-          <X>165</X>
-          <Y>585</Y>
-        </Point>
-        <Point>
-          <X>165</X>
-          <Y>507</Y>
+          <X>789</X>
+          <Y>417</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

@@ -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>Refreshed: {0}</value>
+  </data>
+  <data name="Aktualisierung erfolgreich." xml:space="preserve">
+    <value>Refresh successful.</value>
+  </data>
+  <data name="Clipboard-Watcher starten" xml:space="preserve">
+    <value>Start easyFLOW</value>
+  </data>
+  <data name="Clipboard-Watcher stoppen" xml:space="preserve">
+    <value>Stop easyFLOW</value>
+  </data>
+  <data name="Clipboard-Watcher wurde deaktiviert!" xml:space="preserve">
+    <value>easyFLOW was deactivated!</value>
+  </data>
+  <data name="Clipboard-Watcher wurde wieder aktiviert!" xml:space="preserve">
+    <value>easyFLOW was activated again!</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>User Configuration could not be performed successfully!</value>
+  </data>
+  <data name="Eingeloggte Benutzer: {0}" xml:space="preserve">
+    <value>Loggedin users: {0}</value>
+  </data>
+  <data name="Es wurden keine passenden Profile gefunden für die Suche nach '{0}'!" xml:space="preserve">
+    <value>No matching profiles could be found for the search term '{0}'!</value>
+  </data>
+  <data name="Es wurden noch keine Profile für den aktuellen Benutzer konfiguriert." xml:space="preserve">
+    <value>No profiles are configured for this user yet.</value>
+  </data>
+  <data name="Es wurden weder Dokumente noch Daten gefunden für die Suche nach '{0}'!" xml:space="preserve">
+    <value>No matching documents or records could be found for the search term '{0}'!</value>
+  </data>
+  <data name="Fehler bei der Aktualisierung." xml:space="preserve">
+    <value>Error while refreshing!</value>
+  </data>
+  <data name="Fehler beim Auswerten der Profile. Mehr Informationen im Log." xml:space="preserve">
+    <value>Error while evaluating the profiles. Check the log for more information.</value>
+  </data>
+  <data name="Fehler beim Laden der Profile." xml:space="preserve">
+    <value>Error while loading the profiles. There might be a problem in the configuration. Check the log for more information.</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

@@ -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>Rafraîchis: {0}</value>
+  </data>
+  <data name="Aktualisierung erfolgreich." xml:space="preserve">
+    <value>Mise à jour réussie.</value>
+  </data>
+  <data name="Clipboard-Watcher starten" xml:space="preserve">
+    <value>Démarrer easyFLOW</value>
+  </data>
+  <data name="Clipboard-Watcher stoppen" xml:space="preserve">
+    <value>Arrêt easyFLOW</value>
+  </data>
+  <data name="Clipboard-Watcher wurde deaktiviert!" xml:space="preserve">
+    <value>easyFLOW a été désactivé !</value>
+  </data>
+  <data name="Clipboard-Watcher wurde wieder aktiviert!" xml:space="preserve">
+    <value>easyFLOW a été réactivé !</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>La configuration de l'utilisateur n'a pas pu être effectuée avec succès !</value>
+  </data>
+  <data name="Eingeloggte Benutzer: {0}" xml:space="preserve">
+    <value>Utilisateurs connectés: {0}</value>
+  </data>
+  <data name="Es wurden keine passenden Profile gefunden für die Suche nach '{0}'!" xml:space="preserve">
+    <value>Aucun profil correspondant n'a pu être trouvé pour le terme de recherche '{0}' !</value>
+  </data>
+  <data name="Es wurden noch keine Profile für den aktuellen Benutzer konfiguriert." xml:space="preserve">
+    <value>Aucun profil n'a encore été configuré pour l'utilisateur actuel.</value>
+  </data>
+  <data name="Es wurden weder Dokumente noch Daten gefunden für die Suche nach '{0}'!" xml:space="preserve">
+    <value>Aucun document ou enregistrement correspondant n'a pu être trouvé pour le terme de recherche '{0}' !</value>
+  </data>
+  <data name="Fehler bei der Aktualisierung." xml:space="preserve">
+    <value>Erreur lors de la mise à jour.</value>
+  </data>
+  <data name="Fehler beim Auswerten der Profile. Mehr Informationen im Log." xml:space="preserve">
+    <value>Erreur lors de l'évaluation des profils. Vérifiez le journal pour plus d'informations.</value>
+  </data>
+  <data name="Fehler beim Laden der Profile." xml:space="preserve">
+    <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>
+  </data>
+  <data name="Sie sind keinem Mandanten zugewiesen.{0}Bitte wenden Sie sich an  Ihren Administrator!" xml:space="preserve">
+    <value>Vous n'êtes pas lié à un mandataire{0}Veuillez contacter votre administrateur.</value>
+  </data>
+  <data name="Wollen Sie Clipboard-Watcher wirklich beenden?" xml:space="preserve">
+    <value>Voulez-vous vraiment quitter easyFLOW ?</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_PROF_REL_WINDOWTableAdapter = New DD_Clipboard_Watcher.MyDatasetTableAdapters.TBCW_PROF_REL_WINDOWTableAdapter()
-        Me.TBCW_PROF_DOC_SEARCHTableAdapter = New DD_Clipboard_Watcher.MyDatasetTableAdapters.TBCW_PROF_DOC_SEARCHTableAdapter()
-        Me.TableAdapterManager = New DD_Clipboard_Watcher.MyDatasetTableAdapters.TableAdapterManager()
-        Me.TBCW_PROF_REL_CONTROLTableAdapter = New DD_Clipboard_Watcher.MyDatasetTableAdapters.TBCW_PROF_REL_CONTROLTableAdapter()
+        Me.TBCW_PROFILE_PROCESSTableAdapter = New easyFLOW.MyDatasetTableAdapters.TBCW_PROFILE_PROCESSTableAdapter()
+        Me.TBCW_PROF_REL_WINDOWTableAdapter = New easyFLOW.MyDatasetTableAdapters.TBCW_PROF_REL_WINDOWTableAdapter()
+        Me.TBCW_PROF_DOC_SEARCHTableAdapter = New easyFLOW.MyDatasetTableAdapters.TBCW_PROF_DOC_SEARCHTableAdapter()
+        Me.TableAdapterManager = New easyFLOW.MyDatasetTableAdapters.TableAdapterManager()
+        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

@@ -7,24 +7,37 @@ Imports DigitalData.Controls.RegexEditor
 Imports DigitalData.Modules.Windows.Window
 
 Public Class ctrlApplicationAssignment
-    Public AppSelectionString As String
-    Private Current_ProfileId As Integer
-    Private Current_WindowId As Integer
-    Private Current_ProcessGUID As Integer
-    Private Current_ControlId As Integer
+    Public Property SelectedProfileId As Integer = 0
+    Public Property SelectedProcessId As Integer = 0
+    Public Property SelectedWindowId As Integer = 0
+    Public Property SelectedControlId As Integer = 0
 
-    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)
@@ -33,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
@@ -52,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
 
@@ -79,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
-                Process_Load(Current_ProfileId)
+            If MyDB_DDECM.ExecuteNonQuery(oSQL) Then
+                Process_Load(SelectedProfileId)
                 Return True
             End If
 
@@ -109,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
-        End If
-        Console.WriteLine()
+
+        'If oForm.ShowDialog() = DialogResult.OK Then
+        'oButtonEdit.EditValue = oForm.RegexString
+        '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
@@ -126,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
@@ -137,6 +158,8 @@ Public Class ctrlApplicationAssignment
                 Logger.Error(ex)
                 Return False
             End Try
+        Else
+            Return True
         End If
     End Function
 
@@ -144,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
-                Process_Load(Current_ProfileId)
+            If MyDB_DDECM.ExecuteNonQuery(oSQL) Then
+                Process_Load(SelectedProfileId)
                 Return True
             End If
 
@@ -173,9 +196,27 @@ Public Class ctrlApplicationAssignment
         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
+        End Try
+    End Function
+
     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
@@ -198,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
 
@@ -264,6 +305,10 @@ Public Class ctrlApplicationAssignment
 
         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()
 
@@ -288,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
 
@@ -327,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
@@ -344,16 +389,18 @@ Public Class ctrlApplicationAssignment
         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")
-        AppSelectionString = $"Selected Profile: {oPRocessGUID}-{oProcessName}"
-        CURRENT_PROCESSID = oPRocessGUID
+        Dim oProcessGUID = oSelectedRow.Item("GUID")
+        CURRENT_PROCESSID = oProcessGUID
         CURRENT_PROCESSNAME = oProcessName
 
+        SelectedProcessId = oProcessGUID
+
         If Window_Load() = False Then
             MsgBox($"Error while loading windows for process {oProcessName}", vbCritical, "")
         End If
@@ -368,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, "")
@@ -382,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>
-    <RootNamespace>DD_Clipboard_Watcher</RootNamespace>
-    <AssemblyName>DD_Clipboard_Watcher</AssemblyName>
+    <StartupObject>easyFLOW.My.MyApplication</StartupObject>
+    <RootNamespace>easyFLOW</RootNamespace>
+    <AssemblyName>easyFLOW</AssemblyName>
     <FileAlignment>512</FileAlignment>
     <MyType>WindowsForms</MyType>
-    <TargetFrameworkVersion>v4.6.1</TargetFrameworkVersion>
-    <AutoGenerateBindingRedirects>true</AutoGenerateBindingRedirects>
+    <TargetFrameworkVersion>v4.6.2</TargetFrameworkVersion>
+    <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,65 +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">
-      <HintPath>..\..\..\DDLibStandards\DD_LIB_Standards\bin\Debug\DD_LIB_Standards.dll</HintPath>
+    <Reference Include="DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
+    <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.Common">
-      <HintPath>..\..\..\DDMonorepo\GUIs.Common\bin\Debug\DigitalData.GUIs.Common.dll</HintPath>
+    <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.Modules.ClipboardWatcher">
-      <HintPath>..\..\..\DDMonorepo\GUIs.ClipboardWatcher\bin\Debug\DigitalData.Modules.ClipboardWatcher.dll</HintPath>
+    <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">
-      <SpecificVersion>False</SpecificVersion>
-      <HintPath>..\..\..\DDMonorepo\Modules.Database\bin\Debug\DigitalData.Modules.Database.dll</HintPath>
+    <Reference Include="DigitalData.Modules.Database">
+      <HintPath>..\..\..\..\2_DLL Projekte\DDModules\Database\bin\Debug\DigitalData.Modules.Database.dll</HintPath>
     </Reference>
-    <Reference Include="DigitalData.Modules.Filesystem, Version=0.0.0.1, Culture=neutral, processorArchitecture=MSIL">
-      <SpecificVersion>False</SpecificVersion>
-      <HintPath>..\..\..\DDMonorepo\Filesystem\bin\Debug\DigitalData.Modules.Filesystem.dll</HintPath>
+    <Reference Include="DigitalData.Modules.EDMI.API">
+      <HintPath>..\..\..\..\2_DLL Projekte\DDModules\EDMIAPI\bin\Debug\DigitalData.Modules.EDMI.API.dll</HintPath>
     </Reference>
-    <Reference Include="DigitalData.Modules.Language, Version=1.0.0.0, Culture=neutral, processorArchitecture=MSIL">
-      <SpecificVersion>False</SpecificVersion>
-      <HintPath>..\..\..\DDMonorepo\Modules.Language\bin\Debug\DigitalData.Modules.Language.dll</HintPath>
+    <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>..\..\..\..\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="DigitalData.Modules.ZooFlow">
-      <HintPath>..\..\..\DDMonorepo\Modules.ZooFlow\bin\Debug\DigitalData.Modules.ZooFlow.dll</HintPath>
+      <HintPath>..\..\..\..\2_DLL Projekte\DDModules\ZooFlow\bin\Debug\DigitalData.Modules.ZooFlow.dll</HintPath>
     </Reference>
-    <Reference Include="GdPicture.NET.14">
-      <HintPath>D:\ProgramFiles\GdPicture.NET 14\Redist\GdPicture.NET\GdPicture.NET.14.dll</HintPath>
+    <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">
-      <HintPath>..\packages\NLog.4.5.11\lib\net45\NLog.dll</HintPath>
+    <Reference Include="NLog, Version=5.0.0.0, Culture=neutral, PublicKeyToken=5120e14c03d0593c, processorArchitecture=MSIL">
+      <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>
@@ -146,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" />
@@ -190,6 +235,12 @@
     <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>
@@ -202,6 +253,12 @@
     <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>
@@ -220,13 +277,6 @@
     <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>
@@ -239,12 +289,12 @@
     <Compile Include="frmSplash.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>
@@ -256,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>
@@ -264,8 +316,21 @@
     <Compile Include="MyDataset.vb">
       <DependentUpon>MyDataset.xsd</DependentUpon>
     </Compile>
-    <Compile Include="ClassWindowsAPI.vb" />
-    <Compile Include="ClassWindowAPIUtils.vb" />
+    <Compile Include="Strings\frmMain_Strings.fr.Designer.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">
@@ -283,16 +348,38 @@
     </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="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>
@@ -302,12 +389,15 @@
     <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="frmConfig_Basic.en.resx">
+      <DependentUpon>frmConfig_Basic.vb</DependentUpon>
+    </EmbeddedResource>
+    <EmbeddedResource Include="frmConfig_Basic.fr.resx">
+      <DependentUpon>frmConfig_Basic.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="frmSplash.resx">
       <DependentUpon>frmSplash.vb</DependentUpon>
     </EmbeddedResource>
@@ -318,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>
@@ -338,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>
@@ -362,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" />
@@ -408,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/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
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAGdSURBVFhH7ZM9boQwEIU5Qo6QI+QM9Ehp6VLQc4vt6ZFS
-        UuYG9FS5AkWShsKJxE9JeNYMMcYQbFixivKkT9r1zLw3XhZvr7quu2+a5rltWzHQEwJnqFHbdVTX9YMW
-        rCPQQ+3HCrdDAILyPO/DMOx935fgM854iav8EvSzyyAO1uEl0Etjxwk3g7l6cx3U0INeGjtOZGwMVuE+
-        GjtON7PAaY/g9D/hKa8hGe6G7OxlMnOB7OzFBupzBpfLZRaCM72Pa2RnLzbQjYG6hCkccJ3sljX8ax+H
-        xhce0DGZAwQvhQOep5i5hBB3/HqtEUWRMeA3eJ7i5uLwqqrkTYIgGIfxGWeooSeO44n5FlYXGN7VJxTL
-        spwE66CGHiyi972/fUjUM5XVBYbCK4rqzdI07YuikOAzn6MHvUmSjGfAeQE8exRwK27OsmwcYHCmmmEx
-        /r4F9qHYH/ECLpiCluAZip1KNbXBFLQEz1DkVLaG3O8CRU7FRVOYCdXQFoqciot60Kf4kujnq2Yu+l/g
-        ZhdY4u8uYAuN75fJfAs07ijP+wYj01KCKhcnhQAAAABJRU5ErkJggg==
+        iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
+        wwAADsMBx2+oZAAAAZ1JREFUWEftkz1uhDAQhTlCjpAj5Az0SGnpUtBzi+3pkVJS5gb0VLkCRZKGwonE
+        T0l41gwxxhBsWLGK8qRP2vXMvDdeFm+vuq67b5rmuW1bMdATAmeoUdt1VNf1gxasI9BD7ccKt0MAgvI8
+        78Mw7H3fl+AzzniJq/wS9LPLIA7W4SXQS2PHCTeDuXpzHdTQg14aO05kbAxW4T4aO043s8Bpj+D0P+Ep
+        ryEZ7obs7GUyc4Hs7MUG6nMGl8tlFoIzvY9rZGcvNtCNgbqEKRxwneyWNfxrH4fGFx7QMZkDBC+FA56n
+        mLmEEHf8eq0RRZEx4Dd4nuLm4vCqquRNgiAYh/EZZ6ihJ47jifkWVhcY3tUnFMuynATroIYeLKL3vb99
+        SNQzldUFhsIriurN0jTti6KQ4DOfowe9SZKMZ8B5ATx7FHArbs6ybBxgcKaaYTH+vgX2odgf8QIumIKW
+        4BmKnUo1tcEUtATPUORUtobc7wJFTsVFU5gJ1dAWipyKi3rQp/iS6OerZi76X+BmF1ji7y5gC43vl8l8
+        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
-        Me.TabControl1.Location = New System.Drawing.Point(0, 0)
+        resources.ApplyResources(Me.TabControl1, "TabControl1")
         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
-        Me.chkbxUserAut.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.chkbxUserAut.Location = New System.Drawing.Point(510, 36)
+        resources.ApplyResources(Me.chkbxUserAut, "chkbxUserAut")
         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
-        Me.Label5.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.Label5.Location = New System.Drawing.Point(5, 115)
+        resources.ApplyResources(Me.Label5, "Label5")
         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
-        Me.Label4.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.Label4.Location = New System.Drawing.Point(5, 62)
+        resources.ApplyResources(Me.Label4, "Label4")
         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
-        Me.Label1.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.Label1.Location = New System.Drawing.Point(5, 14)
+        resources.ApplyResources(Me.Label1, "Label1")
         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
-        Me.Label2.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.Label2.Location = New System.Drawing.Point(299, 14)
+        resources.ApplyResources(Me.Label2, "Label2")
         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
-        Me.Label3.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.Label3.Location = New System.Drawing.Point(423, 14)
+        resources.ApplyResources(Me.Label3, "Label3")
         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) _
-            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        resources.ApplyResources(Me.txtActualConnection, "txtActualConnection")
         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)
-        Me.BtnConnect.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.BtnConnect.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.BtnConnect.Location = New System.Drawing.Point(302, 82)
+        resources.ApplyResources(Me.BtnConnect, "BtnConnect")
         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)
-        Me.TabPage2.Location = New System.Drawing.Point(4, 22)
+        resources.ApplyResources(Me.TabPage2, "TabPage2")
         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))
-        Me.txtHotkeySearchKey.Location = New System.Drawing.Point(105, 39)
+        resources.ApplyResources(Me.txtHotkeySearchKey, "txtHotkeySearchKey")
         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
-        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)
+        resources.ApplyResources(Me.Label7, "Label7")
         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
-        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)
+        resources.ApplyResources(Me.Label6, "Label6")
         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.Location = New System.Drawing.Point(11, 39)
+        Me.cmbfunctionHit.Items.AddRange(New Object() {resources.GetString("cmbfunctionHit.Items"), resources.GetString("cmbfunctionHit.Items1")})
         Me.cmbfunctionHit.Name = "cmbfunctionHit"
-        Me.cmbfunctionHit.Size = New System.Drawing.Size(88, 24)
-        Me.cmbfunctionHit.TabIndex = 9
         '
         'chkLogErrorsOnly
         '
-        Me.chkLogErrorsOnly.AutoSize = True
-        Me.chkLogErrorsOnly.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.chkLogErrorsOnly.Location = New System.Drawing.Point(462, 100)
+        resources.ApplyResources(Me.chkLogErrorsOnly, "chkLogErrorsOnly")
         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.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.Button1.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.Button1.Location = New System.Drawing.Point(462, 71)
+        Me.Button1.Image = Global.easyFLOW.My.Resources.Resources.folder_Open_16xLG
+        resources.ApplyResources(Me.Button1, "Button1")
         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.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.btnApplicationFolder.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.btnApplicationFolder.Location = New System.Drawing.Point(462, 45)
+        Me.btnApplicationFolder.Image = Global.easyFLOW.My.Resources.Resources.folder_Open_16xLG
+        resources.ApplyResources(Me.btnApplicationFolder, "btnApplicationFolder")
         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
-        Me.LabelVersion.Location = New System.Drawing.Point(6, 115)
-        Me.LabelVersion.Name = "LabelVersion"
-        Me.LabelVersion.Size = New System.Drawing.Size(38, 13)
-        Me.LabelVersion.TabIndex = 0
-        Me.LabelVersion.Text = "Label8"
+        resources.ApplyResources(Me.Label8, "Label8")
+        Me.Label8.Name = "Label8"
         '
         'PictureBox1
         '
-        Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image)
-        Me.PictureBox1.Location = New System.Drawing.Point(-80, -22)
+        resources.ApplyResources(Me.PictureBox1, "PictureBox1")
         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 DD_Clipboard_Watcher.ClassHotkey.ModfierKey
+Imports easyFLOW.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=")
-                    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 & ";"
+                    con = MSSQLServer.EncryptConnectionString("Server=" & Me.txtServer.Text & ";Database=" & Me.cmbDatenbank.Text & ";User Id=" & Me.txtUser.Text & ";Password=" & Me.txtPasswort.Text & ";")
+
                 End If
 
-                'SaveConfigValue("MyConnectionString", con)
-                ConfigManager.Config.ConnectionString = con
-                ConfigManager.Save()
+                CONFIG.Config.ConnectionString = con
+                CONFIG.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
-        Process.Start("http://www.didalog.de/Support")
+        Try
+            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
-        ConfigManager.Save()
+        CONFIG.Config.LogErrorsOnly = LogErrorsOnly
+        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
-                ConfigManager.Config.HotkeySearchKey = txtHotkeySearchKey.Text
-                ConfigManager.Save()
+                CONFIG.Config.HotkeyFunctionKey = cmbfunctionHit.Text
+                CONFIG.Config.HotkeySearchKey = txtHotkeySearchKey.Text
+                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.TableAdapterManager = New DD_Clipboard_Watcher.MyDatasetTableAdapters.TableAdapterManager()
+        Me.TBDD_CONNECTIONTableAdapter = New easyFLOW.MyDatasetTableAdapters.TBDD_CONNECTIONTableAdapter()
+        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.Button2 = New System.Windows.Forms.Button()
+        Me.btnOK = 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.Label2 = New System.Windows.Forms.Label()
         Me.txtControlName = New System.Windows.Forms.TextBox()
-        Me.gbControlPosition = New System.Windows.Forms.GroupBox()
         Me.txtControlBounds = New System.Windows.Forms.TextBox()
         Me.Label1 = New System.Windows.Forms.Label()
-        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.Location = New System.Drawing.Point(12, 269)
+        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(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.Button1.DialogResult = System.Windows.Forms.DialogResult.OK
-        Me.Button1.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.add
-        Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.Button1.Location = New System.Drawing.Point(12, 299)
-        Me.Button1.Name = "Button1"
-        Me.Button1.Size = New System.Drawing.Size(159, 34)
-        Me.Button1.TabIndex = 0
-        Me.Button1.Text = "Feld zuordnen"
-        Me.Button1.UseVisualStyleBackColor = True
+        Me.btnOK.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.btnOK.DialogResult = System.Windows.Forms.DialogResult.OK
+        Me.btnOK.Image = Global.easyFLOW.My.Resources.Resources.add
+        Me.btnOK.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnOK.Location = New System.Drawing.Point(12, 190)
+        Me.btnOK.Name = "btnOK"
+        Me.btnOK.Size = New System.Drawing.Size(159, 34)
+        Me.btnOK.TabIndex = 0
+        Me.btnOK.Text = "Feld zuordnen"
+        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.Button2.DialogResult = System.Windows.Forms.DialogResult.Cancel
-        Me.Button2.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.cancel
-        Me.Button2.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.Button2.Location = New System.Drawing.Point(236, 299)
-        Me.Button2.Name = "Button2"
-        Me.Button2.Size = New System.Drawing.Size(159, 34)
-        Me.Button2.TabIndex = 0
-        Me.Button2.Text = "Abbruch"
-        Me.Button2.UseVisualStyleBackColor = True
+        Me.btnCancel.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.btnCancel.DialogResult = System.Windows.Forms.DialogResult.Cancel
+        Me.btnCancel.Image = Global.easyFLOW.My.Resources.Resources.cancel
+        Me.btnCancel.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnCancel.Location = New System.Drawing.Point(236, 190)
+        Me.btnCancel.Name = "btnCancel"
+        Me.btnCancel.Size = New System.Drawing.Size(159, 34)
+        Me.btnCancel.TabIndex = 0
+        Me.btnCancel.Text = "Abbruch"
+        Me.btnCancel.UseVisualStyleBackColor = True
         '
         'rbControlName
         '
@@ -97,106 +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
-        '
-        Me.gbControlName.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
-            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.gbControlName.Controls.Add(Me.Label2)
-        Me.gbControlName.Controls.Add(Me.txtControlName)
-        Me.gbControlName.Location = New System.Drawing.Point(140, 12)
-        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"
-        '
-        '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"
-        '
         'txtControlName
         '
-        Me.txtControlName.Location = New System.Drawing.Point(6, 20)
+        Me.txtControlName.Location = New System.Drawing.Point(152, 8)
         Me.txtControlName.Name = "txtControlName"
+        Me.txtControlName.ReadOnly = True
         Me.txtControlName.Size = New System.Drawing.Size(243, 21)
         Me.txtControlName.TabIndex = 0
         '
-        'gbControlPosition
-        '
-        Me.gbControlPosition.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
-            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.gbControlPosition.Controls.Add(Me.txtControlBounds)
-        Me.gbControlPosition.Controls.Add(Me.Label1)
-        Me.gbControlPosition.Location = New System.Drawing.Point(140, 118)
-        Me.gbControlPosition.Name = "gbControlPosition"
-        Me.gbControlPosition.Size = New System.Drawing.Size(255, 137)
-        Me.gbControlPosition.TabIndex = 15
-        Me.gbControlPosition.TabStop = False
-        Me.gbControlPosition.Text = "Control Position"
-        '
         'txtControlBounds
         '
-        Me.txtControlBounds.Location = New System.Drawing.Point(9, 20)
+        Me.txtControlBounds.Location = New System.Drawing.Point(152, 35)
         Me.txtControlBounds.Multiline = True
         Me.txtControlBounds.Name = "txtControlBounds"
-        Me.txtControlBounds.Size = New System.Drawing.Size(240, 77)
+        Me.txtControlBounds.ReadOnly = True
+        Me.txtControlBounds.Size = New System.Drawing.Size(240, 88)
         Me.txtControlBounds.TabIndex = 1
         '
         '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.TabIndex = 0
-        Me.Label1.Text = "Wechseln Sie durch die aktiven Anwendungen und klicken Sie in ein Feld"
+        Me.Label1.Size = New System.Drawing.Size(255, 13)
+        Me.Label1.TabIndex = 15
+        Me.Label1.Text = "Markieren und kopieren Sie einen Text in einem Feld"
         '
         '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.Controls.Add(Me.gbControlPosition)
-        Me.Controls.Add(Me.gbControlName)
+        Me.ClientSize = New System.Drawing.Size(407, 236)
+        Me.Controls.Add(Me.Label1)
+        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.Button1)
+        Me.Controls.Add(Me.btnCancel)
+        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 Button2 As Button
+    Friend WithEvents btnOK 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 gbControlPosition As GroupBox
-    Friend WithEvents Label2 As Label
-    Friend WithEvents Label1 As Label
     Friend WithEvents txtControlBounds As TextBox
+    Friend WithEvents Label1 As Label
 End Class

app/DD_Clipboard_Searcher/frmControlCapture.vb

@@ -7,10 +7,11 @@ 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
@@ -41,48 +42,63 @@ Public Class frmControlCapture
             txtControlBounds.Text = ControlBounds
         End If
 
-        AddHandler Watcher.Changed, AddressOf Watcher_Changed
+        'AddHandler Watcher.Changed, AddressOf Watcher_Changed
+        AddHandler Watcher2.Changed, AddressOf Watcher_Changed
     End Sub
 
-    Private Sub Watcher_Changed(sender As Object, e As EventArgs)
-        ' === CONTROL NAME ===
+    Private Sub frmControlCapture_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
+        RemoveHandler Watcher2.Changed, AddressOf Watcher_Changed
+    End Sub
 
-        Dim oControl As WindowInfo = Window.GetFocusedControl(Handle)
+    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
-            txtControlName.Text = oControl.ControlName
-            ControlName = oControl.ControlName
-        End If
+            If oControl IsNot Nothing Then
+                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
 
-        ' === CONTROL POSITION ===
+        Try
+            ' === CONTROL POSITION ===
+            Dim oRectangles As Dictionary(Of String, RectangleInfo) = Window.GetFocusedControlLocation(Handle)
 
-        For Each oAnchor As Anchor In [Enum].GetValues(GetType(Anchor))
-            Dim oRect As RectangleInfo = Window.GetFocusedControlLocation(Handle, oAnchor)
+            For Each oRect As KeyValuePair(Of String, RectangleInfo) In oRectangles
+                Select Case oRect.Key
+                    Case Window.Anchor.TopLeft.ToString
+                        If oRect.Value IsNot Nothing Then
+                            TopLeft = oRect.Value
+                        End If
 
-            Select Case oAnchor
-                Case Window.Anchor.TopLeft
-                    If oRect IsNot Nothing Then
-                        TopLeft = oRect
-                    End If
+                    Case Window.Anchor.TopRight.ToString
+                        If oRect.Value IsNot Nothing Then
+                            TopRight = oRect.Value
+                        End If
 
-                Case Window.Anchor.TopRight
-                    If oRect IsNot Nothing Then
-                        TopRight = oRect
-                    End If
+                    Case Window.Anchor.BottomLeft.ToString
+                        If oRect.Value IsNot Nothing Then
+                            BottomLeft = oRect.Value
+                        End If
 
-                Case Window.Anchor.BottomLeft
-                    If oRect IsNot Nothing Then
-                        BottomLeft = oRect
-                    End If
-
-                Case Window.Anchor.BottomRight
-                    If oRect IsNot Nothing Then
-                        BottomRight = oRect
-                    End If
-            End Select
+                    Case Window.Anchor.BottomRight.ToString
+                        If oRect.Value IsNot Nothing Then
+                            BottomRight = oRect.Value
+                        End If
+                End Select
+            Next
 
             txtControlBounds.Text = GetBoundsString(TopLeft, TopRight, BottomLeft, BottomRight)
-        Next
+        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
 
     Public Shared Function GetBoundsString(TopLeft As RectangleInfo, TopRight As RectangleInfo, BottomLeft As RectangleInfo, BottomRight As RectangleInfo)
@@ -104,23 +120,30 @@ 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
-        gbControlPosition.Enabled = Not rbControlName.Checked
+        UpdateOKButton()
     End Sub
 
     Private Sub RadioButton2_CheckedChanged(sender As Object, e As EventArgs) Handles rbControlPosition.CheckedChanged
-        gbControlName.Enabled = Not rbControlPosition.Checked
-        gbControlPosition.Enabled = rbControlPosition.Checked
+        UpdateOKButton()
     End Sub
 
-    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
-        If txtControlName.Text = String.Empty And txtControlBounds.Text = String.Empty Then
-            MsgBox("Kein Control gefunden!")
-            DialogResult = DialogResult.Cancel
-        End If
-
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnOK.Click
         If rbControlPosition.Checked Then
             ControlName = String.Empty
         ElseIf rbControlName.Checked Then

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)
-                If Database.ExecuteNonQuery(sql) = True Then
+                Dim sql As String = String.Format("UPDATE TBDD_CLIENT SET LICENSE_CBSEARCHER = '" & result & "' WHERE GUID = {0}", CLIENT_ID)
+                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">
-    <value>17, 17</value>
-  </metadata>
-  <metadata name="cmstrpNotifyIcon.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>153, 17</value>
-  </metadata>
+  <assembly alias="DevExpress.Data.v21.2" name="DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
+  <data name="lblUser.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="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
-        CwAAAk1TRnQBSQFMAgEBBQEAASgBAAEoAQABEAEAARABAAT/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">
-    <value>817, 17</value>
-  </metadata>
-  <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+  <data name="frmMain.IconOptions.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.Location = New System.Drawing.Point(12, 98)
+        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, 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,20 +29,30 @@ 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
-            ProcessId = oWindow.ProcessId
-            ProcessName = oWindow.ProcessName
-            WindowTitle = oWindow.WindowTitle
+        txtPID.Text = oWindow.ProcessId
+        txtName.Text = oWindow.ProcessName
+        txtWindowTitle.Text = oWindow.WindowTitle
+        ProcessId = oWindow.ProcessId
+        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/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.Label8 = New System.Windows.Forms.Label()
-        Me.chkEnableDeferredPainting = New System.Windows.Forms.CheckBox()
-        Me.GroupBox1.SuspendLayout
-        CType(Me.PictureBox1,System.ComponentModel.ISupportInitialize).BeginInit
-        CType(Me.txtZoomStep,System.ComponentModel.ISupportInitialize).BeginInit
-        Me.GroupBox2.SuspendLayout
-        Me.GroupBox3.SuspendLayout
-        Me.GroupBox4.SuspendLayout
-        Me.SuspendLayout
+        Me.GroupBox1.SuspendLayout()
+        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtZoomStep, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.GroupBox2.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.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
+        Me.GroupBox1.Location = New System.Drawing.Point(12, 12)
         Me.GroupBox1.Name = "GroupBox1"
-        Me.GroupBox1.Padding = New System.Windows.Forms.Padding(4, 5, 4, 5)
-        Me.GroupBox1.Size = New System.Drawing.Size(436, 455)
+        Me.GroupBox1.Size = New System.Drawing.Size(291, 296)
         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.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
+        Me.chkIgnoreDocumentResolution.Location = New System.Drawing.Point(6, 248)
         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.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
+        Me.PictureBox1.Location = New System.Drawing.Point(116, 198)
         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.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
+        Me.txtZoomStep.Location = New System.Drawing.Point(69, 18)
         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.Location = New System.Drawing.Point(174, 263)
-        Me.cbMouseWheelMode.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
+        Me.cbMouseWheelMode.FormattingEnabled = True
+        Me.cbMouseWheelMode.Location = New System.Drawing.Point(116, 171)
         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.Location = New System.Drawing.Point(174, 223)
-        Me.cbDocumentPosition.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
+        Me.cbDocumentPosition.FormattingEnabled = True
+        Me.cbDocumentPosition.Location = New System.Drawing.Point(116, 145)
         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.Location = New System.Drawing.Point(174, 183)
-        Me.cbDocumentAlignment.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
+        Me.cbDocumentAlignment.FormattingEnabled = True
+        Me.cbDocumentAlignment.Location = New System.Drawing.Point(116, 119)
         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.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
+        Me.chkEnableMenu.Location = New System.Drawing.Point(6, 225)
         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.Location = New System.Drawing.Point(9, 311)
-        Me.Label6.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
+        Me.Label6.AutoSize = True
+        Me.Label6.Location = New System.Drawing.Point(6, 202)
         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.Location = New System.Drawing.Point(10, 266)
-        Me.Label5.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
+        Me.Label5.AutoSize = True
+        Me.Label5.Location = New System.Drawing.Point(7, 173)
         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.Location = New System.Drawing.Point(10, 226)
-        Me.Label4.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
+        Me.Label4.AutoSize = True
+        Me.Label4.Location = New System.Drawing.Point(7, 147)
         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.Location = New System.Drawing.Point(10, 186)
-        Me.Label3.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
+        Me.Label3.AutoSize = True
+        Me.Label3.Location = New System.Drawing.Point(7, 121)
         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.Location = New System.Drawing.Point(9, 106)
-        Me.Label2.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
+        Me.Label2.AutoSize = True
+        Me.Label2.Location = New System.Drawing.Point(6, 69)
         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.Location = New System.Drawing.Point(174, 103)
-        Me.cbDisplayQuality.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
+        Me.cbDisplayQuality.FormattingEnabled = True
+        Me.cbDisplayQuality.Location = New System.Drawing.Point(116, 67)
         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.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
+        Me.chkContinuousViewMode.Location = New System.Drawing.Point(6, 42)
         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.Location = New System.Drawing.Point(9, 31)
-        Me.Label1.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
+        Me.Label1.AutoSize = True
+        Me.Label1.Location = New System.Drawing.Point(6, 20)
         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.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
+        Me.btnApply.Location = New System.Drawing.Point(529, 338)
         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.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
+        Me.GroupBox2.Location = New System.Drawing.Point(309, 12)
         Me.GroupBox2.Name = "GroupBox2"
-        Me.GroupBox2.Padding = New System.Windows.Forms.Padding(4, 5, 4, 5)
-        Me.GroupBox2.Size = New System.Drawing.Size(436, 128)
+        Me.GroupBox2.Size = New System.Drawing.Size(291, 83)
         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.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
+        Me.chkHQAnnotationsRendering.Location = New System.Drawing.Point(6, 42)
         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.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
+        Me.chkAnnotationsDropShadow.Location = New System.Drawing.Point(6, 19)
         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.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
+        Me.GroupBox3.Location = New System.Drawing.Point(12, 314)
         Me.GroupBox3.Name = "GroupBox3"
-        Me.GroupBox3.Padding = New System.Windows.Forms.Padding(4, 5, 4, 5)
-        Me.GroupBox3.Size = New System.Drawing.Size(436, 71)
+        Me.GroupBox3.Size = New System.Drawing.Size(291, 46)
         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.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
+        Me.chkEnableICM.Location = New System.Drawing.Point(6, 19)
         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.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
+        Me.GroupBox4.Location = New System.Drawing.Point(309, 101)
         Me.GroupBox4.Name = "GroupBox4"
-        Me.GroupBox4.Padding = New System.Windows.Forms.Padding(4, 5, 4, 5)
-        Me.GroupBox4.Size = New System.Drawing.Size(436, 283)
+        Me.GroupBox4.Size = New System.Drawing.Size(291, 184)
         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.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
+        Me.chkPDFVerifyDigitalCertificates.Location = New System.Drawing.Point(6, 119)
         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.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
+        Me.chkPDFIncreaseTextContrast.Location = New System.Drawing.Point(6, 96)
         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.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
+        Me.chkPDFEnableLinks.Location = New System.Drawing.Point(6, 73)
         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.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
+        Me.chkPDFEnableFileLinks.Location = New System.Drawing.Point(6, 50)
         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.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
+        Me.chkPDFDisplayFormFields.Location = New System.Drawing.Point(6, 27)
         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
-        '
-        '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
+        Me.chkPDFDisplayFormFields.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.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
+        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.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
+        Me.PictureBox2.Size = New System.Drawing.Size(795, 188)
         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 Worker As New BackgroundWorker()
-    Private MainForm As Form
+    Private ReadOnly InitSteps As Integer = 4
+    Private ReadOnly Worker As New BackgroundWorker()
+    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)
-        Try
-            Dim Init = New ClassInit()
-            Worker.ReportProgress(CalcProgress(1), "Initializing Logger")
-            Init.InitLogger()
-            Thread.Sleep(500)
-
-            Worker.ReportProgress(CalcProgress(2), "Initializing Database")
-            Init.InitBasics()
-            If Init.InitDatabase_New() = True Then
-
-                Thread.Sleep(500)
-
-                Worker.ReportProgress(CalcProgress(3), "Initializing User-Configuration")
-                If ClassInit.InitUserLogin = False Then
-                    If ERROR_INIT = "" Then
-                        ERROR_INIT = "INVALID USER"
-                    End If
+    Private Function bw_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) As Task
+        Dim oProgress As String
+        'Try
+        Dim Init = New ClassInit()
+        oProgress = "Initializing Logger"
+        Worker.ReportProgress(CalcProgress(1), oProgress)
+        Init.InitLogger()
+        Thread.Sleep(200)
+        oProgress = "Initializing Base Config"
+        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)
+            oProgress = "Initializing User-Configuration"
+            Worker.ReportProgress(CalcProgress(4), oProgress)
+            If My.Settings.GHOSTUSER <> String.Empty 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
-
-                Thread.Sleep(500)
-
-            Else
-                ERROR_INIT = "DATABASE"
             End If
 
-        Catch ex As Exception
-            MsgBox("Unexpected Error in bw_DoWork: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
-        End Try
-    End Sub
+            Thread.Sleep(200)
+
+        Else
+            ERROR_INIT = "DATABASE"
+        End If
+
+        '  Catch ex As Exception
+        ' ' MsgBox("Unexpected Error in bw_DoWork: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
+        ' End Try
+    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,288 +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.AblaufAnzeigenToolStripMenuItem = 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.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.labelVersion = New System.Windows.Forms.ToolStripStatusLabel()
-        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, 92)
-        '
-        '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"
-        '
-        '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.labelVersion})
-        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
-        '
-        'labelVersion
-        '
-        Me.labelVersion.Name = "labelVersion"
-        Me.labelVersion.Size = New System.Drawing.Size(62, 17)
-        Me.labelVersion.Text = "Version {0}"
-        '
-        '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
-    Friend WithEvents labelVersion As ToolStripStatusLabel
-End Class

app/DD_Clipboard_Searcher/frmStart.vb

@@ -1,393 +0,0 @@
-Imports System.Threading
-Imports System.IO
-Imports System.Globalization
-Imports DD_Clipboard_Watcher.ClassConstants
-Imports DD_Clipboard_Watcher.ClassWindowAPI
-Imports DigitalData.Modules.ZooFlow
-Imports DigitalData.Modules.ClipboardWatcher
-
-Public Class frmStart
-    Private WithEvents Hotkey As New ClassHotkey(Me)
-    Private WithEvents _Watcher As ClipboardWatcher = ClipboardWatcher.Singleton
-    Private _MatchForm As frmMatch = Nothing
-
-    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
-
-        labelVersion.Text = String.Format(labelVersion.Text, My.Application.Info.Version.ToString)
-        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 ProfileFilter
-        Dim oFocusedControl As IntPtr = FocusedControlinActiveWindow(Handle)
-        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("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.GetScalarValue(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.GetScalarValue(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 oEnv = GetEnvironment()
-        Dim oParams = New ClipboardWatcherParams() With {
-            .ClipboardContents = CURRENT_CLIPBOARD_CONTENTS,
-            .MatchingProfiles = oProfiles,
-            .MatchTreeView = CurrMatchTreeView
-        }
-
-        Dim oForm As New frmMatch(LogConfig, oEnv, oParams)
-        _MatchForm = oForm
-        oForm.ShowDialog()
-    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 oSettings As New State.SettingsState() With {
-            .GdPictureKey = GDPICTURE_LICENSE
-        }
-
-        Dim oEnvironment As New Environment() With {
-            .Database = Database,
-            .Modules = Nothing,
-            .User = oUser,
-            .Settings = oSettings
-        }
-
-        Return oEnvironment
-    End Function
-
-    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
-        If _MatchForm IsNot Nothing Then
-            _MatchForm.ShowTreeView()
-        End If
-    End Sub
-End Class

app/DD_Clipboard_Searcher/modCurrent.vb

@@ -1,19 +1,26 @@
 Imports DigitalData.Modules.Config
 Imports DigitalData.Modules.Database
+Imports DigitalData.Modules.EDMI.API
 Imports DigitalData.Modules.Logging
 Imports DigitalData.Modules.ZooFlow.Params
 
 Module modCurrent
     Public LogConfig As LogConfig
     Public Logger As Logger
-    Public Database As MSSQLServer
+    Public MyDB_DDECM As MSSQLServer
+    Public DatabaseAppServ As MSSQLServer
     Public Automation As ClassAutomation
+    Public AppTitle = "easyFLOW"
+    Public Const LANGUAGE_GERMAN As String = "de-DE"
 
-    Public ConfigManager As ConfigManager(Of ClassConfig)
+
+    Public CONFIG As ConfigManager(Of ClassConfig)
 
     Public MyConnectionString As String = ""
+    Public MyConStringAppserv As String = ""
     Public HotkeyFunctionKey As String = ClassConstants.HOTKEY_CTRL
     Public HotkeySearchKey As String = "d"
+    Public HotkeySearchKey_via_Server As Boolean = False
     Public LogErrorsOnly As Boolean = True
 
     Public CURRENT_WINDOW_NAME As String
@@ -26,11 +33,11 @@ Module modCurrent
     Public USER_SURNAME
     Public USER_SHORTNAME
     Public USER_EMAIL
-    Public USER_LANGUAGE As String = "de-DE"
+    Public USER_LANGUAGE As String = LANGUAGE_GERMAN
     Public USER_DATE_FORMAT As String
     Public USER_EXISTS = False
     Public USER_IN_MODULE = False
-
+    Public ADDITIONAL_TITLE As String = "CW"
     Public USERCOUNT_LOGGED_IN As Integer
 
     Public LICENSE_COUNT As Integer
@@ -53,6 +60,7 @@ Module modCurrent
     Public DT_CONNECTIONS As MyDataset.TBDD_CONNECTIONDataTable
 
     Public CURRENT_MATCHING_PROFILES As New List(Of ProfileData)
+    Public CURRENT_PROFILES_WITH_RESULTS As New List(Of ProfileData)
 
     Public CURRENT_CLIPBOARD_CONTENTS
     'Public CURR_MATCH_WM_SEARCH
@@ -74,5 +82,13 @@ Module modCurrent
     Public CurrSearchOpen As Boolean = False
 
     Public CurrMatchTreeView As New TreeView
-
+    Public Property _Client As Client
+    Public Property DatabaseFallback As DatabaseWithFallback
+    Public APPSERVER_ACTIVE As Boolean = False
+    Public WORKING_MODE As String = ""
+    Public BASIC_CONF_VISIBLE As Boolean = True
+    Public NOMATCH_INFO As Boolean = False
+    Public NOTIFY_MODE As String = "NotifyIcon"
+    Public BASEDATA_DT_LANGUAGE As DataTable
+    Public GHOST_USERID As Integer = 0
 End Module

app/DD_Clipboard_Searcher/packages.config

@@ -1,4 +1,6 @@
 <?xml version="1.0" encoding="utf-8"?>
 <packages>
-  <package id="NLog" version="4.5.11" targetFramework="net451" />
+  <package id="GdPicture" version="14.2.90" targetFramework="net462" />
+  <package id="GdPicture.runtimes.windows" version="14.2.90" targetFramework="net462" />
+  <package id="NLog" version="5.0.2" targetFramework="net462" />
 </packages>

app/SetupVS19/Config.wxi

@@ -0,0 +1,11 @@
+<?xml version="1.0" encoding="utf-8"?>
+<Include>
+  <?define ProgramName="easyFLOW"?>
+  <?define ProductName="easyFLOW"?>
+  <?define Manufacturer="Digital Data"?>
+  <?define Description="easyFLOW"?>
+  <?define Comments="easyFLOW"?>
+  <?define UpgradeCode="BB3A9D50-7CCE-42DA-84F2-D67129F57B59"?>
+
+  <?define SourceDir="..\$(var.ProgramName)\bin\$(var.Configuration)\"?>
+</Include>

app/SetupVS19/Product.wxs

@@ -0,0 +1,273 @@
+<?include Config.wxi?>
+
+<Wix xmlns="http://schemas.microsoft.com/wix/2006/wi" xmlns:util="http://schemas.microsoft.com/wix/UtilExtension">
+	<Product Id="*" Name="$(var.ProductName)" Language="1031" Codepage="1252" Version="$(var.ProductVersion)" Manufacturer="$(var.Manufacturer)" UpgradeCode="$(var.UpgradeCode)">
+		<Package
+		  Id="*"
+		  Keywords="Installer"
+		  Description="$(var.Description)"
+		  Comments="$(var.Comments)"
+		  Manufacturer="$(var.Manufacturer)"
+		  InstallerVersion="100"
+		  Languages="1031"
+		  Compressed="yes"
+		  SummaryCodepage="1252"
+		  InstallScope="perMachine"
+    />
+
+		<!-- Liest den Installationsort über die Registry aus -->
+		<Property Id="INSTALLIDIR">
+			<RegistrySearch Key="Software\[Manufacturer]\[ProductName]" Root="HKCU" Type="raw" Id="APPLICATIONFOLDER_REGSEARCH" Name="Path" />
+		</Property>
+
+		<Media Id='1' Cabinet='$(var.ProgramName).cab' EmbedCab='yes' DiskPrompt='$(var.ProgramName)'  />
+		<Property Id='DiskPrompt' Value="$(var.ProgramName) Install" />
+
+		<MajorUpgrade
+		  AllowDowngrades="no"
+		  AllowSameVersionUpgrades="no"
+		  DowngradeErrorMessage="Eine neuere Version von [ProductName] ist bereits installiert. Das Setup wird beendet."
+    />
+
+		<Property Id="PREVIOUSVERSIONSINSTALLED" Secure="yes" />
+		<Upgrade Id="$(var.UpgradeCode)">
+			<UpgradeVersion
+			  Minimum="1.0.0.0" Maximum="99.0.0.0"
+			  Property="PREVIOUSVERSIONSINSTALLED"
+			  IncludeMinimum="yes" IncludeMaximum="no" />
+		</Upgrade>
+
+		<!-- Legt das Icon fest -->
+		<Icon Id="AppIcon.exe" SourceFile="$(var.ProgramName).exe" />
+		<!-- Zeige Icon in Systemsteuerung > Programme entfernen -->
+		<Property Id="ARPPRODUCTICON" Value="AppIcon" />
+
+
+		<Directory Id="TARGETDIR" Name="SourceDir">
+			<Directory Id="ProgramFilesFolder">
+				<Directory Id="DD" Name="$(var.Manufacturer)">
+					<Directory Id="INSTALLDIR" Name="$(var.ProductName)"/>
+				</Directory>
+			</Directory>
+
+			<Directory Id="ProgramMenuFolder">
+				<Directory Id="ApplicationProgramsFolder" Name="$(var.ProductName)"/>
+			</Directory>
+
+			<Directory Id="DesktopFolder" />
+		</Directory>
+
+		<DirectoryRef Id="ApplicationProgramsFolder">
+			<Component Id="ApplicationShortcut_StartMenu" Guid="459eecd2-6db7-4b30-97f5-63719879e4a9">
+				<Shortcut Id="ApplicationStartMenuShortcut_StartMenu"
+					 Name="$(var.ProductName)"
+					 Target="[INSTALLDIR]$(var.ProgramName).exe"
+					 WorkingDirectory="INSTALLDIR"/>
+				<RemoveFolder Id="ApplicationProgramsFolder_StartMenu" On="uninstall"/>
+				<RegistryValue Root="HKCU" Key="Software\[Manufacturer]\[ProductName]" Name="installed" Type="integer" Value="1" KeyPath="yes"/>
+			</Component>
+		</DirectoryRef>
+
+		<DirectoryRef Id="DesktopFolder">
+			<Component Id="ApplicationShortcut_Desktop" Guid="1717d19a-4510-423f-93b1-671f280dcca3">
+				<Shortcut Id="ApplicationStartMenuShortcut_Desktop"
+					 Name="$(var.ProductName)"
+					 Target="[INSTALLDIR]$(var.ProgramName).exe"
+					 WorkingDirectory="INSTALLDIR"/>
+				<RemoveFolder Id="ApplicationProgramsFolder_Desktop" On="uninstall"/>
+				<RegistryValue Root="HKCU" Key="Software\[Manufacturer]\[ProductName]" Name="installed" Type="integer" Value="1" KeyPath="yes"/>
+			</Component>
+		</DirectoryRef>
+
+		<DirectoryRef Id="INSTALLDIR">
+			<Component Id="MainApplicationExe" Guid="{BA4DC59A-6FCD-4672-9D58-456F255E5AAB}">
+				<File Id="MainApplicationExe" Source="..\DD_Clipboard_Searcher\bin\$(var.Configuration)\$(var.ProgramName).exe" Name="$(var.ProgramName).exe" KeyPath="no" Checksum="yes" />
+			</Component>
+
+			<Component Id="MainApplicationExeConfig" Guid="{F40EA733-5734-4BF5-9668-63AC0D150DA7}">
+				<File Id="MainApplicationExeConfig" Name="$(var.ProgramName).exe.config" KeyPath="yes" Checksum="yes"/>
+			</Component>
+
+			<Component Id="DDLibs" Guid="{13F5F24D-9D99-4783-B17B-5FFC9C42E261}">
+				<File Id="DDBase" Name="DigitalData.Modules.Base.dll" KeyPath="yes" Checksum="yes"/>
+				<File Id="DDLogging" Name="DigitalData.Modules.Logging.dll" KeyPath="no" Checksum="yes"/>
+				<File Id="DDConfig" Name="DigitalData.Modules.Config.dll" KeyPath="no" Checksum="yes"/>
+				<File Id="DDFilesystem" Name="DigitalData.Modules.Filesystem.dll" KeyPath="no" Checksum="yes"/>
+				<File Id="DDDatabase" Name="DigitalData.Modules.Database.dll" KeyPath="no" Checksum="yes"/>
+				<File Id="DDEncryption" Name="DigitalData.Modules.Encryption.dll" KeyPath="no" Checksum="yes"/>
+				<File Id="DDLicense" Name="DigitalData.Modules.License.dll" KeyPath="no" Checksum="yes"/>
+				<File Id="DDRegexEditor" Name="DigitalData.Controls.RegexEditor.dll" KeyPath="no" Checksum="yes"/>
+				<File Id="DDprotobuf" Name="protobuf-net.dll" KeyPath="no" Checksum="yes"/>
+				<File Id="DDDocumentViewer" Name="DigitalData.Controls.DocumentViewer.dll" KeyPath="no" Checksum="yes"/>
+				<File Id="DDCommon" Name="DigitalData.GUIs.Common.dll" KeyPath="no" Checksum="yes"/>
+				<File Id="DDWindows" Name="DigitalData.Modules.Windows.dll" KeyPath="no" Checksum="yes"/>
+				<File Id="DDPatterns" Name="DigitalData.Modules.Patterns.dll" KeyPath="no" Checksum="yes"/>
+				<File Id="DDMessaging" Name="DigitalData.Modules.Messaging.dll" KeyPath="no" Checksum="yes"/>
+				<File Id="DDClipboardWatcher" Name="DigitalData.GUIs.ClipboardWatcher.dll" KeyPath="no" Checksum="yes"/>
+				<File Id="DDZooFlow" Name="DigitalData.Modules.ZooFlow.dll" KeyPath="no" Checksum="yes"/>
+				<File Id="DDEDMIAPI" Name="DigitalData.Modules.EDMI.API.dll" KeyPath="no" Checksum="yes"/>
+				<File Id="DDLookup" Name="DigitalData.Controls.LookupGrid.dll" KeyPath="no" Checksum="yes"/>
+        <File Id="InteropServices.RuntimeInformation" Name="System.Runtime.InteropServices.RuntimeInformation.dll" Source="System.Runtime.InteropServices.RuntimeInformation.dll" KeyPath="no" />
+			</Component>
+
+			<Component Id="NLog" Guid="{08903680-6b02-4ff0-b700-93209381fe1a}">
+				<File Id="NLog" Name="NLog.dll" KeyPath="yes" Checksum="yes"/>
+			</Component>
+
+			<!-- DEVEXPRESS Bibliotheken -->
+			<Component Id="DevExpressLibs" Guid="665D0AC8-93FC-4499-BA89-F660CAC6C577">
+				<File Id="DevExpress.Charts.v21.2.Core" Name="DevExpress.Charts.v21.2.Core.dll" />
+				<File Id="DevExpress.CodeParser.v21.2" Name="DevExpress.CodeParser.v21.2.dll" KeyPath="yes" />
+				<File Id="DevExpress.Data.Desktop.v21.2" Name="DevExpress.Data.Desktop.v21.2.dll" />
+				<File Id="DevExpress.Data.v21.2" Name="DevExpress.Data.v21.2.dll" />
+				<File Id="DevExpress.DataAccess.v21.2" Name="DevExpress.DataAccess.v21.2.dll" />
+				<File Id="DevExpress.DataAccess.v21.2.UI" Name="DevExpress.DataAccess.v21.2.UI.dll" />
+				<File Id="DevExpress.DataVisualization.v21.2.Core" Name="DevExpress.DataVisualization.v21.2.Core.dll" />
+				<File Id="DevExpress.Diagram.v21.2.Core" Name="DevExpress.Diagram.v21.2.Core.dll" />
+				<File Id="DevExpress.Dialogs.v21.2.Core" Name="DevExpress.Dialogs.v21.2.Core.dll" />
+				<File Id="DevExpress.Images.v21.2" Name="DevExpress.Images.v21.2.dll" />
+				<File Id="DevExpress.Office.v21.2.Core" Name="DevExpress.Office.v21.2.Core.dll" />
+				<File Id="DevExpress.Pdf.v21.2.Core" Name="DevExpress.Pdf.v21.2.Core.dll" />
+				<File Id="DevExpress.Pdf.v21.2.Drawing" Name="DevExpress.Pdf.v21.2.Drawing.dll" />
+				<File Id="DevExpress.Printing.v21.2.Core" Name="DevExpress.Printing.v21.2.Core.dll" />
+				<File Id="DevExpress.RichEdit.v21.2.Core" Name="DevExpress.RichEdit.v21.2.Core.dll" />
+				<File Id="DevExpress.Sparkline.v21.2.Core" Name="DevExpress.Sparkline.v21.2.Core.dll" />
+				<File Id="DevExpress.Spreadsheet.v21.2.Core" Name="DevExpress.Spreadsheet.v21.2.Core.dll" />
+				<File Id="DevExpress.TreeMap.v21.2.Core" Name="DevExpress.TreeMap.v21.2.Core.dll" />
+				<File Id="DevExpress.Utils.v21.2" Name="DevExpress.Utils.v21.2.dll" />
+				<File Id="DevExpress.Utils.v21.2.UI" Name="DevExpress.Utils.v21.2.UI.dll" />
+				<File Id="DevExpress.Xpo.v21.2" Name="DevExpress.Xpo.v21.2.dll" />
+				<File Id="DevExpress.XtraBars.v21.2" Name="DevExpress.XtraBars.v21.2.dll" />
+				<File Id="DevExpress.XtraCharts.v21.2" Name="DevExpress.XtraCharts.v21.2.dll" />
+				<File Id="DevExpress.XtraDiagram.v21.2" Name="DevExpress.XtraDiagram.v21.2.dll" />
+				<File Id="DevExpress.XtraDialogs.v21.2" Name="DevExpress.XtraDialogs.v21.2.dll" />
+				<File Id="DevExpress.XtraEditors.v21.2" Name="DevExpress.XtraEditors.v21.2.dll" />
+				<File Id="DevExpress.XtraGauges.v21.2.Core" Name="DevExpress.XtraGauges.v21.2.Core.dll" />
+				<File Id="DevExpress.XtraGauges.v21.2.Win" Name="DevExpress.XtraGauges.v21.2.Win.dll" />
+				<File Id="DevExpress.XtraGrid.v21.2" Name="DevExpress.XtraGrid.v21.2.dll" />
+				<File Id="DevExpress.XtraLayout.v21.2" Name="DevExpress.XtraLayout.v21.2.dll" />
+				<File Id="DevExpress.XtraNavBar.v21.2" Name="DevExpress.XtraNavBar.v21.2.dll" />
+				<File Id="DevExpress.XtraPrinting.v21.2" Name="DevExpress.XtraPrinting.v21.2.dll" />
+				<File Id="DevExpress.XtraRichEdit.v21.2" Name="DevExpress.XtraRichEdit.v21.2.dll" />
+				<File Id="DevExpress.XtraSpreadsheet.v21.2" Name="DevExpress.XtraSpreadsheet.v21.2.dll" />
+				<File Id="DevExpress.XtraTreeList.v21.2" Name="DevExpress.XtraTreeList.v21.2.dll" />
+				<File Id="DevExpress.XtraTreeMap.v21.2" Name="DevExpress.XtraTreeMap.v21.2.dll" />
+				<File Id="DevExpress.XtraVerticalGrid.v21.2" Name="DevExpress.XtraVerticalGrid.v21.2.dll" />
+			</Component>
+
+			<Component Id="IndependentsoftLibs" Guid="136fd96d-3cae-4e50-b82b-423b5d695e7a">
+				<File Id="Msg.Net" Name="Independentsoft.Msg.dll" Source="P:\Visual Studio Projekte\Bibliotheken\MSG .NET\Bin\Independentsoft.Msg.2.0.570.21482.dll" KeyPath="yes" />				
+			</Component>
+
+			<Component Id="Limilabs" Guid="b3c2193c-522a-4c5f-a031-9b80150a154a">
+				<File Id="Mail" Name="Mail.dll" KeyPath="yes" />
+				<File Id="MailLicense" Name="MailLicense.xml" />
+			</Component>
+
+			<Component Id="GDPictureLibs" Guid="9ea5ab43-58ff-4813-9a8b-f854784f0275">
+				<File Id="GdPicture.NET.14" Name="GdPicture.NET.14.dll" KeyPath="yes" />
+				<File Id="GdPicture.NET.14.filters" Name="GdPicture.NET.14.filters.dll" />
+				<File Id="GdPicture.NET.14.filters64" Name="GdPicture.NET.14.filters.64.dll" />
+				<File Id="GdPicture.NET.14.image" Name="GdPicture.NET.14.image.gdimgplug.dll" />
+				<File Id="GdPicture.NET.14.image64" Name="GdPicture.NET.14.image.gdimgplug.64.dll" />
+				<File Id="GdPicture.NET.14.Imaging" Name="GdPicture.NET.14.Imaging.Rendering.Skia.dll"/>
+				<File Id="GdPicture.NET.14.Imaging64" Name="GdPicture.NET.14.Imaging.Rendering.Skia.64.dll" />
+			</Component>
+
+			<Component Id="RegistryKeys" Guid="{72D6927F-8297-4D51-BF4A-813064089A4A}">
+				<RegistryKey Root="HKLM" Key="Software">
+					<RegistryKey Key="[Manufacturer]">
+						<RegistryKey Key="[ProductName]" ForceCreateOnInstall="yes" ForceDeleteOnUninstall="no" Id="REGKEYINSTALLDIR">
+							<RegistryValue Type="string" Value="[INSTALLDIR]" Name="Path" />
+						</RegistryKey>
+					</RegistryKey>
+				</RegistryKey>
+
+				<util:RemoveFolderEx Id="RemoveApplicationFolder" On="uninstall" Property="APPLICATIONFOLDER" />
+			</Component>
+
+			<Directory Id="Resources.DE" Name="de">
+				<Component Id="Resources.DE.Devexpress" Guid="93cbf511-9a82-49e9-8283-678e508ac3b6">
+					<File Id="DevExpress.DataAccess.v21.2.UI.resources" Name="DevExpress.DataAccess.v21.2.UI.resources.dll" />
+					<File Id="DevExpress.DataAccess.v21.2.resources" Name="DevExpress.DataAccess.v21.2.resources.dll" />
+					<File Id="DevExpress.Dialogs.v21.2.Core.resources" Name="DevExpress.Dialogs.v21.2.Core.resources.dll" />
+					<File Id="DevExpress.Office.v21.2.Core.resources" Name="DevExpress.Office.v21.2.Core.resources.dll" />
+					<File Id="DevExpress.Pdf.v21.2.Core.resources" Name="DevExpress.Pdf.v21.2.Core.resources.dll" />
+					<File Id="DevExpress.Printing.v21.2.Core.resources" Name="DevExpress.Printing.v21.2.Core.resources.dll" />
+					<File Id="DevExpress.RichEdit.v21.2.Core.resources" Name="DevExpress.RichEdit.v21.2.Core.resources.dll" />
+					<File Id="DevExpress.Sparkline.v21.2.Core.resources" Name="DevExpress.Sparkline.v21.2.Core.resources.dll" />
+					<File Id="DevExpress.Spreadsheet.v21.2.Core.resources" Name="DevExpress.Spreadsheet.v21.2.Core.resources.dll" />
+					<File Id="DevExpress.Utils.v21.2.resources" Name="DevExpress.Utils.v21.2.resources.dll" />
+					<File Id="DevExpress.XtraBars.v21.2.resources" Name="DevExpress.XtraBars.v21.2.resources.dll" />
+					<File Id="DevExpress.XtraEditors.v21.2.resources" Name="DevExpress.XtraEditors.v21.2.resources.dll" />
+					<File Id="DevExpress.XtraGauges.v21.2.Core.resources" Name="DevExpress.XtraGauges.v21.2.Core.resources.dll" />
+					<File Id="DevExpress.XtraGrid.v21.2.resources" Name="DevExpress.XtraGrid.v21.2.resources.dll" />
+					<File Id="DevExpress.XtraLayout.v21.2.resources" Name="DevExpress.XtraLayout.v21.2.resources.dll" />
+					<File Id="DevExpress.XtraPrinting.v21.2.resources" Name="DevExpress.XtraPrinting.v21.2.resources.dll" />
+					<File Id="DevExpress.XtraRichEdit.v21.2.resources" Name="DevExpress.XtraRichEdit.v21.2.resources.dll" />
+					<File Id="DevExpress.XtraSpreadsheet.v21.2.resources" Name="DevExpress.XtraSpreadsheet.v21.2.resources.dll" />
+					<File Id="DevExpress.XtraTreeList.v21.2.resources" Name="DevExpress.XtraTreeList.v21.2.resources.dll" />
+				</Component>
+			</Directory>
+		</DirectoryRef>
+
+		<Feature Id="MainApplication" Title="Main Application" Level="1">
+			<ComponentRef Id="MainApplicationExe" />
+			<ComponentRef Id="MainApplicationExeConfig"/>
+			<ComponentRef Id="DDLibs"/>
+			<ComponentRef Id="NLog"/>
+			<ComponentRef Id="Limilabs"/>
+			<ComponentRef Id="DevExpressLibs"/>
+			<ComponentRef Id="IndependentsoftLibs"/>
+			<ComponentRef Id="GDPictureLibs"/>
+			<ComponentRef Id="RegistryKeys" />
+			<ComponentRef Id="Resources.DE.Devexpress" />
+		</Feature>
+
+		<Feature Id="DesktopShortcut" Title="Desktop Shortcut">
+			<Condition Level="0">DISABLE_DESKTOP_ICON</Condition>
+			<ComponentRef Id="ApplicationShortcut_Desktop"/>
+		</Feature>
+
+		<Feature Id="StartmenuShortcut" Title="Startmenu Shortcut">
+			<Condition Level="0">DISABLE_STARTMENU_ICON</Condition>
+			<ComponentRef Id="ApplicationShortcut_StartMenu" />
+		</Feature>
+
+		<!-- Legt das Standard-Installationsverzeichnis fest-->
+		<Property Id="WIXUI_INSTALLDIR" Value="INSTALLDIR" />
+		<Property Id="_BrowseProperty" Value="INSTALLDIR" />
+
+		<UI>
+			<!--<UIRef Id="WixUI_InstallDir" />-->
+			<UIRef Id="WixUI_FeatureTree"/>
+			<UIRef Id="WixUI_ErrorProgressText" />
+			<Publish Dialog="WelcomeDlg"
+				  Control="Next"
+				  Event="NewDialog"
+				  Value="InstallDirDlg"
+				  Order="2">1</Publish>
+			<Publish Dialog="InstallDirDlg"
+				  Control="Back"
+				  Event="NewDialog"
+				  Value="WelcomeDlg"
+				  Order="2">1</Publish>
+			<Publish Dialog="InstallDirDlg"
+				  Control="Next"
+				  Event="NewDialog"
+				  Value="FeaturesDlg"
+				  Order="2">1</Publish>
+			<Publish Dialog="InstallDirDlg"
+				  Control="ChangeFolder"
+				  Event="NewDialog"
+				  Value="BrowseDlg"
+				  Order="2">1</Publish>
+			<Publish Dialog="FeaturesDlg"
+					Control="Back"
+					Event="NewDialog"
+					Value="InstallDirDlg"
+					Order="2">1</Publish>
+		</UI>
+
+	</Product>
+</Wix>

app/SetupVS19/SetupVS19.wixproj

@@ -0,0 +1,64 @@
+<?xml version="1.0" encoding="utf-8"?>
+<Project ToolsVersion="4.0" DefaultTargets="Build" InitialTargets="EnsureWixToolsetInstalled" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">x86</Platform>
+    <ProductVersion>3.10</ProductVersion>
+    <ProjectGuid>9a7c1386-f66e-49dd-994c-f5935a0d196f</ProjectGuid>
+    <SchemaVersion>2.0</SchemaVersion>
+    <OutputName>SetupVS19</OutputName>
+    <OutputType>Package</OutputType>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|x86' ">
+    <OutputPath>bin\$(Configuration)\</OutputPath>
+    <IntermediateOutputPath>obj\$(Configuration)\</IntermediateOutputPath>
+    <DefineConstants>Debug</DefineConstants>
+    <LinkerAdditionalOptions>
+      -b "$(SolutionDir)DD_Clipboard_Searcher\bin\$(Configuration)" 
+      -cultures:de-DE,en-GB,en-US
+    </LinkerAdditionalOptions>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|x86' ">
+    <OutputPath>bin\$(Configuration)\</OutputPath>
+    <IntermediateOutputPath>obj\$(Configuration)\</IntermediateOutputPath>
+  </PropertyGroup>
+  <ItemGroup>
+    <Compile Include="Product.wxs" />
+  </ItemGroup>
+  <ItemGroup>
+    <Content Include="Config.wxi" />
+  </ItemGroup>
+  <ItemGroup>
+    <WixExtension Include="WixUtilExtension">
+      <HintPath>$(WixExtDir)\WixUtilExtension.dll</HintPath>
+      <Name>WixUtilExtension</Name>
+    </WixExtension>
+    <WixExtension Include="WixUIExtension">
+      <HintPath>$(WixExtDir)\WixUIExtension.dll</HintPath>
+      <Name>WixUIExtension</Name>
+    </WixExtension>
+  </ItemGroup>
+  <Import Project="$(WixTargetsPath)" Condition=" '$(WixTargetsPath)' != '' " />
+  <Import Project="$(MSBuildExtensionsPath32)\Microsoft\WiX\v3.x\Wix.targets" Condition=" '$(WixTargetsPath)' == '' AND Exists('$(MSBuildExtensionsPath32)\Microsoft\WiX\v3.x\Wix.targets') " />
+  <Target Name="EnsureWixToolsetInstalled" Condition=" '$(WixTargetsImported)' != 'true' ">
+    <Error Text="The WiX Toolset v3.11 (or newer) build tools must be installed to build this project. To download the WiX Toolset, see http://wixtoolset.org/releases/" />
+  </Target>
+  <Target Name="BeforeBuild">
+    <!-- Get the programs assembly version from the .exe file -->
+    <GetAssemblyIdentity AssemblyFiles="..\DD_Clipboard_Searcher\bin\$(Configuration)\easyFLOW.exe">
+      <Output TaskParameter="Assemblies" ItemName="AsmInfo" />
+    </GetAssemblyIdentity>
+    <!-- Store the assembly version number in ProductVersion preprocessor variable -->
+    <CreateProperty Value="$(DefineConstants);ProductVersion=%(AsmInfo.Version)">
+      <Output TaskParameter="Value" PropertyName="DefineConstants" />
+    </CreateProperty>
+    <!-- Name the .msi file after the solution platform and assembly version e.g TestService-x86-1.4.0.0.msi -->
+    <CreateProperty Value="$(SolutionName)-$(Platform)-%(AsmInfo.Version)">
+      <Output TaskParameter="Value" PropertyName="TargetName" />
+    </CreateProperty>
+    <!-- Name the .wixpdb file after the solution platform and assembly version e.g TestService-x86-1.4.0.0.msi -->
+    <CreateProperty Value="$(TargetName)$(TargetPdbExt)">
+      <Output TaskParameter="Value" PropertyName="TargetPdbName" />
+    </CreateProperty>
+  </Target>
+</Project>

app/SetupWix/Product.wxs

@@ -95,6 +95,12 @@
         <File Id="DDLanguage" Name="DigitalData.Modules.Language.dll" KeyPath="no" Checksum="yes"/>
         <File Id="DDRegexEditor" Name="DigitalData.Controls.RegexEditor.dll" KeyPath="no" Checksum="yes"/>
         <File Id="DDprotobuf" Name="protobuf-net.dll" KeyPath="no" Checksum="yes"/>
+        <File Id="DDDocumentViewer" Name="DigitalData.Controls.DocumentViewer.dll" KeyPath="no" Checksum="yes"/>
+        <File Id="DDCommon" Name="DigitalData.GUIs.Common.dll" KeyPath="no" Checksum="yes"/>
+        <File Id="DDWindows" Name="DigitalData.Modules.Windows.dll" KeyPath="no" Checksum="yes"/>
+        <File Id="DDPatterns" Name="DigitalData.Modules.Patterns.dll" KeyPath="no" Checksum="yes"/>
+        <File Id="DDClipboardWatcher" Name="DigitalData.Modules.ClipboardWatcher.dll" KeyPath="no" Checksum="yes"/>
+        <File Id="DDZooFlow" Name="DigitalData.Modules.ZooFlow.dll" KeyPath="no" Checksum="yes"/>
       </Component>
       
       <Component Id="NLog" Guid="{08903680-6b02-4ff0-b700-93209381fe1a}">
@@ -106,6 +112,8 @@
         <File Id="DevExpress.Data.v18.1" Name="DevExpress.Data.v18.1.dll" KeyPath="yes" />
         <File Id="DevExpress.Images.v18.1" Name="DevExpress.Images.v18.1.dll" />
         <File Id="DevExpress.Printing.v18.1.Core" Name="DevExpress.Printing.v18.1.Core.dll" />
+        <File Id="DevExpress.Office.v18.1.Core" Name="DevExpress.Office.v18.1.Core.dll" />
+        <File Id="DevExpress.Pdf.v18.1.Core" Name="DevExpress.Pdf.v18.1.Core.dll" />
         <File Id="DevExpress.Sparkline.v18.1.Core" Name="DevExpress.Sparkline.v18.1.Core.dll" />
         <File Id="DevExpress.Utils.v18.1" Name="DevExpress.Utils.v18.1.dll" />
         <File Id="DevExpress.XtraBars.v18.1" Name="DevExpress.XtraBars.v18.1.dll" />
@@ -115,10 +123,18 @@
         <File Id="DevExpress.XtraGrid.v18.1" Name="DevExpress.XtraGrid.v18.1.dll" />
         <File Id="DevExpress.XtraLayout.v18.1" Name="DevExpress.XtraLayout.v18.1.dll" />
         <File Id="DevExpress.XtraPrinting.v18.1" Name="DevExpress.XtraPrinting.v18.1.dll" />
+        <File Id="DevExpress.XtraTreeList.v18.1" Name="DevExpress.XtraTreeList.v18.1.dll" />
+        <File Id="DevExpress.XtraDialogs.v18.1" Name="DevExpress.XtraDialogs.v18.1.dll" />
+        <File Id="DevExpress.Dialogs.v18.1.Core" Name="DevExpress.Dialogs.v18.1.Core.dll" />
+        <File Id="DevExpress.RichEdit.v18.1.Core" Name="DevExpress.RichEdit.v18.1.Core.dll" />
+      </Component>
+      
+      <Component Id="IndependentsoftLibs" Guid="136fd96d-3cae-4e50-b82b-423b5d695e7a">
+        <File Id="Msg.Net" Name="Independentsoft.Msg.dll" Source="P:\Projekte DIGITAL DATA\DIGITAL DATA - Entwicklung\DLL_Bibliotheken\Independentsoft.Msg.dll" KeyPath="yes" />
       </Component>
 
       <Component Id="GDPictureLibs" Guid="9ea5ab43-58ff-4813-9a8b-f854784f0275">
-        <File Id="GdPicture.NET.14" Name="GdPicture.NET.14.dll" Source="D:\ProgramFiles\GdPicture.NET 14\Redist\GdPicture.NET\GdPicture.NET.14.dll" KeyPath="yes" />
+        <File Id="GdPicture.NET.14" Name="GdPicture.NET.14.dll" Source="D:\ProgramFiles\GdPicture.NET 14\Redist\GdPicture.NET (.NET Framework 4.5)\GdPicture.NET.14.dll" KeyPath="yes" />
         <File Id="GdPicture.NET.14.filters" Name="GdPicture.NET.14.filters.dll" Source="D:\ProgramFiles\GdPicture.NET 14\Redist\GdPicture.NET.14.filters.dll" />
         <File Id="GdPicture.NET.14.image" Name="GdPicture.NET.14.image.gdimgplug.dll" Source="D:\ProgramFiles\GdPicture.NET 14\Redist\GdPicture.NET.14.image.gdimgplug.dll" />
         <File Id="GdPicture.NET.14.Imaging" Name="GdPicture.NET.14.Imaging.Rendering.Skia.dll" Source="D:\ProgramFiles\GdPicture.NET 14\Redist\GdPicture.NET.14.Imaging.Rendering.Skia.dll" />
@@ -143,6 +159,7 @@
       <ComponentRef Id="DDLibs"/>
       <ComponentRef Id="NLog"/>
       <ComponentRef Id="DevExpressLibs"/>
+      <ComponentRef Id="IndependentsoftLibs"/>
       <ComponentRef Id="GDPictureLibs"/>
       <ComponentRef Id="RegistryKeys" />
     </Feature>

app/easyFLOW.sln

@@ -1,11 +1,11 @@
 
 Microsoft Visual Studio Solution File, Format Version 12.00
-# Visual Studio 15
-VisualStudioVersion = 15.0.26228.9
+# Visual Studio Version 17
+VisualStudioVersion = 17.9.34622.214
 MinimumVisualStudioVersion = 10.0.40219.1
-Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "DD_Clipboard_Watcher", "DD_Clipboard_Searcher\DD_Clipboard_Watcher.vbproj", "{09BC9934-1A38-4752-8873-639B42779CDB}"
+Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "easyFLOW", "DD_Clipboard_Searcher\easyFLOW.vbproj", "{09BC9934-1A38-4752-8873-639B42779CDB}"
 EndProject
-Project("{930C7802-8A8C-48F9-8165-68863BCCD9DD}") = "SetupWix", "SetupWix\SetupWix.wixproj", "{15FC07B7-9FF7-4F14-9BAB-05674E20D839}"
+Project("{930C7802-8A8C-48F9-8165-68863BCCD9DD}") = "SetupVS19", "SetupVS19\SetupVS19.wixproj", "{9A7C1386-F66E-49DD-994C-F5935A0D196F}"
 EndProject
 Global
 	GlobalSection(SolutionConfigurationPlatforms) = preSolution
@@ -27,16 +27,16 @@ Global
 		{09BC9934-1A38-4752-8873-639B42779CDB}.Release|Mixed Platforms.ActiveCfg = Release|Any CPU
 		{09BC9934-1A38-4752-8873-639B42779CDB}.Release|Mixed Platforms.Build.0 = Release|Any CPU
 		{09BC9934-1A38-4752-8873-639B42779CDB}.Release|x86.ActiveCfg = Release|Any CPU
-		{15FC07B7-9FF7-4F14-9BAB-05674E20D839}.Debug|Any CPU.ActiveCfg = Debug|x86
-		{15FC07B7-9FF7-4F14-9BAB-05674E20D839}.Debug|Mixed Platforms.ActiveCfg = Debug|x86
-		{15FC07B7-9FF7-4F14-9BAB-05674E20D839}.Debug|Mixed Platforms.Build.0 = Debug|x86
-		{15FC07B7-9FF7-4F14-9BAB-05674E20D839}.Debug|x86.ActiveCfg = Debug|x86
-		{15FC07B7-9FF7-4F14-9BAB-05674E20D839}.Debug|x86.Build.0 = Debug|x86
-		{15FC07B7-9FF7-4F14-9BAB-05674E20D839}.Release|Any CPU.ActiveCfg = Release|x86
-		{15FC07B7-9FF7-4F14-9BAB-05674E20D839}.Release|Mixed Platforms.ActiveCfg = Release|x86
-		{15FC07B7-9FF7-4F14-9BAB-05674E20D839}.Release|Mixed Platforms.Build.0 = Release|x86
-		{15FC07B7-9FF7-4F14-9BAB-05674E20D839}.Release|x86.ActiveCfg = Release|x86
-		{15FC07B7-9FF7-4F14-9BAB-05674E20D839}.Release|x86.Build.0 = Release|x86
+		{9A7C1386-F66E-49DD-994C-F5935A0D196F}.Debug|Any CPU.ActiveCfg = Debug|x86
+		{9A7C1386-F66E-49DD-994C-F5935A0D196F}.Debug|Mixed Platforms.ActiveCfg = Debug|x86
+		{9A7C1386-F66E-49DD-994C-F5935A0D196F}.Debug|Mixed Platforms.Build.0 = Debug|x86
+		{9A7C1386-F66E-49DD-994C-F5935A0D196F}.Debug|x86.ActiveCfg = Debug|x86
+		{9A7C1386-F66E-49DD-994C-F5935A0D196F}.Debug|x86.Build.0 = Debug|x86
+		{9A7C1386-F66E-49DD-994C-F5935A0D196F}.Release|Any CPU.ActiveCfg = Release|x86
+		{9A7C1386-F66E-49DD-994C-F5935A0D196F}.Release|Mixed Platforms.ActiveCfg = Release|x86
+		{9A7C1386-F66E-49DD-994C-F5935A0D196F}.Release|Mixed Platforms.Build.0 = Release|x86
+		{9A7C1386-F66E-49DD-994C-F5935A0D196F}.Release|x86.ActiveCfg = Release|x86
+		{9A7C1386-F66E-49DD-994C-F5935A0D196F}.Release|x86.Build.0 = Release|x86
 	EndGlobalSection
 	GlobalSection(SolutionProperties) = preSolution
 		HideSolutionNode = FALSE