Recent

Author Topic: Virtual TListView bug with images?  (Read 908 times)

Wallaby

  • New member
  • *
  • Posts: 20
Virtual TListView bug with images?
« on: March 01, 2019, 02:23:57 pm »
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

  • Hero Member
  • *****
  • Posts: 1300
Re: Virtual TListView bug with images?
« Reply #1 on: March 01, 2019, 08:47:01 pm »
Is this a bug I should report?
Bug is registered and already with the patch.

Wallaby

  • New member
  • *
  • Posts: 20
Re: Virtual TListView bug with images?
« Reply #2 on: March 02, 2019, 12:47:47 am »
Is this a bug I should report?
Bug is registered and already with the patch.

Great, thanks!