Galgenmännchen

[Tomislav]

Erstmal eine Frage zu der Paintbox: Ich möchte den Galgen usw. in einer Paintbox zeichnen lassen. Beim Start des Spiels soll der Boden gezeichnet werden, warum zeichnet er ihn nicht wie ich vorgebe.

Code:

procedure Button.Click {ka halt}
var a, b: TPoint;
begin
 PaintBox.Canvas.Rectangle (0,0,PaintBox.height,PaintBox.width);
   with PaintBox do
   begin
    a.x := 1;
    a.y := height-1;
    b.x := width-1;
    b.y := a.y;
    canvas.moveto(a.x, a.y);
    canvas.lineto(b.x, b.y);
   end;
end;

hmm?