[MRWind]

Привет Всем!
Нужно сделать так, чтоб при наведении курсором на картинку(на форме) картинка немного увеличивалась в размере.

[U.B.M.]

Сообщение от MRWind

Привет Всем!
Нужно сделать так, чтоб при наведении курсором на картинку(на форме) картинка немного увеличивалась в размере.

Картинка на форме? Или картинка на имадже, который на форме?

Если на имадже, то можно так:
1. Берем Image1 с размерами меньше картинки, ставим

Код:

 Image1.Stretch := true

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

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

Вот как-то так.

[U.B.M.]

И для справки инфа.

Вариант "самому подумать и код выложить (или хотя бы идею как делать)" быстрее приведет к успеху чем вариант "много тем насоздавать".

Ещё вариант - раздел "Работа".

[MRWind]

Сообщение от 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)].

Вот как-то так.

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

[U.B.M.]

Сообщение от MRWind

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

Картинка ужимается до раздела окна, но не растягивается до размера окна - может в этом проблема?