在TImageViewer中，如何获取用户点击图片的位置？

Question

在TImageViewer控件中，用户可以缩放或平移图片。

我的问题是，当用户点击图片时，如何获取用户在图片上的点击位置？尤其是用户可以对图片进行放大、缩小或平移操作后，如何获取相应的图片点击位置？

如下图所示：

如何知道用户是否点击了电池位置？

演示项目：Demo source code

Answer 1

我没有测试，但它应该可以工作：

procedure TfmMain.ivImageViewerMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Single);
var
    DX, DY: Single;
    ImageX, ImageY: Single;
begin
    if ivImageViewer.Bitmap.Width * ScalePicture >= ivImageViewer.Width then
        DX = ivImageViewer.ViewportPosition.X
    else
        DX := (ivImageViewer.Bitmap.Width * ScalePicture - ivImageViewer.Width)/2;
    ImageX := (X + DX) / ScalePicture;

    if ivImageViewer.Bitmap.Height * ScalePicture >= ivImageViewer.Height then
        DY = ivImageViewer.ViewportPosition.Y
    else
        DY := (ivImageViewer.Bitmap.Height * ScalePicture - ivImageViewer.Height)/2;
    ImageY := (Y + DY) / ScalePicture;
end;

ImageX和ImageY是相对于原始(未缩放)图像的坐标。