| 发表于:2007-04-09 09:44:312楼 得分:0 |
procedure tform1.listview1customdrawsubitem(sender: tcustomlistview; item: tlistitem; subitem: integer; state: tcustomdrawstate; var defaultdraw: boolean); begin sender.canvas.font.color :=clblack; //先恢复默认 if (trim(tlistview(sender).column[subitem].caption)= '列标志 ') then if strtoint(item.subitems.strings[subitem])> =100 then sender.canvas.font.color :=clyellow; end; | | |
|