5,392
社区成员
发帖
与我相关
我的任务
分享
procedure TForm1.ListView1CustomDrawSubItem(Sender: TCustomListView;
Item: TListItem; SubItem: Integer; State: TCustomDrawState;var DefaultDraw: Boolean);
begin
inherited;
with ListView1.Canvas.Brush do
begin
if (Item.Index=5) and (SubItem=2)
then Color := clYellow
else Color := clWhite
end;
end;