listview如何实现不同列显示不同颜色，及字体大小

Question

已知不同行如何实现，代码如下：if Item.Index mod 2 = 0 then
  begin
    ListView1.Canvas.Brush.Color := clRed;
    ListView1.Canvas.FillRect(Item.DisplayRect(drBounds));
    ListView1.Font.Size := 20;
    ListView1.Canvas.TextOut(item.Position.X,Item.Position.Y,Item.Caption);
  end；要实现不同列显示不同颜色，及字体大小，如何修改？

Answer 1

case Item.Index of
0: ...
1: ...
end

Answer 2

使用OnDrawItem事件，可以用不同颜色
字体不行吧，listitem没有自己的字体属性，说明listview不支持

Answer 3

自己找到答案，但还是要感谢各位热心的朋友：procedure TForm1.ListView1CustomDrawSubItem(Sender: TCustomListView;
  Item: TListItem; SubItem: Integer; State: TCustomDrawState;
  var DefaultDraw: Boolean);
begin
   case SubItem of
    2: listview1.Canvas.Font.Color  :=  clRed;
  else
    listview1.Canvas.Font.Color  :=  clBlack; 
  end;  end;