как можно осуществить zoom in и zoom out в Delphi
От: demoniac  
Дата: 05.01.03 15:17
Оценка:
сабж?
Есть большой jpg файл порядка 5 mb.
В размерах 2000*4000 его просматривть неудобно. Надо как то zoom in zoom out делать.
Пробовал stretch не понравилось. Не качественная картинка получается.
Re: как можно осуществить zoom in и zoom out в Delphi
От: Bolgaroff Казахстан  
Дата: 06.01.03 06:36
Оценка: 8 (2)
Здравствуйте, demoniac, Вы писали:

D>сабж?

D>Есть большой jpg файл порядка 5 mb.
D>В размерах 2000*4000 его просматривть неудобно. Надо как то zoom in zoom out делать.
D>Пробовал stretch не понравилось. Не качественная картинка получается.

Попробуй использовать библиотеку Graphics32 (http:\\g32.org) — очень некислый там компонент TImage32
Re: как можно осуществить zoom in и zoom out в Delphi
От: kavlad Россия http://www.wavesoft.ru
Дата: 10.01.03 06:31
Оценка:
Распаковываешь его в битмап, а битмап рисуешь как тебе нужно. Т.е. для каждого масштаба пересчитываешь координаты видимой области этого битмапа, и копируешь ее на канву, хоть TImage'а, хоть TImage32'a, хоть на канву формы.
Если очень надо — поищу свои исходники.
В уши льется 01-Smells Like Teen Spirit
 
Подождите ...
Wait...
Пока на собственное сообщение не было ответов, его можно удалить.