opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2025-08-26 11:17:57 +08:00
Code Issues Packages Projects Releases Wiki Activity

Revert a part of commit 976dd6b7420232c4dba631391743ef44cf95a935: do not generate hyperlinks for local file paths, which get broken too often due to unsupported spaces.

Browse Source
This commit is contained in:
Ansgar Becker
2022-01-01 12:38:45 +01:00
parent d7d2993c35
commit 210f056c47
1 changed files with 1 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
source/apphelpers.pas
View File

@ -2307,10 +2307,7 @@ begin
if Assigned(MainForm) and (MainForm.ActiveConnection <> nil) then if Assigned(MainForm) and (MainForm.ActiveConnection <> nil) then
Dialog.Caption := MainForm.ActiveConnection.Parameters.SessionName + ': ' + Dialog.Caption; Dialog.Caption := MainForm.ActiveConnection.Parameters.SessionName + ': ' + Dialog.Caption;
rx := TRegExpr.Create; rx := TRegExpr.Create;
// This expression does not correctly detect filenames with all allowed characters, for which we would rx.Expression := 'https?://\S+';
// 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+';
Dialog.Text := rx.Replace(Msg, '<a href="$0">$0</a>', True); Dialog.Text := rx.Replace(Msg, '<a href="$0">$0</a>', True);
rx.Free; rx.Free;