ListItem: icons?

[MarcoWarm]

probier folgendes:

Delphi-Quellcode:

procedure TForm1.ListView1GetSubItemImage(Sender: TObject; Item: TListItem;
  SubItem: Integer; var ImageIndex: Integer);
begin
  Case SubItem of 
   0: ImageIndex := 10;
  else
    ImageIndex:=-1;
  end;
end;