Как заставить TImage сжать bmp-файл сохраняя пропорции

← →
tex (2005-03-14 14:39) [0]

Ув.мастера, подскажите как сделать, чтобы TImage сжимал исходный bmp-файл сохраняя пропорции (высота к ширине). Задача простая: на форме нужно отобразить фотографию. Использую TImage. Если установить Stretch=True, то видна вся картинка, но лица получаются либо растянутые в ширину, либо сжатые. Если Stretch=False, то виден только кусок исходной картинки. Различные вариации со свойством AutoSize тоже ничего хорошего не дают.
Заранее спасибо.

← →
Virgo_Style © (2005-03-14 14:48) [1]

1.Корректировать размер Image (сам не пробовал)
2.Выводить на Image отмасштабированную картинку

← →
tex (2005-03-14 15:44) [2]

Да, приходится корректировать размер Image вручную.
В Delphi6 все гораздо проще - там у TImage появилось свойство Proportional.

Как заставить TImage сжать bmp-файл сохраняя пропорции Найти похожие ветки