ClipboardWatcher: Show Clipboard Text in Document Result

GUIs.ClipboardWatcher/frmMatch.vb

@@ -295,7 +295,8 @@ Public Class frmMatch
         Dim oSearchGuids = Searches.Select(Function(s) s.Guid).ToArray
         Dim oWindowGuid = $"{Profile.Guid}-{oNameSlug}-{String.Join("-", oSearchGuids)}"
         Dim oParams = New DocumentResultParams() With {
-            .WindowGuid = oWindowGuid
+            .WindowGuid = oWindowGuid,
+            .WindowTitle = $"Suche Nach '{_Params.ClipboardContents}'"
         }
 
         For Each oSearch In Searches

GUIs.Common/DocumentResultList/DocumentResultParams.vb

@@ -3,6 +3,7 @@
     ''' WindowGuid is used to save layout data
     ''' </summary>
     Public WindowGuid As String
+    Public WindowTitle As String = ""
     Public Results As New List(Of DocumentResult)
     Public ColumnNames As New ColumnNames
 End Class

GUIs.Common/DocumentResultList/frmDocumentResultList.vb

@@ -95,6 +95,10 @@ Public Class frmDocumentResultList
                 InitAppServer()
             End If
 
+            If _Params.WindowTitle <> "" Then
+                Text = $"{Text} - {_Params.WindowTitle}"
+            End If
+
             ' Initialize Viewer with GDPicture.NET License
             If _Environment.Settings.GdPictureKey = String.Empty Then
                 Throw New ApplicationException("GDPicture Licensekey is missing!")