Координаты клика на изображение

[Kronos913]

Итак, есть Image, у которого активировано свойство Proportional
И в него загружено изображение.

Image имеет квадратную форму (Height=Width)
А вот загруженное изображение может быть любых размеров и пропорций сторон

При нажатии на изображения в OnMouseDown попадают координаты на объекте Image, но не координаты на самом изображении. А нужно получить координаты на самом изображении

Я создал для себя ниже описанную функцию, с помощью которой я перевожу одни координаты в другие.

x1:=trunc(X*KvPrImageKoeff(Image1) );
y1:=trunc(Y*KvPrImageKoeff(Image1) );

Function KvPrImageKoeff(Im: TImage):real;
begin
  If (Im.Height<Im.Picture.Height) or (Im.Width<Im.Picture.Width) then begin
    If Im.Picture.Height>Im.Picture.Width then begin
      Result:=Im.Picture.Height/Im.Height;
    End else begin
      Result:=Im.Picture.Width/Im.Width;
    End;
  end else Result:=1;
end;

ВОПРОС: а надо ли вообще городить весь этот огород? Или есть более прямой способ получить координаты?

[Arigato]

Зная ширину и высоту изображения до его масштабирования, можно пересчитать экранные координаты в те, что были на исходном изображении. Другого пути тут нет.

[BDA]

Сообщение от Kronos913

else Result:=1;

А чего без растяжения, если исходное изображение меньше image?

zoom := Max(Image1.Picture.Height / Image1.Height, Image1.Picture.Width / Image1.Width);
x1 := Trunc(X * zoom);
y1 := Trunc(Y * zoom);

[Kronos913]

Сообщение от BDA

А чего без растяжения, если исходное изображение меньше image?

Если исходное меньше, то оно просто будет собрано в угол к 1:1

[BDA]

Сообщение от Kronos913

то оно просто будет собрано в угол к 1:1

И правда.

zoom := Max(Max(Image1.Picture.Height / Image1.Height, Image1.Picture.Width / Image1.Width), 1);