减少绘制的TChart点数

时间:2018-06-25 09:26:08

标签: delphi teechart

我的TChart通过series.AddXY方法添加了很多积分。每秒添加一个点(但是也可能长时间没有数据)。更改图表(添加点)后,当我转到带有图表的选项卡时,大约需要5秒钟才能重新绘制。

我认为使用聚合函数将有助于更快地绘制图表:

ser1: TFastLineSeries;
ser2: TPointSeries;
ser3: TFastLineSeries;
utc: TDateTime;

ser1.SetFunction(TAverageTeeFunction.Create(Self));
ser1.FunctionType.Period := 100;
ser1.FunctionType.PeriodStyle := psRange;

ser2.SetFunction(TAverageTeeFunction.Create(Self));
ser2.FunctionType.Period := 100;
ser2.FunctionType.PeriodStyle := psRange;

ser3.SetFunction(TAverageTeeFunction.Create(Self));
ser3.FunctionType.Period := 100;
ser3.FunctionType.PeriodStyle := psRange;

for i := 0 to 30000 do begin
   .....
   ser1.AddXY(utc, 0, utcStr);
   ser2.AddXY(utc, deviation, utcStr);
   ser3.AddXY(utc, trend, utcStr);
   .....
end;

但是它和以前一样慢。

如何更快地绘制图表?

更新

这是3小时数据无法缩放的图表。 “ Now”在右边缘,“-3h”在左边缘。点不断到达右侧,并从左侧删除。通过设置chart.BottomAxis.Minimumchart.BottomAxis.Maximum属性来移动视框。我会对AVG绘图感到满意,其中平均数量是图表上水平像素的数量。

1 个答案:

答案 0 :(得分:1)

我舍入了DateTime值

axisTimestamp := Trunc(timestamp * 40000) / 40000;

,然后使用此值设置图表点。

如果存在具有此类XValue的点,那么我将计算平均值:

if series.XValue[i] = axisTimestamp then
    series.YValue[i] := (series.YValue[i] + newValue) / 2;