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

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

обратите внимание на вторую строчку моего ответа.(пост 5)
и на второй параметр вашей процедуры.

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

красное - это итем который рисуется, его суб-итем и проверяйте.

[Aleksandr]

менял итем на субитем по прежнему ничего.

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

procedure TPhoneBook.PhonesCustomDrawItem(Sender: TCustomListView;
  Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
 if  Item.SubItems[9]='2' then Sender.Canvas.Brush.Color:=clRed;
end;

так тоже не работает?(кстати, а разве не надо включать CustomDraw или я путаю?)

[Aleksandr]

Не работает.

[Stilet]

Aleksandr

Проект в студию )

[Aleksandr]

Я его уже бросал. 10 пост

[Stilet]

Aleksandr

Извиняюсь, запамятовал...

[Aleksandr]

Вот простейщий вариант

[Stilet]

procedure TForm1.ListView1CustomDrawSubItem(Sender: TCustomListView;
  Item: TListItem; SubItem: Integer; State: TCustomDrawState;
  var DefaultDraw: Boolean);
begin
   with Sender.Canvas.Brush do
   begin

    if (item.SubItems.Count>SubItem)and(item.SubItems[SubItem]='2') then
     Color:=clRed
     else
     Color:=clWhite;
   end;

end;

Понял как нужно?

[Aleksandr]

первую строку красит норамльно, а остальные нет