Delphi TListview自绘实现每行或每列或每个单元格根据内容显示不同颜色

程序运行效果如下图：

 效果实现源码如下：

procedure TForm1.ListView1CustomDrawSubItem(Sender: TCustomListView; Item: TListItem; SubItem: Integer; State: TCustomDrawState; var DefaultDraw: Boolean);
var
  Rect: TRect;
  Button: TSpeedButton;
begin
//设置整列颜色
//  if SubItem in [5..15] then
//    Sender.Canvas.Font.Color := clGreen
//  else
//    Sender.Canvas.Font.Color := clBlack;


  if SubItem in [5..15] then
  begin
    if Item.SubItems[SubItem - 1] = '有' then
      Sender.Canvas.Font.Color :=clBlue  //clgreen//cllime
    else
      Sender.Canvas.Font.Color := clBlack;
  end;

  if SubItem=13 then
  begin
    Sender.Canvas.Font.Color := clRed;
  end;
end;