ohhhh man ey, ich sollte lieber das Programmieren lassen...
Jeder fängt mal kein an... Andere wie Du, wollen direkt ganz groß anfangen...
im Prinzip ist es ja eh so, dass er mir nichts anzeigen dürfte, wenn ich ihn mit F9 übersetzen lasse, da er ja gar keine Messwerte hat..., oder bin ich da jetzt ganz ab von jeglicher Intelligenz...
Das Problem ist, dass Du Dir die Daten Fakest...
Erzeugst Dir in der Routine das Array, welches eigentlich von außen kommen müsste...
Nimm doch einfach mal ein globales Array...
Delphi-Quellcode:
var
MeineWerte : Array of real; // order was auch immer...
Procedure Erzeuge_Werte;
var
i : Integer;
begin
Setlength(MeineWerte,5000);
for i:=0 to 1000 do
MeineWerte[i] := 15.0;
for i:=1001 to 2000 do
MeineWerte[i] := 0.0;
for i:=2001 to 3000 do
MeineWerte[i] := -22.0;
for i:=3001 to 4000 do
MeineWerte[i] := 0.0;
for i:=4001 to 4999 do
MeineWerte[i] := 4.0;
end;
So und dann Stelle diese Werte 0..4999 mal in Deinem Fenster dar..
und zwar so, dass du den Startpunkt verschieben kannst und auch den Ausschnitt den Du darstellen willst...
Mavarik
Ok, die erzeugten Werte, muss ich ja wieder in eine Zeichenroutine packen...,
das habe ich gerade mal versucht, jedoch weiß ich jetzt nicht, ob ich die in meine bereits bestehende Zeichenroutine implementieren soll, oder neu mache.
CalculatePointView und DrawMeasureValue hängen ja zusammen....
oder können die ganz weg