Hallo leute!
Habe ein kleines Problem. Ich versuche mein Programm zu verbessern. Habe da jetzt was versucht und meine Parabel wird nicht richtig gezeichnet. also statt "normal" werden diagonale Striche gezeichnet. Kann den Fehler nicht finden... Könnt ihr mir helfen?
Delphi-Quellcode:
for lIndex := 0 to high(AFuncData) do
begin
case round(AFuncData[lIndex][0]) of
0:
begin
for i := 0 to GetWidth(ACanvas.ClipRect) do
begin
x:=round((i - (GetWidth(PaintBox1.Canvas.ClipRect) div 2)) / GetScaleValue(TrackBar1.Position));
y:=round(CalcX2(x));
j:=(GetHeight(PaintBox1.Canvas.ClipRect) div 2) - y * GetScaleValue(TrackBar1.Position);
PaintBox1.Canvas.Pixels[i,j]:=clblue;