Артефакты списка delphi XE2

Question

Я использую listview в виртуальном режиме vsreport, имеет два столбца и после заполнения списка, выберите одну строку, а затем выберите другую строку, в которой находится артефакт слева от ранее выбранной строки, см. Изображение ниже. Как это исправить?

и это мой код, который получает данные из массива

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

Когда я наведите курсор мыши, артефакты исчезают. Thanks

Answer 1

Установка свойства DoubleBuffered в listview для true решает проблему артефактов.