procedure TQueryForm.ListViewCustomDrawItem(Sender: TCustomListView;
Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
inherited;
DefaultDraw:=false;
if ((item.Index )mod 2)=0 then
begin
TListView(Sender).Canvas.Brush.Color := RGB(224, 224, 224);
//TListView(Sender).Canvas.Font.Color := clred;
end;
DefaultDraw:=true;
end;
改变ListView颜色
最新推荐文章于 2020-02-15 15:16:03 发布