Diagonale Linien zeichnen

[Christian18]

Hallo,

ich bin gerade dabei mir meinen Hintergrund von der Form ein bisschen zu verschönern. Dazu wollte ich einfach nur Diagonale Linien zeichnen. Die Farbe soll immer abwechseln. Dazu hatte ich mir übergegt, dass es ein bisschen schneller geht die Hintergrundfarbe zu setzen und dann nur jede zweite linie zu zeichnen. aber leider bekomme ich das nicht hin. Könnt ihr mir ein paar Tips geben?

So geht es leider nicht.

Delphi-Quellcode:

procedure TForm1.FormPaint(Sender: TObject);
  var x : Integer;
begin
  Form1.Color:=clWhite;
  for x:=0 to Form1.ClientWidth div 2 do
    begin
      Form1.Canvas.MoveTo(x * 2, 0);
      Form1.Canvas.LineTo(Form1.ClientWidth, Form1.ClientHeight - x * 2);
    end;
end;

Edit:

Mhhh... ich glaube ich habe den Fehler gefunden. Es wird ja nur der Winkel von 45 Grad eingehalten, wenn das Fenster ein Quadrat ist.

MFG Christian18