在 TImageViewer 中重新定位图像

Question

我正在为 iOS 构建一个 FMX 应用程序，它在 TPanel 上有一个 TImageViewer，TImageViewer 与内容对齐。我将文件中的位图加载到TImageViewer 中，然后我可以平移并放大/缩小图像。工作正常。

我现在想要的是一个按钮单击事件来重新定位图像的左边缘在TPanel 的左边缘，所以它看起来像下面的顶部图像。

这是首次加载时的示例：

这是在我平移它之后：

我已经搜索和试验了一整天，但我就是无法得到它。我尝试重新加载位图文件，但什么也没做。有什么建议吗？

谢谢，拉斯

Answer 1

找到了一种基于this delphi question的方法。请注意，ImageMap 是我在 Form1 上的TImageViewer 的名称。

TPointF myOffset;
myOffset = Form1->ImageMap->ViewportPosition; // this is (0,0) before the image is panned around, non-zero otherwise
Form1->ImageMap->ScrollBy(myOffset.X, myOffset.Y) ;