Canvas.DrawPoint

[2kstealth]

Hallo erstmal,

Ich muss für die Schule ein Programm schreiben mit dem ein Schräger wurf eingezeichnet wird.
Ich komme mit der Formel hierfür langsam auch sehr gut zurecht, nur es gibt ein Problem.

Wenn ich nun versuche die einzelnen Punkte der Parabel einzuzeichnen würde ich gerne die
Funktion von Canvas benutzen die DrawPoint heißt. Ich habe die Unit QGraphics schon eingebunden,
aber DrawPoint wird immernoch als nicht bekannt als Fehler ausgegeben.

Kann mir vielleicht einer verraten welche Unit ich einbinden muss?

Vielen Dank schonmal im Vorraus

[Steve]

QGraphics ist nicht VCL, sondern CLX.. in TCanvas der VCL gibt es kein DrawPoint, schau Dir stattdessen mal [oh]MoveTo(), LineTo()[/oh] an

Gruß
Stephan

[Matze]

Für einzelne Pixel geht auch

Canvas.Pixels[x, y] := clBlack;
Nachtrag: Herzlich willkommen in der DP!

[fkerber]

Hi!

Warum QGraphics?

Ciao Frederic

[Matze]

Zitat von fkerber:

Warum QGraphics?

Warum, weiß ich nicht, hier steht nur:

Zitat von www.elists.org:

So, TBitmap is actually Graphics.TBitmap in VCL and QGraphics.TBitmap in CLX.

[2kstealth]

Danke für die Schnellen Tips!

Also mit MoveTo und LineTo habe ich schon mein Koordinatensystem gebaut.
Das Problem ist nur, wenn ich jetzt damit eine Parabel einzeichnen will,
macht diese keinen Sinn.
Ich will ja nicht immer 2 Pixel "anmalen", sondern Eigentlich nur einen.

Deswegen werde ich es mal mit der Idee von Matze probieren.

Vielen Danke nochmal an alle


MfG StEaLtH

P.S.: Die Funktion Canvas gehört nach Delphi Hilfe in die Unit, und ich habe deswegen gedacht das würde die Lösung bringen!

[alcaeus]

Hi 2kstealth,

Zitat von 2kstealth:

Das Problem ist nur, wenn ich jetzt damit eine Parabel einzeichnen will,
macht diese keinen Sinn.
Ich will ja nicht immer 2 Pixel "anmalen", sondern Eigentlich nur einen.

Was meinst du damit? Du musst mit MoveTo an den Ursprung der Parabel springen, und anschließend mit LineTo immer zum nächsten Punkt springen. Dabei wird die Linie gezeichnet und die neue Position gesetzt.
Zur Verdeutlichung ein Beispiel:

Delphi-Quellcode:

Canvas.MoveTo(0,0);
for i := 1 to ... do
begin
  //Neue Koordinaten in x und y schreiben
  Canvas.LineTo(x, y);
end;

Und schon hast du eine schöne Parabel (wenn du auch die Koordinaten richtig berechnest )

Greetz
alcaeus

[2kstealth]

THX,

Danke nochmal an den letzten Poster!

der Thread kann von mir auch auch dicht gemacht werden...

Ihr habt mir wirklich geholfen und vielen dank!

CU StEaLtH

[Luckie]

Tipp: canvas.Polygon