|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Цветной текст в строках ListBox
Требуется помощь - поиск в гугле и на форуме ничего не дал.
Каким образом можно для каждого отдельного Item'a в ListBox задать или изменить цвет текста (не фоновый, а обычный)? |
#2
|
|||
|
|||
Можно так...
Свойство Style установите в lbOwnerDrawFixed Код:
with ListBox1.Canvas do begin if index mod 2 = 0 then begin Brush.Color:=clGreen; Font.Color:=clWhite; FillRect(Rect); TextOut(Rect.Left+2,Rect.Top+2, ListBox1.Items.Strings[index]); end else begin Brush.Color:=clWhite; Font.Color:=clBlack; FillRect(Rect); TextOut(Rect.Left+2,Rect.Top+2, ListBox1.Items.Strings[index]); end; end; |