在Listview中如何对item的绘画？？？

[huangjun12]

现在碰到个问题，我知道在Listview中如何绘画，但是当我从数据库中返回记录往Listview中写数据时，比如当一条Listitem.caption中的值为负数时将该行item的颜色画为黄色，不满足条件的就不画，这个代码如何实现

[yueshujiang]

www.delphiboy.com

[江宁侯哥]

procedure Tform1.ListView1CustomDrawItem(
Sender: TCustomListView; Item: TListItem; State: TCustomDrawState;
var DefaultDraw: Boolean);
begin
if strtofloat(Item.caption)<0 then
Sender.Canvas.font.Color :=clYellow;
end;