使用缩放中心缩放旋转图像（Delphi，fmx）答案

【问题标题】：Scale a rotated image with zoom center (Delphi, fmx)使用缩放中心缩放旋转图像（Delphi，fmx）
【发布时间】：2021-05-08 22:18:49
【问题描述】：

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

我首先在 Windows 上尝试这个。现在一切正常，除了当图像旋转时，特定缩放中心的缩放不起作用（缩放中心四处移动）。当旋转角度 = 0 时，它确实工作正常。我可以再次沉迷于数学以获得正确的图像位置方程，但首先想在这里问一下是否有人曾经解决过这个问题。

要使下面的代码正常工作，请执行以下操作：

开始一个新的空白 fmx 多设备项目
添加与客户端对齐的 TPanel
添加一个 TImage，用任意图像填充它的 MultiResBitmap 属性
将图像的 hittest 属性设置为 false（用于缩放的面板输入）

在下面的最小代码示例中，图像在表单的 FormCreate 过程中旋转（或者看不到在某个点的缩放应该如何工作）。在 Panel1MouseWheel 过程中滚动鼠标滚轮时，在鼠标位置进行缩放。

所以需要调整的只是注释下方的两行 // 缩放时校正图像位置

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;

【问题讨论】：

标签： delphi rotation zooming scale firemonkey

【解决方案1】：

我假设您要缩放到光标，以使光标处的图像像素不移动。即使角度为 0，您的代码也没有为我做到这一点。您的代码存在一些问题。首先是如何计算 zoom_center，其次是如何校正图像位置。这是已将您的代码注释掉的更正代码。当旋转角度为 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;

【讨论】：