Delphi : Listview 不同行列显示不同颜色

//不同列显示不同颜色
procedure TMainForm.ListView1CustomDrawSubItem(Sender: TCustomListView;
Item: TListItem; SubItem: Integer; State: TCustomDrawState;
var DefaultDraw: Boolean);
begin
exit;
case SubItem of
2: listview1.Canvas.Font.Color := clBlue; //第二列
else
listview1.Canvas.Font.Color := clBlack;
end;
end;

//不同行显示不同颜色
procedure TMainForm.ListView1CustomDrawItem(Sender: TCustomListView;
Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
if item.Index mod 2 = 1 then
begin
sender.Canvas.Brush.Color:=clGray;
end
else
sender.Canvas.Brush.Color:=clwhite;
end;