listview里每一个ITEM可不可以用不同颜色显示？

Question

listview里每一个ITEM可不可以用不同颜色显示？

Answer 1

procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView; 
  Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean); 
begin 
  with ListView1.Canvas.Brush do 
  begin 
    case Item.Index of 
      0: Color := clYellow; 
      1: Color := clGreen; 
      2: Color := clRed; 
    end; 
  end; 
end;