Graph erzeugen (x-achse 32000 pixel)

[haLLoL208]

also so hab ich das gemacht was ich als erstes gemacht hab, wo man halt nur in das Formular gemalt hat den graphen..

Delphi-Quellcode:

var Form1:TForm1; xalt, yalt:integer;
procedure TForm1.FormMouseMove(Sender:TObject;Shift:TShiftState; X, Y:integer);
var
pt1:tpoint;

begin
getcursorpos(pt1);
label1.caption:='X:'+inttostr(pt1.x)+'  Y:'+inttostr(pt1.y);// anzeigen der koordinaten

If (X-xalt>=0)            //damit man nur nach rechts zeichnen kann
then begin
canvas.lineto(x, y);
xalt:=X;
yalt:=Y;
end;
end;

end.