Delphi XE2 List Artifacts

Question

I use listview in vsreport virtual mode, it has two columns and after I populate the list, select one row and then select another row where the artifact is left in the previously selected row, see image below. How to fix it?

and this is my code that gets data from an array

procedure TForm1.ListView1Data(Sender: TObject; Item: TListItem); begin Item.Caption := FloatToStr(Item.Index + 1); Item.SubItems.Add(FloatToStr(a[Item.Index])); end; 

When I mouse over, the artifacts disappear. Thanks

Answer 1

Sets the DoubleBuffered property of Listview true to solve the artifact problem.