Bitmap scrollen

[TiGü]

Wie ist es denn so?

Delphi-Quellcode:

procedure TForm2.PaintBox1Paint(Sender: TObject);
var
  re: TRect;
begin
  with PaintBox1 do
  begin
    Canvas.Brush.Color := clBlack;
    Canvas.FillRect(PaintBox1.ClientRect);

    re:=Canvas.ClipRect;
    BitBlt(Canvas.Handle, re.Left, re.Top, re.Right-re.Left, re.Bottom-re.Top, PaintBitmap.Canvas.Handle, re.Left, re.Top, SRCCOPY);
  end;
end;