Mit TCanvas "langsam" zeichnen

**Helpliner**

Hallo Leute,

ich zeichne in einem Beispiel das Haus vom Nikolaus wie folgt:

Delphi-Quellcode:

			procedure TForm1.Button1Click(Sender: TObject);

begin

 Canvas.Pen.Width:=3;          //Breite der Linien

 Canvas.Pen.Color:=clRed;      //Farbe = Rot

 Canvas.MoveTo(50,150);        //und los...

 Canvas.LineTo(150,50);

 Canvas.LineTo(50,50);

 Canvas.LineTo(150,150);

 Canvas.LineTo(50,150);

 Canvas.LineTo(50,50);

 Canvas.LineTo(100,0);

 Canvas.LineTo(150,50);

 Canvas.LineTo(150,150);        //...und schluss!

end;

Ich möchte nun das man sehen kann welche Codezeile welche Linie zeichnet, dafür habe ich mir vorgestellt das ich in nem Label ausgebe welche Codezeile gerade verarbeitet wird, allerdings ist mir nicht ganz klar wie ich jetzt eine Pause zwischen jeder zu zeichnenden Linie mache (evtl. Timer, aber wie dann umsetzen).

Für Tips und Anregungen wäre ich dankbar.

Mit TCanvas "langsam" zeichnen

Mit TCanvas "langsam" zeichnen

Forumregeln