Hallo,
warum wird oben nicht bis null gezeichnet? Ich habe die Methode nochmal ein bisschen abgewandelt:
Delphi-Quellcode:
procedure TForm1.FormPaint(Sender: TObject);
var i : Word; // Schleifenvariable
begin
Form1.Color:=clBlack;
Form1.Canvas.Pen.Color:=clRed;
i:=0;
while (i < Form1.ClientHeight) or (i < Form1.ClientWidth) do
begin
Form1.Canvas.MoveTo(0, i * 2);
Form1.Canvas.LineTo(i * 2, 0);
Inc(i, 2);
end;
end;