ListView: Icon in 2. Spalte wenn CheckBoxes = true

[Helmi]

Hallo,

ich möchte in der 2. Spalte einer ListView ein Icon einfügen.

In dem Thread heisst es, es geht mit SubItemImages.

Ich hab das mal getestet, aber egal was ich mach, es geht ned.

Mit dieser Function füg ich eine neue Zeile in die ListView hinzu:

Delphi-Quellcode:

procedure TForm1.ListView_neuer_Eintrag(ListView: TListView; const ersteSpalte,
          Rest_CommaText: String; Checked: Boolean = true);
var
  ListItem: TListItem;

begin
  with ListView do
    begin
      ListItem := Items.Add;
      ListItem.Caption := ersteSpalte;
      ListItem.SubItems.CommaText := Rest_CommaText;

      If Checkboxes then
        Items.Item[Items.Count - 1].Checked := Checked;

      //TEST
      ListItem.ImageIndex := -1;
      ListItem.SubItemImages[0] := 1;
      //TEST
    end;
end;

Der Absatz mit "TEST" ist ein Test zum einfügen eines Icons in die 2. Spalte - leider gehts nicht!

Kann mir jemand verraten, wieso das nicht geht, bzw. was ich falsch gemacht hab?

[edit]
Ich hab jetzt den Text im Betreff geändert, dass es mehr speziell darum geht, ein Icon in die 2. Spalte zu bekommen, wenn CheckBoxes = true ist. Dann in diesem Fall geht es mit SubItemImages nicht!
Weiss jemand für diesen Fall eine Lösung wie man trotz CheckBoxes = true in die 2. Spalte ein Icon reinbekommt?