delphi – 运行时的ListView颜色项

发布时间：2020-12-15 04:19:22 所属栏目：大数据来源：网络整理

导读：我知道当我使用OnDraw事件将它们添加到列表中时我可以为项目设置自定义颜色,但我想在它们已经在列表中之后的某个点更改项目的颜色. 有没有办法做到这一点？解决方法要仅重绘某些项目,请使用 UpdateItems 方法.它有两个输入参数,您可以在其中指定要重绘的

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

有没有办法做到这一点？

解决方法

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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!