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

Support hyperlinks in MessageDialogs, and add a footer with a Google search link to error dialogs.

Browse Source
This commit is contained in:
Ansgar Becker
2012-11-30 13:27:57 +00:00
parent f8a13fc91a
commit cc8b0bc202
2 changed files with 20 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
source/helpers.pas
View File

@ -2419,8 +2419,8 @@ var
m: String;
Dialog: TTaskDialog;
Btn: TTaskDialogButtonItem;
DialogResult: TModalResult;
MsgButton: TMsgDlgBtn;
rx: TRegExpr;
procedure AddButton(BtnCaption: String; BtnResult: TModalResult);
begin
@ -2439,12 +2439,20 @@ begin
end;
if Title <> Dialog.Caption then
Dialog.Title := Title;
Dialog.Text := Msg;
rx := TRegExpr.Create;
rx.Expression := 'https?\:\/\/\S+';
Dialog.Text := rx.Replace(Msg, '<a href="$0">$0</a>', True);
rx.Free;
Dialog.Flags := [tfEnableHyperlinks, tfAllowDialogCancellation];
Dialog.CommonButtons := [];
Dialog.OnHyperlinkClicked := MainForm.TaskDialogHyperLinkClicked;
case DlgType of
mtWarning: Dialog.MainIcon := tdiWarning;
mtError: Dialog.MainIcon := tdiError;
mtError: begin
Dialog.MainIcon := tdiError;
Dialog.FooterText := '<a href="http://www.google.com/search?q='+EncodeURLElementUnicode(Copy(Msg, 1, 1000))+'">Find some help on this error</a>';
Dialog.FooterIcon := tdiInformation;
end;
mtInformation: Dialog.MainIcon := tdiInformation;
mtConfirmation: Dialog.MainIcon := tdiInformation;
else Dialog.MainIcon := tdiNone;

9
source/main.pas
View File

@ -1039,6 +1039,7 @@ type
procedure SetProgressPosition(Value: Integer);
procedure ProgressStep;
procedure SetProgressState(State: TProgressbarState);
procedure TaskDialogHyperLinkClicked(Sender: TObject);
end;
@ -10747,6 +10748,14 @@ begin
end;
procedure TMainForm.TaskDialogHyperLinkClicked(Sender: TObject);
begin
// Used by hyperlinks in helpers.MessageDialog()
if Sender is TTaskDialog then
ShellExec(TTaskDialog(Sender).URL);
end;
{ TQueryTab }