delphi - Firemonkey TImageControl 缩放

Question

我想修改 Firemonkey 中的 TImageViewer 处理缩放的方式。当我滚动鼠标滚轮时，图像应该缩放，但图像不应该居中。相反，缩放前位于鼠标位置的像素必须在缩放后仍位于鼠标位置。因此，它应该与 Windows 照片查看器一样工作。

我正在使用 XE3 并在 Delphi 中编程。