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?

[s-off]

Hallo,

also bei mir funktioniert es so (Ergebnis im Anhang)

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  ListItem: TListItem;
begin
  with ListView1 do
    begin
      ListItem := Items.Add;
      ListItem.Caption := 'ersteSpalte';
      ListItem.SubItems.CommaText := 'Rest_CommaText';

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

[Helmi]

mmh! sehr mysteriös! ´

kannst du mir kurz dein beispiel-projekt anhängen?

[edit]
Brauchst es nicht mehr anhängen - hab den Fehler gefunden.
Es geht, wenn CheckBoxes = false ist. Mit CheckBoxen gehts ned!

[Helmi]

*push*

hat keiner eine Ahnung wie das gehen könnte?