Canvas- Problem mit Parabel zeichnen

[Blubbel]

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;

[Bummi]

1. Fehler : Pixels[i,j]

[Blubbel]

Nee, das ist es nicht. er zeichnet es schon richtig nur eben statt punkten oder wie auch immer mit waagerechten strichen....

[Bummi]

Na dann step mal mit dem Debugger durch und lass Dir i,x,y,j anzeigen, dann wird klar was da passiert....

[Blubbel]

versteh ich trotzdem nicht wieso das nicht funktioniert

die gleiche prozedur funktioniert ja aber auch bei anderen parabeln wieso denn da jezz nicht

[Blubbel]

also die gleiche prozedur habe ich vorher auch schon benutzt und da hat sie einwandfrei funktioniert... ich weiß nicht wieso hier nicht und wenn ich es durch steppe werd ich auch nicht schlauer

[Bummi]

Zitat:

ich weiß nicht wieso hier nicht und wenn ich es durch steppe werd ich auch nicht schlauer

doch, solltest Du ....

[Aphton]

Zeig mal ein Bild vom Fehler.

Btw. ich tippe auf Folgendes:
Pixels[x,j]
als Verbesserung!

[DeddyH]

Das Du einmal auf ACanvas und einmal auf PaintBox1.Canvas zugreifst ist beabsichtigt?

[Blubbel]

@ Deddyh das hab ich schon behoben


also so zeichnet er die parabel