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?
