画布/位图滚动问题

Question

我正在尝试制作一个基于 Delphi 画布的小游戏。基本上，我想制作一个相当大的位图（例如，3000x3000），然后将其加载到画布中，并且能够像普通图像查看器一样向右/向左/向上/向下滚动，但是我不能似乎找到了我要找的东西。有什么想法吗？

Answer 1

将图像加载到屏幕外的 TBitmap 对象。然后，OnPaint，或者只要适合您的特定应用程序，就使用 BitBlt 或 Canvas.Draw 绘制 的矩形子图像TBitmap 到画布上。子部分应从 TBitmap 上的 (X, Y) 开始，并且宽度和高度等于 ClientWidth 和 ClientHeight 的形式，分别。

现在，响应键盘事件。编写 FormKeyDown 事件处理程序，并监听 Key = VK_LEFT、Key = VK_RIGHT、Key = VK_UP 和Key = VK_DOWN（使用case 语句）。当您检测到按下此类键时，根据需要增加/减少 X 或 Y，并使用此起点再次绘制场景。

您还可以响应 MouseDown、MouseMove 和 MouseUp 事件以使用鼠标滚动。您可以只使用中间的一个（MouseMove）：您可以检查光标是否靠近表单边缘，如果是，则沿该方向平滑滚动（使用 TTimer< /code>，例如）。或者，您可以在 MouseDown 中将 FMouseDown 标志设置为 true，并在 中将其重置为 false鼠标按下。然后，在 MouseMove 中，如果 FMouseDown 为 true，则将位图沿 x 方向滚动增量 X-XOld ，以及 y 方向上的增量 Y-YOld。 （这里，X 和 Y 是 MouseMove 事件处理程序的参数；(X, Y) 是当前光标的位置。）

XOld := X;
YOld := Y;

无论FMouseDown 打开还是关闭，MouseMove 过程都应该结束。

Answer 2

我也有同样的问题。我的位图约为 5000x5000 像素，加载到 500x500 像素的 Timage 中。

我编写了一个代码来移动Timage中的位图周围，它不能超出

在开头的Form1 var中声明的AlteMausPos的“边界”。
Kerzenbitmap 是包含 5000x5000 图片的位图。
MausPosDifferenz 包含按下鼠标键时移动鼠标的绝对像素数 (x,y)。

然后它会检查所有内容是否都在位图的范围内，然后再使用 CopyRect 进行复制。

我的大脑花了一些时间才发现复制右方以使用绝对改变的鼠标位置的最佳方法。

procedure Form1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var picLimits: Tpoint;
begin
  AlteMausPos.X := X;
  AlteMausPos.Y := Y;
end;


procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var SourceRect, DestRect: TRect;
begin
  var tempBMP:= Tbitmap.Create;
  MausPosDifferenz.X := MausPosDifferenz.X+ (AlteMausPos.X- X);
  MausPosDifferenz.Y := MausPosDifferenz.Y+ (AlteMausPos.Y- Y);
  if MausPosDifferenz.X >= Kerzenbitmap.Width- Image1.Width then MausPosDifferenz.X := Kerzenbitmap.Width-Image1.Width;
  if MausPosDifferenz.X < 0 then MausPosDifferenz.X:=0;
  if MausPosDifferenz.Y >= Kerzenbitmap.Height-Image1.Height then MausPosDifferenz.Y := Kerzenbitmap.Height-Image1.Height;
  if MausPosDifferenz.Y < 0 then MausPosDifferenz.Y:=0;

  SourceRect:=  Rect( MausPosDifferenz.X, MausPosDifferenz.Y, Image1.Width+ MausPosDifferenz.X, Image1.Height+ MausPosDifferenz.Y);
  DestRect:=    Rect( 0,0, Image1.Width, Image1.Height);
  tempBMP.Assign(Kerzenbitmap);
  TempBMP.Canvas.CopyRect(DestRect, Kerzenbitmap.Canvas, SourceRect);

  Image1.Picture.Assign(tempBMP);
  tempBMP.Free;
end;