From 210f056c472ba8e08d0eabaa7b789511052a0a57 Mon Sep 17 00:00:00 2001 From: Ansgar Becker Date: Sat, 1 Jan 2022 12:38:45 +0100 Subject: [PATCH] Revert a part of commit 976dd6b7420232c4dba631391743ef44cf95a935: do not generate hyperlinks for local file paths, which get broken too often due to unsupported spaces. --- source/apphelpers.pas | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-) diff --git a/source/apphelpers.pas b/source/apphelpers.pas index 4f729744..5ffc0b99 100644 --- a/source/apphelpers.pas +++ b/source/apphelpers.pas @@ -2307,10 +2307,7 @@ begin if Assigned(MainForm) and (MainForm.ActiveConnection <> nil) then Dialog.Caption := MainForm.ActiveConnection.Parameters.SessionName + ': ' + Dialog.Caption; rx := TRegExpr.Create; - // This expression does not correctly detect filenames with all allowed characters, for which we would - // need to take TPath.GetInvalidPathChars into account. But to not excessively eat parts of the following - // text, we stop at the first space character - rx.Expression := '(https?://|[A-Z]\:\\)\S+'; + rx.Expression := 'https?://\S+'; Dialog.Text := rx.Replace(Msg, '$0', True); rx.Free;