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



酔伯さん　こんにちは　凛です。
>　例を作る元気がないのでアレですが、スクロールに関して、ScrollWindowなり
>ScrollDCなりを使ってみると言うのも一つの手かも知れませんね(?_?)
どうもご教授ありがとうございます。
時間がなく遅れましたが例を作ってみました。へルプによるとScrollWindowは全
体をスクロールするとき、ScrollDCは部分をスクロールするときに使うという
事ですね。

procedure TForm1.FormCreate(Sender: TObject);
var
   theWidth,y,i,step:integer;
begin
   show;
   sleep(100);
   theWidth:=Clientwidth-3;
   step:=-2;
   for i:=0 to 500 do
   begin
      y:=random(100);
      ScrollWindow(handle,step,0,nil,nil);
      canvas.lineTo(theWidth,y);
      canvas.moveTo(theWidth+step,y);
      UpdateWindow(handle);
   end;
end;

 {ScrollDCのサンプル}
procedure TForm1.FormCreate(Sender: TObject);
var
   takasa,theWidth,y,i,step:integer;
   ScrRect,ClipRect:Trect;
begin
   show;
   sleep(100);
   theWidth:=Clientwidth;
   step:=-2;
   takasa:=100;
   ScrRect:=Rect(0,0,theWidth,takasa);
   ClipRect:=Rect(Trunc(theWidth/2),0,theWidth,takasa);
   for i:=0 to 500 do
   begin
      y:=random(takasa);
      ScrollDC(Canvas.Handle,step,0,ScrRect,ClipRect ,0, nil);
      canvas.lineTo(theWidth-3,y);
      canvas.moveTo(theWidth+step-3,y);
   end;
end;
                                     98/01/10(土) 18:21 凛(MXB01744)

Original document by 凛              氏 ID:(MXB01744)

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