From e509ea5437b22d1abd4d1ae4a01ee1be1547804b Mon Sep 17 00:00:00 2001
From: Ansgar Becker <ansgarbecker@users.noreply.github.com>
Date: Thu, 25 Jul 2013 03:59:42 +0000
Subject: [PATCH] Include application name in login prompt. Fixes issue #3180.

---
 source/dbconnection.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/source/dbconnection.pas b/source/dbconnection.pas
index 64f9daa9..6ebed212 100644
--- a/source/dbconnection.pas
+++ b/source/dbconnection.pas
@@ -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;