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);