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?