|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
26.02.2012, 14:28 | #1 |
Пользователь
Регистрация: 05.08.2010
Сообщений: 11
|
Градиент для item в popupmenu
Добрый день! Не получается залить градиентом каждый item в popupmenu. Заливает всю область меню градиентом.
Вот код процедуры: procedure TForm1.GradientRect(FromRGB, ToRGB: TColor; ACanvas: TCanvas); На отрисовку item пишу следующее: procedure TForm1.v1DrawItem(Sender: TObject; ACanvas: TCanvas;Не могу понять, в чем ошибка. Что не так? Заранее благодарен! |
26.02.2012, 17:37 | #2 |
Форумчанин
Регистрация: 08.09.2010
Сообщений: 880
|
Один из работающих вариантов:
Код:
|
26.02.2012, 21:03 | #3 |
Пользователь
Регистрация: 05.08.2010
Сообщений: 11
|
спасибо! работает) но только не так как нужно) закрывает градиентом только надпись( а не все поле .
Я так думаю дело в этой строчке? BM.Canvas.TextOut(ARect.left+24,ARe ct.top+4,( Sender as TMenuItem).Caption); Последний раз редактировалось fed@n; 26.02.2012 в 22:18. |
26.02.2012, 21:55 | #4 |
Пользователь
Регистрация: 05.08.2010
Сообщений: 11
|
! Может кто знает как победить это?))
Последний раз редактировалось fed@n; 26.02.2012 в 22:19. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Перемещать форму по клику на PopupMenu.Item | Alex Cones | Общие вопросы Delphi | 2 | 26.08.2010 03:59 |
Задача переменным значений для разных Item-ов Combobox-а | Stalker209 | Общие вопросы C/C++ | 0 | 24.03.2009 12:22 |
PopupMenu для формы свое, а для Edit - стандартное Виндоус | yaver | Общие вопросы Delphi | 4 | 10.11.2008 15:03 |
Проблема с Caption PopUpMenu Item | Comer_Jus | Общие вопросы Delphi | 3 | 16.05.2008 14:50 |
Как изменить высоту PopUpMenu Item | Comer_Jus | Общие вопросы Delphi | 1 | 16.05.2008 14:26 |