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.