この発言は
#00314　凛              さんの折れ線グラフのスクロール
に対するコメントです

この発言に対し以下のコメントが寄せられています

#00318　FuKu            さん　RE:折れ線グラフのスクロールTChart版





折れ線グラフのTChart版です。
あまりに単純な物ですが･･･まあ石でもOKということで (^^ゞ

速度は凛さんの方法の方が速いです。
一応汎用性があるということで･･･(^^ゞ

フォームにTChartを乗っけて下さい。
あとはTChartのOnClickイベントに以下のリストを書いて下さい。




-----------------------------------------------------------
procedure TForm1.Chart1Click(Sender: TObject);

  function newY( y:integer):integer;
  begin
     y:=y+random(11)-5;
     if y<0 then y:=1;
     newY:=y;
  end;

var
  I: Integer;
  Y1, Y2: Integer;
begin
  Chart1.View3D := False;
  Chart1.AxisVisible := False;
  Y1 := 100;
  Y2 := 110;
  for I := 0 to 500 do
  begin
    Y1 := newY(Y1);
    Y2 := newY(Y2);
    Series1.AddXY(I, Y1, '', clBlack);
    Series2.AddXY(I, Y2, '', clRed);
    if I > 100 then
    begin
      Series1.Delete(0);
      Series2.Delete(0);
      Chart1.Repaint;
    end;
  end;
end;

-----------------------------------------------------------


-------
  98/01/03 (土)0:23:51
  FuKu  (SGV00305)


Original document by FuKu            氏 ID:(SGV00305)

ここにあるドキュメントは NIFTY SERVEの Delphi Users' Forum の16番会議室「玉石混淆みんなで作るSample蔵」に投稿されたサンプルです。これらのサンプルはボーランド株式会社がサポートする公式のものではありません。また、必ずしも動作が検証されているものではありません。これらのサンプルを使用したことに起因するいかなる損害も投稿者、およびフォーラムスタッフはその責めを負いません。使用者のリスクの範疇でご使用下さい。