РАскрасить строки ListViev.

[Aleksandr]

Как раскрасить строки с двойками в зеленый цвет в ListViev.

[Stilet]

Легкий пример:http://www.delphiworld.narod.ru/base/lv_colored.html

[Aleksandr]

мне нужно раскрасить строки у которых в 9 столбце стоит 2 вот мой код
with Phones.Canvas.Brush do
begin if Phones.Items.Item[9].Caption='2' then
Phones.Canvas.Brush.Color:=clRed;
end;
Что я делаю не так?

[DIgorevich]

На какое событие этот код вставлен?

[Пепел Феникса]

у вас в коде проверяется первый столбец десятой строки.
процедура получает номер строки нужный(или сам итем, не помню)
а 9 столбец это 8 суб-итем, итого Item.SubItems[8]='2'

[Aleksandr]

Сделал как писал Пепел Фенекса

procedure TPhoneBook.PhonesCustomDrawItem(Sender: TCustomListView;
  Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
begin

 with Phones.Canvas.Brush do
 begin  if  Phones.Items.Item.SubItems[9]='2' then
      Phones.Canvas.Brush.Color:=clRed;
    end;

end;

, но не работает

[DIgorevich]

еще раз обратите внимание на предыдущий пост Пепла Феникса (не удержался).
Там четко написано, что Вам надо ставить: Phones.Items.Item.SubItems[8]='2'

[Aleksandr]

Если насчет 8, то там все правильно ( на самом деле он 10 столбец) -это я учел.

[DIgorevich]

Запакуйте в архив - дайте глянуть.

[Aleksandr]

бросаю прогу,но там подключены компоненты.