TeeChartの使い方 折れ線グラフ作成 (TeeChart Pro 8.06)
uessに Series, TeEngineを追加
procedure TForm1.a;
var
i: Integer;
Series1: TFastLineSeries; //折れ線(2D)
Series2: TLineSeries; //リボン(3D)
begin
Chart1.SeriesList.Clear;
//Y軸用シリーズを作成
Series1 := TFastLineSeries.Create(Self);
Series1.ParentChart := Chart1;
Series1.VertAxis := aLeftAxis; // 主軸
Series1.XValues.Order := loAscending; //(loNone, loAscending, loDescending)
Series1.YValues.Order := loNone; //(loNone, loAscending, loDescending)
Series1.Active := False;
Series1.Title := ‘a’;
Series1.Color := clBlue;
Series1.Pen.Width := 1;
Series1.Pen.Style := psSolid;
//高速化のための設定(通常は必要ないと思われる)===========
//Falseにすると異なるXピクセル位置を持つポイントのみ描画して高速化
Series1.DrawAllPoints := False;
//描画速度向上
Series1.AutoRepaint := False;//FastPenを有効にするため
Series1.FastPen := True;
//データー追加時の速度向上(ソートしない)
Series1.XValues.Order := loNone;
//GDIオーバーフローをチェックしないことにより高速化
//ズームを多用する場合は要注意？
Chart1.Axes.FastCalc := True;
//=====================================================
//データーを追加
for i := 0 to 100 – 1 do
begin
Series1.AddXY(i, Random(10));
end;
//シリーズを有効化
Series1.Active := True;
//第2Y軸用 シリーズを作成
Series2 := TLineSeries.Create(Self);
Series2.ParentChart := Chart1;
Series2.VertAxis := aRightAxis; // 第2軸
Series2.XValues.Order := loAscending; //(loNone, loAscending, loDescending)
Series2.YValues.Order := loNone; //(loNone, loAscending, loDescending)
Series2.Active := False;
Series2.Title := ‘b’;
Series2.Color := clRed;
Series2.LinePen.Width := 1;
Series2.LinePen.Style := psSolid;
Series2.LinePen.Color := clYellow;
Series2.Dark3D := True; //リボンの裏の色を濃くする
for i := 0 to 100 – 1 do
begin
Series2.AddXY(i, Random(10) + 10);
end;
Series2.Active := True;
end;
2009.12.24追記： 線の途切れを作るには，AddNullXYメソッドを使用する． Series2.AddNullXY(x, y, ”)
ただしこれはFastLineSeriesでは使えない．LineSeriesで使用する．
2009.12.27 (2009.12.24追記の訂正)：
FastLineSeriesの場合でも，
Series1.IgnoreNulls := false;
Series1.TreatNulls := tnDontPaint;
を設定することでAddNullXYメソッドが有効になる．