Здравствуйте, demoniac, Вы писали:
D>сабж? D>Есть большой jpg файл порядка 5 mb. D>В размерах 2000*4000 его просматривть неудобно. Надо как то zoom in zoom out делать. D>Пробовал stretch не понравилось. Не качественная картинка получается.
Попробуй использовать библиотеку Graphics32 (http:\\g32.org) — очень некислый там компонент TImage32
сабж?
Есть большой jpg файл порядка 5 mb.
В размерах 2000*4000 его просматривть неудобно. Надо как то zoom in zoom out делать.
Пробовал stretch не понравилось. Не качественная картинка получается.
Re: как можно осуществить zoom in и zoom out в Delphi
Распаковываешь его в битмап, а битмап рисуешь как тебе нужно. Т.е. для каждого масштаба пересчитываешь координаты видимой области этого битмапа, и копируешь ее на канву, хоть TImage'а, хоть TImage32'a, хоть на канву формы.
Если очень надо — поищу свои исходники.