Created a simple form with a TListView:
ViewStyle = vsReport
SmallImages = ImageList
OwnerData = True
Populated with this code:
procedure TForm1.FormCreate(Sender: TObject);
begin
ListView1.Items.Count := 10;
end;
procedure TForm1.ListView1Data(Sender: TObject; Item: TListItem);
begin
Item.Caption := Item.Index.ToString;
Item.ImageIndex := 0;
Item.SubItems.Add('aaa');
//following line has no effect whether present or not
Item.SubItemImages[0] := -1;
end;
The selected image is shown in every column while it's supposed to be in the first column only. Setting SubItemImages to override that has no effect.
Is this a bug I should report?