opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2026-03-13 09:24:25 +08:00
Code Issues Packages Projects Releases Wiki Activity

feat: support cancelling server login dialog

Browse Source 
Refs #349
This commit is contained in:
Ansgar Becker
2026-03-12 20:52:14 +01:00
parent 424094fa93
commit a073c3f792
1 changed files with 9 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
source/dbconnection.pas
View File

@@ -3258,10 +3258,15 @@ begin
Dialog.lblPrompt.Caption := f_('Login to %s:', [FParameters.Hostname]); Dialog.lblPrompt.Caption := f_('Login to %s:', [FParameters.Hostname]);
Dialog.editUsername.Text := FParameters.Username; Dialog.editUsername.Text := FParameters.Username;
Dialog.editPassword.Text := FParameters.Password; Dialog.editPassword.Text := FParameters.Password;
Dialog.ShowModal; if Dialog.ShowModal = mrOk then begin
FParameters.Username := Dialog.editUsername.Text; FParameters.Username := Dialog.editUsername.Text;
FParameters.Password := Dialog.editPassword.Text; FParameters.Password := Dialog.editPassword.Text;
Dialog.Free; Dialog.Free;
end
else begin
Dialog.Free;
raise EDbError.Create(_('Login cancelled'));
end;
end; end;
// Prepare connection // Prepare connection