From e0745a2aac509be061bddda76d57675735ac1535 Mon Sep 17 00:00:00 2001
From: Jonathan Jenne <j.jenne@digitaldata.works>
Date: Wed, 24 Mar 2021 16:27:21 +0100
Subject: [PATCH] DocumentResultList: Make window title configurable

---
 GUIs.Common/DocumentResultList/DocumentResultParams.vb  | 1 +
 GUIs.Common/DocumentResultList/frmDocumentResultList.vb | 4 ++++
 2 files changed, 5 insertions(+)

diff --git a/GUIs.Common/DocumentResultList/DocumentResultParams.vb b/GUIs.Common/DocumentResultList/DocumentResultParams.vb
index 0487908e..b383c86c 100644
--- a/GUIs.Common/DocumentResultList/DocumentResultParams.vb
+++ b/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
diff --git a/GUIs.Common/DocumentResultList/frmDocumentResultList.vb b/GUIs.Common/DocumentResultList/frmDocumentResultList.vb
index fa6ea0f7..57cd5001 100644
--- a/GUIs.Common/DocumentResultList/frmDocumentResultList.vb
+++ b/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!")