如何解决使用缩放中心缩放旋转图像Delphi,fmx
我正在尝试构建一个看似简单的 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;
解决方法
我假设您要缩放到光标,以便光标处的图像像素不移动。即使角度为 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;
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。