![]() |
Re: Graph erzeugen (x-achse 32000 pixel)
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; |
Alle Zeitangaben in WEZ +1. Es ist jetzt 02:17 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz