|
在CustomDrawSubItem事件中编写: <span class="copyctrl" style="DISPLAY: none; FONT-SIZE: 0pt"><a href="http://blog.zj.com/">http://blog.zj.com</a> </span> <br/>if Item.Index Mod 2 =0 then <br/>Sender.Canvas.Brush.Color:=$00F4FFFF <br/>else Sender.Canvas.Brush.Color:=$00F7F7F0; <br/>case SubItem of <br/>6: begin <br/>if Item.SubItems[5] = STR_AUDIT_BOOL[True] then <br/>Sender.Canvas.Font.Color := clBlue; <br/>end; <br/>end; |
|