Include application name in login prompt. Fixes issue #3180.

This commit is contained in:
Ansgar Becker
2013-07-25 03:59:42 +00:00
parent 5b3c8b92c7
commit e509ea5437

View File

@@ -1335,7 +1335,7 @@ begin
// Prompt for password on initial connect
if FParameters.LoginPrompt and (not FLoginPromptDone) then begin
Dialog := TfrmLogin.Create(Self);
Dialog.Caption := FParameters.SessionName;
Dialog.Caption := APPNAME + ' - ' + FParameters.SessionName;
Dialog.lblPrompt.Caption := f_('Login to %s:', [FParameters.Hostname]);
Dialog.editUsername.Text := FParameters.Username;
Dialog.editPassword.Text := FParameters.Password;