delphi – 运行时的ListView颜色项

要仅重绘某些项目,请使用 UpdateItems方法.它有两个输入参数,您可以在其中指定要重绘的项目的范围.如果要仅重绘一个项目,则只需将一个项目索引指定为范围.

在这个例子中,我将项目的颜色存储到TListItem.Data属性中,并在计时器的事件中淡化此颜色.更改值后,我调用UpdateItems函数,强制绘制项目事件.是的,没有设置DoubleBuffered,它会闪烁(即使你将定时器的间隔设置为500毫秒).

procedure TForm1.FormCreate(Sender: TObject);
begin
  ListView1.AddItem('Item 1',TObject(clWhitE));
  ListView1.AddItem('Item 2',TObject(clWhitE));
  ListView1.AddItem('Item 3',TObject(clWhitE));
  Timer1.Enabled := True;
end;

procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView;
  Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
  ListView1.Canvas.brush.Color := TColor(Item.Data);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
  C: Byte;
  I: TColor;

  procedure ChangeItemColor;
  begin
    I := TColor(ListView1.Items[0].Data);
    C := GetRValue(I);
    if C < 150 then C := 255 else Dec(C);
    I := RGB(C,C,C);
    ListView1.Items[0].Data := TObject(I);
  end;

begin
  // color change
  ChangeItemColor;
  // repaint of the item with index 1
  ListView1.updateItems(1,1);
end;