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

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

#00319　酔伯            さん　RE:折れ線グラフのスクロール




{リアルタイムで測定データを折れ線グラフに表すときどのくらい早く
スクロールできるのか興味があったのでトライしてみました。
 赤と黒の折れ線グラフをスクロールします。
オシロの様な目的にはちょっとまだまだかもしれませんが他の用途なら
結構いけそうに思いました。(後はどう間引くかですかね、、)}


{FormにPaintBoxとボタンを一つずつ貼り付けて、、}
var
   gwidth,gheight,incr:integer;
//乱数発生モジュール
function newY( y:integer):integer;
begin
   y:=y+random(11)-5;
   if y<0 then y:=1;
   if y>gHeight then y:=gHeight-1;
   newY:=y;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
   i,y1,y2,x:integer;
begin
   gHeight:=200;//paintBoxの高さ
   gWidth:=400;//PaintBoxの幅
   incr:=1;
   show;
   PaintBox1.Height:=gHeight;
   PaintBox1.Width:=gWidth;
   y1:=100;
   y2:=110;
   for i:= 0 to 1000 do
   begin
      with paintBox1.canvas do
      begin
          //シフト
          Copyrect(Rect(0,0,gWidth-1-incr,gHeight-1),
                   paintBox1.Canvas,
                   Rect(incr,0,gWidth-1,gHeight-1));
          //おしりを消す
          fillrect(Rect(gWidth-1-incr,0,gWidth,gHeight));
          //黒い線を書く
          moveTo(gWidth-2-incr,y1);
          y1:=newY(y1);
          pen.color:=clBlack;
          LineTo(gWidth-1,y1);
          //赤い線を書く
          moveTo(gWidth-2-incr,y2);
          y2:=newY(y2);
          pen.color:=clRed;
          LineTo(gWidth-1,y2);
      end;
      application.ProcessMessages;
   end;
end;

もっといい方法あったら教えて下さい。m(_ _)m
☆☆☆　わからないときサンプル蔵　わかったときサンプル蔵　☆☆☆
                                 97/12/31(水) 02:32 凛(MXB01744)

Original document by 凛              氏 ID:(MXB01744)

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