Change ListView color

xiaoxiao2021-03-14  197

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 (transnvas.font.color: = CLRED; END; defaultdraw: = true;

转载请注明原文地址:https://www.9cbs.com/read-129452.html

New Post(0)