Graph erzeugen (x-achse 32000 pixel)

[haLLoL208]

cool danke das hilft mir mit den arrays schon weiter :-D
ich hab jetzt auch schon selber hinbekommen, dass die x-koordinate weiter läuft und ich nur die maus auf und ab bewegen brauch, allerdings scrollt es noch nicht weiter..

Delphi-Quellcode:

var pt1, pt2:tpoint

procedure TForm1.FormMouseMove(Sender:TObject;Shift:TShiftState; X, Y:integer); 
begin
getcursorpos(pt2);
canvas.lineto(pt1.x,pt2.y);
end;

procedure TForm1.Timer1Timer(Sender:TObject);
begin
pt1.x:=pt1.x+1;
end;