在TImageViewer控件中,用户可以缩放或平移图片。
我的问题是,当用户点击图片时,如何获取用户在图片上的点击位置?尤其是用户可以放大、缩小或平移图片后,如何获取对应的图片点击位置?
演示项目: Demo source code
最佳答案
我没有测试,但它应该可以工作:
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
是相对于原始(未缩放)图像的坐标。
关于image - TImageViewer中,如何获取用户点击图片的位置?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/61424642/