Kopieren-Animation in Painbox zeichnen

[Glados]

Das Processmessages, egal ob unnötig oder nicht, lasse ich erst einmal drin. Das hat nix mit dem Problem zu tun, dass nicht gescrollt wird.

Hiermit im Timer schaffe ich es zu scrollen. Aber dabei wird das bitmap einfach immer nach rechts verlängert und links rutscht es in den Minusbereich.

Delphi-Quellcode:

// Timer
 bmp.Canvas.MoveTo(iPosX, bmp.Height - val);
 bmp.Canvas.LineTo(iPosX, bmp.Height);

 Inc(iPosX);

 if iPosX >= PaintBox1.Width then
  begin
   Dec(iPosXBmp);
   bmp.Width := bmp.Width + 1;
  end;

procedure TForm1.PaintBox1Paint(Sender: TObject);
begin
 TPaintBox(Sender).Canvas.Draw(iPosXBmp, 0, bmp);
end;

Zitat:

Füge in dem Timer mal so etwas wie meine Schleife ein.

Warum? Der Timer ist doch schon in etwa sowas wie eine Schleife.