Как вывести картинку формата tiff в Delphi?

Question

[Андрей Голубков]

Нужно вывести картинку и накладывать текст по координатам.
координаты указаны так
X Y
61,2289 15,32567
56,36088 19,72337

Каким компонентом мне воспользоваться ? Или как реализовать задуманное ?
Пробовал умножать координаты на число, но размеры картинок разные и числа всегда меняются.
Delphi берет только целые числа.
Рисовал на канве TImage, это очень маленькие числа для рисования на канве.
Размеры картинок от 2000 до 6000

Answer 1

[OvLab]

Может координаты в процентах и надо умножать их на соответствующий размер картинки по горизонтали и вертикали и делить на 100?

Answer 2

[Mercury13]

Не знаю пока, кто поддерживает TIFF (я бы поискал, а если не нашёл — сам бы наладил формат в достаточной для нашей недо-САПР мере). В FreeImage, говорят, есть обёртка для Delphi.

Поскольку у вас чертежи, видимо, надо уменьшать картинки по методу Блэкмена или Ланцоша, оно есть в Graphics32.

Второе. Надо понять, что означают эти дробные числа. Очень непохоже, что это координаты в пикселях. А не в пикселях — так в чём? Может, в линейных единицах — тогда из TIFF надо извлечь его DPI. (Да, кто-то утверждает, что координаты в процентах.)

И ВНИМАНИЕ!
X Y
61,2289 15,32567
56,36088 19,72337
Налаживая считывание нашего текстового файла, сделайте, чтобы считывание было локаленезависимым. То есть: поставьте в настройках языка вместо десятичной запятой точку — и не должно слетать!

Answer 3

[Арман Токсимбаев]

Из-за своей лени и перфекционизма, я бы прилепил сбоку ImageMagick.