From 42899facffd62f531ee70764593b0282e68e5cd4 Mon Sep 17 00:00:00 2001
From: Ansgar Becker <ansgarbecker@users.noreply.github.com>
Date: Thu, 6 May 2010 18:41:17 +0000
Subject: [PATCH] Update server version panel also on reconnect. Fixes issue
 #1891.

---
 source/main.pas | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

diff --git a/source/main.pas b/source/main.pas
index 12e27988..ac64f616 100644
--- a/source/main.pas
+++ b/source/main.pas
@@ -1574,7 +1574,6 @@ begin
     ActivateFileLogging;
 
   tabHost.Caption := 'Host: '+Connection.Parameters.HostName;
-  ShowStatusMsg('MySQL '+Connection.ServerVersionStr, 3);
 
   // Save server version
   OpenRegistry(SessionName);
@@ -4355,10 +4354,15 @@ end;
 
 
 procedure TMainForm.TimerConnectedTimer(Sender: TObject);
+var
+  ConnectedTime: Integer;
 begin
   if Assigned(Connection) and Connection.Active then begin
-    // calculate and display connection-time
-    ShowStatusMsg('Connected: ' + FormatTimeNumber(Connection.ConnectionUptime), 2);
+    // Calculate and display connection-time. Also, on any connect or reconnect, update server version panel.
+    ConnectedTime := Connection.ConnectionUptime;
+    ShowStatusMsg('Connected: ' + FormatTimeNumber(ConnectedTime), 2);
+    if ConnectedTime < 10 then
+      ShowStatusMsg('MySQL '+Connection.ServerVersionStr, 3);
   end else begin
     ShowStatusMsg('Disconnected.', 2);
   end;