Virtual TListView bug with images?

[Wallaby]

Created a simple form with a TListView:

Code: Pascal  [Select][+][-]

1. ViewStyle = vsReport
2. SmallImages = ImageList
3. OwnerData = True

Populated with this code:

Code: Pascal  [Select][+][-]

1. procedure TForm1.FormCreate(Sender: TObject);
2. begin
3.   ListView1.Items.Count :=  10;
4. end;
5.  
6. procedure TForm1.ListView1Data(Sender: TObject; Item: TListItem);
7. begin
8.   Item.Caption :=  Item.Index.ToString;
9.   Item.ImageIndex := 0;
10.   Item.SubItems.Add('aaa');
11.   //following line has no effect whether present or not
12.   Item.SubItemImages[0] := -1;
13. 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?

[ASerge]

Is this a bug I should report?

Bug is registered and already with the patch.

[Wallaby]

Is this a bug I should report?

Bug is registered and already with the patch.

Great, thanks!