Delphi listview改变行字体颜色

今天有个功能，要实现listview行改变字体颜色，之前从未使用此功能，搜索了一下，发现可以解决，记录下来以便日后方便查看。

方法很简单，正如那句话：会者不难，难者不会。改写CustomDrawItem事件即可。

procedure TfrmMain.ListView1CustomDrawItem(Sender: TCustomListView;
Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
if Length(Item.SubItems.Strings[0]) < 9 then
begin
Item.ListView.Canvas.Font.Color := clRed;
end;
end;

加入以上代码后，凡是Item.SubItems.Strings[0]长度少于9以红色字体显示。

另外，若要改变行中的数据，建议加入刷新下控件，这样才会重绘，否则会出现局部数据颜色改变。

刷新代码：ListView1.Refresh;

好了，只是记录一下，懂得一看就懂。