Fix bug #1865305 "error popups with server down and process list reloads"

This commit is contained in:
Ansgar Becker
2008-01-11 20:05:51 +00:00
parent 26f5d5ce88
commit a580043f9c

View File

@ -5322,6 +5322,9 @@ begin
CheckConnection; CheckConnection;
except except
on E: Exception do begin on E: Exception do begin
// Ensure auto-updating processlist is disabled, see bug #1865305
DisableAutoRefreshClick(self);
Screen.Cursor := crDefault;
raise Exception.Create('Failed to reconnect, giving up. (' + E.Message + ')'); raise Exception.Create('Failed to reconnect, giving up. (' + E.Message + ')');
end; end;
end; end;