Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

ImageList


Bartov ©   (2002-11-22 14:51:00) 

Есть у нас ImageList:
IL.DrawingStyle := [dsBlend25];
IL.Draw(Ico, DC, Rect.Left, Rect.Top);

При рисовании иконка подсвечивается системным цветом.
А как сделать, чтоб иконка подсвечивалась своим цветом?
Если не трудно - мона кусочек кода.
Help me!!!


Bartov   (2002-11-23 15:14:00) [1]

>Если верить MSDN - никак. Это про прямые методы.
Нет мона!!!

var icRect: TRect;
begin
...
icRect.Left := 3; { Точно указываем ширину = 16 }
icRect.Right := 19;
...
IL.DrawingStyle := [dsBlend25];
IL.BlendColor := Color2RGB(ЦВЕТ ПОДСВЕТКИ);
IL.StretchDraw(Ico, DC, icRect);
end;

Нам необходимо указать точно ширину(иногда и высоту) Rect`а, иначе будет все черное...

Вопрос закрыт ;-)


Gandalf   (2002-11-22 18:13:00) [2]


> А как сделать, чтоб иконка подсвечивалась своим цветом?


Если верить MSDN - никак. Это про прямые методы.

Обходной, это самому рисовать сделав маску, тогда можно не только Blend25(50), Blend_скока_надо устроить.


Наверх

Титульная страница Поиск, карта сайта Написать письмо