paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-01 08:52:34 +02:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Fix display of millisecond steps in TDateTimeIntervalChartSource.

Browse Source 
git-svn-id: trunk@47235 -
This commit is contained in:
wp 2014-12-22 22:52:49 +00:00
parent 63c839a786
commit 33dec9455e
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/tachart/taintervalsources.pas
View File

@ -411,8 +411,9 @@ var
IfThen(FSuppressPrevUnit and (st.Minute = prevSt.Minute), 'ss', 'nn:ss'), AValue);
dtsMillisecond:
Result :=
IfThen(FSuppressPrevUnit and (st.Second = prevSt.Second), '', IntToStr(st.Second) + DefaultFormatSettings.DecimalSeparator) +
IntToStr(st.Millisecond) + 'ms';
IfThen(FSuppressPrevUnit and (st.Second = prevSt.Second),
IntToStr(st.Millisecond) + 'ms',
IntToStr(st.Second*1000 + st.Millisecond) + 'ms');
end;
if InRange(AValue, helper.FOrigParams.FMin, helper.FOrigParams.FMax) then
prevSt := st;