ListView. Как раскрасить строки

← →
TCrash (2003-11-05 00:07) [0]

Имеем TListView с vsReport. Можно ли некоторые строки выделить цветом?

Спасибо.

← →
Спрашивающий_ (2003-11-05 03:20) [1]

Можно например так
procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView;
Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
If ListView1.Items[2]=Item Then
begin
ListView1.Canvas.Brush.Color:=clRed;
ListView1.Canvas.FillRect(Rect(0,0,0,0));
end Else
begin
ListView1.Canvas.Brush.Color:=clLime;
ListView1.Canvas.FillRect(Rect(0,0,0,0));
end;

end;

← →
Спрашивающий_ (2003-11-05 03:23) [2]

Поправка строку ниже можно не использовать
ListView1.Canvas.FillRect(Rect(0,0,0,0));

ListView. Как раскрасить строки Найти похожие ветки