Merge branch 'master' of http://dd-vmp07-com04:3000/AppStd/Monorepo

GUIs.ClipboardWatcher/ClipboardWatcher.vbproj

@@ -181,6 +181,10 @@
       <Project>{D20A6BF2-C7C6-4A7A-B34D-FA27D775A049}</Project>
       <Name>Common</Name>
     </ProjectReference>
+    <ProjectReference Include="..\Modules.Base\Base\Base.vbproj">
+      <Project>{6ea0c51f-c2b1-4462-8198-3de0b32b74f8}</Project>
+      <Name>Base</Name>
+    </ProjectReference>
     <ProjectReference Include="..\Modules.Database\Database.vbproj">
       <Project>{EAF0EA75-5FA7-485D-89C7-B2D843B03A96}</Project>
       <Name>Database</Name>

GUIs.ClipboardWatcher/ProfileFilter.vb

@@ -7,17 +7,18 @@ Imports DigitalData.Modules.Windows
 Imports DigitalData.Modules.ZooFlow.Params
 Imports DigitalData.Modules.ZooFlow.State
 Imports DigitalData.Modules.Patterns
+Imports DigitalData.Modules.Base
 
 Public Class ProfileFilter
-    Private _ProfileMatch As ProfileMatch
+    Inherits BaseClass
-    Private _ProfileTable As DataTable
+
-    Private _ProcessTable As DataTable
+    Private ReadOnly _ProfileMatch As ProfileMatch
-    Private _WindowTable As DataTable
+    Private ReadOnly _ProfileTable As DataTable
-    Private _ControlTable As DataTable
+    Private ReadOnly _ProcessTable As DataTable
-    Private _Profiles As List(Of ProfileData)
+    Private ReadOnly _WindowTable As DataTable
-    Private _TreeView As TreeView
+    Private ReadOnly _ControlTable As DataTable
-    Private _LogConfig As LogConfig
+    Private ReadOnly _Profiles As List(Of ProfileData)
-    Private _Logger As Logger
+    Private ReadOnly _TreeView As TreeView
 
     Public Enum ImageIndex
         Root
@@ -44,25 +45,27 @@ Public Class ProfileFilter
     End Property
 
     Public Sub New(LogConfig As LogConfig, ProfileDatatable As DataTable, ProcessTable As DataTable, WindowDatatable As DataTable, ControlDatatable As DataTable, TreeView As TreeView)
-        Try
+        MyBase.New(LogConfig)
-            _LogConfig = LogConfig
-            _Logger = LogConfig.GetLogger()
 
-            _Logger.Debug("Initializing Profile Filter")
+        Try
-            _Logger.Debug("Initializing Profile Data")
+            LogConfig = LogConfig
+            Logger = LogConfig.GetLogger()
+
+            Logger.Debug("Initializing Profile Filter")
+            Logger.Debug("Initializing Profile Data")
             _ProfileTable = ProfileDatatable
             _ProcessTable = ProcessTable
             _WindowTable = WindowDatatable
             _ControlTable = ControlDatatable
 
-            _Logger.Debug("Initializing Profile Debugging")
+            Logger.Debug("Initializing Profile Debugging")
             _TreeView = TreeView
             _ProfileMatch = New ProfileMatch(LogConfig)
 
-            _Logger.Debug("Transforming Profiles")
+            Logger.Debug("Transforming Profiles")
             _Profiles = TransformProfiles()
         Catch ex As Exception
-            _Logger.Error(ex)
+            Logger.Error(ex)
             Throw ex
         End Try
     End Sub
@@ -72,7 +75,7 @@ Public Class ProfileFilter
     End Function
 
     Public Function LogRemainingProfiles(Profiles As List(Of ProfileData), StepDescription As String) As List(Of ProfileData)
-        _Logger.Debug("Profiles remaining after Step {0}: {1}", StepDescription, Profiles.Count)
+        Logger.Debug("Profiles remaining after Step {0}: {1}", StepDescription, Profiles.Count)
         Return Profiles
     End Function
 
@@ -88,7 +91,7 @@ Public Class ProfileFilter
         _TreeView.Nodes.Add(oRootNode)
 
         For Each oProfile In Profiles
-            _Logger.Debug("Current Profile: {0}", oProfile.Name)
+            Logger.Debug("Current Profile: {0}", oProfile.Name)
 
             Dim oNode = _ProfileMatch.NewProfileNode(oProfile)
             oRootNode.Nodes.Add(oNode)
@@ -97,8 +100,8 @@ Public Class ProfileFilter
                 Dim oRegex As New Regex(oProfile.Regex)
                 Dim oMatch = oRegex.Match(ClipboardContents)
                 If oMatch.Success Then
-                    _Logger.Debug("FilterProfilesByClipboardRegex: Clipboard Regex Matched: {0}", ClipboardContents)
+                    Logger.Debug("FilterProfilesByClipboardRegex: Clipboard Regex Matched: {0}", ClipboardContents)
-                    _Logger.Info("FilterProfilesByClipboardRegex: Profile {0} matched!", oProfile.Name)
+                    Logger.Info("FilterProfilesByClipboardRegex: Profile {0} matched!", oProfile.Name)
                     oFilteredProfiles.Add(oProfile)
                     oProfile.IsMatched = True
 
@@ -106,8 +109,8 @@ Public Class ProfileFilter
                     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.Warn("Regex '{0}' could not be processed for input '{1}'", oProfile.Regex, ClipboardContents)
-                _Logger.Error(ex)
+                Logger.Error(ex)
             End Try
         Next
 
@@ -140,12 +143,12 @@ Public Class ProfileFilter
                         oParent.Nodes.Add(oNode)
                     End If
 
-                    _Logger.Debug($"FilterProfilesByProcess: Checking Profile: {oProfile.Name}")
+                    Logger.Debug($"FilterProfilesByProcess: Checking Profile: {oProfile.Name}")
                     If oIsMatch Then
-                        _Logger.Debug($"Processname Matched: {oProcess.ProcessName}")
+                        Logger.Debug($"Processname Matched: {oProcess.ProcessName}")
 
                         oFilteredProfiles.Add(oProfile)
-                        _Logger.Info("FilterProfilesByProcess: Profile {0} matched!", oProfile.Name)
+                        Logger.Info("FilterProfilesByProcess: Profile {0} matched!", oProfile.Name)
 
                         ' Set Process matched
                         oProcess.IsMatched = True
@@ -168,8 +171,8 @@ Public Class ProfileFilter
 
             Return oFilteredProfiles
         Catch ex As Exception
-            _Logger.Warn("Unexpected error in FilterProfilesByProcess...")
+            Logger.Warn("Unexpected error in FilterProfilesByProcess...")
-            _Logger.Error(ex)
+            Logger.Error(ex)
             Return Profiles
         End Try
     End Function
@@ -177,7 +180,7 @@ Public Class ProfileFilter
         Dim oProfiles As New List(Of ProfileData)
 
         For Each oProfile As ProfileData In Profiles
-            _Logger.Debug("Checking WindowDefinition for profile: {0}...", oProfile.Name)
+            Logger.Debug("Checking WindowDefinition for profile: {0}...", oProfile.Name)
 
             Dim oFilteredWindows As New List(Of WindowData)
 
@@ -190,7 +193,7 @@ Public Class ProfileFilter
 
             ' If Profile has no windows at all, it automatically matches
             If oFilteredWindows.Count = 0 Then
-                _Logger.Debug("Profile has no Windows assigned, automatic MATCH")
+                Logger.Debug("Profile has no Windows assigned, automatic MATCH")
 
                 oProfile.IsMatched = True
                 oProfiles.Add(oProfile)
@@ -214,12 +217,12 @@ Public Class ProfileFilter
                     Dim oMatch = oRegex.Match(WindowTitle)
 
                     If oMatch.Success Then
-                        _Logger.Debug("MATCH on WindowTitle: {0}", WindowTitle)
+                        Logger.Debug("MATCH on WindowTitle: {0}", WindowTitle)
                         oProfile.MatchedWindowID = oWindowDef.Guid
                         oWindowDef.IsMatched = True
                         oWindows.Add(oWindowDef)
                     Else
-                        _Logger.Debug("NO MATCH on WindowTitle: {0} - REGEX: {2}", WindowTitle, oWindowDef.Regex)
+                        Logger.Debug("NO MATCH on WindowTitle: {0} - REGEX: {2}", WindowTitle, oWindowDef.Regex)
                     End If
 
                     Dim oParent = _ProfileMatch.FindNodeByTag(_TreeView.Nodes, oWindowDef.WindowProcessID & "-PROCESS")
@@ -229,8 +232,8 @@ Public Class ProfileFilter
                     End If
 
                 Catch ex As Exception
-                    _Logger.Warn("Regex '{0}' could not be processed for input '{1}'", oWindowDef.Regex, WindowTitle)
+                    Logger.Warn("Regex '{0}' could not be processed for input '{1}'", oWindowDef.Regex, WindowTitle)
-                    _Logger.Error(ex)
+                    Logger.Error(ex)
                 End Try
             Next
 
@@ -240,14 +243,14 @@ Public Class ProfileFilter
                 oProfile.IsMatched = True
                 oProfiles.Add(oProfile)
 
-                _Logger.Info("FilterWindowsByWindowTitleRegex: Profile {0} matched!", oProfile.Name)
+                Logger.Info("FilterWindowsByWindowTitleRegex: Profile {0} matched!", oProfile.Name)
             End If
 
             If oProfile.IsCatchAll Then
                 oProfile.IsMatched = True
                 oProfiles.Add(oProfile)
 
-                _Logger.Info("FilterWindowsByWindowTitleRegex: Profile {0} is marked catchall!", oProfile.Name)
+                Logger.Info("FilterWindowsByWindowTitleRegex: Profile {0} is marked catchall!", oProfile.Name)
             End If
         Next
 
@@ -259,7 +262,7 @@ Public Class ProfileFilter
 
     Public Function FilterProfilesByFocusedControl(Profiles As List(Of ProfileData), ClipboardContents As String, WindowHandle As IntPtr) As List(Of ProfileData)
         Dim oProfiles As New List(Of ProfileData)
-        Dim oWindow As New Window(_LogConfig)
+        Dim oWindow As New Window(LogConfig)
         Dim oFocusedWindow As Window.WindowInfo
 
         Try
@@ -268,7 +271,7 @@ Public Class ProfileFilter
                 Throw New ApplicationException("Window Information is Empty")
             End If
         Catch ex As Exception
-            _Logger.Error(ex)
+            Logger.Error(ex)
             Return Profiles
         End Try
 
@@ -284,7 +287,7 @@ Public Class ProfileFilter
 
             ' If Profile has no controls at all, it automatically matches
             If oFilteredControls.Count = 0 Then
-                _Logger.Debug("Profile has no Controls assigned, automatic MATCH")
+                Logger.Debug("Profile has no Controls assigned, automatic MATCH")
                 oProfiles.Add(oProfile)
                 Continue For
             End If
@@ -322,8 +325,8 @@ Public Class ProfileFilter
                             End Select
                         Next
                     Catch ex As Exception
-                        _Logger.Warn("Error while getting focused control location")
+                        Logger.Warn("Error while getting focused control location")
-                        _Logger.Error(ex)
+                        Logger.Error(ex)
                     End Try
                 Else
                     Dim oControlName As String = oControl.ControlName
@@ -335,13 +338,13 @@ Public Class ProfileFilter
                             oFound = True
                         End If
                     Catch ex As Exception
-                        _Logger.Warn("Error while getting focused control name")
+                        Logger.Warn("Error while getting focused control name")
-                        _Logger.Error(ex)
+                        Logger.Error(ex)
                     End Try
                 End If
 
                 If oFound Then
-                    _Logger.Debug("Control {0} has MATCH", oControl.ControlName)
+                    Logger.Debug("Control {0} has MATCH", oControl.ControlName)
                     oMatchingControls.Add(oControl)
                 End If
 
@@ -354,11 +357,11 @@ Public Class ProfileFilter
 
             ' If Profile has controls that matched, the profile matches
             If oMatchingControls.Count > 0 Then
-                _Logger.Debug("Profile has {0} MATCHING Controls", oMatchingControls.Count)
+                Logger.Debug("Profile has {0} MATCHING Controls", oMatchingControls.Count)
                 oProfile.Controls = oMatchingControls
                 oProfiles.Add(oProfile)
 
-                _Logger.Info("FilterProfilesByFocusedControl: Profile {0} matched!", oProfile.Name)
+                Logger.Info("FilterProfilesByFocusedControl: Profile {0} matched!", oProfile.Name)
             End If
         Next
 
@@ -372,11 +375,11 @@ Public Class ProfileFilter
         Dim oProfiles As New List(Of ProfileData)
 
         For Each oProfile In Profiles
-            _Logger.Debug($"Checking SearchResults on ProfileID: {oProfile.Guid}")
+            Logger.Debug($"Checking SearchResults on ProfileID: {oProfile.Guid}")
             Dim oResultDocs As Integer = 0
             Dim oResultData As Integer = 0
 
-            Dim oPatterns As New ClassPatterns(_LogConfig)
+            Dim oPatterns As New ClassPatterns(LogConfig)
 
             Dim oDTDataSearches As DataTable
             Dim oDTDocSearches As DataTable
@@ -385,7 +388,7 @@ Public Class ProfileFilter
                 oDTDataSearches = Database.GetDatatable($"SELECT COUNT_COMMAND, CONN_ID FROM TBCW_PROF_DATA_SEARCH WHERE ACTIVE = 1 AND PROFILE_ID = {oProfile.Guid}")
             Catch ex As Exception
                 oProfile.ErrorMessage = ERROR_LOADING_COUNT_SQL_FOR_DATA_SEARCH
-                _Logger.Error(ex)
+                Logger.Error(ex)
                 Continue For
             End Try
 
@@ -393,7 +396,7 @@ Public Class ProfileFilter
                 oDTDocSearches = Database.GetDatatable($"SELECT COUNT_COMMAND, CONN_ID FROM TBCW_PROF_DOC_SEARCH WHERE ACTIVE = 1 AND PROFILE_ID = {oProfile.Guid}")
             Catch ex As Exception
                 oProfile.ErrorMessage = ERROR_LOADING_COUNT_SQL_FOR_DOC_SEARCH
-                _Logger.Error(ex)
+                Logger.Error(ex)
                 Continue For
             End Try
 
@@ -406,25 +409,25 @@ Public Class ProfileFilter
                     oCountConnectionId = NotNull(oRow.Item("CONN_ID"), 0)
 
                     If oCountCommand = String.Empty Then
-                        _Logger.Debug("Data SQL Query is empty. Skipping.")
+                        Logger.Debug("Data SQL Query is empty. Skipping.")
                         Continue For
                     End If
 
-                    _Logger.Debug("Count-Command DATA BEFORE Replace: [{0}]", oCountCommand)
+                    Logger.Debug("Count-Command DATA BEFORE Replace: [{0}]", oCountCommand)
                     oCountCommand = oPatterns.ReplaceInternalValues(oCountCommand)
                     oCountCommand = oPatterns.ReplaceUserValues(oCountCommand, User)
                     oCountCommand = oPatterns.ReplaceClipboardContents(oCountCommand, ClipboardContents)
 
-                    _Logger.Debug("Count-Command DATA before execute: [{0}]", oCountCommand)
+                    Logger.Debug("Count-Command DATA before execute: [{0}]", oCountCommand)
                     Dim oConnectionString = ProfileUtils.GetConnectionString(Database, oCountConnectionId)
 
                     oResultData += NotNull(Of Integer)(Database.GetScalarValueWithConnection(oCountCommand, oConnectionString), 0)
 
-                    _Logger.Debug("Datarows returned from search: [{0}]", oResultData)
+                    Logger.Debug("Datarows returned from search: [{0}]", oResultData)
                 Catch ex As Exception
                     oProfile.ErrorMessage = ERROR_EXECUTING_COUNT_SQL_FOR_DATA_SEARCH
-                    _Logger.Error(ex)
+                    Logger.Error(ex)
-                    _Logger.Warn("Invalid SQL Query for Counting Data in Profile [{0}]: [{1}]", oProfile.Guid, oCountCommand)
+                    Logger.Warn("Invalid SQL Query for Counting Data in Profile [{0}]: [{1}]", oProfile.Guid, oCountCommand)
                 End Try
             Next
 
@@ -437,25 +440,25 @@ Public Class ProfileFilter
                     oCountConnectionId = NotNull(oRow.Item("CONN_ID"), 0)
 
                     If oCountCommand = String.Empty Then
-                        _Logger.Debug("Document SQL Query is empty. Skipping.")
+                        Logger.Debug("Document SQL Query is empty. Skipping.")
                         Continue For
                     End If
 
-                    _Logger.Debug("Count-Command for Documents BEFORE Replace: [{0}]", oCountCommand)
+                    Logger.Debug("Count-Command for Documents BEFORE Replace: [{0}]", oCountCommand)
                     oCountCommand = oPatterns.ReplaceInternalValues(oCountCommand)
                     oCountCommand = oPatterns.ReplaceUserValues(oCountCommand, User)
                     oCountCommand = oPatterns.ReplaceClipboardContents(oCountCommand, ClipboardContents)
 
-                    _Logger.Debug("Count-Command for Documents BEFORE execute: [{0}]", oCountCommand)
+                    Logger.Debug("Count-Command for Documents BEFORE execute: [{0}]", oCountCommand)
                     Dim oConnectionString = ProfileUtils.GetConnectionString(Database, oCountConnectionId)
 
                     oResultDocs += NotNull(Of Integer)(Database.GetScalarValueWithConnection(oCountCommand, oConnectionString), 0)
 
-                    _Logger.Debug("Documents returned from search: [{0}]", oResultDocs)
+                    Logger.Debug("Documents returned from search: [{0}]", oResultDocs)
                 Catch ex As Exception
                     oProfile.ErrorMessage = ERROR_EXECUTING_COUNT_SQL_FOR_DOC_SEARCH
-                    _Logger.Error(ex)
+                    Logger.Error(ex)
-                    _Logger.Warn("Invalid SQL Query for Counting Data in Profile [{0}]: [{1}]", oProfile.Guid, oCountCommand)
+                    Logger.Warn("Invalid SQL Query for Counting Data in Profile [{0}]: [{1}]", oProfile.Guid, oCountCommand)
                 End Try
             Next
 
@@ -473,7 +476,7 @@ Public Class ProfileFilter
 
             If oProfile.CountData > 0 Or oProfile.CountDocs > 0 Then
                 oProfiles.Add(oProfile)
-                _Logger.Info("Profile [{0}] matched in FilterProfilesBySearchResults!", oProfile.Name)
+                Logger.Info("Profile [{0}] matched in FilterProfilesBySearchResults!", oProfile.Name)
             End If
         Next
 
@@ -484,7 +487,7 @@ Public Class ProfileFilter
         Dim oProfiles As New List(Of ProfileData)
 
         For Each oProfile As ProfileData In Profiles
-            _Logger.Debug("Current Profile: {0}", oProfile.Name)
+            Logger.Debug("Current Profile: {0}", oProfile.Name)
 
             Dim oWindows As New List(Of WindowData)
 
@@ -498,7 +501,7 @@ Public Class ProfileFilter
                     Dim oMatch = oRegex.Match(ClipboardContents)
 
                     If oMatch.Success Then
-                        _Logger.Debug("Window Clipboard Regex Matched: {0}", ClipboardContents)
+                        Logger.Debug("Window Clipboard Regex Matched: {0}", ClipboardContents)
                         oWindows.Add(w)
                     End If
 
@@ -510,8 +513,8 @@ Public Class ProfileFilter
                         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.Warn("Regex '{0}' could not be processed for input '{1}'", w.Regex, ClipboardContents)
-                    _Logger.Error(ex)
+                    Logger.Error(ex)
                 End Try
             Next
 
@@ -519,7 +522,7 @@ Public Class ProfileFilter
                 oProfile.Windows = oWindows
                 oProfiles.Add(oProfile)
 
-                _Logger.Info("FilterWindowsByWindowClipboardRegex: Profile {0} matched!", oProfile.Name)
+                Logger.Info("FilterWindowsByWindowClipboardRegex: Profile {0} matched!", oProfile.Name)
             End If
         Next
 
@@ -589,7 +592,7 @@ Public Class ProfileFilter
 
             Return oList
         Catch ex As Exception
-            _Logger.Error(ex)
+            Logger.Error(ex)
             Throw ex
         End Try
     End Function
@@ -636,7 +639,7 @@ Public Class ProfileFilter
 
             Return oControlList
         Catch ex As Exception
-            _Logger.Error(ex)
+            Logger.Error(ex)
             Throw ex
         End Try
     End Function
@@ -660,7 +663,7 @@ Public Class ProfileFilter
 
             Return oProcessList
         Catch ex As Exception
-            _Logger.Error(ex)
+            Logger.Error(ex)
             Throw ex
         End Try
     End Function
@@ -682,7 +685,7 @@ Public Class ProfileFilter
 
             Return oWindowList
         Catch ex As Exception
-            _Logger.Error(ex)
+            Logger.Error(ex)
             Throw ex
         End Try
     End Function

GUIs.ClipboardWatcher/ProfileSearches.vb

@@ -1,13 +1,17 @@
 Imports DigitalData.Modules.Database
 Imports DigitalData.Modules.Logging
 Imports DigitalData.Modules.ZooFlow
+Imports DigitalData.Modules.Language.Utils
 Imports DigitalData.Modules.Patterns
 Imports DigitalData.Modules.EDMI.API
 Imports DigitalData.Modules.EDMI.API.EDMIServiceReference
+Imports DigitalData.Modules.Base
+Imports DigitalData.GUIs.Common
+Imports DigitalData.Modules.ZooFlow.Params
 
 Public Class ProfileSearches
-    Private _LogConfig As LogConfig
+    Inherits BaseClass
-    Private _Logger As Logger
+
     Private _Environment As Environment
     Private _Client As Client
 
@@ -22,10 +26,10 @@ Public Class ProfileSearches
         Public SQLCommand As String
     End Class
 
-    Public Sub New(LogConfig As LogConfig, Environment As Environment, pClipboardContents As String)
+    Public Sub New(pLogConfig As LogConfig, pEnvironment As Environment, pClipboardContents As String)
-        _LogConfig = LogConfig
+        MyBase.New(pLogConfig)
-        _Logger = LogConfig.GetLogger()
+
-        _Environment = Environment
+        _Environment = pEnvironment
         _ClipboardContents = pClipboardContents
         Try
             If _Environment.Service.IsActive = True Then
@@ -36,22 +40,47 @@ Public Class ProfileSearches
                     If oSplit.Length = 2 Then
                         oAppServerPort = oSplit(1)
                     End If
-                    _Client = New Client(LogConfig, oAppServerAddress, oAppServerPort)
+                    _Client = New Client(pLogConfig, oAppServerAddress, oAppServerPort)
                     If Not IsNothing(_Client) Then
                         If _Client.Connect() Then
-                            _Logger.Debug("ProfileSearches: Appserver connected successfully!")
+                            Logger.Debug("ProfileSearches: Appserver connected successfully!")
                         End If
                     End If
                 Catch ex As Exception
-                    _Logger.Warn($"Could not initialize the AppServer: {ex.Message}")
+                    Logger.Warn($"Could not initialize the AppServer: {ex.Message}")
-                    _Logger.Error(ex)
+                    Logger.Error(ex)
                 End Try
             End If
         Catch ex As Exception
-            _Logger.Error(ex)
+            Logger.Error(ex)
         End Try
     End Sub
 
+    Public Async Function GetDocResultForm(pProfile As ProfileData, pFormTitle As String, pOperationMode As Modules.ZooFlow.Constants.OperationMode) As Task(Of frmDocumentResultList)
+        ' For now we assume these are document results instead of data results
+        Dim oSearches = Await LoadDocumentSearchesAsync(pProfile.Guid)
+
+        Dim oNameSlug = ConvertTextToSlug(pProfile.Name)
+        Dim oSearchGuids = oSearches.Select(Function(s) s.Guid).ToArray
+        Dim oWindowGuid = $"{pProfile.Guid}-{oNameSlug}-{String.Join("-", oSearchGuids)}"
+        Dim oParams = New DocumentResultList.Params() With {
+            .WindowGuid = oWindowGuid,
+            .WindowTitle = pFormTitle,
+            .OperationModeOverride = pOperationMode,
+            .ProfileGuid = pProfile.Guid
+        }
+
+        For Each oSearch In oSearches
+            oParams.Results.Add(New DocumentResultList.DocumentResult() With {
+                .Title = oSearch.TabCaption,
+                .Datatable = oSearch.DataTable
+            })
+        Next
+
+        Dim oForm As New frmDocumentResultList(LogConfig, _Environment, oParams)
+        Return oForm
+    End Function
+
     Public Async Function LoadDocumentSearchesAsync(ProfileId As Integer) As Task(Of List(Of Search))
         Return Await Task.Run(Function()
                                   Return DoLoadDocumentSearches(ProfileId)
@@ -65,7 +94,7 @@ Public Class ProfileSearches
             Dim oTableResult As TableResult = _Client.GetDatatableByName("TBCW_PROF_DOC_SEARCH", $"PROFILE_ID = {ProfileId} AND ACTIVE = 1", "TAB_INDEX")
             oSearchesDataTable = oTableResult.Table
             If oSearchesDataTable Is Nothing Then
-                _Logger.Warn("TBCW_PROF_DOC_SEARCH from AppServer is nothing: Failover started...")
+                Logger.Warn("TBCW_PROF_DOC_SEARCH from AppServer is nothing: Failover started...")
                 oSearchesDataTable = _Environment.Database.GetDatatable(oSQL)
             End If
         Else
@@ -74,7 +103,7 @@ Public Class ProfileSearches
         Dim oDocSearches As New List(Of Search)
         If Not IsNothing(oSearchesDataTable) Then
             Dim oCounter As Integer = 0
-            Dim oPatterns As New ClassPatterns(_LogConfig)
+            Dim oPatterns As New ClassPatterns(LogConfig)
 
             For Each oRow As DataRow In oSearchesDataTable.Rows
                 Dim oProfileId As Integer = oRow.Item("PROFILE_ID")
@@ -92,7 +121,7 @@ Public Class ProfileSearches
                 Dim oDatatable As DataTable = _Environment.Database.GetDatatableWithConnection(oSQL, oConnectionString)
 
                 If oDatatable Is Nothing Then
-                    _Logger.Warn("Error in SQL-Query '{0}'", oSQL)
+                    Logger.Warn("Error in SQL-Query '{0}'", oSQL)
                     Continue For
                 End If
 
@@ -132,7 +161,7 @@ Public Class ProfileSearches
                 Dim oTableResult As TableResult = _Client.GetDatatableByName("TBCW_PROF_DATA_SEARCH", $"PROFILE_ID = {ProfileId} AND ACTIVE = 1", "TAB_INDEX")
                 oSearchesDataTable = oTableResult.Table
                 If oSearchesDataTable Is Nothing Then
-                    _Logger.Warn("TBCW_PROF_DATA_SEARCH from AppServer is nothing: Failover started...")
+                    Logger.Warn("TBCW_PROF_DATA_SEARCH from AppServer is nothing: Failover started...")
                     oSearchesDataTable = _Environment.Database.GetDatatable(oSQL)
                 End If
             Else
@@ -140,7 +169,7 @@ Public Class ProfileSearches
             End If
 
             Dim oCounter As Integer = 0
-            Dim oPatterns As New ClassPatterns(_LogConfig)
+            Dim oPatterns As New ClassPatterns(LogConfig)
 
             For Each oRow As DataRow In oSearchesDataTable.Rows
                 Try
@@ -158,7 +187,7 @@ Public Class ProfileSearches
                     Dim oDatatable As DataTable = _Environment.Database.GetDatatableWithConnection(oSQL, oConnectionString)
 
                     If oDatatable Is Nothing Then
-                        _Logger.Warn("Error in SQL-Query '{0}'", oSQL)
+                        Logger.Warn("Error in SQL-Query '{0}'", oSQL)
                         Continue For
                     End If
 
@@ -172,7 +201,7 @@ Public Class ProfileSearches
 
                     oCounter += 1
                 Catch ex As Exception
-                    _Logger.Error(ex)
+                    Logger.Error(ex)
                 End Try
             Next
 
@@ -180,7 +209,7 @@ Public Class ProfileSearches
                 Where(Function(s) Not IsNothing(s.DataTable)).
                 ToList()
         Catch ex As Exception
-            _Logger.Error(ex)
+            Logger.Error(ex)
             Return oDataSearches
         End Try
     End Function

GUIs.ClipboardWatcher/frmMatch.vb

@@ -31,6 +31,7 @@ Public Class frmMatch
     Private ReadOnly _Environment As Environment
     Private ReadOnly _Params As ClipboardWatcherParams
     Private ReadOnly _Language As String
+    Private ReadOnly _ProfileSearch As ProfileSearches
 
     Private ReadOnly PrimaryFont As New Font("Segoe UI", 12, FontStyle.Bold)
     Private ReadOnly SecondaryFont As New Font("Segoe UI", 10)
@@ -61,6 +62,7 @@ Public Class frmMatch
         _Logger = LogConfig.GetLogger()
         _Environment = Environment
         _Params = Params
+        _ProfileSearch = New ProfileSearches(_LogConfig, _Environment, _Params.ClipboardContents)
 
         _Language = Utils.NotNull(_Environment.User.Language, State.UserState.LANG_EN_US)
         Thread.CurrentThread.CurrentUICulture = New CultureInfo(_Language)
@@ -324,7 +326,7 @@ Public Class frmMatch
 
                 Case TileGroupDocuments.Name
                     Dim oSearches = Await oProfileSearch.LoadDocumentSearchesAsync(oProfileId)
-                    OpenDocumentResults(oProfile, oSearches)
+                    Await OpenDocumentResults(oProfile, oSearches)
 
                 Case Else
                     ' TODO: Load combined results
@@ -341,32 +343,17 @@ Public Class frmMatch
         End Try
     End Sub
 
-    Private Sub OpenDocumentResults(Profile As ProfileData, Searches As List(Of ProfileSearches.Search))
+    Private Async Function OpenDocumentResults(Profile As ProfileData, Searches As List(Of ProfileSearches.Search)) As Task
-        Dim oNameSlug = Utils.ConvertTextToSlug(Profile.Name)
+        Dim oFormTitle = GetResultWindowString(_Params.ClipboardContents)
-        Dim oSearchGuids = Searches.Select(Function(s) s.Guid).ToArray
+        Dim oForm As frmDocumentResultList = Await _ProfileSearch.GetDocResultForm(Profile, oFormTitle, _Params.OperationModeOverride)
-        Dim oWindowGuid = $"{Profile.Guid}-{oNameSlug}-{String.Join("-", oSearchGuids)}"
-        Dim oParams = New DocumentResultList.Params() With {
-            .WindowGuid = oWindowGuid,
-            .WindowTitle = GetResultWindowString(_Params.ClipboardContents),
-            .OperationModeOverride = _Params.OperationModeOverride,
-            .ProfileGuid = Profile.Guid
-        }
 
-        For Each oSearch In Searches
-            oParams.Results.Add(New DocumentResultList.DocumentResult() With {
-                .Title = oSearch.TabCaption,
-                .Datatable = oSearch.DataTable
-            })
-        Next
-
-        Dim oForm As New frmDocumentResultList(_LogConfig, _Environment, oParams)
         AddHandler oForm.FormClosed, AddressOf ProfileResultForm_Closed
         AddHandler oForm.NeedsRefresh, AddressOf ProfileResultForm_NeedsRefresh
 
         OpenForms.Add(oForm)
         oForm.Show()
 
-    End Sub
+    End Function
 
     Private Sub OpenDataResults(Profile As ProfileData, Searches As List(Of ProfileSearches.Search))
         Dim oNameSlug = Utils.ConvertTextToSlug(Profile.Name)

GUIs.ClipboardWatcher/frmMatchLoading.Designer.vb

@@ -39,7 +39,6 @@ Partial Class frmMatchLoading
         Me.progressPanel1.AppearanceCaption.Options.UseFont = True
         Me.progressPanel1.AppearanceDescription.Font = CType(resources.GetObject("resource.Font1"), System.Drawing.Font)
         Me.progressPanel1.AppearanceDescription.Options.UseFont = True
-        Me.progressPanel1.BarAnimationElementThickness = 2
         Me.progressPanel1.ImageHorzOffset = 20
         Me.progressPanel1.Name = "progressPanel1"
         '

GUIs.ClipboardWatcher/frmMatchLoading.resx

@@ -141,9 +141,6 @@
   <data name="progressPanel1.Text" xml:space="preserve">
     <value>progressPanel1</value>
   </data>
-  <data name="$this.Text" xml:space="preserve">
-    <value>Form1</value>
-  </data>
   <data name="&gt;&gt;$this.Type" xml:space="preserve">
     <value>DevExpress.XtraWaitForm.WaitForm, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
@@ -210,14 +207,17 @@
   <data name="&gt;&gt;progressPanel1.Type" xml:space="preserve">
     <value>DevExpress.XtraWaitForm.ProgressPanel, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
+  <data name="tableLayoutPanel1.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
+    <value>Fill</value>
+  </data>
   <data name="resource.Font1" type="System.Drawing.Font, System.Drawing">
     <value>Microsoft Sans Serif, 8.25pt</value>
   </data>
   <data name="&gt;&gt;tableLayoutPanel1.Type" xml:space="preserve">
     <value>System.Windows.Forms.TableLayoutPanel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </data>
-  <data name="tableLayoutPanel1.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
+  <data name="$this.Text" xml:space="preserve">
-    <value>Fill</value>
+    <value>Form1</value>
   </data>
   <data name="tableLayoutPanel1.RowCount" type="System.Int32, mscorlib">
     <value>1</value>
@@ -231,7 +231,4 @@
   <metadata name="$this.Localizable" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
     <value>True</value>
   </metadata>
-  <metadata name="$this.Language" type="System.Globalization.CultureInfo, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-    <value>fr-FR</value>
-  </metadata>
 </root>

GUIs.ClipboardWatcher/frmTreeView.fr-FR.resx

@@ -122,81 +122,81 @@
         AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
         LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
         ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAAD8
-        EgAAAk1TRnQBSQFMAgEBBgEAARgBAAEYAQABEAEAARABAAT/ASEBAAj/AUIBTQE2BwABNgMAASgDAAFA
+        EgAAAk1TRnQBSQFMAgEBBgEAASABAAEgAQABEAEAARABAAT/ASEBAAj/AUIBTQE2BwABNgMAASgDAAFA
         AwABIAMAAQEBAAEgBgABIDYABP8DmQH/A+oF/wPMAf8DwAH/xAADhgH/A4YB/wOGAf8DhgH/A4YB/wOG
-        Af8DhgH/A4YF/wPXAf8D+AH/AcwBmQEwAf8BzAGZATAB/wHMApkF/wOWAf8EAAOGAf8DhgH/A4YB/wOG
+        Af8DhgH/A4YF/wPXAf8D+AH/AcwBmQEvAf8BzAGZAS8B/wHMApkF/wOWAf8EAAOGAf8DhgH/A4YB/wOG
-        Af8DhgH/A4YB/wOGAf8DhgH/A4YB/wOGAf8DhgH/A4YB/wOGAf8DhgH/hAADhgH/HAADhgX/AcwBmQFj
+        Af8DhgH/A4YB/wOGAf8DhgH/A4YB/wOGAf8DhgH/A4YB/wOGAf8DhgH/hAADhgH/HAADhgX/AcwBmQFi
-        Af8BzAGZATAB/wHMAZkBMAH/AcwBmQEwCf8QAAOGAf8YAAOGAf+QAAOGAf8cAAOyBf8B8AHKAaYB/wHM
+        Af8BzAGZAS8B/wHMAZkBLwH/AcwBmQEvCf8QAAOGAf8YAAOGAf+QAAOGAf8cAAOyBf8B8AHKAaYB/wHM
-        AZkBMA3/A8wB/xAAA4YB/xgAA4YB/5AAA4YB/yAAA5YF/wHwAcoBpgn/A8AB/wPqAf8EAAOGAf8DhgH/
+        AZkBLw3/A8wB/xAAA4YB/xgAA4YB/5AAA4YB/yAAA5YF/wHwAcoBpgn/A8AB/wPqAf8EAAOGAf8DhgH/
         A4YB/wOGAf8DhgH/A4YB/wOGAf8DhgH/A4YB/wOGAf8DhgH/A4YB/wOGAf8DhgH/hAADhgH/JAAD8QH/
         A5YB/wOGAf8DwAH/BAADmQH/EAADhgH/GAADhgH/kAADhgH/OAADhgH/EAADhgH/GAADhgH/kAADhgH/
         OAADhgH/BAADhgH/A4YB/wOGAf8DhgH/A4YB/wOGAf8DhgH/A4YB/wOGAf8DhgH/A4YB/wOGAf8DhgH/
-        A4YB/4QAA4YB/zgAA4YB/xAAA4YB/xgAA4YB/5AAA4YB/zgAA4YB/xAAA4YB/xgAA4YB/5AAAcwBmQEw
+        A4YB/4QAA4YB/zgAA4YB/xAAA4YB/xgAA4YB/5AAA4YB/zgAA4YB/xAAA4YB/xgAA4YB/5AAAcwBmQEv
-        Af8BzAGZATAB/wHMAZkBMAH/AcwBmQEwAf8BzAGZATAB/wHMAZkBMAH/AcwBmQEwAf8BzAGZATAB/wHM
+        Af8BzAGZAS8B/wHMAZkBLwH/AcwBmQEvAf8BzAGZAS8B/wHMAZkBLwH/AcwBmQEvAf8BzAGZAS8B/wHM
-        AZkBMAH/AcwBmQEwAf8BzAGZATAB/wHMAZkBMAH/AcwBmQEwAf8BzAGZATAB/wQAA4YB/wQAA4YB/wOG
+        AZkBLwH/AcwBmQEvAf8BzAGZAS8B/wHMAZkBLwH/AcwBmQEvAf8BzAGZAS8B/wQAA4YB/wQAA4YB/wOG
-        Af8DhgH/A4YB/wOGAf8DhgH/A4YB/wOGAf8DhgH/A4YB/wOGAf8DhgH/A4YB/wOGAf+EAAHMAZkBMAH/
+        Af8DhgH/A4YB/wOGAf8DhgH/A4YB/wOGAf8DhgH/A4YB/wOGAf8DhgH/A4YB/wOGAf+EAAHMAZkBLwH/
-        AcwBmQEwAf8BzAGZATAB/wHMAZkBMAH/AcwBmQEwAf8BzAGZATAB/wHMAZkBMAH/AcwBmQEwAf8BzAGZ
+        AcwBmQEvAf8BzAGZAS8B/wHMAZkBLwH/AcwBmQEvAf8BzAGZAS8B/wHMAZkBLwH/AcwBmQEvAf8BzAGZ
-        ATAB/wHMAZkBMAH/AcwBmQEwAf8BzAGZATAB/wHMAZkBMAH/AcwBmQEwAf8EAAOGAf8EAAPXAf8D1wH/
+        AS8B/wHMAZkBLwH/AcwBmQEvAf8BzAGZAS8B/wHMAZkBLwH/AcwBmQEvAf8EAAOGAf8EAAPXAf8D1wH/
-        A9cB/wOGAf8D1wH/A9cB/wPXAf8D1wH/A9cB/wPXAf8DhgH/A9cB/wPXAf8D1wH/hAABzAGZATAB/wHM
+        A9cB/wOGAf8D1wH/A9cB/wPXAf8D1wH/A9cB/wPXAf8DhgH/A9cB/wPXAf8D1wH/hAABzAGZAS8B/wHM
-        AZkBMAH/AcwBmQEwAf8BzAGZATAB/wHMAZkBMAH/AcwBmQEwAf8BzAGZATAB/wHMAZkBMAH/AcwBmQEw
+        AZkBLwH/AcwBmQEvAf8BzAGZAS8B/wHMAZkBLwH/AcwBmQEvAf8BzAGZAS8B/wHMAZkBLwH/AcwBmQEv
-        Af8BzAGZATAB/wHMAZkBMAH/AcwBmQEwAf8BzAGZATAB/wHMAZkBMAH/BAADhgH/BAAD1wH/A9cB/wPX
+        Af8BzAGZAS8B/wHMAZkBLwH/AcwBmQEvAf8BzAGZAS8B/wHMAZkBLwH/BAADhgH/BAAD1wH/A9cB/wPX
-        Af8DhgH/A9cB/wPXAf8D1wH/A9cB/wPXAf8D1wH/A4YB/wPXAf8D1wH/A9cB/4wAAcwBmQEwAf8BzAGZ
+        Af8DhgH/A9cB/wPXAf8D1wH/A9cB/wPXAf8D1wH/A4YB/wPXAf8D1wH/A9cB/4wAAcwBmQEvAf8BzAGZ
-        ATAB/wHMAZkBMAH/AcwBmQEwAf8BzAGZATAB/wHMAZkBMAH/AcwBmQEwAf8BzAGZATAB/wHMAZkBMAH/
+        AS8B/wHMAZkBLwH/AcwBmQEvAf8BzAGZAS8B/wHMAZkBLwH/AcwBmQEvAf8BzAGZAS8B/wHMAZkBLwH/
-        AcwBmQEwAf8BzAGZATAB/wHMAZkBMAH/AcwBmQEwAf8BzAGZATAB/wQAA4YB/wOGAf8DhgH/A4YB/wOG
+        AcwBmQEvAf8BzAGZAS8B/wHMAZkBLwH/AcwBmQEvAf8BzAGZAS8B/wQAA4YB/wOGAf8DhgH/A4YB/wOG
-        Af8DhgH/A4YB/wOGAf8DhgH/A4YB/wOGAf8DhgH/A4YB/wOGAf+MAAHMAZkBMAH/AcwBmQEwAf8BzAGZ
+        Af8DhgH/A4YB/wOGAf8DhgH/A4YB/wOGAf8DhgH/A4YB/wOGAf+MAAHMAZkBLwH/AcwBmQEvAf8BzAGZ
-        ATAB/wHMAZkBMAH/AcwBmQEwAf8BzAGZATAB/wHMAZkBMAH/AcwBmQEwAf8BzAGZATAB/wHMAZkBMAH/
+        AS8B/wHMAZkBLwH/AcwBmQEvAf8BzAGZAS8B/wHMAZkBLwH/AcwBmQEvAf8BzAGZAS8B/wHMAZkBLwH/
-        AcwBmQEwAf8BzAGZATAB/wHMAZkBMAH/AcwBmQEwAf/IAAHMAZkBMAH/AcwBmQEwAf8BzAGZATAB/wHM
+        AcwBmQEvAf8BzAGZAS8B/wHMAZkBLwH/AcwBmQEvAf/IAAHMAZkBLwH/AcwBmQEvAf8BzAGZAS8B/wHM
-        AZkBMAH/AcwBmQEwAf8BzAGZATAB/wHMAZkBMAH/AcwBmQEwAf8BzAGZATAB/wHMAZkBMAH/AcwBmQEw
+        AZkBLwH/AcwBmQEvAf8BzAGZAS8B/wHMAZkBLwH/AcwBmQEvAf8BzAGZAS8B/wHMAZkBLwH/AcwBmQEv
-        Af8BzAGZATAB/wHMAZkBMAH/AcwBmQEwAf//AF0AA4Yh/xwAAcwBmQFjAf8BzAGZATAB/wPqAf8kAAOG
+        Af8BzAGZAS8B/wHMAZkBLwH/AcwBmQEvAf//AF0AA4Yh/xwAAcwBmQFiAf8BzAGZAS8B/wPqAf8kAAOG
-        Af8DhgH/A4YB/wOGAf8DhgH/A4YB/wOGAf8DhgH/A4YB/wOGAf8DhgH/ZAADhiH/HAABzAGZATAB/wHM
+        Af8DhgH/A4YB/wOGAf8DhgH/A4YB/wOGAf8DhgH/A4YB/wOGAf8DhgH/ZAADhiH/HAABzAGZAS8B/wHM
-        AZkBMAH/AcwBmQEwAf9MAAOGAf8QAAHMAZkBMAH/AcwBmQEwAf8BzAGZATAB/wHMAZkBMAH/AcwBmQEw
+        AZkBLwH/AcwBmQEvAf9MAAOGAf8QAAHMAZkBLwH/AcwBmQEvAf8BzAGZAS8B/wHMAZkBLwH/AcwBmQEv
-        Af8BzAGZATAB/wHMAZkBMAH/AcwBmQEwAf8BzAGZATAB/wHMAZkBMAH/AcwBmQEwAf8BzAGZATAB/wHM
+        Af8BzAGZAS8B/wHMAZkBLwH/AcwBmQEvAf8BzAGZAS8B/wHMAZkBLwH/AcwBmQEvAf8BzAGZAS8B/wHM
-        AZkBMAH/EAABMAHMAv8BYwHMAv8BYwHMAv8BYwHMAv8DhiH/CAAE/wHMAZkBMAH/AcwBmQEwBf8D3QH/
+        AZkBLwH/EAABLwHMAv8BYgHMAv8BYgHMAv8BYgHMAv8DhiH/CAAE/wHMAZkBLwH/AcwBmQEvBf8D3QH/
-        AcwBmQEwAf8BzAGZATAB/wHMAZkBMAX/AswBmQH/AcwBmQEwAf8CzAGZAf8gAAOGAf8DhgH/A4YB/wOG
+        AcwBmQEvAf8BzAGZAS8B/wHMAZkBLwX/AswBmQH/AcwBmQEvAf8CzAGZAf8gAAOGAf8DhgH/A4YB/wOG
-        Af8DhgH/CAADhgH/EAABzAGZATAB/wHMAZkBMAH/AcwBmQEwAf8BzAGZATAB/wHMAZkBMAH/AcwBmQEw
+        Af8DhgH/CAADhgH/EAABzAGZAS8B/wHMAZkBLwH/AcwBmQEvAf8BzAGZAS8B/wHMAZkBLwH/AcwBmQEv
-        Af8BzAGZATAB/wHMAZkBMAH/AcwBmQEwAf8BzAGZATAB/wHMAZkBMAH/AcwBmQEwAf8BzAGZATAB/xAA
+        Af8BzAGZAS8B/wHMAZkBLwH/AcwBmQEvAf8BzAGZAS8B/wHMAZkBLwH/AcwBmQEvAf8BzAGZAS8B/xAA
-        ATABzAL/AWMBzAL/AWMBzAL/AWMBzAL/A4Yh/wgAAcwBmQFjAf8BzAGZATAB/wHMAZkBMAH/AcwBmQEw
+        AS8BzAL/AWIBzAL/AWIBzAL/AWIBzAL/A4Yh/wgAAcwBmQFiAf8BzAGZAS8B/wHMAZkBLwH/AcwBmQEv
-        Af8BzAGZATAB/wHMAZkBMAH/AcwBmQEwAf8BzAGZATAB/wHMAZkBMAH/AcwBmQEwAf8BzAGZATAB/wHM
+        Af8BzAGZAS8B/wHMAZkBLwH/AcwBmQEvAf8BzAGZAS8B/wHMAZkBLwH/AcwBmQEvAf8BzAGZAS8B/wHM
-        AZkBMAH/IAABYwHMAv8BYwHMAv8BYwHMAv8BYwHMAv8DhgH/CAADhgH/EAABzAGZATAB/wHMAZkBMAH/
+        AZkBLwH/IAABYgHMAv8BYgHMAv8BYgHMAv8BYgHMAv8DhgH/CAADhgH/EAABzAGZAS8B/wHMAZkBLwH/
-        AcwBmQEwAf8BzAGZATAB/wHMAZkBMAH/AcwBmQEwAf8BzAGZATAB/wHMAZkBMAH/AcwBmQEwAf8BzAGZ
+        AcwBmQEvAf8BzAGZAS8B/wHMAZkBLwH/AcwBmQEvAf8BzAGZAS8B/wHMAZkBLwH/AcwBmQEvAf8BzAGZ
-        ATAB/wHMAZkBMAH/AcwBmQEwAf8BzAGZATAB/xAAATABzAL/AWMBzAL/AWMBzAL/AWMBzAL/A4Yh/wgA
+        AS8B/wHMAZkBLwH/AcwBmQEvAf8BzAGZAS8B/xAAAS8BzAL/AWIBzAL/AWIBzAL/AWIBzAL/A4Yh/wgA
-        BP8BzAGZATAB/wHMAZkBMAH/AcwBmQEwAf8BzAGZATAB/wHMAZkBMAH/AcwBmQEwAf8BzAGZATAB/wHM
+        BP8BzAGZAS8B/wHMAZkBLwH/AcwBmQEvAf8BzAGZAS8B/wHMAZkBLwH/AcwBmQEvAf8BzAGZAS8B/wHM
-        AZkBMAH/AcwBmQEwAf8BzAGZATAB/wLMAZkB/yAAAWMBzAL/AWMBzAL/AWMBzAL/AWMBzAL/A4YB/wgA
+        AZkBLwH/AcwBmQEvAf8BzAGZAS8B/wLMAZkB/yAAAWIBzAL/AWIBzAL/AWIBzAL/AWIBzAL/A4YB/wgA
-        A4YB/xAAAcwBmQEwAf8BzAGZATAB/wHMAZkBMAH/AcwBmQEwAf8BzAGZATAB/wHMAZkBMAH/AcwBmQEw
+        A4YB/xAAAcwBmQEvAf8BzAGZAS8B/wHMAZkBLwH/AcwBmQEvAf8BzAGZAS8B/wHMAZkBLwH/AcwBmQEv
-        Af8BzAGZATAB/wHMAZkBMAH/AcwBmQEwAf8BzAGZATAB/wHMAZkBMAH/AcwBmQEwAf8QAAEwAcwC/wFj
+        Af8BzAGZAS8B/wHMAZkBLwH/AcwBmQEvAf8BzAGZAS8B/wHMAZkBLwH/AcwBmQEvAf8QAAEvAcwC/wFi
-        AcwC/wFjAcwC/wFjAcwC/wOGIf8MAAHMAZkBYwH/AcwBmQEwAf8BzAGZATAB/wHMAZkBMAH/A/EF/wLM
+        AcwC/wFiAcwC/wFiAcwC/wOGIf8MAAHMAZkBYgH/AcwBmQEvAf8BzAGZAS8B/wHMAZkBLwH/A/EF/wLM
-        AZkB/wHMAZkBMAH/AcwBmQEwAf8BzAGZATAF/yAAAWMBzAL/AWMBzAL/AWMBzAL/AWMBzAL/A4YB/wgA
+        AZkB/wHMAZkBLwH/AcwBmQEvAf8BzAGZAS8F/yAAAWIBzAL/AWIBzAL/AWIBzAL/AWIBzAL/A4YB/wgA
-        A4YB/xAAAcwBmQEwAf8BzAGZATAB/wHMAZkBMAH/AcwBmQEwAf8BzAGZATAB/wHMAZkBMAH/AcwBmQEw
+        A4YB/xAAAcwBmQEvAf8BzAGZAS8B/wHMAZkBLwH/AcwBmQEvAf8BzAGZAS8B/wHMAZkBLwH/AcwBmQEv
-        Af8BzAGZATAB/wHMAZkBMAH/AcwBmQEwAf8BzAGZATAB/wHMAZkBMAH/AcwBmQEwAf8QAAEwAcwC/wFj
+        Af8BzAGZAS8B/wHMAZkBLwH/AcwBmQEvAf8BzAGZAS8B/wHMAZkBLwH/AcwBmQEvAf8QAAEvAcwC/wFi
-        AcwC/wFjAcwC/wFjAcwC/wOGIf8EAAHMAZkBYwH/AcwBmQEwAf8BzAGZATAB/wHMAZkBMAH/AcwBmQEw
+        AcwC/wFiAcwC/wFiAcwC/wOGIf8EAAHMAZkBYgH/AcwBmQEvAf8BzAGZAS8B/wHMAZkBLwH/AcwBmQEv
-        Af8QAALMAZkB/wHMAZkBMAH/AcwBmQEwAf8BzAGZATAB/wHMAZkBMAH/A+oB/wQAA+MB/wOGBf8kAAOG
+        Af8QAALMAZkB/wHMAZkBLwH/AcwBmQEvAf8BzAGZAS8B/wHMAZkBLwH/A+oB/wQAA+MB/wOGBf8kAAOG
-        Af8DhgH/DAABzAGZATAB/wHMAZkBMAH/AcwBmQEwAf8BzAGZATAB/wHMAZkBMAH/CAABzAGZATAB/wHM
+        Af8DhgH/DAABzAGZAS8B/wHMAZkBLwH/AcwBmQEvAf8BzAGZAS8B/wHMAZkBLwH/CAABzAGZAS8B/wHM
-        AZkBMAH/AcwBmQEwAf8BzAGZATAB/wHMAZkBMAH/AcwBmQEwAf8QAAEwAcwC/wFjAcwC/wFjAcwC/wFj
+        AZkBLwH/AcwBmQEvAf8BzAGZAS8B/wHMAZkBLwH/AcwBmQEvAf8QAAEvAcwC/wFiAcwC/wFiAcwC/wFi
-        AcwC/wOGIf8EAAHMAZkBMAH/AcwBmQEwAf8BzAGZATAB/wHMAZkBMAH/AcwBmQEwAf8QAAT/AcwBmQEw
+        AcwC/wOGIf8EAAHMAZkBLwH/AcwBmQEvAf8BzAGZAS8B/wHMAZkBLwH/AcwBmQEvAf8QAAT/AcwBmQEv
-        Af8BzAGZATAB/wHMAZkBMAH/AcwBmQEwAf8BzAGZATAB/wQABP8DhgH/A4YF/xwAA8AB/wOGAf8DzAH/
+        Af8BzAGZAS8B/wHMAZkBLwH/AcwBmQEvAf8BzAGZAS8B/wQABP8DhgH/A4YF/xwAA8AB/wOGAf8DzAH/
-        DAABzAGZATAB/wHMAZkBMAH/AcwBmQEwAf8BzAGZATAB/wHMAZkBMAH/CAABzAGZATAB/wHMAZkBMAH/
+        DAABzAGZAS8B/wHMAZkBLwH/AcwBmQEvAf8BzAGZAS8B/wHMAZkBLwH/CAABzAGZAS8B/wHMAZkBLwH/
-        AcwBmQEwAf8BzAGZATAB/wHMAZkBMAH/AcwBmQEwAf8QAAEwAcwC/wFjAcwC/wFjAcwC/wFjAcwC/wOG
+        AcwBmQEvAf8BzAGZAS8B/wHMAZkBLwH/AcwBmQEvAf8QAAEvAcwC/wFiAcwC/wFiAcwC/wFiAcwC/wOG
-        If8EAAHMAZkBMAH/AcwBmQEwAf8BzAGZATAB/wHMAZkBMAH/AcwBmQEwAf8QAAPxAf8BzAGZATAB/wHM
+        If8EAAHMAZkBLwH/AcwBmQEvAf8BzAGZAS8B/wHMAZkBLwH/AcwBmQEvAf8QAAPxAf8BzAGZAS8B/wHM
-        AZkBMAH/AcwBmQEwAf8BzAGZATAB/wHMAZkBYwH/CAAE/wOGAf8DhgX/FAADwAH/A4YB/wPMAf8QAAHM
+        AZkBLwH/AcwBmQEvAf8BzAGZAS8B/wHMAZkBYgH/CAAE/wOGAf8DhgX/FAADwAH/A4YB/wPMAf8QAAHM
-        AZkBMAH/AcwBmQEwAf8BzAGZATAB/wHMAZkBMAH/AcwBmQEwAf8BzAGZATAB/wHMAZkBMAH/AcwBmQEw
+        AZkBLwH/AcwBmQEvAf8BzAGZAS8B/wHMAZkBLwH/AcwBmQEvAf8BzAGZAS8B/wHMAZkBLwH/AcwBmQEv
-        Af8BzAGZATAB/wHMAZkBMAH/AcwBmQEwAf8BzAGZATAB/wHMAZkBMAH/EAABMAHMAv8BYwHMAv8BYwHM
+        Af8BzAGZAS8B/wHMAZkBLwH/AcwBmQEvAf8BzAGZAS8B/wHMAZkBLwH/EAABLwHMAv8BYgHMAv8BYgHM
-        Av8BYwHMAv8DhiH/DAABzAGZATAB/wHMAZkBMAH/AcwBmQEwAf8D1wH/DAABzAGZATAB/wHMAZkBMAH/
+        Av8BYgHMAv8DhiH/DAABzAGZAS8B/wHMAZkBLwH/AcwBmQEvAf8D1wH/DAABzAGZAS8B/wHMAZkBLwH/
-        AcwBmQEwAf8D3QH/FAAE/wOGAf8DhgX/DAADwAH/A4YB/wPMAf8UAAHMAZkBMAH/AcwBmQEwAf8BzAGZ
+        AcwBmQEvAf8D3QH/FAAE/wOGAf8DhgX/DAADwAH/A4YB/wPMAf8UAAHMAZkBLwH/AcwBmQEvAf8BzAGZ
-        ATAB/wHMAZkBMAH/AcwBmQEwAf8BzAGZATAB/wHMAZkBMAH/AcwBmQEwAf8BzAGZATAB/wHMAZkBMAH/
+        AS8B/wHMAZkBLwH/AcwBmQEvAf8BzAGZAS8B/wHMAZkBLwH/AcwBmQEvAf8BzAGZAS8B/wHMAZkBLwH/
-        AcwBmQEwAf8BzAGZATAB/wHMAZkBMAH/EAABMAHMAv8BYwHMAv8BYwHMAv8BYwHMAv8DhgH/A4YB/wOG
+        AcwBmQEvAf8BzAGZAS8B/wHMAZkBLwH/EAABLwHMAv8BYgHMAv8BYgHMAv8BYgHMAv8DhgH/A4YB/wOG
-        Af8DhgH/A4YB/wOGAf8DhgH/A4YB/wOGAf8MAAHMApkB/wHMAZkBMAH/AcwBmQEwAf8BzAGZATAB/wHM
+        Af8DhgH/A4YB/wOGAf8DhgH/A4YB/wOGAf8MAAHMApkB/wHMAZkBLwH/AcwBmQEvAf8BzAGZAS8B/wHM
-        AZkBMAH/AcwBmQEwAf8BzAGZATAB/wHMAZkBMAH/AcwBmQEwAf8BzAGZATAF/xgABP8DhgH/A4YF/wQA
+        AZkBLwH/AcwBmQEvAf8BzAGZAS8B/wHMAZkBLwH/AcwBmQEvAf8BzAGZAS8F/xgABP8DhgH/A4YF/wQA
-        A8AB/wOGAf8DzAH/AcwBmQFjAf8UAAHMAZkBMAH/AcwBmQEwAf8BzAGZATAB/wHMAZkBMAH/AcwBmQEw
+        A8AB/wOGAf8DzAH/AcwBmQFiAf8UAAHMAZkBLwH/AcwBmQEvAf8BzAGZAS8B/wHMAZkBLwH/AcwBmQEv
-        Af8BzAGZATAB/wHMAZkBMAH/AcwBmQEwAf8BzAGZATAB/wHMAZkBMAH/AcwBmQEwAf8BzAGZATAB/wPq
+        Af8BzAGZAS8B/wHMAZkBLwH/AcwBmQEvAf8BzAGZAS8B/wHMAZkBLwH/AcwBmQEvAf8BzAGZAS8B/wPq
-        Af8QAAEwAcwC/yAAAWMBzAL/FAAB8AHKAaYB/wHMAZkBMAH/AcwBmQEwAf8BzAGZATAB/wHMAZkBMAH/
+        Af8QAAEvAcwC/yAAAWIBzAL/FAAB8AHKAaYB/wHMAZkBLwH/AcwBmQEvAf8BzAGZAS8B/wHMAZkBLwH/
-        AcwBmQEwAf8BzAGZATAB/wHMAZkBMAH/AcwBmQEwAf8BzAGZATAB/wHMAZkBMAH/AcwBmQEwAf8cAAT/
+        AcwBmQEvAf8BzAGZAS8B/wHMAZkBLwH/AcwBmQEvAf8BzAGZAS8B/wHMAZkBLwH/AcwBmQEvAf8cAAT/
-        A4YB/wOGAf8DwAH/A4YB/wPMAf8BzAGZAWMB/wHMAZkBMAH/IAABzAGZATAB/xAAAcwBmQEwAf8gAAEw
+        A4YB/wOGAf8DwAH/A4YB/wPMAf8BzAGZAWIB/wHMAZkBLwH/IAABzAGZAS8B/xAAAcwBmQEvAf8gAAEv
-        AcwC/wQAA4YB/wOGAf8DhgH/A4YB/wOGAf8DhgH/A4YB/wFjAcwC/xQAA8wB/wHMAZkBMAH/AcwBmQEw
+        AcwC/wQAA4YB/wOGAf8DhgH/A4YB/wOGAf8DhgH/A4YB/wFiAcwC/xQAA8wB/wHMAZkBLwH/AcwBmQEv
-        Af8BzAKZAf8BzAGZATAB/wHMAZkBMAH/AcwBmQEwAf8BzAGZATAB/wHMAZkBYwH/AcwBmQEwAf8BzAGZ
+        Af8BzAKZAf8BzAGZAS8B/wHMAZkBLwH/AcwBmQEvAf8BzAGZAS8B/wHMAZkBYgH/AcwBmQEvAf8BzAGZ
-        ATAB/wHMAZkBMAH/IAAE/wOGAf8DhgH/A8wB/wQAAcwBmQEwAf8BzAGZATAB/yAAAcwBmQEwAf8BzAGZ
+        AS8B/wHMAZkBLwH/IAAE/wOGAf8DhgH/A8wB/wQAAcwBmQEvAf8BzAGZAS8B/yAAAcwBmQEvAf8BzAGZ
-        ATAB/wHMAZkBMAH/AcwBmQEwAf8BzAGZATAB/wHMAZkBMAH/MAADhgH/BAADhgH/JAADzAH/A8wB/wgA
+        AS8B/wHMAZkBLwH/AcwBmQEvAf8BzAGZAS8B/wHMAZkBLwH/MAADhgH/BAADhgH/JAADzAH/A8wB/wgA
-        AcwBmQEwAf8BzAGZATAB/wHMAZkBMAH/BAAE/wHMAZkBYwX/JAAE/wPMAf+4AAHMAZkBMAH/AcwBmQEw
+        AcwBmQEvAf8BzAGZAS8B/wHMAZkBLwH/BAAE/wHMAZkBYgX/JAAE/wPMAf+4AAHMAZkBLwH/AcwBmQEv
-        Af8BzAGZAWMB//8AGQABQgFNAT4HAAE+AwABKAMAAUADAAEgAwABAQEAAQEGAAEBFgAD/wEAAf8BgQL/
+        Af8BzAGZAWIB//8AGQABQgFNAT4HAAE+AwABKAMAAUADAAEgAwABAQEAAQEGAAEBFgAD/wEAAf8BgQL/
         BgABgAEBBAABfwEAAfcB7wQAAX8BAAH3Ae8EAAF/AoABAQQAAX8BwgH3Ae8EAAF/Af4B9wHvBAABfwH+
         AYABAQQAAX8B/gH3Ae8EAAF/Af4B9wHvBQABAgGAAQEFAAECAYABAQUAAQIBgAEBBAABwAEAAYABAQQA
         AcABAAL/BAABwAEAAv8EAAT/Af4BAAH+AT8B4AEDAv8B/gEAAf4BPwH/AfsBwAEBAeABAAHAAQMB/AEb

GUIs.ClipboardWatcher/frmTreeView.resx

@@ -117,6 +117,10 @@
   <resheader name="writer">
     <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </resheader>
+  <assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
+  <data name="tvProfileMatch.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
+    <value>Fill</value>
+  </data>
   <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
   <data name="tvProfileMatch.Size" type="System.Drawing.Size, System.Drawing">
     <value>800, 450</value>
@@ -134,26 +138,17 @@
   <data name="&gt;&gt;$this.Type" xml:space="preserve">
     <value>DevExpress.XtraEditors.XtraForm, DevExpress.Utils.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
-  <data name="$this.ClientSize" type="System.Drawing.Size, System.Drawing">
-    <value>800, 450</value>
-  </data>
   <data name="tvProfileMatch.ImageIndex" type="System.Int32, mscorlib">
     <value>0</value>
   </data>
-  <data name="$this.AutoScaleDimensions" type="System.Drawing.SizeF, System.Drawing">
+  <data name="$this.ClientSize" type="System.Drawing.Size, System.Drawing">
-    <value>6, 13</value>
+    <value>800, 450</value>
-  </data>
-  <data name="&gt;&gt;ImageList1.Name" xml:space="preserve">
-    <value>ImageList1</value>
   </data>
   <data name="&gt;&gt;tvProfileMatch.Name" xml:space="preserve">
     <value>tvProfileMatch</value>
   </data>
-  <data name="$this.Text" xml:space="preserve">
+  <data name="&gt;&gt;ImageList1.Name" xml:space="preserve">
-    <value>Profilsuchen Algorithmus</value>
+    <value>ImageList1</value>
-  </data>
-  <data name="tvProfileMatch.TabIndex" type="System.Int32, mscorlib">
-    <value>0</value>
   </data>
   <data name="&gt;&gt;tvProfileMatch.ZOrder" xml:space="preserve">
     <value>0</value>
@@ -161,6 +156,9 @@
   <data name="tvProfileMatch.Location" type="System.Drawing.Point, System.Drawing">
     <value>0, 0</value>
   </data>
+  <data name="$this.AutoScaleDimensions" type="System.Drawing.SizeF, System.Drawing">
+    <value>6, 13</value>
+  </data>
   <data name="tvProfileMatch.Font" type="System.Drawing.Font, System.Drawing">
     <value>Segoe UI, 9.75pt</value>
   </data>
@@ -169,7 +167,7 @@
         AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
         LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
         ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAAD+
-        EgAAAk1TRnQBSQFMAgEBBgEAARABAAEUAQABEAEAARABAAT/ASEBEAj/AUIBTQE2BwABNgMAASgDAAFA
+        EgAAAk1TRnQBSQFMAgEBBgEAARABAAEYAQABEAEAARABAAT/ASEBEAj/AUIBTQE2BwABNgMAASgDAAFA
         AwABIAMAAQEBAAEgBgABIDYABP8DmQH/A+oF/wPMAf8DwAH/xAADhgH/A4YB/wOGAf8DhgH/A4YB/wOG
         Af8DhgH/A4YF/wPXAf8D+AH/AcwBmQExAf8BzAGZATEB/wHMApkF/wOWAf8EAAOGAf8DhgH/A4YB/wOG
         Af8DhgH/A4YB/wOGAf8DhgH/A4YB/wOGAf8DhgH/A4YB/wOGAf8DhgH/hAADhgH/HAADhgX/AcwBmQFk
@@ -253,19 +251,18 @@
         AT8I/xYACw==
 </value>
   </data>
-  <assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
+  <data name="$this.Text" xml:space="preserve">
-  <data name="tvProfileMatch.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
+    <value>Profilsuchen Algorithmus</value>
-    <value>Fill</value>
   </data>
   <data name="&gt;&gt;ImageList1.Type" xml:space="preserve">
     <value>System.Windows.Forms.ImageList, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </data>
+  <data name="tvProfileMatch.TabIndex" type="System.Int32, mscorlib">
+    <value>0</value>
+  </data>
   <data name="&gt;&gt;$this.Name" xml:space="preserve">
     <value>frmTreeView</value>
   </data>
-  <metadata name="$this.Language" type="System.Globalization.CultureInfo, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-    <value>fr-FR</value>
-  </metadata>
   <metadata name="$this.Localizable" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
     <value>True</value>
   </metadata>

GUIs.ZooFlow/App.config

@@ -22,10 +22,10 @@
     </DigitalData.GUIs.ZooFlow.Settings>
     <DevExpress.LookAndFeel.Design.AppSettings>
       <setting name="DefaultAppSkin" serializeAs="String">
-        <value>Skin/Office 2019 White</value>
+        <value></value>
       </setting>
       <setting name="DefaultPalette" serializeAs="String">
-        <value></value>
+        <value>Custom/Digital Data</value>
       </setting>
       <setting name="TouchUI" serializeAs="String">
         <value></value>
@@ -83,6 +83,32 @@
                 <SvgColor Name="White" Value="255,255,255" />
               </SvgPalette>
             </Skin>
+            <Skin Name="Basic">
+              <SvgPalette Name="Digital Data">
+                <SvgColor Name="Paint" Value="240,240,240" />
+                <SvgColor Name="Paint High" Value="255,255,255" />
+                <SvgColor Name="Paint Shadow" Value="Gainsboro" />
+                <SvgColor Name="Paint Deep Shadow" Value="210,210,210" />
+                <SvgColor Name="Brush" Value="40,40,40" />
+                <SvgColor Name="Brush High" Value="40,40,40" />
+                <SvgColor Name="Brush Light" Value="120,120,120" />
+                <SvgColor Name="Brush Major" Value="160,160,160" />
+                <SvgColor Name="Brush Minor" Value="200,200,200" />
+                <SvgColor Name="Accent Paint" Value="165,36,49" />
+                <SvgColor Name="Accent Paint Dark" Value="133,28,38" />
+                <SvgColor Name="Accent Paint Light" Value="255,236,161" />
+                <SvgColor Name="Accent Paint Lighter" Value="255,244,203" />
+                <SvgColor Name="Accent Brush" Value="255,255,255" />
+                <SvgColor Name="Accent Brush Light" Value="255,236,161" />
+                <SvgColor Name="Red" Value="208,49,68" />
+                <SvgColor Name="Green" Value="56,152,83" />
+                <SvgColor Name="Blue" Value="78,138,200" />
+                <SvgColor Name="Yellow" Value="241,151,63" />
+                <SvgColor Name="Black" Value="108,109,117" />
+                <SvgColor Name="Gray" Value="191,191,194" />
+                <SvgColor Name="White" Value="255,255,255" />
+              </SvgPalette>
+            </Skin>
           </CustomPaletteCollection>
         </value>
       </setting>

GUIs.ZooFlow/ClassConstants.vb

@@ -6,6 +6,10 @@
     Public Const SERVICE_MAX_CONNECTIONS = 10000
     Public Const SERVICE_OPEN_TIMEOUT = 3
 
+    Public Const USER_CATALOG_APPLICATION_THEME = "APPLICATION_THEME"
+    Public Const USER_CATALOG_QUICKSEARCH1_TITLE = "QUICKSEARCH1_TITLE"
+    Public Const USER_CATALOG_QUICKSEARCH1_POS = "QUICKSEARCH1_POS"
+
     Public Const FOLDER_NAME_LAYOUT = "Layout"
 
     Public Const MODULE_CLIPBOARDWATCHER = "CW"
@@ -44,6 +48,9 @@
 
     Public Const WM_WINDOWPOSCHANGING As Integer = &H46
 
+    Public Const TEXT_MISSING_INPUT = "Bitte vervollständigen Sie die Eingaben!"
+    Public Const TITLE_MISSING_INPUT = "Fehlende Eingaben"
+
     Class DropType
         Public Const DROP_TYPE_FILESYSTEM = "|DROPFROMFSYSTEM|"
         Public Const DROP_TYPE_MESSAGE = "|OUTLOOK_MESSAGE|"

GUIs.ZooFlow/ClassEnvironment.vb

@@ -1,15 +0,0 @@
-Imports DigitalData.Modules.ZooFlow
-
-Public Class ClassEnvironment
-    Public Shared Function GetEnvironment() As Environment
-        Dim oEnvironment As New Environment() With {
-            .DatabaseIDB = My.DatabaseIDB,
-            .Database = My.DatabaseECM,
-            .Modules = My.Application.Modules,
-            .Service = My.Application.Service,
-            .Settings = My.Application.Settings,
-            .User = My.Application.User
-        }
-        Return oEnvironment
-    End Function
-End Class

GUIs.ZooFlow/ClassInit.vb

@@ -11,6 +11,8 @@ Imports DigitalData.GUIs.ZooFlow.ClassInitLoader
 Imports DigitalData.Controls.SQLConfig
 Imports System.Data.SqlClient
 Imports DigitalData.Modules
+Imports DevExpress.LookAndFeel
+Imports DigitalData.Modules.Language
 
 Public Class ClassInit
     Inherits Base.BaseClass
@@ -208,13 +210,10 @@ Public Class ClassInit
     End Sub
     Private Sub InitBasicConfig(MyApplication As My.MyApplication)
         Try
-            Dim oSQL = "Select * FROM TBIDB_COMMON_SQL WHERE ACTIVE = 1"
+            Dim oSql As String
-            My.Tables.DTIDB_COMMON_SQL = My.Database.GetDatatable("TBIDB_COMMON_SQL", oSQL, EDMI.API.Constants.DatabaseType.IDB)
 
-            oSQL = $"SELECT * FROM TBIDB_CATALOG_USER WHERE USR_ID = {My.Application.User.UserId}"
+            oSql = "Select * FROM TBIDB_COMMON_SQL WHERE ACTIVE = 1"
-            My.Tables.DTIDB_CATALOG_USER = My.Database.GetDatatable("TBIDB_CATALOG_USER", oSQL, EDMI.API.Constants.DatabaseType.IDB, $"USR_ID = {My.Application.User.UserId}")
+            My.Tables.DTIDB_COMMON_SQL = My.Database.GetDatatable("TBIDB_COMMON_SQL", oSql, EDMI.API.Constants.DatabaseType.IDB)
-            oSQL = $"Select * From VWIDB_BE_ATTRIBUTE Where LANG_CODE = '{MyApplication.User.Language}'"
-            My.Tables.DTIDB_ATTRIBUTE = My.Database.GetDatatable("VWIDB_BE_ATTRIBUTE", oSQL, EDMI.API.Constants.DatabaseType.IDB, $"LANG_CODE = '{MyApplication.User.Language}'")
 
             For Each oRow As DataRow In My.Tables.DTIDB_COMMON_SQL.Rows
                 If oRow.Item("TITLE") = SQLCMD_FLOW_SEARCH_BASE Then
@@ -223,6 +222,21 @@ Public Class ClassInit
                     DocResultBaseSearch = DocResultBaseSearch.Replace("@LANG_CODE", My.Application.User.Language)
                 End If
             Next
+
+            oSql = $"SELECT * FROM TBIDB_CATALOG_USER WHERE USR_ID = {My.Application.User.UserId}"
+            My.Tables.DTIDB_CATALOG_USER = My.Database.GetDatatable("TBIDB_CATALOG_USER", oSql, EDMI.API.Constants.DatabaseType.IDB, $"USR_ID = {My.Application.User.UserId}")
+
+            For Each oRow As DataRow In My.Tables.DTIDB_CATALOG_USER.Rows
+                If oRow.Item("CAT_TITLE") = ClassConstants.USER_CATALOG_APPLICATION_THEME Then
+                    Dim oPaletteName As String = oRow.ItemEx("CAT_STRING", "Digital Data")
+                    UserLookAndFeel.Default.SetSkinStyle(SkinStyle.Basic, oPaletteName)
+                End If
+            Next
+
+            oSql = $"Select * From VWIDB_BE_ATTRIBUTE Where LANG_CODE = '{MyApplication.User.Language}'"
+            My.Tables.DTIDB_ATTRIBUTE = My.Database.GetDatatable("VWIDB_BE_ATTRIBUTE", oSql, EDMI.API.Constants.DatabaseType.IDB, $"LANG_CODE = '{MyApplication.User.Language}'")
+
+
             If DocResultBaseSearch = "" Then
                 Logger.Warn($"ATTENTION: NO DocResultBaseSearch - Check if entry {SQLCMD_FLOW_SEARCH_BASE} exists in TBIDB_COMMON_SQL")
             End If

GUIs.ZooFlow/ClassStrings.vb

@@ -1,4 +0,0 @@
-Public Class ClassStrings
-    Public Const TEXT_MISSING_INPUT = "Bitte vervollständigen Sie die Eingaben!"
-    Public Const TITLE_MISSING_INPUT = "Fehlende Eingaben"
-End Class

GUIs.ZooFlow/Modules/Globix/ClassValidator.vb

@@ -259,6 +259,6 @@ Public Class ClassValidator
     End Function
 
     Private Sub ShowValidationMessage()
-        MsgBox(ClassStrings.TEXT_MISSING_INPUT, MsgBoxStyle.Exclamation, ClassStrings.TITLE_MISSING_INPUT)
+        MsgBox(ClassConstants.TEXT_MISSING_INPUT, MsgBoxStyle.Exclamation, ClassConstants.TITLE_MISSING_INPUT)
     End Sub
 End Class

GUIs.ZooFlow/Modules/Globix/frmGlobix_Index.Designer.vb

@@ -46,6 +46,7 @@ Partial Class frmGlobix_Index
         Me.chkMultiindexing = New DevExpress.XtraBars.BarCheckItem()
         Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem()
         Me.BarHeaderItem1 = New DevExpress.XtraBars.BarHeaderItem()
+        Me.BarButtonItem4 = 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()
@@ -60,9 +61,7 @@ Partial Class frmGlobix_Index
         Me.cmbDocType = New DevExpress.XtraEditors.ComboBoxEdit()
         Me.DocumentViewer1 = New DigitalData.Controls.DocumentViewer.DocumentViewer()
         Me.GlobixDataset = New DigitalData.GUIs.ZooFlow.GlobixDataset()
-        Me.SplashScreenManager = New DevExpress.XtraSplashScreen.SplashScreenManager(Me, GetType(Global.DigitalData.GUIs.ZooFlow.frmWaitForm), True, True)
         Me.SvgImageCollection1 = New DevExpress.Utils.SvgImageCollection(Me.components)
-        Me.BarButtonItem4 = New DevExpress.XtraBars.BarButtonItem()
         CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.SplitContainerControl1, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.SplitContainerControl1.Panel1, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -88,7 +87,7 @@ Partial Class frmGlobix_Index
         Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1})
         Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False]
         Me.RibbonControl1.ShowPageHeadersMode = DevExpress.XtraBars.Ribbon.ShowPageHeadersMode.Hide
-        Me.RibbonControl1.Size = New System.Drawing.Size(1005, 67)
+        Me.RibbonControl1.Size = New System.Drawing.Size(1005, 63)
         Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1
         '
         'BarButtonItem2
@@ -200,6 +199,12 @@ Partial Class frmGlobix_Index
         Me.BarHeaderItem1.Name = "BarHeaderItem1"
         Me.BarHeaderItem1.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.Large
         '
+        'BarButtonItem4
+        '
+        Me.BarButtonItem4.Caption = "BarButtonItem4"
+        Me.BarButtonItem4.Id = 16
+        Me.BarButtonItem4.Name = "BarButtonItem4"
+        '
         'RibbonPage1
         '
         Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1, Me.RibbonPageGroup2})
@@ -229,10 +234,10 @@ Partial Class frmGlobix_Index
         Me.RibbonStatusBar1.ItemLinks.Add(Me.labelFilePath)
         Me.RibbonStatusBar1.ItemLinks.Add(Me.labelError)
         Me.RibbonStatusBar1.ItemLinks.Add(Me.labelNotice)
-        Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 574)
+        Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 572)
         Me.RibbonStatusBar1.Name = "RibbonStatusBar1"
         Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1
-        Me.RibbonStatusBar1.Size = New System.Drawing.Size(1005, 22)
+        Me.RibbonStatusBar1.Size = New System.Drawing.Size(1005, 24)
         '
         'RibbonPage2
         '
@@ -250,7 +255,7 @@ Partial Class frmGlobix_Index
         '
         Me.SplitContainerControl1.CollapsePanel = DevExpress.XtraEditors.SplitCollapsePanel.Panel2
         Me.SplitContainerControl1.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.SplitContainerControl1.Location = New System.Drawing.Point(0, 67)
+        Me.SplitContainerControl1.Location = New System.Drawing.Point(0, 63)
         Me.SplitContainerControl1.Name = "SplitContainerControl1"
         '
         'SplitContainerControl1.Panel1
@@ -264,7 +269,7 @@ Partial Class frmGlobix_Index
         '
         Me.SplitContainerControl1.Panel2.Controls.Add(Me.DocumentViewer1)
         Me.SplitContainerControl1.Panel2.Text = "Panel2"
-        Me.SplitContainerControl1.Size = New System.Drawing.Size(1005, 507)
+        Me.SplitContainerControl1.Size = New System.Drawing.Size(1005, 509)
         Me.SplitContainerControl1.SplitterPosition = 522
         Me.SplitContainerControl1.TabIndex = 2
         '
@@ -276,14 +281,14 @@ Partial Class frmGlobix_Index
         Me.pnlIndex.ForeColor = System.Drawing.SystemColors.ControlText
         Me.pnlIndex.Location = New System.Drawing.Point(0, 33)
         Me.pnlIndex.Name = "pnlIndex"
-        Me.pnlIndex.Size = New System.Drawing.Size(522, 399)
+        Me.pnlIndex.Size = New System.Drawing.Size(522, 401)
         Me.pnlIndex.TabIndex = 3
         '
         'Panel3
         '
         Me.Panel3.Controls.Add(Me.SimpleButton1)
         Me.Panel3.Dock = System.Windows.Forms.DockStyle.Bottom
-        Me.Panel3.Location = New System.Drawing.Point(0, 432)
+        Me.Panel3.Location = New System.Drawing.Point(0, 434)
         Me.Panel3.Name = "Panel3"
         Me.Panel3.Size = New System.Drawing.Size(522, 75)
         Me.Panel3.TabIndex = 2
@@ -332,7 +337,7 @@ Partial Class frmGlobix_Index
         Me.DocumentViewer1.FileLoaded = False
         Me.DocumentViewer1.Location = New System.Drawing.Point(0, 0)
         Me.DocumentViewer1.Name = "DocumentViewer1"
-        Me.DocumentViewer1.Size = New System.Drawing.Size(473, 507)
+        Me.DocumentViewer1.Size = New System.Drawing.Size(473, 509)
         Me.DocumentViewer1.TabIndex = 0
         '
         'GlobixDataset
@@ -340,20 +345,10 @@ Partial Class frmGlobix_Index
         Me.GlobixDataset.DataSetName = "GlobixDataset"
         Me.GlobixDataset.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
         '
-        'SplashScreenManager
-        '
-        Me.SplashScreenManager.ClosingDelay = 500
-        '
         'SvgImageCollection1
         '
         Me.SvgImageCollection1.Add("check", "image://svgimages/icon builder/actions_checkcircled.svg")
         '
-        'BarButtonItem4
-        '
-        Me.BarButtonItem4.Caption = "BarButtonItem4"
-        Me.BarButtonItem4.Id = 16
-        Me.BarButtonItem4.Name = "BarButtonItem4"
-        '
         'frmGlobix_Index
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -414,7 +409,6 @@ Partial Class frmGlobix_Index
     Friend WithEvents GlobixDataset As GlobixDataset
     Friend WithEvents cmbDocType As DevExpress.XtraEditors.ComboBoxEdit
     Friend WithEvents SimpleButton1 As SimpleButton
-    Friend WithEvents SplashScreenManager As DevExpress.XtraSplashScreen.SplashScreenManager
     Friend WithEvents SvgImageCollection1 As DevExpress.Utils.SvgImageCollection
     Friend WithEvents BarButtonItem4 As DevExpress.XtraBars.BarButtonItem
 End Class

GUIs.ZooFlow/Modules/Globix/frmGlobix_Index.vb

@@ -15,6 +15,7 @@ Imports DigitalData.Modules.Language.Utils
 Imports DigitalData.Modules.Logging
 Imports DigitalData.Modules.Patterns
 Imports DevExpress.XtraEditors
+Imports DevExpress.XtraSplashScreen
 
 Public Class frmGlobix_Index
 #Region "+++++ Variablen ++++++"
@@ -39,6 +40,8 @@ Public Class frmGlobix_Index
     Private Property Database As DatabaseWithFallback
     Private Property Patterns2 As Patterns2
 
+    Private Property OverlayHandle As IOverlaySplashScreenHandle
+
     'Public Class ControlMeta
     '    Public Property IndexName As String
     '    Public Property IndexType As String
@@ -67,14 +70,15 @@ Public Class frmGlobix_Index
         ' Abbruchzähler zurücksetzen
         CancelAttempts = 0
 
+        ' Show Loading Overlay
+        OverlayHandle = SplashScreenManager.ShowOverlayForm(Me)
+
         My.Application.Globix.INDEXING_ACTIVE = True
     End Sub
 
     Private Async Sub frmGlobix_Index_Shown(sender As Object, e As EventArgs) Handles Me.Shown
         Cursor = Cursors.Default
 
-        SplashScreenManager.ShowWaitForm()
-
         checkItemTopMost.Checked = My.UIConfig.Globix.TopMost
         TopMost = My.UIConfig.Globix.TopMost
         BringToFront()
@@ -176,7 +180,7 @@ Public Class frmGlobix_Index
         Catch ex As Exception
             Logger.Warn("Unexpected error DTTBGI_REGEX_DOCTYPE - ErrorMessage: " & vbNewLine & ex.Message)
         Finally
-            SplashScreenManager.CloseWaitForm()
+            SplashScreenManager.CloseOverlayForm(OverlayHandle)
             FormLoaded = True
         End Try
     End Sub

GUIs.ZooFlow/My Project/Resources.Designer.vb

@@ -500,6 +500,16 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage.
+        '''</summary>
+        Friend ReadOnly Property actions_refresh() As DevExpress.Utils.Svg.SvgImage
+            Get
+                Dim obj As Object = ResourceManager.GetObject("actions_refresh", resourceCulture)
+                Return CType(obj,DevExpress.Utils.Svg.SvgImage)
+            End Get
+        End Property
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage.
         '''</summary>
@@ -590,6 +600,16 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage.
+        '''</summary>
+        Friend ReadOnly Property cancel() As DevExpress.Utils.Svg.SvgImage
+            Get
+                Dim obj As Object = ResourceManager.GetObject("cancel", resourceCulture)
+                Return CType(obj,DevExpress.Utils.Svg.SvgImage)
+            End Get
+        End Property
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>
@@ -960,6 +980,16 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage.
+        '''</summary>
+        Friend ReadOnly Property managedatasource2() As DevExpress.Utils.Svg.SvgImage
+            Get
+                Dim obj As Object = ResourceManager.GetObject("managedatasource2", resourceCulture)
+                Return CType(obj,DevExpress.Utils.Svg.SvgImage)
+            End Get
+        End Property
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage.
         '''</summary>
@@ -1000,6 +1030,16 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage.
+        '''</summary>
+        Friend ReadOnly Property properties() As DevExpress.Utils.Svg.SvgImage
+            Get
+                Dim obj As Object = ResourceManager.GetObject("properties", resourceCulture)
+                Return CType(obj,DevExpress.Utils.Svg.SvgImage)
+            End Get
+        End Property
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>
@@ -1110,6 +1150,26 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage.
+        '''</summary>
+        Friend ReadOnly Property scatterchartlabeloptions() As DevExpress.Utils.Svg.SvgImage
+            Get
+                Dim obj As Object = ResourceManager.GetObject("scatterchartlabeloptions", resourceCulture)
+                Return CType(obj,DevExpress.Utils.Svg.SvgImage)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage.
+        '''</summary>
+        Friend ReadOnly Property servermode() As DevExpress.Utils.Svg.SvgImage
+            Get
+                Dim obj As Object = ResourceManager.GetObject("servermode", resourceCulture)
+                Return CType(obj,DevExpress.Utils.Svg.SvgImage)
+            End Get
+        End Property
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage.
         '''</summary>

GUIs.ZooFlow/My Project/Resources.resx

@@ -148,8 +148,8 @@
   <data name="save" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\save.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
-  <data name="editquery" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="servermode" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\editquery.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+    <value>..\Resources\servermode.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
   <data name="Checked-outforEdit_Color_13297" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\Checked-outforEdit_Color_13297.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -181,12 +181,18 @@
   <data name="about2" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\about2.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
+  <data name="2_ZOO_FLOW_Abo" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\2_ZOO_FLOW_Abo.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="del" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\del.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
   <data name="StatusAnnotations_Stop_16xLG_color" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\StatusAnnotations_Stop_16xLG_color.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="cancel" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\cancel.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+  </data>
   <data name="actions_addcircled4" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\actions_addcircled4.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
@@ -196,9 +202,6 @@
   <data name="editdatasource1" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\editdatasource1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
-  <data name="refresh_16xMD" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\refresh_16xMD.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
   <data name="actions_window" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\actions_window.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
@@ -217,15 +220,21 @@
   <data name="CW_GEFUNDEN_klein" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\CW_GEFUNDEN_klein.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="definednameuseinformula1" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="Close_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\definednameuseinformula1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+    <value>..\Resources\Close_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="markcomplete" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\markcomplete.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
+  <data name="definednameuseinformula1" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\definednameuseinformula1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+  </data>
   <data name="actions_check3" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\actions_check3.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
+  <data name="actions_deletecircled2" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\actions_deletecircled2.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+  </data>
   <data name="1_LOGO_ZOO_FLOW_DROP3" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\1_LOGO_ZOO_FLOW_DROP3.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -259,12 +268,15 @@
   <data name="doublenext" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\doublenext.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
-  <data name="2_LUPE_AKTIV_ZOO" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\2_LUPE_AKTIV_ZOO.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
   <data name="del1" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\del1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
+  <data name="scatterchartlabeloptions" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\scatterchartlabeloptions.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+  </data>
+  <data name="properties" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\properties.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+  </data>
   <data name="Checked-outforEdit_13297" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\Checked-outforEdit_13297.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -277,6 +289,9 @@
   <data name="2_LUPE_INAKTIV_ZOO" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\2_LUPE_INAKTIV_ZOO.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="actions_check1" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\actions_check1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+  </data>
   <data name="editnames" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\editnames.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
@@ -292,8 +307,8 @@
   <data name="save3" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\save3.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
-  <data name="save7" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="pagesetup1" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\save7.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+    <value>..\Resources\pagesetup1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
   <data name="deletetable" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\deletetable.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
@@ -316,8 +331,8 @@
   <data name="ZooFlow_CW_DevExpress" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\ZooFlow_CW_DevExpress.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
-  <data name="actions_deletecircled" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="refresh_16xMD" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\actions_deletecircled.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+    <value>..\Resources\refresh_16xMD.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="ZooFlow-25" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\ZooFlow-25.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -328,6 +343,9 @@
   <data name="actions_addcircled2" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\actions_addcircled2.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
+  <data name="3_PERSON_AKTIV_ZOO" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\3_PERSON_AKTIV_ZOO.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="actions_edit2" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\actions_edit2.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
@@ -352,26 +370,26 @@
   <data name="actions_add1" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\actions_add1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
-  <data name="3_PERSON_AKTIV_ZOO" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="save7" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\3_PERSON_AKTIV_ZOO.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\save7.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
   <data name="del3" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\del3.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
-  <data name="Compare_RefreshScriptPreview" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\Compare_RefreshScriptPreview.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
   <data name="actions_check5" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\actions_check6.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
+  <data name="actions_deletecircled" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\actions_deletecircled.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+  </data>
   <data name="Hamburger_icon.svg" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\Hamburger_icon.svg.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="del4" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\del4.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
-  <data name="2_ZOO_FLOW_Abo" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="Compare_RefreshScriptPreview" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\2_ZOO_FLOW_Abo.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\Compare_RefreshScriptPreview.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="bo_document" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\bo_document.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
@@ -379,8 +397,8 @@
   <data name="save4" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\save4.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
-  <data name="pagesetup1" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="actions_refresh" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\pagesetup1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+    <value>..\Resources\actions_refresh.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
   <data name="singlepageview" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\singlepageview.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
@@ -406,8 +424,8 @@
   <data name="actions_deletecircled1" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\actions_deletecircled1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
-  <data name="actions_check1" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="editquery" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\actions_check1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+    <value>..\Resources\editquery.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
   <data name="CW_klein" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\CW_klein.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -421,8 +439,8 @@
   <data name="actions_addcircled1" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\actions_addcircled1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
-  <data name="crossdatasourcefiltering" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="GLOBIX_short" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\crossdatasourcefiltering.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+    <value>..\Resources\GLOBIX_short.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="4_GLOBIX_AKTIV_ZOO" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\4_GLOBIX_AKTIV_ZOO.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -445,8 +463,8 @@
   <data name="renamedatasource" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\renamedatasource.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
-  <data name="actions_deletecircled2" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="2_LUPE_AKTIV_ZOO" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\actions_deletecircled2.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+    <value>..\Resources\2_LUPE_AKTIV_ZOO.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="actions_addcircled" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\actions_addcircled.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
@@ -460,13 +478,13 @@
   <data name="1_LOGO_ZOO_FLOW_DROP2" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\1_LOGO_ZOO_FLOW_DROP2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="crossdatasourcefiltering" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\crossdatasourcefiltering.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+  </data>
   <data name="1_LOGO_ZOO_FLOW" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\1_LOGO_ZOO_FLOW.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="GLOBIX_short" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="managedatasource2" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\GLOBIX_short.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\managedatasource2.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
-  </data>
-  <data name="Close_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\Close_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
 </root>

GUIs.ZooFlow/My Project/licenses.licx

@@ -1,17 +1,20 @@
-DevExpress.XtraBars.BarManager, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
-DevExpress.XtraTreeList.TreeList, DevExpress.XtraTreeList.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraEditors.Repository.RepositoryItemTextEdit, DevExpress.XtraEditors.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.ButtonEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
-DevExpress.XtraEditors.TileControl, DevExpress.XtraEditors.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.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
-DevExpress.XtraBars.Docking.DockManager, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraNavBar.NavBarControl, DevExpress.XtraNavBar.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
-DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraEditors.ButtonEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
-DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
-DevExpress.XtraEditors.PictureEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
-DevExpress.XtraEditors.ProgressBarControl, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
-DevExpress.XtraEditors.DateEdit, 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.XtraNavBar.NavBarControl, DevExpress.XtraNavBar.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.XtraTreeList.TreeList, DevExpress.XtraTreeList.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraEditors.TileControl, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraEditors.PictureEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraEditors.Repository.RepositoryItemComboBox, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraEditors.ProgressBarControl, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraEditors.DateEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraBars.BarManager, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraBars.Docking.DockManager, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraEditors.Repository.RepositoryItemDateEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
 DevExpress.XtraLayout.LayoutControl, DevExpress.XtraLayout.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a

GUIs.ZooFlow/Resources/actions_refresh.svg

@@ -0,0 +1,16 @@
+<?xml version='1.0' encoding='UTF-8'?>
+<svg x="0px" y="0px" viewBox="0 0 32 32" version="1.1" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink" xml:space="preserve" id="Layer_1" style="enable-background:new 0 0 32 32">
+  <style type="text/css">
+	.Blue{fill:#1177D7;}
+	.Yellow{fill:#FFB115;}
+	.Black{fill:#727272;}
+	.Green{fill:#039C23;}
+	.Red{fill:#D11C1C;}
+	.st0{opacity:0.75;}
+	.st1{opacity:0.5;}
+</style>
+  <g id="Refresh_1_">
+    <path d="M24.5,7.5C22.3,5.3,19.3,4,16,4C10.1,4,5.1,8.3,4.2,14h4.1c0.9-3.4,4-6,7.7-6c2.2,0,4.2,0.9,5.6,2.4L18,14   h5.7h4.1H28V4L24.5,7.5z" class="Green" />
+    <path d="M16.2,24c-2.2,0-4.2-0.9-5.6-2.4l3.6-3.6H8.4H4.4H4.2v10l3.5-3.5c2.2,2.2,5.2,3.5,8.5,3.5   C22.1,28,27,23.7,28,18h-4.1C23,21.4,19.9,24,16.2,24z" class="Green" />
+  </g>
+</svg>

GUIs.ZooFlow/Resources/cancel.svg

@@ -0,0 +1,7 @@
+<?xml version='1.0' encoding='UTF-8'?>
+<svg x="0px" y="0px" viewBox="0 0 32 32" version="1.1" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink" xml:space="preserve" id="Layer_1" style="enable-background:new 0 0 32 32">
+  <style type="text/css">
+	.Red{fill:#D11C1C;}
+</style>
+  <path d="M16,2C8.3,2,2,8.3,2,16s6.3,14,14,14s14-6.3,14-14S23.7,2,16,2z M23,20l-3,3l-4-4l-4,4l-3-3l4-4l-4-4l3-3l4,4  l4-4l3,3l-4,4L23,20z" class="Red" />
+</svg>

GUIs.ZooFlow/Resources/managedatasource2.svg

@@ -0,0 +1,9 @@
+<?xml version='1.0' encoding='UTF-8'?>
+<svg x="0px" y="0px" viewBox="0 0 32 32" version="1.1" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink" xml:space="preserve" id="Manage_Data_Source" style="enable-background:new 0 0 32 32">
+  <style type="text/css">
+	.Yellow{fill:#FFB115;}
+	.Blue{fill:#1177D7;}
+</style>
+  <path d="M2,10V6c0-2.2,4.5-4,10-4s10,1.8,10,4v4c0,2.2-4.5,4-10,4S2,12.2,2,10z M12,20v-0.7l2.5-0.4L13,16.8l1-0.9  C13.3,16,12.7,16,12,16c-5.5,0-10-1.8-10-4v4C2,18.2,6.5,20,12,20z M14.5,25.1L12,24.7V22c-5.5,0-10-1.8-10-4v4c0,2.2,4.5,4,10,4  c0.7,0,1.3,0,1.9-0.1L14.5,25.1z" class="Yellow" />
+  <path d="M30,23v-2l-2.2-0.4c-0.2-0.6-0.4-1.3-0.7-1.8l1.3-1.8l-1.4-1.4l-1.8,1.3c-0.5-0.3-1.2-0.6-1.8-0.7L23,14h-2  l-0.4,2.2c-0.6,0.2-1.3,0.4-1.8,0.7l-1.8-1.3l-1.4,1.4l1.3,1.8c-0.3,0.5-0.6,1.2-0.7,1.8L14,21v2l2.2,0.4c0.2,0.6,0.4,1.3,0.7,1.8  l-1.3,1.8l1.4,1.4l1.8-1.3c0.5,0.3,1.2,0.6,1.8,0.7L21,30h2l0.4-2.2c0.6-0.2,1.3-0.4,1.8-0.7l1.8,1.3l1.4-1.4l-1.3-1.8  c0.3-0.5,0.6-1.2,0.7-1.8L30,23z M22,24c-1.1,0-2-0.9-2-2s0.9-2,2-2s2,0.9,2,2S23.1,24,22,24z" class="Blue" />
+</svg>

GUIs.ZooFlow/Resources/properties.svg

@@ -0,0 +1,17 @@
+<?xml version='1.0' encoding='UTF-8'?>
+<svg x="0px" y="0px" viewBox="0 0 32 32" version="1.1" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink" xml:space="preserve" id="Layer_1" style="enable-background:new 0 0 32 32">
+  <style type="text/css">
+	.Black{fill:#727272;}
+	.Yellow{fill:#FFB115;}
+	.Blue{fill:#1177D7;}
+	.Green{fill:#039C23;}
+	.Red{fill:#D11C1C;}
+	.White{fill:#FFFFFF;}
+	.st0{opacity:0.75;}
+	.st1{opacity:0.5;}
+	.st2{opacity:0.25;}
+</style>
+  <g id="Properties">
+    <path d="M30,18v-4l-4.4-0.7c-0.2-0.8-0.5-1.5-0.9-2.1l2.6-3.6l-2.8-2.8l-3.6,2.6c-0.7-0.4-1.4-0.7-2.1-0.9L18,2h-4   l-0.7,4.4c-0.8,0.2-1.5,0.5-2.1,0.9L7.5,4.7L4.7,7.5l2.6,3.6c-0.4,0.7-0.7,1.4-0.9,2.1L2,14v4l4.4,0.7c0.2,0.8,0.5,1.5,0.9,2.1   l-2.6,3.6l2.8,2.8l3.6-2.6c0.7,0.4,1.4,0.7,2.1,0.9L14,30h4l0.7-4.4c0.8-0.2,1.5-0.5,2.1-0.9l3.6,2.6l2.8-2.8l-2.6-3.6   c0.4-0.7,0.7-1.4,0.9-2.1L30,18z M16,20c-2.2,0-4-1.8-4-4c0-2.2,1.8-4,4-4s4,1.8,4,4C20,18.2,18.2,20,16,20z" class="Blue" />
+  </g>
+</svg>

GUIs.ZooFlow/Resources/scatterchartlabeloptions.svg

@@ -0,0 +1,15 @@
+<?xml version='1.0' encoding='UTF-8'?>
+<svg x="0px" y="0px" viewBox="0 0 32 32" version="1.1" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink" xml:space="preserve" id="Layer_1" style="enable-background:new 0 0 32 32">
+  <style type="text/css">
+	.Yellow{fill:#FFB115;}
+	.Red{fill:#D11C1C;}
+	.Blue{fill:#1177D7;}
+	.Green{fill:#039C23;}
+	.Black{fill:#727272;}
+	.White{fill:#FFFFFF;}
+	.st0{opacity:0.5;}
+</style>
+  <g id="Settings">
+    <path d="M30,18v-4l-4.4-0.7c-0.2-0.8-0.5-1.5-0.9-2.1l2.6-3.6l-2.8-2.8l-3.6,2.6c-0.7-0.4-1.4-0.7-2.1-0.9L18,2h-4   l-0.7,4.4c-0.8,0.2-1.5,0.5-2.1,0.9L7.5,4.7L4.7,7.5l2.6,3.6c-0.4,0.7-0.7,1.4-0.9,2.1L2,14v4l4.4,0.7c0.2,0.8,0.5,1.5,0.9,2.1   l-2.6,3.6l2.8,2.8l3.6-2.6c0.7,0.4,1.4,0.7,2.1,0.9L14,30h4l0.7-4.4c0.8-0.2,1.5-0.5,2.1-0.9l3.6,2.6l2.8-2.8l-2.6-3.6   c0.4-0.7,0.7-1.4,0.9-2.1L30,18z M16,20c-2.2,0-4-1.8-4-4s1.8-4,4-4s4,1.8,4,4S18.2,20,16,20z" class="Blue" />
+  </g>
+</svg>

GUIs.ZooFlow/Resources/servermode.svg

@@ -0,0 +1,19 @@
+<?xml version='1.0' encoding='UTF-8'?>
+<svg x="0px" y="0px" viewBox="0 0 32 32" version="1.1" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink" xml:space="preserve" id="Layer_1" style="enable-background:new 0 0 32 32">
+  <style type="text/css">
+	.Yellow{fill:#FFB115;}
+	.Red{fill:#D11C1C;}
+	.Black{fill:#727272;}
+	.Blue{fill:#1177D7;}
+	.White{fill:#FFFFFF;}
+	.Green{fill:#039C23;}
+	.st0{opacity:0.75;}
+	.st1{opacity:0.5;}
+	.st2{opacity:0.25;}
+	.st3{fill:#FFB115;}
+</style>
+  <g />
+  <g id="ServerMode">
+    <path d="M27,20H5c-0.5,0-1,0.5-1,1v4c0,0.5,0.5,1,1,1h22c0.5,0,1-0.5,1-1v-4C28,20.5,27.5,20,27,20z M8,24H6v-2h2V24   z M27,12H5c-0.5,0-1,0.5-1,1v4c0,0.5,0.5,1,1,1h22c0.5,0,1-0.5,1-1v-4C28,12.5,27.5,12,27,12z M8,16H6v-2h2V16z M27,4H5   C4.5,4,4,4.5,4,5v4c0,0.5,0.5,1,1,1h22c0.5,0,1-0.5,1-1V5C28,4.5,27.5,4,27,4z M8,8H6V6h2V8z" class="Black" />
+  </g>
+</svg>

GUIs.ZooFlow/Search/frmFlowSearch.Designer.vb

@@ -24,8 +24,8 @@ Partial Class frmFlowSearch
     Private Sub InitializeComponent()
         Me.components = New System.ComponentModel.Container()
         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmFlowSearch))
-        Dim TileItemElement7 As DevExpress.XtraEditors.TileItemElement = New DevExpress.XtraEditors.TileItemElement()
+        Dim TileItemElement1 As DevExpress.XtraEditors.TileItemElement = New DevExpress.XtraEditors.TileItemElement()
-        Dim TileItemElement8 As DevExpress.XtraEditors.TileItemElement = New DevExpress.XtraEditors.TileItemElement()
+        Dim TileItemElement2 As DevExpress.XtraEditors.TileItemElement = New DevExpress.XtraEditors.TileItemElement()
         Me.CheckButton1 = New DevExpress.XtraEditors.CheckButton()
         Me.txtSearchTerm = New System.Windows.Forms.TextBox()
         Me.lblFoundResult = New System.Windows.Forms.Label()
@@ -124,7 +124,7 @@ Partial Class frmFlowSearch
         'Panel2
         '
         Me.Panel2.Dock = System.Windows.Forms.DockStyle.Bottom
-        Me.Panel2.Location = New System.Drawing.Point(202, 627)
+        Me.Panel2.Location = New System.Drawing.Point(202, 625)
         Me.Panel2.Name = "Panel2"
         Me.Panel2.Size = New System.Drawing.Size(1035, 18)
         Me.Panel2.TabIndex = 1
@@ -144,7 +144,7 @@ Partial Class frmFlowSearch
         Me.TileControlMatch.Name = "TileControlMatch"
         Me.TileControlMatch.ScrollMode = DevExpress.XtraEditors.TileControlScrollMode.ScrollBar
         Me.TileControlMatch.ShowGroupText = True
-        Me.TileControlMatch.Size = New System.Drawing.Size(1035, 413)
+        Me.TileControlMatch.Size = New System.Drawing.Size(1035, 418)
         Me.TileControlMatch.TabIndex = 2
         Me.TileControlMatch.TabStop = False
         Me.TileControlMatch.Text = "TileControl1"
@@ -161,8 +161,8 @@ Partial Class frmFlowSearch
         '
         Me.TileItem1.AppearanceItem.Normal.BackColor = System.Drawing.Color.FromArgb(CType(CType(165, Byte), Integer), CType(CType(36, Byte), Integer), CType(CType(49, Byte), Integer))
         Me.TileItem1.AppearanceItem.Normal.Options.UseBackColor = True
-        TileItemElement7.Text = "TileItem1"
+        TileItemElement1.Text = "TileItem1"
-        Me.TileItem1.Elements.Add(TileItemElement7)
+        Me.TileItem1.Elements.Add(TileItemElement1)
         Me.TileItem1.Id = 0
         Me.TileItem1.ItemSize = DevExpress.XtraEditors.TileItemSize.Wide
         Me.TileItem1.Name = "TileItem1"
@@ -171,8 +171,8 @@ Partial Class frmFlowSearch
         '
         Me.TileItem2.AppearanceItem.Normal.BackColor = System.Drawing.Color.White
         Me.TileItem2.AppearanceItem.Normal.Options.UseBackColor = True
-        TileItemElement8.Text = "TileItem2"
+        TileItemElement2.Text = "TileItem2"
-        Me.TileItem2.Elements.Add(TileItemElement8)
+        Me.TileItem2.Elements.Add(TileItemElement2)
         Me.TileItem2.Id = 1
         Me.TileItem2.ItemSize = DevExpress.XtraEditors.TileItemSize.Medium
         Me.TileItem2.Name = "TileItem2"
@@ -198,7 +198,7 @@ Partial Class frmFlowSearch
         Me.RibbonControl1.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonControlStyle.MacOffice
         Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False]
         Me.RibbonControl1.ShowToolbarCustomizeItem = False
-        Me.RibbonControl1.Size = New System.Drawing.Size(1237, 148)
+        Me.RibbonControl1.Size = New System.Drawing.Size(1237, 141)
         Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1
         Me.RibbonControl1.Toolbar.ShowCustomizeItem = False
         '
@@ -215,10 +215,10 @@ Partial Class frmFlowSearch
         'RibbonStatusBar1
         '
         Me.RibbonStatusBar1.ItemLinks.Add(Me.BarStaticInfoItem)
-        Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 645)
+        Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 643)
         Me.RibbonStatusBar1.Name = "RibbonStatusBar1"
         Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1
-        Me.RibbonStatusBar1.Size = New System.Drawing.Size(1237, 22)
+        Me.RibbonStatusBar1.Size = New System.Drawing.Size(1237, 24)
         '
         'RibbonPage2
         '
@@ -238,10 +238,10 @@ Partial Class frmFlowSearch
         Me.panelContainer1.Controls.Add(Me.DockPanel3)
         Me.panelContainer1.Dock = DevExpress.XtraBars.Docking.DockingStyle.Left
         Me.panelContainer1.ID = New System.Guid("2c41e5f4-f976-4b22-a22e-afe12cfdaa3d")
-        Me.panelContainer1.Location = New System.Drawing.Point(0, 148)
+        Me.panelContainer1.Location = New System.Drawing.Point(0, 141)
         Me.panelContainer1.Name = "panelContainer1"
         Me.panelContainer1.OriginalSize = New System.Drawing.Size(202, 200)
-        Me.panelContainer1.Size = New System.Drawing.Size(202, 497)
+        Me.panelContainer1.Size = New System.Drawing.Size(202, 502)
         Me.panelContainer1.Tabbed = True
         Me.panelContainer1.Text = "panelContainer1"
         '
@@ -253,13 +253,13 @@ Partial Class frmFlowSearch
         Me.DockPanel1.Dock = DevExpress.XtraBars.Docking.DockingStyle.Fill
         Me.DockPanel1.Font = New System.Drawing.Font("Calibri", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.DockPanel1.ID = New System.Guid("1ff5d42b-085b-405c-85c0-e49f75099dd0")
-        Me.DockPanel1.Location = New System.Drawing.Point(3, 46)
+        Me.DockPanel1.Location = New System.Drawing.Point(3, 26)
         Me.DockPanel1.Name = "DockPanel1"
         Me.DockPanel1.Options.AllowFloating = False
         Me.DockPanel1.Options.ShowCloseButton = False
         Me.DockPanel1.Options.ShowMaximizeButton = False
-        Me.DockPanel1.OriginalSize = New System.Drawing.Size(195, 421)
+        Me.DockPanel1.OriginalSize = New System.Drawing.Size(195, 419)
-        Me.DockPanel1.Size = New System.Drawing.Size(195, 419)
+        Me.DockPanel1.Size = New System.Drawing.Size(195, 447)
         Me.DockPanel1.Text = "Einschränkungen"
         '
         'DockPanel1_Container
@@ -276,7 +276,7 @@ Partial Class frmFlowSearch
         Me.DockPanel1_Container.Controls.Add(Me.ToggleSwitchToday)
         Me.DockPanel1_Container.Location = New System.Drawing.Point(0, 0)
         Me.DockPanel1_Container.Name = "DockPanel1_Container"
-        Me.DockPanel1_Container.Size = New System.Drawing.Size(195, 419)
+        Me.DockPanel1_Container.Size = New System.Drawing.Size(195, 447)
         Me.DockPanel1_Container.TabIndex = 0
         '
         'Label3
@@ -299,7 +299,7 @@ Partial Class frmFlowSearch
         Me.CheckedListBoxCategories.CheckOnClick = True
         Me.CheckedListBoxCategories.Location = New System.Drawing.Point(12, 217)
         Me.CheckedListBoxCategories.Name = "CheckedListBoxCategories"
-        Me.CheckedListBoxCategories.Size = New System.Drawing.Size(174, 199)
+        Me.CheckedListBoxCategories.Size = New System.Drawing.Size(174, 227)
         Me.CheckedListBoxCategories.TabIndex = 15
         '
         'ToggleSwitchLastMonth
@@ -412,18 +412,18 @@ Partial Class frmFlowSearch
         Me.DockPanel3.Controls.Add(Me.DockPanel3_Container)
         Me.DockPanel3.Dock = DevExpress.XtraBars.Docking.DockingStyle.Fill
         Me.DockPanel3.ID = New System.Guid("08fbe6c7-4310-499d-bd16-beeb37a1d906")
-        Me.DockPanel3.Location = New System.Drawing.Point(3, 46)
+        Me.DockPanel3.Location = New System.Drawing.Point(3, 26)
         Me.DockPanel3.Name = "DockPanel3"
         Me.DockPanel3.Options.AllowFloating = False
-        Me.DockPanel3.OriginalSize = New System.Drawing.Size(195, 421)
+        Me.DockPanel3.OriginalSize = New System.Drawing.Size(195, 419)
-        Me.DockPanel3.Size = New System.Drawing.Size(195, 419)
+        Me.DockPanel3.Size = New System.Drawing.Size(195, 447)
         Me.DockPanel3.Text = "Attribute"
         '
         'DockPanel3_Container
         '
         Me.DockPanel3_Container.Location = New System.Drawing.Point(0, 0)
         Me.DockPanel3_Container.Name = "DockPanel3_Container"
-        Me.DockPanel3_Container.Size = New System.Drawing.Size(195, 419)
+        Me.DockPanel3_Container.Size = New System.Drawing.Size(195, 447)
         Me.DockPanel3_Container.TabIndex = 0
         '
         'Panel1
@@ -434,7 +434,7 @@ Partial Class frmFlowSearch
         Me.Panel1.Controls.Add(Me.lblFoundResult)
         Me.Panel1.Controls.Add(Me.Label1)
         Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top
-        Me.Panel1.Location = New System.Drawing.Point(202, 148)
+        Me.Panel1.Location = New System.Drawing.Point(202, 141)
         Me.Panel1.Name = "Panel1"
         Me.Panel1.Size = New System.Drawing.Size(1035, 66)
         Me.Panel1.TabIndex = 0
@@ -444,9 +444,9 @@ Partial Class frmFlowSearch
         Me.Panel3.BackColor = System.Drawing.Color.Transparent
         Me.Panel3.Controls.Add(Me.TileControlMatch)
         Me.Panel3.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.Panel3.Location = New System.Drawing.Point(202, 214)
+        Me.Panel3.Location = New System.Drawing.Point(202, 207)
         Me.Panel3.Name = "Panel3"
-        Me.Panel3.Size = New System.Drawing.Size(1035, 413)
+        Me.Panel3.Size = New System.Drawing.Size(1035, 418)
         Me.Panel3.TabIndex = 9
         '
         'frmFlowSearch

GUIs.ZooFlow/Search/frmFlowSearch1.vb

@@ -1,11 +1,11 @@
 Imports DevExpress.XtraEditors
+Imports DevExpress.XtraSplashScreen
 Imports DigitalData.GUIs.Common
 Imports DigitalData.GUIs.ZooFlow.ClassConstants
 Imports DigitalData.Modules.Logging
 Imports DigitalData.Modules.ZooFlow
 
 Public Class frmFlowSearch1
-    Private _Params As ClipboardWatcherParams
     Private _Environment As Environment
     Private Logger As Logger
 
@@ -222,24 +222,27 @@ Public Class frmFlowSearch1
 
     End Sub
 
-    Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick
+    Private Async Function BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) As Threading.Tasks.Task Handles BarButtonItem1.ItemClick
-        Search_GO()
+        Dim oHandle = SplashScreenManager.ShowOverlayForm(Me)
-    End Sub
+
-    Private Sub Search_GO()
+        Try
-        Dim owTITLE
+            Await Search_GO()
+        Catch ex As Exception
+            Logger.Error(ex)
+        Finally
+            SplashScreenManager.CloseOverlayForm(oHandle)
+        End Try
+    End Function
+    Private Async Function Search_GO() As Threading.Tasks.Task
+        Dim oWindowTitle
         Dim oSearchTerm = txtSearchInput.Text
-        If My.Application.User.Language = "de-DE" Then
-            owTITLE = $"Suche nach ""{oSearchTerm}"""
-        End If
-        _Params = New ClipboardWatcherParams()
-        _Params.ClipboardContents = oSearchTerm
 
         Dim oParams = New DocumentResultList.Params() With {
            .WindowGuid = "FlowSearch",
            .WindowTitle = GetResultWindowString(oSearchTerm),
            .OperationModeOverride = Modules.ZooFlow.Constants.OperationMode.ZooFlow,
            .ProfileGuid = 354522
-       }
+        }
 
         Dim oP3 = $"{SEARCH_FACT_DATE_ATTRIBUTE}~{SEARCH_PARAM3}"
         If ExplizitDate Then
@@ -250,44 +253,38 @@ Public Class frmFlowSearch1
                 oDate2 = CDate(DateEditFrom.EditValue)
             End If
             Dim oProc = $"EXEC PRIDB_SEARCH_ADD_USR_DATE {My.Application.User.UserId},'{CDate(DateEditFrom.EditValue)}','{oDate2}'"
-            If My.DatabaseIDB.ExecuteNonQuery(oProc) = True Then
+            If Await My.Database.ExecuteNonQueryIDBAsync(oProc) = True Then
                 oP3 = $"{SEARCH_FACT_DATE_ATTRIBUTE}~DATEPART"
             End If
         End If
-            Dim oSQL = $"EXEC PRIDB_SEARCH_TEXT_GET_RESULTS {My.Application.User.UserId},'{oSearchTerm}','{oP3}'"
 
-        If My.DatabaseIDB.ExecuteNonQuery(oSQL) = True Then
+        Dim oSQL = $"EXEC PRIDB_SEARCH_TEXT_GET_RESULTS {My.Application.User.UserId},'{oSearchTerm}','{oP3}'"
-            Dim oDTDocResult = My.DatabaseIDB.GetDatatable(oBASESEARCH)
+
+        If Await My.Database.ExecuteNonQueryIDBAsync(oSQL) = True Then
+            Dim oDTDocResult = Await My.Database.GetDatatableIDBAsync(oBASESEARCH)
             If oDTDocResult.Rows.Count > 0 Then
                 oParams.Results.Add(New DocumentResultList.DocumentResult() With {
-                          .Title = "FlowSearchXYZ",
+                    .Title = "FlowSearchXYZ",
-                            .Datatable = oDTDocResult})
+                    .Datatable = oDTDocResult
+                })
                 Dim oForm As New frmDocumentResultList(My.LogConfig, _Environment, oParams)
-                'AddHandler oForm.FormClosed, AddressOf ProfileResultForm_Closed
-                'AddHandler oForm.NeedsRefresh, AddressOf ProfileResultForm_NeedsRefresh
-
-                'OpenForms.Add(oForm)
                 oForm.Show()
             Else
                 bsiStatus.Caption = "No Results"
             End If
-
-
         Else
-            bsiStatus.Caption = "Error oin FlowSearch - Check Your log"
+            bsiStatus.Caption = "Error in FlowSearch - Check Your log"
         End If
-        '        
+    End Function
 
-    End Sub
+    Private Async Function txtSearchInput_KeyUp(sender As Object, e As KeyEventArgs) As Threading.Tasks.Task Handles txtSearchInput.KeyUp
-
-    Private Sub txtSearchInput_KeyUp(sender As Object, e As KeyEventArgs) Handles txtSearchInput.KeyUp
         If e.KeyCode = Keys.Return Then
             If txtSearchInput.Text = String.Empty Then
-                Exit Sub
+                Return
             End If
-            Search_GO()
+            Await Search_GO()
         End If
-    End Sub
+    End Function
     Private Function GetResultWindowString(SearchContent As String) As String
         If SearchContent <> String.Empty Then
             If My.Application.User.Language = State.UserState.LANG_DE_DE Then
@@ -308,7 +305,7 @@ Public Class frmFlowSearch1
     End Function
 
     Private Sub BarButtonItem2_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem2.ItemClick
-        Me.txtSearchInput.Text = ""
+        txtSearchInput.Text = ""
         ResetTogglesDate()
         ToggleSwitchDateto.IsOn = False
         ExplizitDate = False

GUIs.ZooFlow/ZooFlow.vbproj

@@ -64,7 +64,7 @@
     <StartupObject>DigitalData.GUIs.ZooFlow.My.MyApplication</StartupObject>
   </PropertyGroup>
   <PropertyGroup>
-    <ApplicationIcon>ZOO_FLOW_ sysicon_48.ico</ApplicationIcon>
+    <ApplicationIcon>Zooflow.ico</ApplicationIcon>
   </PropertyGroup>
   <ItemGroup>
     <Reference Include="Accessibility" />
@@ -217,9 +217,8 @@
     <Compile Include="Administration\ClassSourceBundle.vb" />
     <Compile Include="ApplicationEvents.vb" />
     <Compile Include="ClassDragDrop.vb" />
-    <Compile Include="ClassStrings.vb" />
+    <Compile Include="Modules\ClipboardWatcher\ClassProfileLoader.vb" />
-    <Compile Include="ClipboardWatcher\ClassProfileLoader.vb" />
+    <Compile Include="Modules\ClipboardWatcher\Watcher.vb" />
-    <Compile Include="ClipboardWatcher\Watcher.vb" />
     <Compile Include="ClassCommandlineArgs.vb" />
     <Compile Include="clsPatterns.vb" />
     <Compile Include="DBCW_Stammdaten.Designer.vb">
@@ -256,44 +255,38 @@
     <Compile Include="frmTest.vb">
       <SubType>Form</SubType>
     </Compile>
-    <Compile Include="Globix\ClassExclusions.vb" />
+    <Compile Include="Modules\Globix\ClassExclusions.vb" />
-    <Compile Include="Globix\ClassValidator.vb" />
+    <Compile Include="Modules\Globix\ClassValidator.vb" />
-    <Compile Include="Globix\frmGlobixNameconvention.Designer.vb">
+    <Compile Include="Modules\Globix\frmGlobixNameconvention.Designer.vb">
       <DependentUpon>frmGlobixNameconvention.vb</DependentUpon>
     </Compile>
-    <Compile Include="Globix\frmGlobixNameconvention.vb">
+    <Compile Include="Modules\Globix\frmGlobixNameconvention.vb">
       <SubType>Form</SubType>
     </Compile>
-    <Compile Include="Globix\Models\DocumentType.vb" />
+    <Compile Include="Modules\Globix\Models\DocumentType.vb" />
-    <Compile Include="Globix\Models\ManualIndex.vb" />
+    <Compile Include="Modules\Globix\Models\ManualIndex.vb" />
-    <Compile Include="Globix\Models\WorkFile.vb" />
+    <Compile Include="Modules\Globix\Models\WorkFile.vb" />
-    <Compile Include="frmWaitForm.Designer.vb">
+    <Compile Include="Modules\Globix\ClassUserFiles.vb" />
-      <DependentUpon>frmWaitForm.vb</DependentUpon>
-    </Compile>
-    <Compile Include="frmWaitForm.vb">
-      <SubType>Form</SubType>
-    </Compile>
-    <Compile Include="Globix\ClassUserFiles.vb" />
     <Compile Include="modCurrent.vb" />
     <Compile Include="MyDataset.Designer.vb">
       <AutoGen>True</AutoGen>
       <DesignTime>True</DesignTime>
       <DependentUpon>MyDataset.xsd</DependentUpon>
     </Compile>
-    <Compile Include="Globix\ClassFolderwatcher.vb" />
+    <Compile Include="Modules\Globix\ClassFolderwatcher.vb" />
-    <Compile Include="Globix\frmGlobixBasicConfig.Designer.vb">
+    <Compile Include="Modules\Globix\frmGlobixBasicConfig.Designer.vb">
       <DependentUpon>frmGlobixBasicConfig.vb</DependentUpon>
     </Compile>
-    <Compile Include="Globix\frmGlobixBasicConfig.vb">
+    <Compile Include="Modules\Globix\frmGlobixBasicConfig.vb">
       <SubType>Form</SubType>
     </Compile>
-    <Compile Include="Globix\frmGlobixMissingInput.Designer.vb">
+    <Compile Include="Modules\Globix\frmGlobixMissingInput.Designer.vb">
       <DependentUpon>frmGlobixMissingInput.vb</DependentUpon>
     </Compile>
-    <Compile Include="Globix\frmGlobixMissingInput.vb">
+    <Compile Include="Modules\Globix\frmGlobixMissingInput.vb">
       <SubType>Form</SubType>
     </Compile>
-    <Compile Include="Globix\GlobixDataset.Designer.vb">
+    <Compile Include="Modules\Globix\GlobixDataset.Designer.vb">
       <AutoGen>True</AutoGen>
       <DesignTime>True</DesignTime>
       <DependentUpon>GlobixDataset.xsd</DependentUpon>
@@ -309,10 +302,10 @@
       <SubType>Form</SubType>
     </Compile>
     <Compile Include="Search\ClassControlCreator.vb" />
-    <Compile Include="Globix\ClassFilehandle.vb" />
+    <Compile Include="Modules\Globix\ClassFilehandle.vb" />
     <Compile Include="ClassInit.vb" />
     <Compile Include="ClassWindowLayout.vb" />
-    <Compile Include="ClipboardWatcher\State.vb" />
+    <Compile Include="Modules\ClipboardWatcher\State.vb" />
     <Compile Include="DSIDB_Stammdaten.Designer.vb">
       <AutoGen>True</AutoGen>
       <DesignTime>True</DesignTime>
@@ -332,16 +325,16 @@
     <Compile Include="frmFlowForm.vb">
       <SubType>Form</SubType>
     </Compile>
-    <Compile Include="Globix\frmGlobix_IndexFileList.Designer.vb">
+    <Compile Include="Modules\Globix\frmGlobix_IndexFileList.Designer.vb">
       <DependentUpon>frmGlobix_IndexFileList.vb</DependentUpon>
     </Compile>
-    <Compile Include="Globix\frmGlobix_IndexFileList.vb">
+    <Compile Include="Modules\Globix\frmGlobix_IndexFileList.vb">
       <SubType>Form</SubType>
     </Compile>
-    <Compile Include="Globix\frmGlobix_Index.Designer.vb">
+    <Compile Include="Modules\Globix\frmGlobix_Index.Designer.vb">
       <DependentUpon>frmGlobix_Index.vb</DependentUpon>
     </Compile>
-    <Compile Include="Globix\frmGlobix_Index.vb">
+    <Compile Include="Modules\Globix\frmGlobix_Index.vb">
       <SubType>Form</SubType>
     </Compile>
     <Compile Include="Search\frmFlowSearch1.Designer.vb">
@@ -368,7 +361,7 @@
     <Compile Include="Search\frmSearchStart.vb">
       <SubType>Form</SubType>
     </Compile>
-    <Compile Include="Globix\State.vb" />
+    <Compile Include="Modules\Globix\State.vb" />
     <Compile Include="My Project\Resources.Designer.vb">
       <AutoGen>True</AutoGen>
       <DesignTime>True</DesignTime>
@@ -378,15 +371,8 @@
     <Compile Include="Queries\ClassCommonQueries.vb" />
     <Compile Include="Config\ClassConfig.vb" />
     <Compile Include="ClassConstants.vb" />
-    <Compile Include="ClassEnvironment.vb" />
     <Compile Include="ClassInitLoader.vb" />
     <Compile Include="Config\ClassUIConfig.vb" />
-    <Compile Include="frmConfigDatabase.Designer.vb">
-      <DependentUpon>frmConfigDatabase.vb</DependentUpon>
-    </Compile>
-    <Compile Include="frmConfigDatabase.vb">
-      <SubType>Form</SubType>
-    </Compile>
     <Compile Include="frmSettings.Designer.vb">
       <DependentUpon>frmSettings.vb</DependentUpon>
     </Compile>
@@ -451,34 +437,29 @@
     <EmbeddedResource Include="frmTest.resx">
       <DependentUpon>frmTest.vb</DependentUpon>
     </EmbeddedResource>
-    <EmbeddedResource Include="Globix\frmGlobixBasicConfig.resx">
+    <EmbeddedResource Include="Modules\Globix\frmGlobixBasicConfig.resx">
       <DependentUpon>frmGlobixBasicConfig.vb</DependentUpon>
     </EmbeddedResource>
-    <EmbeddedResource Include="Globix\frmGlobixMissingInput.resx">
+    <EmbeddedResource Include="Modules\Globix\frmGlobixMissingInput.resx">
       <DependentUpon>frmGlobixMissingInput.vb</DependentUpon>
     </EmbeddedResource>
-    <EmbeddedResource Include="Globix\frmGlobixNameconvention.resx">
+    <EmbeddedResource Include="Modules\Globix\frmGlobixNameconvention.resx">
       <DependentUpon>frmGlobixNameconvention.vb</DependentUpon>
     </EmbeddedResource>
-    <EmbeddedResource Include="frmWaitForm.resx">
-      <DependentUpon>frmWaitForm.vb</DependentUpon>
-    </EmbeddedResource>
     <EmbeddedResource Include="Search\frmFlowSearch.resx">
       <DependentUpon>frmFlowSearch.vb</DependentUpon>
     </EmbeddedResource>
     <EmbeddedResource Include="Administration\frmAdmin_Start.resx">
       <DependentUpon>frmAdmin_Start.vb</DependentUpon>
     </EmbeddedResource>
-    <EmbeddedResource Include="frmConfigDatabase.resx">
-      <DependentUpon>frmConfigDatabase.vb</DependentUpon>
-    </EmbeddedResource>
     <EmbeddedResource Include="frmFlowForm.resx">
       <DependentUpon>frmFlowForm.vb</DependentUpon>
+      <SubType>Designer</SubType>
     </EmbeddedResource>
-    <EmbeddedResource Include="Globix\frmGlobix_IndexFileList.resx">
+    <EmbeddedResource Include="Modules\Globix\frmGlobix_IndexFileList.resx">
       <DependentUpon>frmGlobix_IndexFileList.vb</DependentUpon>
     </EmbeddedResource>
-    <EmbeddedResource Include="Globix\frmGlobix_Index.resx">
+    <EmbeddedResource Include="Modules\Globix\frmGlobix_Index.resx">
       <DependentUpon>frmGlobix_Index.vb</DependentUpon>
     </EmbeddedResource>
     <EmbeddedResource Include="Search\frmFlowSearch1.resx">
@@ -551,15 +532,15 @@
     <None Include="DSIDB_Stammdaten.xss">
       <DependentUpon>DSIDB_Stammdaten.xsd</DependentUpon>
     </None>
-    <None Include="Globix\GlobixDataset.xsc">
+    <None Include="Modules\Globix\GlobixDataset.xsc">
       <DependentUpon>GlobixDataset.xsd</DependentUpon>
     </None>
-    <None Include="Globix\GlobixDataset.xsd">
+    <None Include="Modules\Globix\GlobixDataset.xsd">
       <SubType>Designer</SubType>
       <Generator>MSDataSetGenerator</Generator>
       <LastGenOutput>GlobixDataset.Designer.vb</LastGenOutput>
     </None>
-    <None Include="Globix\GlobixDataset.xss">
+    <None Include="Modules\Globix\GlobixDataset.xss">
       <DependentUpon>GlobixDataset.xsd</DependentUpon>
     </None>
     <None Include="My Project\Settings.settings">
@@ -999,7 +980,13 @@
     <None Include="Resources\Compare_RefreshScriptPreview.png" />
     <None Include="Resources\refresh_16xMD.png" />
     <None Include="Resources\Close_16xLG.png" />
-    <Content Include="ZOO_FLOW_ sysicon_48.ico" />
+    <None Include="Resources\scatterchartlabeloptions.svg" />
+    <None Include="Resources\cancel.svg" />
+    <None Include="Resources\actions_refresh.svg" />
+    <None Include="Resources\properties.svg" />
+    <None Include="Resources\servermode.svg" />
+    <None Include="Resources\managedatasource2.svg" />
+    <Content Include="Zooflow.ico" />
   </ItemGroup>
   <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
   <!-- To modify your build process, add your task inside one of the targets below and uncomment it.

GUIs.ZooFlow/frmConfigBasic.Designer.vb

@@ -28,8 +28,10 @@ Partial Class frmConfigBasic
         Me.BarButtonItem2 = New DevExpress.XtraBars.BarButtonItem()
         Me.BarButtonItem3 = New DevExpress.XtraBars.BarButtonItem()
         Me.bsiInfo = New DevExpress.XtraBars.BarStaticItem()
+        Me.SkinPaletteRibbonGalleryBarItem1 = New DevExpress.XtraBars.SkinPaletteRibbonGalleryBarItem()
         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.LayoutControl1 = New DevExpress.XtraLayout.LayoutControl()
@@ -54,13 +56,13 @@ Partial Class frmConfigBasic
         'RibbonControl1
         '
         Me.RibbonControl1.ExpandCollapseItem.Id = 0
-        Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarButtonItem1, Me.BarButtonItem2, Me.BarButtonItem3, Me.bsiInfo})
+        Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarButtonItem1, Me.BarButtonItem2, Me.BarButtonItem3, Me.bsiInfo, Me.SkinPaletteRibbonGalleryBarItem1})
         Me.RibbonControl1.Location = New System.Drawing.Point(0, 0)
-        Me.RibbonControl1.MaxItemId = 5
+        Me.RibbonControl1.MaxItemId = 10
         Me.RibbonControl1.Name = "RibbonControl1"
         Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1})
         Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False]
-        Me.RibbonControl1.Size = New System.Drawing.Size(800, 160)
+        Me.RibbonControl1.Size = New System.Drawing.Size(800, 158)
         Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1
         '
         'BarButtonItem1
@@ -91,9 +93,15 @@ Partial Class frmConfigBasic
         Me.bsiInfo.Name = "bsiInfo"
         Me.bsiInfo.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph
         '
+        'SkinPaletteRibbonGalleryBarItem1
+        '
+        Me.SkinPaletteRibbonGalleryBarItem1.Caption = "SkinPaletteRibbonGalleryBarItem1"
+        Me.SkinPaletteRibbonGalleryBarItem1.Id = 9
+        Me.SkinPaletteRibbonGalleryBarItem1.Name = "SkinPaletteRibbonGalleryBarItem1"
+        '
         'RibbonPage1
         '
-        Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1})
+        Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1, Me.RibbonPageGroup2})
         Me.RibbonPage1.Name = "RibbonPage1"
         Me.RibbonPage1.Text = "Start"
         '
@@ -104,13 +112,20 @@ Partial Class frmConfigBasic
         Me.RibbonPageGroup1.Name = "RibbonPageGroup1"
         Me.RibbonPageGroup1.Text = "Schnellzugriffe"
         '
+        'RibbonPageGroup2
+        '
+        Me.RibbonPageGroup2.Alignment = DevExpress.XtraBars.Ribbon.RibbonPageGroupAlignment.Far
+        Me.RibbonPageGroup2.ItemLinks.Add(Me.SkinPaletteRibbonGalleryBarItem1)
+        Me.RibbonPageGroup2.Name = "RibbonPageGroup2"
+        Me.RibbonPageGroup2.Text = "Oberflächen Design"
+        '
         'RibbonStatusBar1
         '
         Me.RibbonStatusBar1.ItemLinks.Add(Me.bsiInfo)
-        Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 428)
+        Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 426)
         Me.RibbonStatusBar1.Name = "RibbonStatusBar1"
         Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1
-        Me.RibbonStatusBar1.Size = New System.Drawing.Size(800, 22)
+        Me.RibbonStatusBar1.Size = New System.Drawing.Size(800, 24)
         '
         'RibbonPage2
         '
@@ -123,7 +138,7 @@ Partial Class frmConfigBasic
         Me.LayoutControl1.Controls.Add(Me.Quicksearch1TitleTextBox)
         Me.LayoutControl1.Controls.Add(Me.CheckButtonDEBUG)
         Me.LayoutControl1.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.LayoutControl1.Location = New System.Drawing.Point(0, 160)
+        Me.LayoutControl1.Location = New System.Drawing.Point(0, 158)
         Me.LayoutControl1.Name = "LayoutControl1"
         Me.LayoutControl1.OptionsCustomizationForm.DesignTimeCustomizationFormPositionAndSize = New System.Drawing.Rectangle(848, 135, 650, 400)
         Me.LayoutControl1.Root = Me.Root
@@ -234,11 +249,13 @@ Partial Class frmConfigBasic
     Friend WithEvents BarButtonItem1 As DevExpress.XtraBars.BarButtonItem
     Friend WithEvents BarButtonItem2 As DevExpress.XtraBars.BarButtonItem
     Friend WithEvents CheckButtonDEBUG As DevExpress.XtraEditors.CheckButton
-    Friend WithEvents LayoutControlItem2 As DevExpress.XtraLayout.LayoutControlItem
     Friend WithEvents Quicksearch1CB_Pos As DevExpress.XtraEditors.ComboBoxEdit
     Friend WithEvents Quicksearch1TitleTextBox As DevExpress.XtraEditors.TextEdit
     Friend WithEvents LayoutControlItem1 As DevExpress.XtraLayout.LayoutControlItem
     Friend WithEvents LayoutControlItem3 As DevExpress.XtraLayout.LayoutControlItem
     Friend WithEvents BarButtonItem3 As DevExpress.XtraBars.BarButtonItem
     Friend WithEvents bsiInfo As DevExpress.XtraBars.BarStaticItem
+    Friend WithEvents LayoutControlItem2 As DevExpress.XtraLayout.LayoutControlItem
+    Friend WithEvents SkinPaletteRibbonGalleryBarItem1 As DevExpress.XtraBars.SkinPaletteRibbonGalleryBarItem
+    Friend WithEvents RibbonPageGroup2 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
 End Class

GUIs.ZooFlow/frmConfigBasic.vb

@@ -1,20 +1,29 @@
-Imports DigitalData.Modules
+Imports DigitalData.Modules.Language
+Imports DigitalData.Modules.Logging
 
 Public Class frmConfigBasic
     Private FormLoaded As Boolean = False
+    Private Logger As Logger
+
     Private Sub frmConfigBasic_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         LoadScreens()
         CheckButtonDEBUG.Checked = My.LogConfig.Debug
         For Each orow As DataRow In My.Tables.DTIDB_CATALOG_USER.Rows
-            If orow.Item("CAT_TITLE") = "QUICKSEARCH1_TITLE" Then
+            Select Case orow.Item("CAT_TITLE")
-                Quicksearch1TitleTextBox.Text = orow.Item("CAT_STRING")
+                Case ClassConstants.USER_CATALOG_QUICKSEARCH1_TITLE
-                Quicksearch1TitleTextBox.Tag = orow.Item("GUID")
+                    Quicksearch1TitleTextBox.Text = orow.Item("CAT_STRING")
-            ElseIf orow.Item("CAT_TITLE") = "QUICKSEARCH1_POS" Then
+                    Quicksearch1TitleTextBox.Tag = orow.Item("GUID")
-                Quicksearch1CB_Pos.EditValue = orow.Item("CAT_STRING")
+                Case ClassConstants.USER_CATALOG_QUICKSEARCH1_POS
-                Quicksearch1CB_Pos.Tag = orow.Item("GUID")
+                    Quicksearch1CB_Pos.EditValue = orow.Item("CAT_STRING")
-            End If
+                    Quicksearch1CB_Pos.Tag = orow.Item("GUID")
-        Next
+                Case ClassConstants.USER_CATALOG_APPLICATION_THEME
+                    Dim oItem = SkinPaletteRibbonGalleryBarItem1.Gallery.GetAllItems().
+                        Where(Function(item) item.Value = orow.ItemEx("CAT_STRING", String.Empty)).
+                        FirstOrDefault()
+                    SkinPaletteRibbonGalleryBarItem1.Gallery.SetItemCheck(oItem, True)
 
+            End Select
+        Next
     End Sub
 
     Private Sub LoadScreens()
@@ -37,10 +46,6 @@ Public Class frmConfigBasic
         Process.Start(System.Windows.Forms.Application.LocalUserAppDataPath)
     End Sub
 
-    Private Sub CheckButtonDEBUG_Click(sender As Object, e As EventArgs) Handles CheckButtonDEBUG.Click
-
-    End Sub
-
     Private Sub CheckButtonDEBUG_CheckedChanged(sender As Object, e As EventArgs) Handles CheckButtonDEBUG.CheckedChanged
         If CheckButtonDEBUG.Checked Then
             CheckButtonDEBUG.Text = "DEBUG is active"
@@ -60,8 +65,6 @@ Public Class frmConfigBasic
         End Try
     End Sub
 
-
-
     Private Sub frmConfigBasic_Shown(sender As Object, e As EventArgs) Handles Me.Shown
         FormLoaded = True
     End Sub
@@ -73,7 +76,7 @@ Public Class frmConfigBasic
         Try
             Dim oUpd = $"UPDATE TBIDB_CATALOG_USER SET CHANGED_WHO = '{My.Application.User.UserName}', CAT_STRING  = '{Quicksearch1CB_Pos.EditValue}'
             WHERE GUID  = {Quicksearch1CB_Pos.Tag}"
-            If My.Database.ExecuteNonQuery(oUpd, EDMI.API.Constants.DatabaseType.IDB) = True Then
+            If My.Database.ExecuteNonQuery(oUpd, DigitalData.Modules.EDMI.API.Constants.DatabaseType.IDB) = True Then
                 bsiInfo.Caption = "Position Quicksearch1 saved!"
             End If
         Catch ex As Exception
@@ -88,11 +91,25 @@ Public Class frmConfigBasic
         Try
             Dim oUpd = $"UPDATE TBIDB_CATALOG_USER SET CHANGED_WHO = '{My.Application.User.UserName}', CAT_STRING  = '{Quicksearch1TitleTextBox.Text}'
             WHERE GUID  = {Quicksearch1TitleTextBox.Tag}"
-            If My.Database.ExecuteNonQuery(oUpd, EDMI.API.Constants.DatabaseType.IDB) = True Then
+            If My.Database.ExecuteNonQuery(oUpd, DigitalData.Modules.EDMI.API.Constants.DatabaseType.IDB) = True Then
                 bsiInfo.Caption = "Title Quicksearch1 saved!"
             End If
         Catch ex As Exception
             MsgBox(ex.Message, MsgBoxStyle.Critical)
         End Try
     End Sub
+
+    Private Sub SkinPaletteRibbonGalleryBarItem1_GalleryItemClick(sender As Object, e As DevExpress.XtraBars.Ribbon.GalleryItemClickEventArgs) Handles SkinPaletteRibbonGalleryBarItem1.GalleryItemClick
+        Dim oName = e.Item.Value
+
+        Try
+            Dim oUpd = $"UPDATE TBIDB_CATALOG_USER SET CHANGED_WHO = '{My.Application.User.UserName}', CAT_STRING  = '{oName}'
+            WHERE CAT_TITLE = '{ClassConstants.USER_CATALOG_APPLICATION_THEME}'"
+            If My.Database.ExecuteNonQuery(oUpd, DigitalData.Modules.EDMI.API.Constants.DatabaseType.IDB) = True Then
+                bsiInfo.Caption = "Application Theme saved!"
+            End If
+        Catch ex As Exception
+            MsgBox(ex.Message, MsgBoxStyle.Critical, Text)
+        End Try
+    End Sub
 End Class

GUIs.ZooFlow/frmConfigDatabase.Designer.vb

@@ -1,272 +0,0 @@
-<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
-Partial Class frmConfigDatabase
-    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.LayoutControl1 = New DevExpress.XtraLayout.LayoutControl()
-        Me.btnTestConnection = New DevExpress.XtraEditors.SimpleButton()
-        Me.LayoutControlGroup1 = New DevExpress.XtraLayout.LayoutControlGroup()
-        Me.LayoutControlItem5 = New DevExpress.XtraLayout.LayoutControlItem()
-        Me.EmptySpaceItem2 = New DevExpress.XtraLayout.EmptySpaceItem()
-        Me.txtServerName = New DevExpress.XtraEditors.TextEdit()
-        Me.txtUserName = New DevExpress.XtraEditors.TextEdit()
-        Me.txtPassword = New DevExpress.XtraEditors.TextEdit()
-        Me.cmbDatabase = New DevExpress.XtraEditors.ComboBoxEdit()
-        Me.txtConnectionString = New DevExpress.XtraEditors.TextEdit()
-        Me.chkWinAuth = New DevExpress.XtraEditors.CheckEdit()
-        Me.LayoutControlItem1 = New DevExpress.XtraLayout.LayoutControlItem()
-        Me.LayoutControlItem2 = New DevExpress.XtraLayout.LayoutControlItem()
-        Me.LayoutControlItem4 = New DevExpress.XtraLayout.LayoutControlItem()
-        Me.LayoutControlItem3 = New DevExpress.XtraLayout.LayoutControlItem()
-        Me.LayoutControlItem7 = New DevExpress.XtraLayout.LayoutControlItem()
-        Me.LayoutControlItem6 = New DevExpress.XtraLayout.LayoutControlItem()
-        CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).BeginInit()
-        Me.LayoutControl1.SuspendLayout()
-        CType(Me.LayoutControlGroup1, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.LayoutControlItem5, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.EmptySpaceItem2, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.txtServerName.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.txtUserName.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.txtPassword.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.cmbDatabase.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.txtConnectionString.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.chkWinAuth.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.LayoutControlItem4, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.LayoutControlItem7, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.LayoutControlItem6, System.ComponentModel.ISupportInitialize).BeginInit()
-        Me.SuspendLayout()
-        '
-        'LayoutControl1
-        '
-        Me.LayoutControl1.Controls.Add(Me.txtServerName)
-        Me.LayoutControl1.Controls.Add(Me.txtUserName)
-        Me.LayoutControl1.Controls.Add(Me.txtPassword)
-        Me.LayoutControl1.Controls.Add(Me.cmbDatabase)
-        Me.LayoutControl1.Controls.Add(Me.btnTestConnection)
-        Me.LayoutControl1.Controls.Add(Me.txtConnectionString)
-        Me.LayoutControl1.Controls.Add(Me.chkWinAuth)
-        Me.LayoutControl1.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.LayoutControl1.Location = New System.Drawing.Point(0, 0)
-        Me.LayoutControl1.Name = "LayoutControl1"
-        Me.LayoutControl1.Root = Me.LayoutControlGroup1
-        Me.LayoutControl1.Size = New System.Drawing.Size(602, 221)
-        Me.LayoutControl1.TabIndex = 0
-        Me.LayoutControl1.Text = "LayoutControl1"
-        '
-        'btnTestConnection
-        '
-        Me.btnTestConnection.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.actions_check4
-        Me.btnTestConnection.ImageOptions.SvgImageSize = New System.Drawing.Size(16, 16)
-        Me.btnTestConnection.Location = New System.Drawing.Point(303, 164)
-        Me.btnTestConnection.Name = "btnTestConnection"
-        Me.btnTestConnection.Size = New System.Drawing.Size(287, 22)
-        Me.btnTestConnection.StyleController = Me.LayoutControl1
-        Me.btnTestConnection.TabIndex = 8
-        Me.btnTestConnection.Text = "Verbindung zur Datenbank herstellen"
-        '
-        'LayoutControlGroup1
-        '
-        Me.LayoutControlGroup1.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True]
-        Me.LayoutControlGroup1.GroupBordersVisible = False
-        Me.LayoutControlGroup1.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem1, Me.LayoutControlItem2, Me.LayoutControlItem4, Me.LayoutControlItem3, Me.LayoutControlItem7, Me.LayoutControlItem6, Me.LayoutControlItem5, Me.EmptySpaceItem2})
-        Me.LayoutControlGroup1.Name = "LayoutControlGroup1"
-        Me.LayoutControlGroup1.Size = New System.Drawing.Size(602, 221)
-        Me.LayoutControlGroup1.TextVisible = False
-        '
-        'LayoutControlItem5
-        '
-        Me.LayoutControlItem5.Control = Me.btnTestConnection
-        Me.LayoutControlItem5.Location = New System.Drawing.Point(291, 152)
-        Me.LayoutControlItem5.Name = "LayoutControlItem5"
-        Me.LayoutControlItem5.Size = New System.Drawing.Size(291, 49)
-        Me.LayoutControlItem5.TextSize = New System.Drawing.Size(0, 0)
-        Me.LayoutControlItem5.TextVisible = False
-        '
-        'EmptySpaceItem2
-        '
-        Me.EmptySpaceItem2.AllowHotTrack = False
-        Me.EmptySpaceItem2.Location = New System.Drawing.Point(0, 152)
-        Me.EmptySpaceItem2.Name = "EmptySpaceItem2"
-        Me.EmptySpaceItem2.Size = New System.Drawing.Size(291, 49)
-        Me.EmptySpaceItem2.TextSize = New System.Drawing.Size(0, 0)
-        '
-        'txtServerName
-        '
-        Me.txtServerName.Location = New System.Drawing.Point(169, 15)
-        Me.txtServerName.Name = "txtServerName"
-        Me.txtServerName.Size = New System.Drawing.Size(418, 20)
-        Me.txtServerName.StyleController = Me.LayoutControl1
-        Me.txtServerName.TabIndex = 4
-        '
-        'txtUserName
-        '
-        Me.txtUserName.Location = New System.Drawing.Point(169, 45)
-        Me.txtUserName.Name = "txtUserName"
-        Me.txtUserName.Size = New System.Drawing.Size(127, 20)
-        Me.txtUserName.StyleController = Me.LayoutControl1
-        Me.txtUserName.TabIndex = 5
-        '
-        'txtPassword
-        '
-        Me.txtPassword.Location = New System.Drawing.Point(460, 45)
-        Me.txtPassword.Name = "txtPassword"
-        Me.txtPassword.Size = New System.Drawing.Size(127, 20)
-        Me.txtPassword.StyleController = Me.LayoutControl1
-        Me.txtPassword.TabIndex = 6
-        '
-        'cmbDatabase
-        '
-        Me.cmbDatabase.Location = New System.Drawing.Point(169, 75)
-        Me.cmbDatabase.Name = "cmbDatabase"
-        Me.cmbDatabase.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)})
-        Me.cmbDatabase.Size = New System.Drawing.Size(418, 20)
-        Me.cmbDatabase.StyleController = Me.LayoutControl1
-        Me.cmbDatabase.TabIndex = 7
-        '
-        'txtConnectionString
-        '
-        Me.txtConnectionString.Location = New System.Drawing.Point(169, 137)
-        Me.txtConnectionString.Name = "txtConnectionString"
-        Me.txtConnectionString.Properties.ReadOnly = True
-        Me.txtConnectionString.Size = New System.Drawing.Size(418, 20)
-        Me.txtConnectionString.StyleController = Me.LayoutControl1
-        Me.txtConnectionString.TabIndex = 9
-        '
-        'chkWinAuth
-        '
-        Me.chkWinAuth.Location = New System.Drawing.Point(17, 107)
-        Me.chkWinAuth.Name = "chkWinAuth"
-        Me.chkWinAuth.Properties.Caption = "Windows Authentifizierung"
-        Me.chkWinAuth.Size = New System.Drawing.Size(568, 18)
-        Me.chkWinAuth.StyleController = Me.LayoutControl1
-        Me.chkWinAuth.TabIndex = 10
-        '
-        'LayoutControlItem1
-        '
-        Me.LayoutControlItem1.Control = Me.txtServerName
-        Me.LayoutControlItem1.Location = New System.Drawing.Point(0, 0)
-        Me.LayoutControlItem1.Name = "LayoutControlItem1"
-        Me.LayoutControlItem1.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5)
-        Me.LayoutControlItem1.Size = New System.Drawing.Size(582, 30)
-        Me.LayoutControlItem1.Text = "Server Name:"
-        Me.LayoutControlItem1.TextSize = New System.Drawing.Size(142, 13)
-        '
-        'LayoutControlItem2
-        '
-        Me.LayoutControlItem2.Control = Me.txtUserName
-        Me.LayoutControlItem2.Location = New System.Drawing.Point(0, 30)
-        Me.LayoutControlItem2.Name = "LayoutControlItem2"
-        Me.LayoutControlItem2.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5)
-        Me.LayoutControlItem2.Size = New System.Drawing.Size(291, 30)
-        Me.LayoutControlItem2.Text = "Benutzername:"
-        Me.LayoutControlItem2.TextSize = New System.Drawing.Size(142, 13)
-        '
-        'LayoutControlItem4
-        '
-        Me.LayoutControlItem4.Control = Me.cmbDatabase
-        Me.LayoutControlItem4.Location = New System.Drawing.Point(0, 60)
-        Me.LayoutControlItem4.Name = "LayoutControlItem4"
-        Me.LayoutControlItem4.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5)
-        Me.LayoutControlItem4.Size = New System.Drawing.Size(582, 30)
-        Me.LayoutControlItem4.Text = "Datenbank:"
-        Me.LayoutControlItem4.TextSize = New System.Drawing.Size(142, 13)
-        '
-        'LayoutControlItem3
-        '
-        Me.LayoutControlItem3.Control = Me.txtPassword
-        Me.LayoutControlItem3.Location = New System.Drawing.Point(291, 30)
-        Me.LayoutControlItem3.Name = "LayoutControlItem3"
-        Me.LayoutControlItem3.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5)
-        Me.LayoutControlItem3.Size = New System.Drawing.Size(291, 30)
-        Me.LayoutControlItem3.Text = "Passwort:"
-        Me.LayoutControlItem3.TextSize = New System.Drawing.Size(142, 13)
-        '
-        'LayoutControlItem7
-        '
-        Me.LayoutControlItem7.Control = Me.chkWinAuth
-        Me.LayoutControlItem7.Location = New System.Drawing.Point(0, 90)
-        Me.LayoutControlItem7.Name = "LayoutControlItem7"
-        Me.LayoutControlItem7.Size = New System.Drawing.Size(582, 32)
-        Me.LayoutControlItem7.Spacing = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5)
-        Me.LayoutControlItem7.TextSize = New System.Drawing.Size(0, 0)
-        Me.LayoutControlItem7.TextVisible = False
-        '
-        'LayoutControlItem6
-        '
-        Me.LayoutControlItem6.Control = Me.txtConnectionString
-        Me.LayoutControlItem6.Location = New System.Drawing.Point(0, 122)
-        Me.LayoutControlItem6.Name = "LayoutControlItem6"
-        Me.LayoutControlItem6.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5)
-        Me.LayoutControlItem6.Size = New System.Drawing.Size(582, 30)
-        Me.LayoutControlItem6.Text = "Aktueller Connectionstring:"
-        Me.LayoutControlItem6.TextSize = New System.Drawing.Size(142, 13)
-        '
-        'frmConfigDatabase
-        '
-        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
-        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(602, 221)
-        Me.Controls.Add(Me.LayoutControl1)
-        Me.Name = "frmConfigDatabase"
-        Me.Text = "Datenbank Verbindung"
-        CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.LayoutControl1.ResumeLayout(False)
-        CType(Me.LayoutControlGroup1, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.LayoutControlItem5, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.EmptySpaceItem2, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.txtServerName.Properties, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.txtUserName.Properties, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.txtPassword.Properties, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.cmbDatabase.Properties, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.txtConnectionString.Properties, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.chkWinAuth.Properties, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.LayoutControlItem4, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.LayoutControlItem7, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.LayoutControlItem6, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.ResumeLayout(False)
-
-    End Sub
-
-    Friend WithEvents LayoutControl1 As DevExpress.XtraLayout.LayoutControl
-    Friend WithEvents LayoutControlGroup1 As DevExpress.XtraLayout.LayoutControlGroup
-    Friend WithEvents txtServerName As DevExpress.XtraEditors.TextEdit
-    Friend WithEvents txtUserName As DevExpress.XtraEditors.TextEdit
-    Friend WithEvents txtPassword As DevExpress.XtraEditors.TextEdit
-    Friend WithEvents cmbDatabase As DevExpress.XtraEditors.ComboBoxEdit
-    Friend WithEvents btnTestConnection As DevExpress.XtraEditors.SimpleButton
-    Friend WithEvents txtConnectionString As DevExpress.XtraEditors.TextEdit
-    Friend WithEvents chkWinAuth As DevExpress.XtraEditors.CheckEdit
-    Friend WithEvents LayoutControlItem1 As DevExpress.XtraLayout.LayoutControlItem
-    Friend WithEvents LayoutControlItem2 As DevExpress.XtraLayout.LayoutControlItem
-    Friend WithEvents LayoutControlItem4 As DevExpress.XtraLayout.LayoutControlItem
-    Friend WithEvents LayoutControlItem3 As DevExpress.XtraLayout.LayoutControlItem
-    Friend WithEvents LayoutControlItem7 As DevExpress.XtraLayout.LayoutControlItem
-    Friend WithEvents LayoutControlItem6 As DevExpress.XtraLayout.LayoutControlItem
-    Friend WithEvents LayoutControlItem5 As DevExpress.XtraLayout.LayoutControlItem
-    Friend WithEvents EmptySpaceItem2 As DevExpress.XtraLayout.EmptySpaceItem
-End Class

GUIs.ZooFlow/frmConfigDatabase.resx

@@ -1,120 +0,0 @@
-<?xml version="1.0" encoding="utf-8"?>
-<root>
-  <!-- 
-    Microsoft ResX Schema 
-    
-    Version 2.0
-    
-    The primary goals of this format is to allow a simple XML format 
-    that is mostly human readable. The generation and parsing of the 
-    various data types are done through the TypeConverter classes 
-    associated with the data types.
-    
-    Example:
-    
-    ... ado.net/XML headers & schema ...
-    <resheader name="resmimetype">text/microsoft-resx</resheader>
-    <resheader name="version">2.0</resheader>
-    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
-    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
-    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
-    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
-    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
-        <value>[base64 mime encoded serialized .NET Framework object]</value>
-    </data>
-    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
-        <comment>This is a comment</comment>
-    </data>
-                
-    There are any number of "resheader" rows that contain simple 
-    name/value pairs.
-    
-    Each data row contains a name, and value. The row also contains a 
-    type or mimetype. Type corresponds to a .NET class that support 
-    text/value conversion through the TypeConverter architecture. 
-    Classes that don't support this are serialized and stored with the 
-    mimetype set.
-    
-    The mimetype is used for serialized objects, and tells the 
-    ResXResourceReader how to depersist the object. This is currently not 
-    extensible. For a given mimetype the value must be set accordingly:
-    
-    Note - application/x-microsoft.net.object.binary.base64 is the format 
-    that the ResXResourceWriter will generate, however the reader can 
-    read any of the formats listed below.
-    
-    mimetype: application/x-microsoft.net.object.binary.base64
-    value   : The object must be serialized with 
-            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
-            : and then encoded with base64 encoding.
-    
-    mimetype: application/x-microsoft.net.object.soap.base64
-    value   : The object must be serialized with 
-            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
-            : and then encoded with base64 encoding.
-
-    mimetype: application/x-microsoft.net.object.bytearray.base64
-    value   : The object must be serialized into a byte array 
-            : using a System.ComponentModel.TypeConverter
-            : and then encoded with base64 encoding.
-    -->
-  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
-    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
-    <xsd:element name="root" msdata:IsDataSet="true">
-      <xsd:complexType>
-        <xsd:choice maxOccurs="unbounded">
-          <xsd:element name="metadata">
-            <xsd:complexType>
-              <xsd:sequence>
-                <xsd:element name="value" type="xsd:string" minOccurs="0" />
-              </xsd:sequence>
-              <xsd:attribute name="name" use="required" type="xsd:string" />
-              <xsd:attribute name="type" type="xsd:string" />
-              <xsd:attribute name="mimetype" type="xsd:string" />
-              <xsd:attribute ref="xml:space" />
-            </xsd:complexType>
-          </xsd:element>
-          <xsd:element name="assembly">
-            <xsd:complexType>
-              <xsd:attribute name="alias" type="xsd:string" />
-              <xsd:attribute name="name" type="xsd:string" />
-            </xsd:complexType>
-          </xsd:element>
-          <xsd:element name="data">
-            <xsd:complexType>
-              <xsd:sequence>
-                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
-                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
-              </xsd:sequence>
-              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
-              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
-              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
-              <xsd:attribute ref="xml:space" />
-            </xsd:complexType>
-          </xsd:element>
-          <xsd:element name="resheader">
-            <xsd:complexType>
-              <xsd:sequence>
-                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
-              </xsd:sequence>
-              <xsd:attribute name="name" type="xsd:string" use="required" />
-            </xsd:complexType>
-          </xsd:element>
-        </xsd:choice>
-      </xsd:complexType>
-    </xsd:element>
-  </xsd:schema>
-  <resheader name="resmimetype">
-    <value>text/microsoft-resx</value>
-  </resheader>
-  <resheader name="version">
-    <value>2.0</value>
-  </resheader>
-  <resheader name="reader">
-    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </resheader>
-  <resheader name="writer">
-    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </resheader>
-</root>

GUIs.ZooFlow/frmConfigDatabase.vb

@@ -1,118 +0,0 @@
-Imports DigitalData.Modules.Database
-Imports DigitalData.Modules.Encryption
-Imports DigitalData.Modules.Filesystem
-Imports DigitalData.Modules.Logging
-
-Public Class frmConfigDatabase
-    Private Const STRING_CONNECTION_SUCCESSFUL = "Die Verbindung wurde erfolgreich aufgebaut!" & vbNewLine & "Möchten Sie diese Verbindung nun in der Anwendung speichern?"
-
-    Private Logger As Logger = My.LogConfig.GetLogger()
-
-    Private Sub frmConfigDatabase_Load(sender As Object, e As EventArgs) Handles MyBase.Load
-        Dim oConnectionString = My.SystemConfig.ConnectionString
-
-        If Not oConnectionString = String.Empty Then
-            Dim oBuilder = My.SystemConfig.GetConnectionStringBuilder(oConnectionString)
-
-            If oBuilder Is Nothing Then
-                MsgBox("Connection String ist ungültig!", MsgBoxStyle.Critical)
-                Exit Sub
-            End If
-
-            If oConnectionString.Contains("Trusted") Then
-                chkWinAuth.Checked = True
-                txtConnectionString.Text = oConnectionString
-            Else
-                chkWinAuth.Checked = False
-                txtConnectionString.Text = oConnectionString.Replace(oBuilder.Password, "XXXXXX")
-                txtUserName.Text = oBuilder.UserID
-            End If
-
-            txtServerName.Text = oBuilder.DataSource
-            cmbDatabase.Text = oBuilder.InitialCatalog
-        End If
-    End Sub
-
-    Private Sub chkWinAuth_CheckedChanged(sender As Object, e As EventArgs) Handles chkWinAuth.CheckedChanged
-        txtPassword.Enabled = Not chkWinAuth.Checked
-        txtUserName.Enabled = Not chkWinAuth.Checked
-    End Sub
-
-    Private Sub cmbDatabase_Click(sender As Object, e As EventArgs) Handles cmbDatabase.Click
-        Cursor = Cursors.WaitCursor
-
-        Dim oConnectionString As String = GetConnectionString(False)
-        Dim oDatabase As New MSSQLServer(My.LogConfig, oConnectionString)
-
-        If oDatabase.DBInitialized = False Then
-            MsgBox("Verbindung fehlgeschlagen!", MsgBoxStyle.Critical, Text)
-            Exit Sub
-        End If
-
-        Try
-            Using oConnection = New SqlClient.SqlConnection(oConnectionString)
-                oConnection.Open()
-                Using oCommand As New SqlClient.SqlCommand("sp_databases", oConnection)
-                    Using oReader As SqlClient.SqlDataReader = oCommand.ExecuteReader
-                        If oReader.HasRows Then
-                            cmbDatabase.Properties.Items.Clear()
-
-                            Do While oReader.Read
-                                cmbDatabase.Properties.Items.Add(oReader("Database_Name"))
-                            Loop
-                            cmbDatabase.ShowPopup()
-                        Else
-                            MsgBox("The standard-databases could not be retrieved. The default database will be set!" & vbNewLine & "Check rights in sql-server for user: " & Me.txtUserName.Text, MsgBoxStyle.Exclamation)
-                        End If
-                    End Using
-                End Using
-            End Using
-
-        Catch ex As Exception
-            Logger.Error(ex)
-        End Try
-
-        Cursor = Cursors.Default
-    End Sub
-
-    Private Function GetConnectionString(WithDatabase As Boolean) As String
-        Dim oConnectionString As String
-
-        If chkWinAuth.Checked Then
-            oConnectionString = $"Data Source={txtServerName.Text};Trusted_Connection=True;"
-        Else
-            oConnectionString = $"Server={txtServerName.Text};User Id={txtUserName.Text};Password={txtPassword.Text};"
-        End If
-
-        If WithDatabase Then
-            oConnectionString &= $"Database={cmbDatabase.Text};"
-        End If
-
-        Return oConnectionString
-    End Function
-
-    Private Sub btnTestConnection_Click(sender As Object, e As EventArgs) Handles btnTestConnection.Click
-        Try
-            Dim oConnectionString = GetConnectionString(True)
-
-            Using oConnection As New SqlClient.SqlConnection(oConnectionString)
-                oConnection.Open()
-                oConnection.Close()
-            End Using
-
-            Dim oResult = MessageBox.Show(STRING_CONNECTION_SUCCESSFUL, Text, MessageBoxButtons.YesNo, MessageBoxIcon.Question)
-
-            If oResult = DialogResult.Yes Then
-                Dim oCrypt As New EncryptionLegacy()
-                Dim oEncryptedPassword = oCrypt.EncryptData(txtPassword.Text)
-                Dim oEncryptedConnectionString = $"Server={txtServerName.Text};Database={cmbDatabase.Text};User Id={txtUserName.Text};Password={oEncryptedPassword};"
-
-                My.SystemConfig.ConnectionString = oEncryptedConnectionString
-                My.SystemConfigManager.Save()
-            End If
-        Catch ex As Exception
-            Logger.Error(ex)
-            MsgBox("Error while connecting to Database", MsgBoxStyle.Critical, Text)
-        End Try
-    End Sub
-End Class

GUIs.ZooFlow/frmFlowForm.Designer.vb

@@ -26,9 +26,8 @@ Partial Class frmFlowForm
     <System.Diagnostics.DebuggerStepThrough()>
     Private Sub InitializeComponent()
         Me.components = New System.ComponentModel.Container()
-        Dim SplashScreenManager As DevExpress.XtraSplashScreen.SplashScreenManager = New DevExpress.XtraSplashScreen.SplashScreenManager(Me, Nothing, True, True)
+        Dim SplashScreenManager As DevExpress.XtraSplashScreen.SplashScreenManager = New DevExpress.XtraSplashScreen.SplashScreenManager(Me, GetType(Global.DigitalData.GUIs.ZooFlow.frmSplash), True, True)
         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmFlowForm))
-        Dim SnapOptions1 As DevExpress.Utils.Controls.SnapOptions = New DevExpress.Utils.Controls.SnapOptions()
         Me.NotifyIcon = New System.Windows.Forms.NotifyIcon(Me.components)
         Me.ContextMenuSystray = New System.Windows.Forms.ContextMenuStrip(Me.components)
         Me.GlobixToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
@@ -47,39 +46,43 @@ Partial Class frmFlowForm
         Me.PictureBoxAbo = New System.Windows.Forms.PictureBox()
         Me.PictureBoxPM1 = New DevExpress.XtraEditors.SvgImageBox()
         Me.PictureBoxDragDrop = New System.Windows.Forms.PictureBox()
-        Me.TimerCheckActiveForms = New System.Windows.Forms.Timer(Me.components)
         Me.TimerFolderwatch = New System.Windows.Forms.Timer(Me.components)
-        Me.ToastNotificationsManager1 = New DevExpress.XtraBars.ToastNotifications.ToastNotificationsManager(Me.components)
-        Me.BehaviorManager1 = New DevExpress.Utils.Behaviors.BehaviorManager(Me.components)
         Me.pnlQuicksearch1 = New System.Windows.Forms.Panel()
         Me.PictureEdit1 = New DevExpress.XtraEditors.PictureEdit()
         Me.TextEdit1 = New DevExpress.XtraEditors.TextEdit()
         Me.lblQuicksearch1 = New DevExpress.XtraEditors.LabelControl()
-        Me.MenuStrip1 = New System.Windows.Forms.MenuStrip()
-        Me.ToolStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem()
-        Me.ZooflowBeendenToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
-        Me.NeustartZooflowToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
-        Me.AppServiceToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
-        Me.DatenbankverbindungToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
-        Me.GrundeinstellungenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.PictureBoxGlobix1 = New DevExpress.XtraEditors.SvgImageBox()
         Me.PictureBoxSearch1 = New DevExpress.XtraEditors.SvgImageBox()
         Me.Panel1 = New System.Windows.Forms.Panel()
         Me.PopupMenu1 = New DevExpress.XtraBars.PopupMenu(Me.components)
+        Me.BarManager1 = New DevExpress.XtraBars.BarManager(Me.components)
+        Me.Bar3 = New DevExpress.XtraBars.Bar()
+        Me.BarSubItem1 = New DevExpress.XtraBars.BarSubItem()
+        Me.BarButtonItem6 = New DevExpress.XtraBars.BarButtonItem()
+        Me.BarButtonItem7 = New DevExpress.XtraBars.BarButtonItem()
+        Me.BarButtonItem8 = New DevExpress.XtraBars.BarButtonItem()
+        Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem()
+        Me.buttonExitZooflow = New DevExpress.XtraBars.BarButtonItem()
+        Me.barDockControlTop = New DevExpress.XtraBars.BarDockControl()
+        Me.barDockControlBottom = New DevExpress.XtraBars.BarDockControl()
+        Me.barDockControlLeft = New DevExpress.XtraBars.BarDockControl()
+        Me.barDockControlRight = New DevExpress.XtraBars.BarDockControl()
+        Me.BarButtonItem2 = New DevExpress.XtraBars.BarButtonItem()
+        Me.BarButtonItem3 = New DevExpress.XtraBars.BarButtonItem()
+        Me.BarButtonItem4 = New DevExpress.XtraBars.BarButtonItem()
+        Me.BarButtonItem5 = New DevExpress.XtraBars.BarButtonItem()
         Me.ContextMenuSystray.SuspendLayout()
         CType(Me.PictureBoxAbo, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.PictureBoxPM1, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.PictureBoxDragDrop, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.ToastNotificationsManager1, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.BehaviorManager1, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.pnlQuicksearch1.SuspendLayout()
         CType(Me.PictureEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.TextEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
-        Me.MenuStrip1.SuspendLayout()
         CType(Me.PictureBoxGlobix1, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.PictureBoxSearch1, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.Panel1.SuspendLayout()
         CType(Me.PopupMenu1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.BarManager1, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
         'SplashScreenManager
@@ -171,7 +174,7 @@ Partial Class frmFlowForm
         '
         Me.PictureBoxAbo.Cursor = System.Windows.Forms.Cursors.Hand
         Me.PictureBoxAbo.Image = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources._2_ZOO_FLOW_Abo
-        Me.PictureBoxAbo.Location = New System.Drawing.Point(100, 84)
+        Me.PictureBoxAbo.Location = New System.Drawing.Point(121, 84)
         Me.PictureBoxAbo.Name = "PictureBoxAbo"
         Me.PictureBoxAbo.Size = New System.Drawing.Size(40, 36)
         Me.PictureBoxAbo.TabIndex = 11
@@ -207,30 +210,19 @@ Partial Class frmFlowForm
         Me.PictureBoxDragDrop.TabStop = False
         Me.ToolTip1.SetToolTip(Me.PictureBoxDragDrop, "Drag and Drop files here")
         '
-        'TimerCheckActiveForms
-        '
-        Me.TimerCheckActiveForms.Interval = 2000
-        '
         'TimerFolderwatch
         '
         Me.TimerFolderwatch.Interval = 2000
         '
-        'ToastNotificationsManager1
-        '
-        Me.ToastNotificationsManager1.ApplicationId = "0cfaceb0-ea10-45cd-9d70-675bd0dbeaad"
-        Me.ToastNotificationsManager1.Notifications.AddRange(New DevExpress.XtraBars.ToastNotifications.IToastNotificationProperties() {New DevExpress.XtraBars.ToastNotifications.ToastNotification("4df76a4c-3895-4fd4-b255-87c7ff115cad", Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.Flow, "Header - Pellentesque lacinia tellus eget volutpat", "Body - Lorem ipsum dolor sit amet, consectetur adipisicing elit, sed do eiusmod t" &
-                    "empor incididunt ut labore et dolore magna aliqua.", "Body2 - Lorem ipsum dolor sit amet, consectetur adipisicing elit, sed do eiusmod " &
-                    "tempor incididunt ut labore et dolore magna aliqua.", DevExpress.XtraBars.ToastNotifications.ToastNotificationSound.Looping_Alarm4, DevExpress.XtraBars.ToastNotifications.ToastNotificationDuration.[Default], DevExpress.XtraBars.ToastNotifications.ToastNotificationTemplate.Text01)})
-        '
         'pnlQuicksearch1
         '
-        Me.pnlQuicksearch1.BackColor = System.Drawing.Color.Azure
+        Me.pnlQuicksearch1.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(214, Byte), Integer), CType(CType(49, Byte), Integer))
         Me.pnlQuicksearch1.Controls.Add(Me.PictureEdit1)
         Me.pnlQuicksearch1.Controls.Add(Me.TextEdit1)
         Me.pnlQuicksearch1.Controls.Add(Me.lblQuicksearch1)
-        Me.pnlQuicksearch1.Location = New System.Drawing.Point(3, 6)
+        Me.pnlQuicksearch1.Location = New System.Drawing.Point(0, 0)
         Me.pnlQuicksearch1.Name = "pnlQuicksearch1"
-        Me.pnlQuicksearch1.Size = New System.Drawing.Size(196, 67)
+        Me.pnlQuicksearch1.Size = New System.Drawing.Size(202, 73)
         Me.pnlQuicksearch1.TabIndex = 16
         Me.pnlQuicksearch1.Visible = False
         '
@@ -238,7 +230,7 @@ Partial Class frmFlowForm
         '
         Me.PictureEdit1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.PictureEdit1.EditValue = CType(resources.GetObject("PictureEdit1.EditValue"), Object)
-        Me.PictureEdit1.Location = New System.Drawing.Point(164, 29)
+        Me.PictureEdit1.Location = New System.Drawing.Point(161, 33)
         Me.PictureEdit1.Name = "PictureEdit1"
         Me.PictureEdit1.Properties.ShowCameraMenuItem = DevExpress.XtraEditors.Controls.CameraMenuItemVisibility.[Auto]
         Me.PictureEdit1.Properties.SizeMode = DevExpress.XtraEditors.Controls.PictureSizeMode.Zoom
@@ -249,76 +241,25 @@ Partial Class frmFlowForm
         '
         Me.TextEdit1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.TextEdit1.Location = New System.Drawing.Point(3, 29)
+        Me.TextEdit1.Location = New System.Drawing.Point(12, 33)
         Me.TextEdit1.Name = "TextEdit1"
-        Me.TextEdit1.Properties.Appearance.BackColor = System.Drawing.Color.PowderBlue
+        Me.TextEdit1.Properties.Appearance.BackColor = System.Drawing.Color.White
         Me.TextEdit1.Properties.Appearance.Font = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.TextEdit1.Properties.Appearance.Options.UseBackColor = True
         Me.TextEdit1.Properties.Appearance.Options.UseFont = True
-        Me.TextEdit1.Size = New System.Drawing.Size(190, 28)
+        Me.TextEdit1.Size = New System.Drawing.Size(149, 28)
         Me.TextEdit1.TabIndex = 1
         '
         'lblQuicksearch1
         '
         Me.lblQuicksearch1.Appearance.Font = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.lblQuicksearch1.Appearance.Options.UseFont = True
-        Me.lblQuicksearch1.Location = New System.Drawing.Point(3, 3)
+        Me.lblQuicksearch1.Location = New System.Drawing.Point(12, 6)
         Me.lblQuicksearch1.Name = "lblQuicksearch1"
         Me.lblQuicksearch1.Size = New System.Drawing.Size(90, 21)
         Me.lblQuicksearch1.TabIndex = 0
         Me.lblQuicksearch1.Text = "Schnellsuche"
         '
-        'MenuStrip1
-        '
-        Me.MenuStrip1.Dock = System.Windows.Forms.DockStyle.Bottom
-        Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem2})
-        Me.MenuStrip1.Location = New System.Drawing.Point(0, 614)
-        Me.MenuStrip1.Name = "MenuStrip1"
-        Me.MenuStrip1.RenderMode = System.Windows.Forms.ToolStripRenderMode.Professional
-        Me.MenuStrip1.Size = New System.Drawing.Size(202, 24)
-        Me.MenuStrip1.TabIndex = 17
-        Me.MenuStrip1.Text = "MenuStrip1"
-        '
-        'ToolStripMenuItem2
-        '
-        Me.ToolStripMenuItem2.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
-        Me.ToolStripMenuItem2.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ZooflowBeendenToolStripMenuItem1, Me.NeustartZooflowToolStripMenuItem, Me.AppServiceToolStripMenuItem, Me.DatenbankverbindungToolStripMenuItem1, Me.GrundeinstellungenToolStripMenuItem})
-        Me.ToolStripMenuItem2.Image = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.Hamburger_icon_svg
-        Me.ToolStripMenuItem2.Name = "ToolStripMenuItem2"
-        Me.ToolStripMenuItem2.Size = New System.Drawing.Size(28, 20)
-        '
-        'ZooflowBeendenToolStripMenuItem1
-        '
-        Me.ZooflowBeendenToolStripMenuItem1.Image = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.Close_16xLG
-        Me.ZooflowBeendenToolStripMenuItem1.Name = "ZooflowBeendenToolStripMenuItem1"
-        Me.ZooflowBeendenToolStripMenuItem1.Size = New System.Drawing.Size(192, 22)
-        Me.ZooflowBeendenToolStripMenuItem1.Text = "Zooflow beenden"
-        '
-        'NeustartZooflowToolStripMenuItem
-        '
-        Me.NeustartZooflowToolStripMenuItem.Image = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.refresh_16xMD
-        Me.NeustartZooflowToolStripMenuItem.Name = "NeustartZooflowToolStripMenuItem"
-        Me.NeustartZooflowToolStripMenuItem.Size = New System.Drawing.Size(192, 22)
-        Me.NeustartZooflowToolStripMenuItem.Text = "Neustart Zooflow"
-        '
-        'AppServiceToolStripMenuItem
-        '
-        Me.AppServiceToolStripMenuItem.Name = "AppServiceToolStripMenuItem"
-        Me.AppServiceToolStripMenuItem.Size = New System.Drawing.Size(192, 22)
-        Me.AppServiceToolStripMenuItem.Text = "AppService"
-        '
-        'DatenbankverbindungToolStripMenuItem1
-        '
-        Me.DatenbankverbindungToolStripMenuItem1.Name = "DatenbankverbindungToolStripMenuItem1"
-        Me.DatenbankverbindungToolStripMenuItem1.Size = New System.Drawing.Size(192, 22)
-        Me.DatenbankverbindungToolStripMenuItem1.Text = "Datenbankverbindung"
-        '
-        'GrundeinstellungenToolStripMenuItem
-        '
-        Me.GrundeinstellungenToolStripMenuItem.Name = "GrundeinstellungenToolStripMenuItem"
-        Me.GrundeinstellungenToolStripMenuItem.Size = New System.Drawing.Size(192, 22)
-        Me.GrundeinstellungenToolStripMenuItem.Text = "Grundeinstellungen"
-        '
         'PictureBoxGlobix1
         '
         Me.PictureBoxGlobix1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
@@ -359,13 +300,145 @@ Partial Class frmFlowForm
         Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill
         Me.Panel1.Location = New System.Drawing.Point(0, 150)
         Me.Panel1.Name = "Panel1"
-        Me.Panel1.Size = New System.Drawing.Size(202, 464)
+        Me.Panel1.Size = New System.Drawing.Size(202, 462)
         Me.Panel1.TabIndex = 18
         '
         'PopupMenu1
         '
+        Me.PopupMenu1.Manager = Me.BarManager1
         Me.PopupMenu1.Name = "PopupMenu1"
         '
+        'BarManager1
+        '
+        Me.BarManager1.Bars.AddRange(New DevExpress.XtraBars.Bar() {Me.Bar3})
+        Me.BarManager1.DockControls.Add(Me.barDockControlTop)
+        Me.BarManager1.DockControls.Add(Me.barDockControlBottom)
+        Me.BarManager1.DockControls.Add(Me.barDockControlLeft)
+        Me.BarManager1.DockControls.Add(Me.barDockControlRight)
+        Me.BarManager1.Form = Me
+        Me.BarManager1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.BarSubItem1, Me.buttonExitZooflow, Me.BarButtonItem2, Me.BarButtonItem3, Me.BarButtonItem4, Me.BarButtonItem5, Me.BarButtonItem1, Me.BarButtonItem6, Me.BarButtonItem7, Me.BarButtonItem8})
+        Me.BarManager1.MaxItemId = 10
+        Me.BarManager1.StatusBar = Me.Bar3
+        '
+        'Bar3
+        '
+        Me.Bar3.BarAppearance.Normal.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(214, Byte), Integer), CType(CType(49, Byte), Integer))
+        Me.Bar3.BarAppearance.Normal.Options.UseBackColor = True
+        Me.Bar3.BarName = "Statusleiste"
+        Me.Bar3.CanDockStyle = DevExpress.XtraBars.BarCanDockStyle.Bottom
+        Me.Bar3.DockCol = 0
+        Me.Bar3.DockRow = 0
+        Me.Bar3.DockStyle = DevExpress.XtraBars.BarDockStyle.Bottom
+        Me.Bar3.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.BarSubItem1)})
+        Me.Bar3.OptionsBar.AllowQuickCustomization = False
+        Me.Bar3.OptionsBar.DrawBorder = False
+        Me.Bar3.OptionsBar.DrawDragBorder = False
+        Me.Bar3.OptionsBar.UseWholeRow = True
+        Me.Bar3.Text = "Statusleiste"
+        '
+        'BarSubItem1
+        '
+        Me.BarSubItem1.Alignment = DevExpress.XtraBars.BarItemLinkAlignment.Right
+        Me.BarSubItem1.Caption = "Menu"
+        Me.BarSubItem1.Id = 0
+        Me.BarSubItem1.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.scatterchartlabeloptions
+        Me.BarSubItem1.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.BarButtonItem6), New DevExpress.XtraBars.LinkPersistInfo(Me.BarButtonItem7), New DevExpress.XtraBars.LinkPersistInfo(Me.BarButtonItem8), New DevExpress.XtraBars.LinkPersistInfo(Me.BarButtonItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.buttonExitZooflow)})
+        Me.BarSubItem1.Name = "BarSubItem1"
+        Me.BarSubItem1.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph
+        '
+        'BarButtonItem6
+        '
+        Me.BarButtonItem6.Caption = "Dienstkonfiguration"
+        Me.BarButtonItem6.Id = 7
+        Me.BarButtonItem6.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.servermode
+        Me.BarButtonItem6.Name = "BarButtonItem6"
+        '
+        'BarButtonItem7
+        '
+        Me.BarButtonItem7.Caption = "Datenbankkonfiguration"
+        Me.BarButtonItem7.Id = 8
+        Me.BarButtonItem7.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.managedatasource2
+        Me.BarButtonItem7.Name = "BarButtonItem7"
+        '
+        'BarButtonItem8
+        '
+        Me.BarButtonItem8.Caption = "Grundeinstellungen"
+        Me.BarButtonItem8.Id = 9
+        Me.BarButtonItem8.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.properties
+        Me.BarButtonItem8.Name = "BarButtonItem8"
+        '
+        'BarButtonItem1
+        '
+        Me.BarButtonItem1.Caption = "Zooflow neustarten"
+        Me.BarButtonItem1.Id = 6
+        Me.BarButtonItem1.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.actions_refresh
+        Me.BarButtonItem1.Name = "BarButtonItem1"
+        '
+        'buttonExitZooflow
+        '
+        Me.buttonExitZooflow.Caption = "Zooflow beenden"
+        Me.buttonExitZooflow.Id = 1
+        Me.buttonExitZooflow.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.cancel
+        Me.buttonExitZooflow.Name = "buttonExitZooflow"
+        '
+        'barDockControlTop
+        '
+        Me.barDockControlTop.CausesValidation = False
+        Me.barDockControlTop.Dock = System.Windows.Forms.DockStyle.Top
+        Me.barDockControlTop.Location = New System.Drawing.Point(0, 0)
+        Me.barDockControlTop.Manager = Me.BarManager1
+        Me.barDockControlTop.Size = New System.Drawing.Size(202, 0)
+        '
+        'barDockControlBottom
+        '
+        Me.barDockControlBottom.Appearance.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(214, Byte), Integer), CType(CType(49, Byte), Integer))
+        Me.barDockControlBottom.Appearance.Options.UseBackColor = True
+        Me.barDockControlBottom.CausesValidation = False
+        Me.barDockControlBottom.Dock = System.Windows.Forms.DockStyle.Bottom
+        Me.barDockControlBottom.Location = New System.Drawing.Point(0, 612)
+        Me.barDockControlBottom.Manager = Me.BarManager1
+        Me.barDockControlBottom.Size = New System.Drawing.Size(202, 26)
+        '
+        'barDockControlLeft
+        '
+        Me.barDockControlLeft.CausesValidation = False
+        Me.barDockControlLeft.Dock = System.Windows.Forms.DockStyle.Left
+        Me.barDockControlLeft.Location = New System.Drawing.Point(0, 0)
+        Me.barDockControlLeft.Manager = Me.BarManager1
+        Me.barDockControlLeft.Size = New System.Drawing.Size(0, 612)
+        '
+        'barDockControlRight
+        '
+        Me.barDockControlRight.CausesValidation = False
+        Me.barDockControlRight.Dock = System.Windows.Forms.DockStyle.Right
+        Me.barDockControlRight.Location = New System.Drawing.Point(202, 0)
+        Me.barDockControlRight.Manager = Me.BarManager1
+        Me.barDockControlRight.Size = New System.Drawing.Size(0, 612)
+        '
+        'BarButtonItem2
+        '
+        Me.BarButtonItem2.Caption = "BarButtonItem2"
+        Me.BarButtonItem2.Id = 2
+        Me.BarButtonItem2.Name = "BarButtonItem2"
+        '
+        'BarButtonItem3
+        '
+        Me.BarButtonItem3.Caption = "BarButtonItem3"
+        Me.BarButtonItem3.Id = 3
+        Me.BarButtonItem3.Name = "BarButtonItem3"
+        '
+        'BarButtonItem4
+        '
+        Me.BarButtonItem4.Caption = "BarButtonItem4"
+        Me.BarButtonItem4.Id = 4
+        Me.BarButtonItem4.Name = "BarButtonItem4"
+        '
+        'BarButtonItem5
+        '
+        Me.BarButtonItem5.Caption = "BarButtonItem5"
+        Me.BarButtonItem5.Id = 5
+        Me.BarButtonItem5.Name = "BarButtonItem5"
+        '
         'frmFlowForm
         '
         Me.AllowDrop = True
@@ -376,15 +449,16 @@ Partial Class frmFlowForm
         Me.Appearance.Options.UseForeColor = True
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.BehaviorManager1.SetBehaviors(Me, New DevExpress.Utils.Behaviors.Behavior() {CType(DevExpress.Utils.Behaviors.Common.SnapWindowBehavior.Create(GetType(DevExpress.Utils.BehaviorSource.SnapWindowBehaviorSourceForForm), SnapOptions1), DevExpress.Utils.Behaviors.Behavior)})
         Me.ClientSize = New System.Drawing.Size(202, 638)
         Me.Controls.Add(Me.Panel1)
-        Me.Controls.Add(Me.MenuStrip1)
         Me.Controls.Add(Me.PictureBoxDragDrop)
+        Me.Controls.Add(Me.barDockControlLeft)
+        Me.Controls.Add(Me.barDockControlRight)
+        Me.Controls.Add(Me.barDockControlBottom)
+        Me.Controls.Add(Me.barDockControlTop)
         Me.DoubleBuffered = True
         Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
         Me.IconOptions.Image = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.ZOO_FLOW__sysicon_256
-        Me.MainMenuStrip = Me.MenuStrip1
         Me.Name = "frmFlowForm"
         Me.Text = "ZooFlow"
         Me.TopMost = True
@@ -392,18 +466,15 @@ Partial Class frmFlowForm
         CType(Me.PictureBoxAbo, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.PictureBoxPM1, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.PictureBoxDragDrop, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.ToastNotificationsManager1, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.BehaviorManager1, System.ComponentModel.ISupportInitialize).EndInit()
         Me.pnlQuicksearch1.ResumeLayout(False)
         Me.pnlQuicksearch1.PerformLayout()
         CType(Me.PictureEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.TextEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.MenuStrip1.ResumeLayout(False)
-        Me.MenuStrip1.PerformLayout()
         CType(Me.PictureBoxGlobix1, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.PictureBoxSearch1, System.ComponentModel.ISupportInitialize).EndInit()
         Me.Panel1.ResumeLayout(False)
         CType(Me.PopupMenu1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.BarManager1, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
         Me.PerformLayout()
 
@@ -419,30 +490,36 @@ Partial Class frmFlowForm
     Friend WithEvents UserKonfigurationToolStripMenuItem As ToolStripMenuItem
     Friend WithEvents ToolStripSeparator1 As ToolStripSeparator
     Friend WithEvents DatenbankverbindungToolStripMenuItem As ToolStripMenuItem
-    Friend WithEvents TimerCheckActiveForms As Timer
     Friend WithEvents TimerFolderwatch As Timer
     Friend WithEvents GlobixToolStripMenuItem As ToolStripMenuItem
     Friend WithEvents TsiGlobixConfig As ToolStripMenuItem
-    Friend WithEvents ToastNotificationsManager1 As DevExpress.XtraBars.ToastNotifications.ToastNotificationsManager
     Friend WithEvents TestToolStripMenuItem As ToolStripMenuItem
     Friend WithEvents PictureBoxSearch1 As DevExpress.XtraEditors.SvgImageBox
     Friend WithEvents PictureBoxPM1 As DevExpress.XtraEditors.SvgImageBox
     Friend WithEvents PictureBoxGlobix1 As DevExpress.XtraEditors.SvgImageBox
     Friend WithEvents ToolStripSeparator2 As ToolStripSeparator
     Friend WithEvents ToolStripSeparator3 As ToolStripSeparator
-    Friend WithEvents BehaviorManager1 As DevExpress.Utils.Behaviors.BehaviorManager
     Friend WithEvents BasisKonfigurationToolStripMenuItem As ToolStripMenuItem
     Friend WithEvents pnlQuicksearch1 As Panel
     Friend WithEvents PictureEdit1 As PictureEdit
     Friend WithEvents TextEdit1 As TextEdit
     Friend WithEvents lblQuicksearch1 As LabelControl
-    Friend WithEvents MenuStrip1 As MenuStrip
-    Friend WithEvents ToolStripMenuItem2 As ToolStripMenuItem
-    Friend WithEvents DatenbankverbindungToolStripMenuItem1 As ToolStripMenuItem
-    Friend WithEvents GrundeinstellungenToolStripMenuItem As ToolStripMenuItem
-    Friend WithEvents ZooflowBeendenToolStripMenuItem1 As ToolStripMenuItem
-    Friend WithEvents NeustartZooflowToolStripMenuItem As ToolStripMenuItem
-    Friend WithEvents AppServiceToolStripMenuItem As ToolStripMenuItem
     Friend WithEvents Panel1 As Panel
     Friend WithEvents PopupMenu1 As DevExpress.XtraBars.PopupMenu
+    Friend WithEvents BarManager1 As DevExpress.XtraBars.BarManager
+    Friend WithEvents Bar3 As DevExpress.XtraBars.Bar
+    Friend WithEvents BarSubItem1 As DevExpress.XtraBars.BarSubItem
+    Friend WithEvents buttonExitZooflow As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents barDockControlTop As DevExpress.XtraBars.BarDockControl
+    Friend WithEvents barDockControlBottom As DevExpress.XtraBars.BarDockControl
+    Friend WithEvents barDockControlLeft As DevExpress.XtraBars.BarDockControl
+    Friend WithEvents barDockControlRight As DevExpress.XtraBars.BarDockControl
+    Friend WithEvents BarButtonItem2 As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents BarButtonItem3 As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents BarButtonItem4 As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents BarButtonItem5 As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents BarButtonItem1 As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents BarButtonItem6 As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents BarButtonItem7 As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents BarButtonItem8 As DevExpress.XtraBars.BarButtonItem
 End Class

GUIs.ZooFlow/frmFlowForm.resx

@@ -1962,17 +1962,8 @@
   <metadata name="ToolTip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>610, 17</value>
   </metadata>
-  <metadata name="TimerCheckActiveForms.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>709, 17</value>
-  </metadata>
   <metadata name="TimerFolderwatch.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>891, 17</value>
+    <value>709, 17</value>
-  </metadata>
-  <metadata name="ToastNotificationsManager1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>1040, 17</value>
-  </metadata>
-  <metadata name="BehaviorManager1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>17, 56</value>
   </metadata>
   <assembly alias="DevExpress.Data.v21.2" name="DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
   <data name="PictureEdit1.EditValue" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
@@ -2001,10 +1992,10 @@
         QmxhY2siIC8+DQogIDwvZz4NCjwvc3ZnPgs=
 </value>
   </data>
-  <metadata name="MenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>171, 56</value>
-  </metadata>
   <metadata name="PopupMenu1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>286, 56</value>
+    <value>858, 17</value>
+  </metadata>
+  <metadata name="BarManager1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>983, 17</value>
   </metadata>
 </root>

GUIs.ZooFlow/frmFlowForm.vb

@@ -14,6 +14,9 @@ Imports DigitalData.Modules.Windows
 Imports DigitalData.Modules.ZooFlow
 Imports DigitalData.GUIs.Common.Base
 Imports DigitalData.GUIs.Common
+Imports DigitalData.Controls.SQLConfig
+Imports DigitalData.Modules.Language
+Imports DevExpress.LookAndFeel
 
 Public Class frmFlowForm
 #Region "Sidebar DllImport"
@@ -163,7 +166,7 @@ Public Class frmFlowForm
     Private ClassWindow As Window
     Private ProfileFilter As ProfileFilter
     Private ProfileLoader As ClassProfileLoader
-    Private _Environment As Environment
+    Private Property _Environment As Environment
 
     ' Runtime Flags
     Private ApplicationLoading As Boolean = True
@@ -187,7 +190,6 @@ Public Class frmFlowForm
         Init = New ClassInit(My.LogConfig, Me)
         AddHandler Init.Completed, AddressOf Init_Completed
         Init.InitializeApplication()
-        _Environment = My.Application.GetEnvironment
 
         ' === Register Sidebar ===
         RegisterBar(ABEdge.ABE_RIGHT)
@@ -204,6 +206,8 @@ Public Class frmFlowForm
         ApplicationLoading = False
         SplashScreenManager.CloseForm(False)
 
+        _Environment = My.Application.GetEnvironment()
+
         ' === Initialize Error Handler ===
         Logger = My.LogConfig.GetLogger()
         ErrorHandler = New BaseErrorHandler(My.LogConfig, Logger, Me)
@@ -491,15 +495,10 @@ Public Class frmFlowForm
     End Sub
 
     Private Sub VerwaltungToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VerwaltungToolStripMenuItem.Click
-        Me.Cursor = Cursors.WaitCursor
+        Cursor = Cursors.WaitCursor
         AdminForm = New frmAdmin_Start()
-
+        AdminForm.Show()
-        frmAdmin_Start.Show()
+        Cursor = Cursors.Default
-        If TimerCheckActiveForms.Enabled = False Then
-            TimerCheckActiveForms.Enabled = True
-        End If
-
-        Me.Cursor = Cursors.Default
     End Sub
 
     Private Sub frmFlowForm_DragEnter(sender As Object, e As DragEventArgs) Handles MyBase.DragEnter
@@ -558,7 +557,29 @@ Public Class frmFlowForm
     End Function
 
     Private Sub DatenbankverbindungToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DatenbankverbindungToolStripMenuItem.Click
-        frmConfigDatabase.ShowDialog()
+        Dim oForm As New frmSQLConfig(My.LogConfig) With {
+            .ConnectionString = My.SystemConfig.ConnectionString,
+            .FormTitle = "ECM Datenbank"
+        }
+        Dim oResult = oForm.ShowDialog()
+
+        If oResult = DialogResult.OK Then
+            My.SystemConfig.ConnectionString = oForm.ConnectionString
+            My.SystemConfigManager.Save()
+        End If
+    End Sub
+
+    Private Sub DatenbankverbindungToolStripMenuItem1_Click(sender As Object, e As EventArgs)
+        Dim oForm As New frmSQLConfig(My.LogConfig) With {
+            .ConnectionString = My.SystemConfig.ConnectionString,
+            .FormTitle = "ECM Datenbank"
+        }
+        Dim oResult = oForm.ShowDialog()
+
+        If oResult = DialogResult.OK Then
+            My.SystemConfig.ConnectionString = oForm.ConnectionString
+            My.SystemConfigManager.Save()
+        End If
     End Sub
 
     Private Sub NotifyIcon_DoubleClick(sender As Object, e As EventArgs) Handles NotifyIcon.DoubleClick
@@ -911,40 +932,40 @@ Public Class frmFlowForm
 
         oState.CurrentClipboardContents = ClipboardContents
 
-        If oState.MonitoringActive = False Then
+        'If oState.MonitoringActive = False Then
-            Dim oMessage As String = "Clipboard Watcher is not active!"
+        '    Dim oMessage As String = "Clipboard Watcher is not active!"
-            Logger.Warn(oMessage)
+        '    Logger.Warn(oMessage)
 
-            Exit Sub
+        '    Exit Sub
-        End If
+        'End If
 
-        If oState.UserProfiles Is Nothing Then
+        'If oState.UserProfiles Is Nothing Then
-            Dim oMessage As String = "User Profiles are empty!"
+        '    Dim oMessage As String = "User Profiles are empty!"
-            Logger.Warn(oMessage)
+        '    Logger.Warn(oMessage)
 
-            Exit Sub
+        '    Exit Sub
-        End If
+        'End If
 
-        If oState.ProfileProcesses Is Nothing OrElse oState.ProfileProcesses.Rows.Count = 0 Then
+        'If oState.ProfileProcesses Is Nothing OrElse oState.ProfileProcesses.Rows.Count = 0 Then
-            Dim oMessage As String = "Profile Processes are empty!"
+        '    Dim oMessage As String = "Profile Processes are empty!"
-            Logger.Warn(oMessage)
+        '    Logger.Warn(oMessage)
 
-            Exit Sub
+        '    Exit Sub
-        End If
+        'End If
 
-        If oState.ProfileWindows Is Nothing OrElse oState.ProfileWindows.Rows.Count = 0 Then
+        'If oState.ProfileWindows Is Nothing OrElse oState.ProfileWindows.Rows.Count = 0 Then
-            Dim oMessage As String = "Profile Windows are empty!"
+        '    Dim oMessage As String = "Profile Windows are empty!"
-            Logger.Warn(oMessage)
+        '    Logger.Warn(oMessage)
 
-            Exit Sub
+        '    Exit Sub
-        End If
+        'End If
 
-        If oState.ProfileControls Is Nothing OrElse oState.ProfileControls.Rows.Count = 0 Then
+        'If oState.ProfileControls Is Nothing OrElse oState.ProfileControls.Rows.Count = 0 Then
-            Dim oMessage As String = "Profile Processes are empty!"
+        '    Dim oMessage As String = "Profile Processes are empty!"
-            Logger.Warn(oMessage)
+        '    Logger.Warn(oMessage)
 
-            Exit Sub
+        '    Exit Sub
-        End If
+        'End If
 
         Dim oWindowInfo = ClassWindow.GetWindowInfo()
 
@@ -961,7 +982,7 @@ Public Class frmFlowForm
 
         Try
             Dim oProfiles = ProfileFilter.Profiles
-            Dim oEnvironment = ClassEnvironment.GetEnvironment()
+            Dim oEnvironment = My.Application.GetEnvironment()
 
             ' Filter by Clipboard Contents
             oProfiles = ProfileFilter.FilterProfilesByClipboardRegex(oProfiles, ClipboardContents)
@@ -995,13 +1016,11 @@ Public Class frmFlowForm
         End Try
     End Sub
 
-    Private Sub HotkeyClass_HotKeyPressed(HotKeyID As String)
+    Private Async Sub HotkeyClass_HotKeyPressed(HotKeyID As String)
         Dim oState = My.Application.ClipboardWatcher
 
         Select Case HotKeyID
             Case HOTKEY_TRIGGER_WATCHER
-                'Animator.Highlight(Cursor.Position)
-
                 If oState.CurrentClipboardContents = String.Empty Then
                     Logger.Info("Current Clipboard Contents is empty. Exiting.")
                     Exit Sub
@@ -1021,10 +1040,21 @@ Public Class frmFlowForm
                 ElseIf oState.CurrentProfilesWithResults.Count = 0 Then
                     NotifyIcon.ShowBalloonTip(NOTIFICATION_DELAY, "ClipboardWatcher", "Es wurden weder Dokumente noch Daten gefunden!", ToolTipIcon.Warning)
 
+                ElseIf oState.CurrentProfilesWithResults.Count = 1 Then
+                    Dim oProfile = oState.CurrentProfilesWithResults.First()
+                    Dim oProfileSearches As New ProfileSearches(My.LogConfig, My.Application.GetEnvironment(), oState.CurrentClipboardContents)
+                    Dim oFormTitle = GetResultWindowString(oState.CurrentClipboardContents)
+
+                    ' For now we assume these are document results instead of data results
+                    Dim oForm = Await oProfileSearches.GetDocResultForm(oProfile, oFormTitle, Modules.ZooFlow.Constants.OperationMode.ZooFlow)
+                    AddHandler oForm.NeedsRefresh, AddressOf ProfileResultForm_NeedsRefresh
+                    oForm.Show()
+
                 Else
+
                     Dim oProfiles = oState.CurrentProfilesWithResults
                     Dim oEnvironment = My.Application.GetEnvironment()
-                    Dim oParams As New DigitalData.Modules.ZooFlow.ClipboardWatcherParams With {
+                    Dim oParams As New ClipboardWatcherParams With {
                         .ClipboardContents = oState.CurrentClipboardContents,
                         .MatchingProfiles = oProfiles,
                         .MatchTreeView = oState.MatchTreeView,
@@ -1050,8 +1080,23 @@ Public Class frmFlowForm
         End Select
     End Sub
 
-    Private Sub PictureBoxPM1_Click(sender As Object, e As EventArgs) Handles PictureBoxPM1.Click
+    Private Async Sub ProfileResultForm_NeedsRefresh(sender As Object, e As Integer)
-        ToastNotificationsManager1.ShowNotification(ToastNotificationsManager1.Notifications(1))
+        Dim oThisForm As IResultForm = sender
+        Dim oState = My.Application.ClipboardWatcher
+        Dim oProfileSearch As New ProfileSearches(My.LogConfig, _Environment, oState.CurrentClipboardContents)
+
+        If TypeOf sender Is frmDocumentResultList Then
+            Dim oProfileId = e
+            Dim oSearches = Await oProfileSearch.LoadDocumentSearchesAsync(oProfileId)
+            Dim oResults = oSearches.Select(Function(search)
+                                                Return New DocumentResultList.DocumentResult() With {
+                                                    .Title = search.TabCaption,
+                                                    .Datatable = search.DataTable
+                                                }
+                                            End Function).ToList()
+
+            oThisForm.RefreshResults(oResults)
+        End If
     End Sub
 
     Private Sub TestToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles TestToolStripMenuItem.Click
@@ -1059,15 +1104,11 @@ Public Class frmFlowForm
 
     End Sub
 
-
-
     Private Sub BasisKonfigurationToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BasisKonfigurationToolStripMenuItem.Click
         frmConfigBasic.ShowDialog()
         Quicksearch1(True)
     End Sub
 
-
-
     Private Sub ShowErrorMessage(pEx As Exception)
         Dim oCallingClass = LogConfig.GetClassFullName(IncludeMethodNames:=True, Parts:=2)
         ErrorHandler.ShowErrorMessage(pEx, oCallingClass)
@@ -1081,35 +1122,35 @@ Public Class frmFlowForm
             Else
                 Return $"Search For '{SearchContent}'"
             End If
+        Else
+            Return String.Empty
         End If
-
-
     End Function
-    Sub RunQuickSearch1()
+
+    Async Function RunQuickSearch1(pSearchText As String) As Threading.Tasks.Task
+        Dim oHandle = SplashScreenManager.ShowOverlayForm(Me)
+
         Try
-            Dim oSQL = $"EXEC PRIDB_SEARCH_TEXT_GET_RESULTS {My.Application.User.UserId},'{TextEdit1.Text}',''"
+            Dim oSQL = $"EXEC PRIDB_SEARCH_TEXT_GET_RESULTS {My.Application.User.UserId},'{pSearchText}',''"
-
             Dim oParams = New DocumentResultList.Params() With {
-           .WindowGuid = "QuickFlowSearch1",
+               .WindowGuid = "QuickFlowSearch1",
-           .WindowTitle = GetResultWindowString(TextEdit1.Text),
+               .WindowTitle = GetResultWindowString(pSearchText),
-           .OperationModeOverride = Modules.ZooFlow.Constants.OperationMode.ZooFlow,
+               .OperationModeOverride = Modules.ZooFlow.Constants.OperationMode.ZooFlow,
-           .ProfileGuid = 354521
+               .ProfileGuid = 354521
-       }
+            }
 
+            If Await My.Database.ExecuteNonQueryIDBAsync(oSQL) = True Then
+                Dim oDTDocResult = Await My.Database.GetDatatableIDBAsync(DocResultBaseSearch)
 
-            If My.DatabaseIDB.ExecuteNonQuery(oSQL) = True Then
-                Dim oDTDocResult = My.DatabaseIDB.GetDatatable(DocResultBaseSearch)
                 If oDTDocResult.Rows.Count > 0 Then
                     Logger.Debug($"Quicksearch1 got {oDTDocResult.Rows.Count} results")
                     oParams.Results.Add(New DocumentResultList.DocumentResult() With {
-                              .Title = GetResultWindowString(TextEdit1.Text),
+                        .Title = GetResultWindowString(pSearchText),
-                                .Datatable = oDTDocResult})
+                        .Datatable = oDTDocResult
+                    })
                     Dim oForm As New frmDocumentResultList(My.LogConfig, _Environment, oParams)
-                    'AddHandler oForm.FormClosed, AddressOf ProfileResultForm_Closed
-                    'AddHandler oForm.NeedsRefresh, AddressOf ProfileResultForm_NeedsRefresh
-
-                    'OpenForms.Add(oForm)
                     oForm.Show()
+
                 Else
                     Dim oMessage As String
                     If My.Application.User.Language = "de-DE" Then
@@ -1118,64 +1159,76 @@ Public Class frmFlowForm
                         oMessage = "No results"
                     End If
                     NotifyIcon.ShowBalloonTip(20000, $"Info", oMessage, ToolTipIcon.Info)
+
                 End If
             End If
 
         Catch ex As Exception
             Logger.Error(ex)
             MsgBox("Unhandled exception in RunQuickSearch1: " & ex.Message, MsgBoxStyle.Critical)
+        Finally
+            SplashScreenManager.CloseOverlayForm(oHandle)
         End Try
+    End Function
 
-    End Sub
+    Private Async Sub TextEdit1_KeyUp(sender As Object, e As KeyEventArgs) Handles TextEdit1.KeyUp
-
-    Private Sub TextEdit1_KeyUp(sender As Object, e As KeyEventArgs) Handles TextEdit1.KeyUp
         If e.KeyCode = Keys.Return Then
-            CheckRunSearch1()
+            Await CheckRunSearch1()
         End If
     End Sub
 
 
-    Sub CheckRunSearch1()
+    Async Function CheckRunSearch1() As Threading.Tasks.Task
-        If TextEdit1.Text <> String.Empty Then
+        Dim oSearchText = TextEdit1.Text
-            If TextEdit1.Text = "porn" Then
+
-                NotifyIcon.ShowBalloonTip(20000, $"Info", "Think about Your search term an search again..", ToolTipIcon.Info)
+        If oSearchText <> String.Empty Then
-                Exit Sub
+            'If TextEdit1.Text = "porn" Then
-            End If
+            '    NotifyIcon.ShowBalloonTip(20000, $"Info", "Think about Your search term an search again..", ToolTipIcon.Info)
-            RunQuickSearch1()
+            '    Exit Sub
+            'End If
+            Await RunQuickSearch1(oSearchText)
         End If
-    End Sub
+    End Function
-    Private Sub PictureEdit1_Click(sender As Object, e As EventArgs) Handles PictureEdit1.Click
+    Private Async Function PictureEdit1_Click(sender As Object, e As EventArgs) As Threading.Tasks.Task Handles PictureEdit1.Click
         If TextEdit1.Text = String.Empty Then
             Open_FlowSearch()
-            Exit Sub
+            Return
+
+        Else
+            Await CheckRunSearch1()
+
         End If
 
-        CheckRunSearch1()
+    End Function
-    End Sub
 
-    Private Sub frmFlowForm_Shown(sender As Object, e As EventArgs) Handles Me.Shown
+    Private Sub buttonExitZooflow_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles buttonExitZooflow.ItemClick
-
-    End Sub
-
-    Private Sub GrundeinstellungenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles GrundeinstellungenToolStripMenuItem.Click
-        frmConfigBasic.ShowDialog()
-        Quicksearch1(True)
-    End Sub
-
-    Private Sub DatenbankverbindungToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles DatenbankverbindungToolStripMenuItem1.Click
-        frmConfigDatabase.ShowDialog()
-    End Sub
-
-    Private Sub NeustartZooflowToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NeustartZooflowToolStripMenuItem.Click
-        Application.Restart()
-    End Sub
-
-    Private Sub ZooflowBeendenToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles ZooflowBeendenToolStripMenuItem1.Click
         ExitZooflow()
     End Sub
 
-    Private Sub AppServiceToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AppServiceToolStripMenuItem.Click
+    Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick
+        Application.Restart()
+    End Sub
+
+    Private Sub BarButtonItem6_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem6.ItemClick
         frmServiceConfig.ShowDialog()
     End Sub
+
+    Private Sub BarButtonItem7_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem7.ItemClick
+        Dim oForm As New frmSQLConfig(My.LogConfig) With {
+            .ConnectionString = My.SystemConfig.ConnectionString,
+            .FormTitle = "ECM Datenbank"
+        }
+        Dim oResult = oForm.ShowDialog()
+
+        If oResult = DialogResult.OK Then
+            My.SystemConfig.ConnectionString = oForm.ConnectionString
+            My.SystemConfigManager.Save()
+        End If
+    End Sub
+
+    Private Sub BarButtonItem8_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem8.ItemClick
+        frmConfigBasic.ShowDialog()
+        Quicksearch1(True)
+    End Sub
 End Class
 

GUIs.ZooFlow/frmWaitForm.Designer.vb

@@ -1,83 +0,0 @@
-<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
-Partial Class frmWaitForm
-    Inherits DevExpress.XtraWaitForm.WaitForm
-
-    'Form overrides dispose to clean up the component list.
-    <System.Diagnostics.DebuggerNonUserCode()> _
-    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
-        Try
-            If disposing AndAlso components IsNot Nothing Then
-                components.Dispose()
-            End If
-        Finally
-            MyBase.Dispose(disposing)
-        End Try
-    End Sub
-
-    'Required by the Windows Form Designer
-    Private components As System.ComponentModel.IContainer
-
-    'NOTE: The following procedure is required by the Windows Form Designer
-    'It can be modified using the Windows Form Designer.  
-    'Do not modify it using the code editor.
-    <System.Diagnostics.DebuggerStepThrough()> _
-    Private Sub InitializeComponent()
-        Me.progressPanel1 = New DevExpress.XtraWaitForm.ProgressPanel()
-        Me.tableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel()
-        Me.tableLayoutPanel1.SuspendLayout()
-        Me.SuspendLayout()
-        '
-        'progressPanel1
-        '
-        Me.progressPanel1.Appearance.BackColor = System.Drawing.Color.Transparent
-        Me.progressPanel1.Appearance.Options.UseBackColor = True
-        Me.progressPanel1.AppearanceCaption.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!)
-        Me.progressPanel1.AppearanceCaption.Options.UseFont = True
-        Me.progressPanel1.AppearanceDescription.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!)
-        Me.progressPanel1.AppearanceDescription.Options.UseFont = True
-        Me.progressPanel1.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.progressPanel1.ImageHorzOffset = 20
-        Me.progressPanel1.Location = New System.Drawing.Point(0, 17)
-        Me.progressPanel1.Margin = New System.Windows.Forms.Padding(0, 3, 0, 3)
-        Me.progressPanel1.Name = "progressPanel1"
-        Me.progressPanel1.Size = New System.Drawing.Size(246, 39)
-        Me.progressPanel1.TabIndex = 0
-        Me.progressPanel1.Text = "progressPanel1"
-        ' 
-        'tableLayoutPanel1
-        '
-        Me.tableLayoutPanel1.AutoSize = True
-        Me.tableLayoutPanel1.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
-        Me.tableLayoutPanel1.BackColor = System.Drawing.Color.Transparent
-        Me.tableLayoutPanel1.ColumnCount = 1
-        Me.tableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 100.0!))
-        Me.tableLayoutPanel1.Controls.Add(Me.progressPanel1, 0, 0)
-        Me.tableLayoutPanel1.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.tableLayoutPanel1.Location = New System.Drawing.Point(0, 0)
-        Me.tableLayoutPanel1.Name = "tableLayoutPanel1"
-        Me.tableLayoutPanel1.Padding = New System.Windows.Forms.Padding(0, 14, 0, 14)
-        Me.tableLayoutPanel1.RowCount = 1
-        Me.tableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 100.0!))
-        Me.tableLayoutPanel1.Size = New System.Drawing.Size(246, 73)
-        Me.tableLayoutPanel1.TabIndex = 1
-        '
-        'Form1
-        '
-        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
-        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.AutoSize = True
-        Me.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
-        Me.ClientSize = New System.Drawing.Size(246, 73)
-        Me.Controls.Add(Me.tableLayoutPanel1)
-        Me.DoubleBuffered = True
-        Me.Name = "Form1"
-        Me.StartPosition = FormStartPosition.Manual
-        Me.Text = "Form1"
-        Me.tableLayoutPanel1.ResumeLayout(false)
-        Me.ResumeLayout(False)
-        Me.PerformLayout()
-    End Sub
-
-    Private WithEvents progressPanel1 As DevExpress.XtraWaitForm.ProgressPanel
-    Private WithEvents tableLayoutPanel1 As System.Windows.Forms.TableLayoutPanel
-End Class

GUIs.ZooFlow/frmWaitForm.resx

@@ -1,120 +0,0 @@
-<?xml version="1.0" encoding="utf-8"?>
-<root>
-	<!-- 
-    Microsoft ResX Schema 
-    
-    Version 2.0
-    
-    The primary goals of this format is to allow a simple XML format 
-    that is mostly human readable. The generation and parsing of the 
-    various data types are done through the TypeConverter classes 
-    associated with the data types.
-    
-    Example:
-    
-    ... ado.net/XML headers & schema ...
-    <resheader name="resmimetype">text/microsoft-resx</resheader>
-    <resheader name="version">2.0</resheader>
-    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
-    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
-    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
-    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
-    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
-        <value>[base64 mime encoded serialized .NET Framework object]</value>
-    </data>
-    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
-        <comment>This is a comment</comment>
-    </data>
-                
-    There are any number of "resheader" rows that contain simple 
-    name/value pairs.
-    
-    Each data row contains a name, and value. The row also contains a 
-    type or mimetype. Type corresponds to a .NET class that support 
-    text/value conversion through the TypeConverter architecture. 
-    Classes that don't support this are serialized and stored with the 
-    mimetype set.
-    
-    The mimetype is used for serialized objects, and tells the 
-    ResXResourceReader how to depersist the object. This is currently not 
-    extensible. For a given mimetype the value must be set accordingly:
-    
-    Note - application/x-microsoft.net.object.binary.base64 is the format 
-    that the ResXResourceWriter will generate, however the reader can 
-    read any of the formats listed below.
-    
-    mimetype: application/x-microsoft.net.object.binary.base64
-    value   : The object must be serialized with 
-            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
-            : and then encoded with base64 encoding.
-    
-    mimetype: application/x-microsoft.net.object.soap.base64
-    value   : The object must be serialized with 
-            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
-            : and then encoded with base64 encoding.
-
-    mimetype: application/x-microsoft.net.object.bytearray.base64
-    value   : The object must be serialized into a byte array 
-            : using a System.ComponentModel.TypeConverter
-            : and then encoded with base64 encoding.
-    -->
-	<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
-		<xsd:import namespace="http://www.w3.org/XML/1998/namespace"></xsd:import>
-		<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:element>
-							</xsd:sequence>
-							<xsd:attribute name="name" use="required" type="xsd:string"></xsd:attribute>
-							<xsd:attribute name="type" type="xsd:string"></xsd:attribute>
-							<xsd:attribute name="mimetype" type="xsd:string"></xsd:attribute>
-							<xsd:attribute ref="xml:space"></xsd:attribute>
-						</xsd:complexType>
-					</xsd:element>
-					<xsd:element name="assembly">
-						<xsd:complexType>
-							<xsd:attribute name="alias" type="xsd:string"></xsd:attribute>
-							<xsd:attribute name="name" type="xsd:string"></xsd:attribute>
-						</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>
-								<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2"></xsd:element>
-							</xsd:sequence>
-							<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1"></xsd:attribute>
-							<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3"></xsd:attribute>
-							<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4"></xsd:attribute>
-							<xsd:attribute ref="xml:space"></xsd:attribute>
-						</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:element>
-							</xsd:sequence>
-							<xsd:attribute name="name" type="xsd:string" use="required"></xsd:attribute>
-						</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>
-</root>

GUIs.ZooFlow/frmWaitForm.vb

@@ -1,24 +0,0 @@
-Public Class frmWaitForm
-    Sub New
-        InitializeComponent()
-        Me.progressPanel1.AutoHeight = True
-    End Sub
-
-    Public Overrides Sub SetCaption(ByVal caption As String)
-        MyBase.SetCaption(caption)
-        Me.progressPanel1.Caption = caption
-    End Sub
-
-    Public Overrides Sub SetDescription(ByVal description As String)
-        MyBase.SetDescription(description)
-        Me.progressPanel1.Description = description
-    End Sub
-
-    Public Overrides Sub ProcessCommand(ByVal cmd As System.Enum, ByVal arg As Object)
-        MyBase.ProcessCommand(cmd, arg)
-    End Sub
-
-    Public Enum WaitFormCommand
-        SomeCommandId
-    End Enum
-End Class

GUIs.ZooFlow/modCurrent.vb

@@ -3,7 +3,6 @@ Imports DigitalData.Modules.Logging
 Imports DigitalData.Modules.Config
 
 Module modCurrent
-    Public Property LOGGER As Logger
     Public Property CURR_MISSING_PATTERN_NAME = "Email To"
     Public Property CURR_MISSING_SEARCH_STRING = String.Empty
     Public Property CURR_MISSING_MANUAL_VALUE = String.Empty