Hallo
DP´ler,
ich möchte einen SinusGraphen auf meiner Komponentenoberfläche anzeigen lassen. Bekomme das aber absolut nicht hin. Die Mathematik ist hier nicht das Problem, sondern die Programmierung.
Brauche denfinitiv Hilfe und es wäre toll, wenn sich jemand erbarmen würde
Delphi-Quellcode:
procedure THixHistoGraph.DrawGridScale;
var
a, b, c, d, x1, x2 , fvonx1, fvonx2 : Real;
i: Integer;
begin
a := FXScale.ValMin; // Null (0/0) von X- und Y- Koordinate
b := FXScale.ValMax; // Width
c := FYScale.ValMin; // Anfang der Y-Achse
d := FYScale.ValMax; // Ende Der Y-Achse
x1 := ViewXNominalMin; // Punkt, von wo aus gezeichnet werden soll
x2 := ViewXNominalMax; // Punkt, bis wohin gezeichnet werden soll
for i := 0 to Round(2*pi/0.2) do
begin
fvonx1 := (Width div (b-a)) + x1* ((a*Width) div (a-b)); // Funktionswert an der Stelle x1
fvonx2 := (Height div (d-c)) + x2* ((c*Height)div (c-d)); // Funktionswert an der Stelle x2
end;
with FBmp.Canvas do
begin
//canvas.MoveTo(fvonx1, d);
end;
end;