Canvas in Schleifen

[Popov]

Deine For Schleife führt die Schleife nur bei dem ersten Canvas aus.

Wenn du es richtig machen willst, dann musst du alle Canvas in den Block setzten:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  i:integer;
begin
  for i:=1 to 100 do
  begin
    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;
end;