opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2025-08-14 10:02:10 +08:00
Code Issues Packages Projects Releases Wiki Activity

Issue #411: append search engine's hostname to "Find help" link in error dialogs, now that it's customizable

Browse Source
This commit is contained in:
Ansgar Becker
2019-04-30 12:32:35 +02:00
parent c3da5956e7
commit 0c35a27fec
1 changed files with 10 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
source/apphelpers.pas
View File

@ -2458,7 +2458,7 @@ var
rx: TRegExpr; rx: TRegExpr;
KeepAskingValue: Boolean; KeepAskingValue: Boolean;
Hotkeys: String; Hotkeys: String;
WebSearchUrl: String; WebSearchUrl, WebSearchHost: String;
procedure AddButton(BtnCaption: String; BtnResult: TModalResult); procedure AddButton(BtnCaption: String; BtnResult: TModalResult);
var var
@ -2501,7 +2501,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;
rx.Expression := 'https?\:\/\/\S+'; rx.Expression := 'https?://\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;
@ -2513,7 +2513,14 @@ begin
Dialog.MainIcon := tdiError; Dialog.MainIcon := tdiError;
WebSearchUrl := AppSettings.ReadString(asWebSearchBaseUrl); WebSearchUrl := AppSettings.ReadString(asWebSearchBaseUrl);
WebSearchUrl := StringReplace(WebSearchUrl, '%q', EncodeURLParam(Copy(Msg, 1, 1000)), []); WebSearchUrl := StringReplace(WebSearchUrl, '%q', EncodeURLParam(Copy(Msg, 1, 1000)), []);
Dialog.FooterText := '<a href="'+WebSearchUrl+'">'+_('Find some help on this error')+'</a>'; rx := TRegExpr.Create;
rx.Expression := 'https?://(www\.)?([^/]+)/';
if rx.Exec(WebSearchUrl) then
WebSearchHost := rx.Match[2]
else
WebSearchHost := '[unknown host]';
rx.Free;
Dialog.FooterText := '<a href="'+WebSearchUrl+'">'+_('Find some help on this error')+' (=> '+WebSearchHost+')</a>';
Dialog.FooterIcon := tdiInformation; Dialog.FooterIcon := tdiInformation;
end; end;
mtInformation: mtInformation: