如何在 Delphi 中为特定的列表视图项着色？

【问题标题】：How to color specific List View Item in Delphi?如何在 Delphi 中为特定的列表视图项着色？
【发布时间】：2015-12-12 11:50:23
【问题描述】：

我正在制作一个调度系统，我想为列表视图中的一些特定项目着色。例如，如果时钟中的当前时间是 07:00 AM，那么列表视图将为其中包含 07:00 AM 的所有项目着色。我该怎么做？我真的不知道从哪里开始。我现在拥有的是这个，

查看日程

【问题讨论】：

请参阅this question 获取灵感。

标签： delphi-xe5

【解决方案1】：

您可以在OnCustomDrawItem 和OnCustomDrawSubItem 事件处理程序中设置字体属性。例如：

procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView; Item: TListItem;
  State: TCustomDrawState; var DefaultDraw: Boolean);
begin
  if odd(Item.Index) then begin
    Sender.Canvas.Font.Color := clRed;
  end;
end;

procedure TForm1.ListView1CustomDrawSubItem(Sender: TCustomListView; Item: TListItem; 
  SubItem: Integer; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
  if odd(Item.Index) then begin
    Sender.Canvas.Font.Color := clRed;
  end;
end;

【讨论】：