|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
27.02.2009, 00:37 | #1 |
Регистрация: 27.02.2009
Сообщений: 7
|
проблема копирования из image.canvas в переменную TBitMap
Доброго времени суток.
Мне необходимо подсвечивать картинки при наведении мыши. Делаю путем замены бэкграунда: Код:
Может быть кто подскажет почему так происходит? Последний раз редактировалось rpy3uH; 27.02.2009 в 08:13. |
27.02.2009, 05:35 | #2 |
Пользователь
Регистрация: 25.02.2009
Сообщений: 28
|
Для работы _bitmap ему надо задать его размеры
Код:
Код:
Мышь продолжает двигаться и событие вызывается неоднократно и при следующем вызове Image1 там будет не исходная картинка Поэтому исходную картинку надо было загружать из ресурса, с которого будет восстанавливаться Image1 после снятия подсветки Вообще лучше создать свой Component, например как показано ниже на основе Timage И добавить в него два события вход на объект Image и покидание объекта (вызываемые однократно) Код:
(причем в данном случае ресурс MouseIn будет содержать рисунок подсвеченной кнопки) А чтоб для всех Image использовать только один MouseIn надо пользоваться _bitmap.canvas.CopyMode:= и оперировать в переменных получаю нужные эффекты, а (Sender as TImage).Canvas.CopyRect( ... выполнять один раз, иначе будет мельтешить) Код:
Последний раз редактировалось CahekG; 27.02.2009 в 09:49. |
27.02.2009, 09:44 | #3 |
Регистрация: 27.02.2009
Сообщений: 7
|
Спасибо за ответ. Использовать EnterMouse и LeaveMouse действительно будет правильным.
Вот что получилось. Может кому пригодится Код:
Последний раз редактировалось h4muk; 28.02.2009 в 08:30. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Проблема с Image | Vitalik55 | Мультимедиа в Delphi | 9 | 05.12.2008 12:03 |
TBitmap | odi_noki | Мультимедиа в Delphi | 17 | 25.10.2008 09:53 |
TBitmap в многопоточном приложении | Sergey_nl | Мультимедиа в Delphi | 3 | 09.07.2007 00:34 |
Запрет копирования | pinhead | Win Api | 11 | 10.01.2007 07:01 |
передать переменную | ar4i | Общие вопросы Delphi | 10 | 04.12.2006 14:30 |