Fortlaufenden Graph zeichnen lassen

[ituser]

Da mich die Syntax etwas verwirrt und ich kein gutes Beispiel gefunden habe scheint es nicht zu funktionieren. Hat einer von euch ein funktionierendes Beispiel? Habe folgendes ausprobiert nach einem Thread hier im Forum.

Delphi-Quellcode:

  image1.Canvas.Pen.color:=clred;
  if ix=5 then begin
    image1.canvas.moveto(ix-2,image1.Height);
    image1.Canvas.lineto(ix,image1.Height-trunc(Temperatur*4));
  end else begin
    image1.Canvas.MoveTo(ix-2,ypsilon);
    image1.Canvas.LineTo(ix,image1.Height-trunc(Temperatur*4));
    ypsilon:=image1.Height-trunc(Temperatur*4);
  end;

  //Wenn am Rand angekommen
  if (ix>=image1.Width-2) then begin
    //Einzelne Pixel Methode
    {for i:=2 to image1.Width do begin
      for j:=0 to image1.Height do begin
          image1.Canvas.Pen.Color:=image1.Canvas.Pixels[i+1,j];
          image1.Canvas.Pixels[i-1,j]:=image1.Canvas.Pixels[i+1,j];
          image1.Canvas.Pen.Color:=image1.Canvas.Pixels[i,j];
          image1.Canvas.Pixels[i-2,j]:=image1.Canvas.Pixels[i,j];
      end;
    end;}

    //Andere
    ScrollRect := image1.BoundsRect;
    ClipRect := image1.BoundsRect;

    ScrollDC(image1.Canvas.Handle, -2, 0, ScrollRect, ClipRect, 0, @UpdateRect);
    
    rand:=true;
  end;

Funktioniert aber leider nicht :-/