如何让Listview(vsReport)选中的一行字体变色或底色改变?
把属性HideSelection设为false就可以得到你的想要的效果!
奇偶颜色不同
procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView;
Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
if odd(item.Index) then //奇偶判断
//if item.Index = ListView1.ItemIndex then
item.ListView.Canvas.Brush.Color := RGB(150, 150, 150)
else
item.ListView.Canvas.Brush.Color := RGB(200, 200, 200);
end;