如何重画ListView的某列(SubItem)?

Question

我将ListView设为csReport格式，存在四个列：UserId,UserName,IpAddress,Stats;
我如何根据Stats的状态，突出显示该列？急！

Answer 1

在LiseView1的OnCustomDrawSubItem事件中:
procedure TForm1.ListView1CustomDrawSubItem(Sender: TCustomListView;
  Item: TListItem; SubItem: Integer; State: TCustomDrawState;
  var DefaultDraw: Boolean);
begin
  if SubItem = 3 then
  with ListView1.Canvas do begin
    Brush.Color := clRed;  // 背景色
    Font.Color := clWhite; // 字体颜色
  end;
end;

Answer 2

如果stats是第一列对应于item.Caption
如果是第四列对应于item.Subitems[3]

Answer 3

又是一个不眠夜，CSDN要戒严了。记得葛优(演的一个人物)曾经说过：“……什么人都可以惹，唯独小人不能沾。”初春的一场小雪，纷纷扬扬地下着，掩饰了大地，掩盖了一切人间的罪恶。上帝说：“有阳光就有黑暗，有善举就有罪过。饶恕他吧。”