ListView: Icon in 2. Spalte wenn CheckBoxes = true

[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;