From 68c5f4dd3e638c9a5e02d5eb67e13e9d0a903375 Mon Sep 17 00:00:00 2001
From: Jonathan Jenne <j.jenne@digitaldata.works>
Date: Mon, 2 Aug 2021 11:58:34 +0200
Subject: [PATCH] SQLCommon: Make form title configurable

---
 SQLConfig/frmSQLConfig.vb | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/SQLConfig/frmSQLConfig.vb b/SQLConfig/frmSQLConfig.vb
index 8a4e98c7..74149683 100644
--- a/SQLConfig/frmSQLConfig.vb
+++ b/SQLConfig/frmSQLConfig.vb
@@ -12,6 +12,7 @@ Public Class frmSQLConfig
     Private ReadOnly LogConfig As LogConfig
 
     Public Property ConnectionString As String = String.Empty
+    Public Property FormTitle As String = ""
 
     Public Sub New()
         ' Dieser Aufruf ist für den Designer erforderlich.
@@ -32,6 +33,10 @@ Public Class frmSQLConfig
     Private Sub frmSQLConfig_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         Dim oConnectionString = ConnectionString
 
+        If FormTitle.Count > 0 Then
+            Text = $"{FormTitle} - {Text}"
+        End If
+
         If Not oConnectionString = String.Empty Then
             Dim oBuilder As SqlConnectionStringBuilder
             Try