Icon in TListview im Subitem?

[SimStar001]

Hallo, ich benutze für meine Dateioperationen ein TListView.

Nun möchte ich zusätzlich zum Text auch noch ein Icon anzeigen lassen.


es soll nun im Subitem "Status" einmal Text sowie noch zusätzlich ein Icon angezeigt werden.


was ich bisher ausprobiert habe ist : Listview1.itemindex := ....

aber wie klappt es jetzt bei subitems?

[DeddyH]

Schau Dir mal die Eigenschaft SubItemImages von TListItem an.

Delphi-Quellcode:

var Item: TListItem;
begin
  Item := ListView1.Items.Add;
  Item.Caption := 'Test';
  Item.SubItems.Add('Hallo');
  if Assigned(ListView1.SmallImages) and (ListView1.SmallImages.Count > 0) then
    Item.SubItemImages[0] := 0;
end;