Показать сообщение отдельно
  #4  
Старый 27.11.2011, 21:46
Аватар для MRWind
MRWind MRWind вне форума
Прохожий
 
Регистрация: 23.11.2011
Адрес: Санкт-Петербург
Сообщения: 9
Версия Delphi: Delphi XE2
Репутация: 10
По умолчанию

Цитата:
Сообщение от U.B.M.
Картинка на форме? Или картинка на имадже, который на форме?

Если на имадже, то можно так:
1. Берем Image1 с размерами меньше картинки, ставим
Код:
 Image1.Stretch := true
Картинка уменьшится чтоб впихнуться в Image1.
2. При наведении мыши на Image1 увеличиваем его размеры и перерисовываем картинку - она опять впихнется в Image, но будет уже большего размера.

Вариант2 : берем пиксель маленькой картинки, он с координатами [x,y]. Допустим картинка при наведении увеличивается в 1.21 раза. Следовательно нужно перерисовать этот пиксель с координатами [trunc(x*1.21),trunc(y*1.21)].

Вот как-то так.
Все работает, вот только одна картинка увеличивается в размерах а другая уменьшается
__________________
...
Ответить с цитированием