Question

我在刷新整个图表的过程中遇到了很多问题，并且想知道是否有办法减少重绘图表的时间。

例如，我的图表包含数百个TAreaSeries，每个值为1000点。这些值构建一次，之后不会更改。但是有一个短的TLineSeries有2个点在图表上“跳跃”，每50毫秒更改一次坐标。尽管只修改了一个小区域（TLineSeries区域中的像素），但整个图形（有数千个点）被更新并重新绘制，这会浪费大量资源并造成巨大延迟。这个具有2个点的TLineSeries的下一个和前一个位置在我的情况下是已知的，所以我想知道是否有办法迫使TChart只重绘一些预定义的绘图区域而不是重绘整个图形？

Answer 1

在实时应用程序中，我们通常建议您按照实时图表文章here中的说明进行操作。

至于仅重新绘制图表的某个区域，您无法调用 InvalidateRacte ，只能在矩形中重新创建图表部分。 InvalidateRacte 只能用于重绘缓冲区位图的一部分（ Chart1.Canvas.Bitmap ，当使用 Chart1.BufferedDisplay 时），VCL框架不支持，我们也不会从中获得任何好处。

Here您可以下载一个项目，该项目在另一个图表上绘制图表中的系列而不重新创建它，这是最耗时的任务。有一个按钮可以计算缓冲位图可以重新绘制的次数。我们每秒约5000。如果需要每次重新创建图表，例如：绘制轴，系列，图例等），我们最多每秒获得100次。项目中显示的功能仅可使用new TeeChart Pro beta。项目代码如下：

type
  TSeriesAccess=class(TChartSeries);
  TChartAccess=class(TCustomTeePanel);

procedure TForm1.ScrollBar1Change(Sender: TObject);
begin
  // Example: Modify a Line value
  Series1.YValues[10]:=350+ScrollBar1.Position;

  // Paint Line to Chart2, just to check the change (this is optional)
  Series1.Repaint;

  // Redraw Chart1 fast, just the buffer bitmap, without repainting everything:
  TChartAccess(Chart1).Paint;

  // Draw the Line over Chart1, on top of it, instead of "inside" it
  TSeriesAccess(Series1).FParent:=Chart1;
  TSeriesAccess(Series1).DrawAllValues;
  TSeriesAccess(Series1).FParent:=Chart2;
end;

// Count the number of times a Chart buffer can be redisplayed
// (without redrawing everything)
procedure TForm1.Button1Click(Sender: TObject);
var t1 : Cardinal;
    tmpCount : Integer;
begin
  tmpCount:=0;

  t1:=GetTickCount;

  // Loop for one second
  while GetTickCount-t1 < 1000 do
  begin
    TChartAccess(Chart1).Paint;
    Inc(tmpCount);
  end;

  Caption:='Redraws per second: '+IntToStr(tmpCount);
end;

另一个选项是this，使用 ColorLine ，它与我们的项目或多或少相同，使用 Pen.Mode = pmXor 进行绘画。

关于您的项目，在刷新系列之前，您错过了将 AutoRepaint 设置为true。此代码有效：

procedure TForm1.Timer1Timer(Sender: TObject);
begin
    // The 'jumping' TLineSeries will move to the right 1 point every 1 second.
    Form1.Chart1.Series[1].XValue[0]:= Form1.Chart1.Series[1].XValue[0] + 1;
    Form1.Chart1.Series[1].XValue[1]:= Form1.Chart1.Series[1].XValue[1] + 1;

    Form1.Chart1.AutoRepaint:=True;
    Form1.Chart1.Series[1].Repaint;
    Form1.Chart1.AutoRepaint:=False;
end;

此外，您可以使用 TColorLineTool 而不是垂直线的系列。您应该删除第二行系列，在设计时添加ColorLine工具并实现如下代码：

unit UnitTeeChartRefresh;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, TeeProcs, TeEngine, Chart, Series, StdCtrls,
  TeeGDIPlus, TeeTools;

type
  TForm1 = class(TForm)
    Chart1: TChart;
    Series1: TAreaSeries;
    Button1: TButton;
    Timer1: TTimer;
    Label1: TLabel;
    ChartTool1: TColorLineTool;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Chart1AfterDraw(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  times_redrawn: cardinal = 0;   // A counter indicating how many times our chart was redrawn.

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
    i: integer;
begin
  //Let's add one constant TAreaSeries and one 'jumping' across the graph TLineSeries
  Randomize;
  Form1.Chart1.Axes.Left.SetMinMax(0, 10);
  Form1.Chart1.Axes.Bottom.SetMinMax(0, 20);

  for i:= 1 to 20 do
  begin
    Form1.Chart1.Series[0].AddXY(i, Random(10))
  end;

  ChartTool1.Axis:=Chart1.Axes.Bottom;
  ChartTool1.Value:=0;

  // If I enable AutoRepaint I will be able to see all changes on the whole plot in real-time
  // and have no problem.
  // But I want to manually control the refreshing process and even refresh some regions of the
  // graph separately.
  Form1.Chart1.AutoRepaint:=False;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
  // This button launches the animation of the 'jumping' TLineSeries.
  Form1.Timer1.Enabled:= not Form1.Timer1.Enabled;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  // The 'jumping' TLineSeries will move to the right 1 point every 1 second.
  Form1.Chart1.AutoRepaint:=True;
  ChartTool1.Value:=ChartTool1.Value + 1;
  Form1.Chart1.AutoRepaint:=False;
end;

procedure TForm1.Chart1AfterDraw(Sender: TObject);
begin
  times_redrawn:= times_redrawn + 1;
  Form1.Label1.Caption:= intToStr(times_redrawn);
end;

end.

修改系列点时是否可以重新绘制TeeChart区域？

1 个答案: