Такая задача:
есть обьект TImage который отображет рисунок (Stretch = Proportional = true). Пользователь помечает на рисунке прямоугольную область, которую необходимо скопировать в другой объект TImage.

Как получить координаты прямоугольника для копирования (координаты для копирования с помощью CopyRect) ?

В TImage->Picture и в TImage->Picture->Bitmap находятся размеры оригинальной (не Stretch) картинки.
Пробовал экранные координаты переводить в координаты картинки с помощью соотношения TImage->Picture->Height/TImage->Height но там приходится использовать операции округления — теряется точность (я так и не смог подобрать алгоритм для правильного перевода :( вроде всё просто, но...).
Сейчас делаю копирование через дескриптор экрана но теряю всё качество и разрешение ресунка :(

Может кто знает проще и надежней метод.

Здравствуйте MadVanger, Вы писали:

MV>Такая задача:
MV>есть обьект TImage который отображет рисунок (Stretch = Proportional = true). Пользователь
MV>Может кто знает проще и надежней метод.


Я просто тормоз прошу прощения за отнятое время. Уже всё сделал.