Consistently use FormatTimeNumber() also for formatting server uptime. Leave out the day portion if zero.

This commit is contained in:
Ansgar Becker
2009-11-23 21:24:25 +00:00
parent db3fbd0df7
commit cdb936b77d
2 changed files with 12 additions and 16 deletions

View File

@ -4277,20 +4277,11 @@ end;
procedure TMainForm.TimerHostUptimeTimer(Sender: TObject);
var
ServerUptime, days, hours, minutes, seconds : Integer;
begin
// Host-Uptime
if Assigned(Connection) then begin
ServerUptime := Connection.ServerUptime;
days:= ServerUptime div (60*60*24);
seconds := ServerUptime mod (60*60*24);
hours := seconds div (60*60);
seconds := seconds mod (60*60);
minutes := seconds div 60;
seconds := seconds mod 60;
showstatus(Format('Uptime: %d days, %.2d:%.2d:%.2d', [days,hours,minutes,seconds]), 4);
end else
// Display server uptime
if Assigned(Connection) then
showstatus('Uptime: '+FormatTimeNumber(Connection.ServerUptime), 4)
else
showstatus('', 4);
end;