Hallo allerseits,
Ich möchte gerne mithilfe des Canvasbefehls Canvas.Pixels[X,Y]:=TColor Ein beliebiges Objekt zeichnen, z.B. einen Kreis oder eine Ellipse etc.
Dazu rechne ich X und Y für jeden Punkt aus und färbe diesen dann. Wie ich das genau berechne möchte ich hier jetzt gar nicht groß erklären, denn mein eigentliches Problem ist das ich am Ende jedes meiner vielen Versuche vor dem Problem stehe, dass der Canvasbefehl einfach nicht ausgeführt wird. Hier ein Beispiel(Nur ein Test für den Sachverhalt, nicht mein eigentliches Programm...):
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
for i:=1 to 100 do
Canvas.Pixels[i,201]:=clBlack;
Canvas.Pixels[i,202]:=clBlack;
Canvas.Pixels[i,203]:=clBlack;
Canvas.Pixels[i,204]:=clBlack;
Canvas.Pixels[i,205]:=clBlack;
end;
Meines Wissens nach müsste es jetzt eine 5 Pixel breite und 100 Pixel lange Linie zeichnen, oder?
Aber, wenn ich diesen Quelltext ausführen lasse und auf den Button klicke passiert einfach: Nichts.....
oder es kommt eine Fehlermeldung, dass C:/.../Programmname/Project1.exe nicht gefunden wurde.
Bitte helft mir ich kenn mich mit Canvas nicht wirklich aus und verstehe nicht, warum das nicht funktioniert, ich hab alles schon mal statt einer Schleife mit einem Timer gemacht und es funktionierte perfekt. Aber wenn ich wirklich etwas zeichnen will, dauert das mit dem Timer zu lange...
