怎么动态修改listview某行某列的字体颜色？

Question

例如我从数据库中取出几行数据，循环填入listview中，然后根据某些条件，然后规定某行某列的字体颜色，和粗细等等！谢谢！

Answer 1

CustDrawItem中，添加代码：if Item.Index mod 2 =0 thenSender.Canvas.Brush.Color :=clSkyBlueelse

Answer 2

procedure TFrmCarMain.LVUnit_CarCustomDrawItem(Sender: TCustomListView;
  Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
var
  strCar_Status: String;
begin
  //【报停|欠费】车辆的颜色醒目显示
  strCar_Status := Trim(Item.SubItems.Text);  if (strCar_Status='报停') or (strCar_Status='欠费') then//这里写你的条件
    Sender.Canvas.Brush.Color := clMoneyGreen;end;

Answer 3

CustDrawItem中，添加代码：

Answer 4

需设ListView1.OwnerDraw := true

Answer 5

CustDrawItem中，添加代码：if Item.Index mod 2 =0 thenSender.Canvas.Brush.Color :=clSkyBlue