运行时的ListView颜色项

Question

我知道当我使用OnDraw事件将它们添加到列表中时我可以为项目设置自定义颜色,但我想在它们已经在列表中之后的某个点更改项目的颜色.

有没有办法做到这一点 ？

Answer 1

要仅重绘某些项目,请使用该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;