From abc0900f69ade9d0ff700096011a6ffd7f9ec203 Mon Sep 17 00:00:00 2001
From: Ansgar Becker <anse@heidisql.com>
Date: Thu, 30 May 2024 18:43:57 +0200
Subject: [PATCH] Issue #634: fix HTML in message dialog text containing URLs
 with trailing double quote

---
 source/apphelpers.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/source/apphelpers.pas b/source/apphelpers.pas
index 651b2419..6ef718ee 100644
--- a/source/apphelpers.pas
+++ b/source/apphelpers.pas
@@ -2393,7 +2393,7 @@ begin
     if Assigned(MainForm) and (MainForm.ActiveConnection <> nil) then
       Dialog.Caption := MainForm.ActiveConnection.Parameters.SessionName + ': ' + Dialog.Caption;
     rx := TRegExpr.Create;
-    rx.Expression := 'https?://\S+';
+    rx.Expression := 'https?://[^\s"]+';
     Dialog.Text := rx.Replace(Msg, '<a href="$0">$0</a>', True);
     rx.Free;