以缩放中心旋转图像（Delphi，fmx）的比例调整

Question

我试图构建一个看似简单的GUI界面，其中Timage可以进行平移、缩放和旋转。缩放和旋转应该在/围绕定义的缩放和旋转中心位置完成。

我首先在Windows上尝试这个功能。现在一切都正常，除了当图像旋转时，特定缩放中心的缩放不起作用（缩放中心会移动）。当旋转角度=0时，它能正常工作。我可以重新计算得出正确的图像位置方程，但是首先想在这里问一下是否有人曾经解决过这个问题。

为了使下面的代码工作，请执行以下步骤：

• 启动一个新的空白fmx多设备项目
• 添加一个与客户端对齐的TPanel
• 添加一个TImage，将其MultiResBitmap属性填充为任何图像
• 将图像的hittest属性设置为false（使用面板输入进行缩放）

下面是最小的代码示例，在表单的FormCreate过程中旋转图像（或不旋转以查看缩放某一点的工作原理）。在Panel1MouseWheel过程中，通过鼠标滚轮滚动时在鼠标位置进行缩放。

所以需要调整的只有下面注释后面的两行代码： // correction for image position when scaling

procedure TForm1.FormCreate(Sender: TObject);
begin
//  Image1.RotationAngle := 0;
  Image1.RotationAngle := 30;
end;

procedure TForm1.Panel1MouseWheel(Sender: TObject; Shift: TShiftState;
  WheelDelta: Integer; var Handled: Boolean);
var zoom_center: TPointF;
    new_scale,old_scale: single;
    P1,P2: TPointF;
begin
  // Scaling (mousewheel)
  if shift = [] then
  begin
    zoom_center := screen.MousePos - ClienttoScreen(Image1.LocalToAbsolute(PointF(0,0)));

    old_scale := Image1.Scale.X;
    if WheelDelta>=0 then new_scale := old_scale * (1 + (WheelDelta / 120)/5)
                     else new_scale := old_scale / (1 - (WheelDelta / 120)/5);

    Image1.Scale.X := new_scale;
    Image1.Scale.Y := new_scale;

    // correction for image position when scaling
    Image1.Position.X := Image1.Position.X + zoom_center.x * (1-new_scale/old_scale);
    Image1.Position.Y := Image1.Position.Y + zoom_center.y * (1-new_scale/old_scale);
  end;
end;

- Gerard

Answer 1

我假设您希望通过缩放到光标来使图像像素不移动。即使角度为0，您的代码对我也没有实现这个功能。您的代码存在两个问题：首先是如何计算缩放中心，其次是如何校正图像位置。以下是已更正的代码，其中您的代码被注释掉。当旋转角度为0或30时，它似乎能够正常工作。

procedure TForm1.Panel1MouseWheel(Sender: TObject; Shift: TShiftState;
  WheelDelta: Integer; var Handled: Boolean);
var zoom_center: TPointF;
    new_scale,old_scale: single;
    P1,P2: TPointF;
begin
  // Scaling (mousewheel)
  if shift = [] then
  begin
    //zoom_center := screen.MousePos - ClienttoScreen(Image1.LocalToAbsolute(PointF(0,0)));
    zoom_center := ScreenToClient(Screen.MousePos) - Panel1.Position.Point;

    old_scale := Image1.Scale.X;
    if WheelDelta>=0 then new_scale := old_scale * (1 + (WheelDelta / 120)/5)
                     else new_scale := old_scale / (1 - (WheelDelta / 120)/5);

    Image1.Scale.X := new_scale;
    Image1.Scale.Y := new_scale;

    // correction for image position when scaling
    //Image1.Position.X := Image1.Position.X + zoom_center.x * (1-new_scale/old_scale);
    //Image1.Position.Y := Image1.Position.Y + zoom_center.y * (1-new_scale/old_scale);

    Image1.Position.Point := zoom_center - (new_scale * (zoom_center - Image1.Position.Point) / old_scale);
  end;
end;

- XylemFlow