Fortlaufenden Graph zeichnen lassen

[runner]

Schau mal so geht es

Delphi-Quellcode:

  Image1.Canvas.Pen.color := clred;
  if (ix < Image1.Width - 6) then
    begin
      Image1.Canvas.MoveTo(ix - 2, ypsilon);
      Image1.Canvas.LineTo(ix, trunc(Temperatur));
      ypsilon := trunc(Temperatur);
    end

      //Wenn am Rand angekommen
  else
    begin
      ScrollRect := Image1.BoundsRect;
      ClipRect := Image1.BoundsRect;
      ScrollDC(Image1.Canvas.Handle, -2, 0, ScrollRect, ClipRect, 0, nil);
      Image1.Canvas.MoveTo(Image1.Width - 6, ypsilon);
      Image1.Canvas.LineTo(Image1.Width - 4, trunc(Temperatur));
      ypsilon := trunc(Temperatur);
    end;