在listview控件中如何显示两种或两种以上的颜色?(5分)

用delphi自带的listview别想,如果用第三方控件可以实现
http://vcl.vclxx.org/DELPHIGB/DEFAULT.HTM
这里可以找到这样的控件
 
是不是不同的字体或字色或字底色?
如果是这个,应该很容易做到啊,代码如下:
procedure TfrmBN.lsvGoodsCustomDrawItem(Sender: TCustomListView;
Item: TListItem;
State: TCustomDrawState;
var DefaultDraw: Boolean);
begin
if Round((Item.Index Mod 2))=0 then
lsvGoods.Canvas.Brush.Color:=RGB(220,255,220)
else
lsvGoods.Canvas.Brush.Color:=clWhite;
end;
 
epic的方法好像可以哦!
 
接受答案了.
 
顶部