Kopieren-Animation in Painbox zeichnen

[Glados]

Zitat:

weil mir noch nicht klar ist, wo Du wirklich Hilfe brauchst.

Im Prinzip bei allem. In die PaintBox zeichnen kann ja funktionieren aber da verschwindet immer alles.

Gerade kurz sowas hier getestet... funktioniert natürlich auch nicht.. wie immer bei mir

Delphi-Quellcode:

var
 val: Integer;
 bmp: TBitmap;
begin
 val := Random(bmp.Height);

 bmp := TBitmap.Create;
 bmp.Height := PaintBox1.Height;
 bmp.Width := PaintBox1.Width;

 bmp.Canvas.FillRect(ClientRect);
 bmp.Canvas.MoveTo(0, bmp.Height - val);
 bmp.Canvas.LineTo(0, bmp.Height);

 PaintBox1.Canvas.Draw(0, 0, bmp);