Как покрасить строки в ListView начиная со второй (не считая заголовка)?

[artemavd]

Добрый вечер! Нашел какой-то код. Нужно, чтобы раскраска осуществлялась со второй по счету строки. Не от заголовка надо отсчет вести, а от первой строки. Помогите доработать сей код:

procedure TForm1.lv2CustomDrawItem(Sender: TCustomListView; Item: TListItem;
  State: TCustomDrawState; var DefaultDraw: Boolean);
var
 i: integer;
begin
 with Form1.lv2.Canvas.Brush do
 begin
//  for i := 1 to Form1.lv2.Items.Count - 1 do
//  begin
   case Item.Index of
    0: Color:=$006262FF;
//    1: Color:=clGreen;
//    2: Color:=clRed;
   end;
//   Form1.lv2.Items[i].SubItems.
//  end;
 end;
end;

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

http://programmersforum.ru/showpost....7&postcount=10

[artemavd]

За исходник спасибо, но он слишком сложен наверное для решения моего вопроса . Неужели нельзя просто в цикле передать как-то? Без указателей и т.д.

[Аватар]

artemavd, обращение к OnCustomDrawItem идет для каждого Item-а, а не для всего ListView в целом. Ни какого цикла по всем Item-ам там не нужно. Item.Index=0 и есть первая строка, для неё или умолчательная покраска, или ничего не надо красить (не помню точно, что будет, если не красить)

ADD cм. http://programmersforum.ru/showthread.php?t=174029

[Человек_Борща]

Нужно, чтобы раскраска осуществлялась со второй по счету строки. Не от заголовка надо отсчет вести, а от первой строки.

Можно скрином показать что и как?

Ибо шапка с названиями колонок, вообще за Item не принимается.
А то что, после шапки и есть стартовый элемент списка(Его индекс = 0).

[updated]

Вот закрашивание др. элементов кроме 0-го(1-го для нас) в списке:

procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView;
  Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
const
  col:array[0..7] of TColor = (clRed,clGreen,clBlue,clBlack,clLime,clMaroon,clDkGray,clYellow);
begin
  if Item.index > 0 then //Если мы не первыев списке. 
   Sender.Canvas.Brush.Color:=Col[RandomRange(0,7)]; //Math Unit for RandomRange needed. 
end;

procedure TForm1.Button1Click(Sender: TObject);
var
LI:TListItem;
i:Integer;
begin
 for i:=0 to 10 do
 begin
   li:=ListView1.Items.Add;
   LI.Caption:=IntToStr(i);
 end;
end;

end.