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;
except
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 + ')');
end;
end;