Question

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

有办法做到这一点吗？

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;

运行时的ListView颜色项

1 个答案: