opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2025-08-17 04:40:18 +08:00
Code Issues Packages Projects Releases Wiki Activity

Try to fix a further randomly occurring access violation, probably in conjunction with threads. See http://www.heidisql.com/forum.php?t=8096

Browse Source
This commit is contained in:
Ansgar Becker
2011-04-04 17:09:43 +00:00
parent e5c8df2ecb
commit cad400db1e
1 changed files with 5 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
source/main.pas
View File

@ -4827,10 +4827,13 @@ end;
procedure TMainForm.TimerHostUptimeTimer(Sender: TObject); procedure TMainForm.TimerHostUptimeTimer(Sender: TObject);
var
Conn: TDBConnection;
begin begin
// Display server uptime // Display server uptime
if Assigned(ActiveConnection) then Conn := ActiveConnection;
ShowStatusMsg('Uptime: '+FormatTimeNumber(ActiveConnection.ServerUptime), 4) if Assigned(Conn) then
ShowStatusMsg('Uptime: '+FormatTimeNumber(Conn.ServerUptime), 4)
else else
ShowStatusMsg('', 4); ShowStatusMsg('', 4);
end; end;