Работа с компонентом ListView

← →
r9000 (2004-06-04 11:58) [0]

Добрый день!

Не могли бы вы мне помочь? Пытаюсь закрасить строки компонента
ListView(Viewstyle=vsReport) разным цветом. Мне необходимо, чтобы в зависимости от содержимого колонки 3 ListView, т.е. 2 SubItems, строчки ListView закрашивались разным цветом. Можно ли это сделать и как? Если возможно на примере.
Я пытаюсь сделать так:

procedure TForm1.ListView1CustomDrawSubItem(Sender: TCustomListView;
Item: TListItem; SubItem: Integer; State: TCustomDrawState;
var DefaultDraw: Boolean);
begin
DefaultDraw := TRUE;
if (SubItem=2) and (trim(ListView1.Items[2].SubItems.Text)="10") then
TListView(sender).Canvas.Brush.Color:=clgreen
else
TListView(sender).Canvas.Brush.Color:=clWhite
но при этом закрашиваются столбец 3 ListView зеленым цветом, а не строки с (trim(ListView1.Items[2].SubItems.Text)="10",
а как сделать это в процедуре ListView1CustomDrawItem
не очень понятно.

← →
Clickmaker © (2004-06-04 12:04) [1]

OnAdvancedCustomDrawItem, Stage = cdPrePaint

← →
r9000 (2004-06-04 12:16) [2]

А можно на примере для данного случая, пожалуйста? Stage=cdPrePaint как используется?

← →
Семен Сорокин © (2004-06-04 12:19) [3]

and (trim(Item.SubItems[SubItem].Text)="10") then

← →
Семен Сорокин © (2004-06-04 12:19) [4]

сорри вот так:
and (trim(Item.SubItems[SubItem])="10") then

← →
r9000 (2004-06-04 12:31) [5]

Спасибо всем, получилось!

А как на этом компоненте нарисовать рисунки (как в проводнике); надо создавать TImage на нём или можно по другому?

Работа с компонентом ListView Найти похожие ветки