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.