要仅重绘某些项目,请使用
UpdateItems方法.它有两个输入参数,您可以在其中指定要重绘的项目的范围.如果要仅重绘一个项目,则只需将一个项目索引指定为范围.
在这个例子中,我将项目的颜色存储到TListItem.Data属性中,并在计时器的事件中淡化此颜色.更改值后,我调用UpdateItems函数,强制绘制项目事件.是的,没有设置DoubleBuffered,它会闪烁(即使你将定时器的间隔设置为500毫秒).
@H_
403_10@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;
