Hi,
ich habe mir folgenden Code geschrieben der einer listView ein Item hinzufügt.
Delphi-Quellcode:
procedure Tfrm_Wizard.AddFileToList(FileName: String);
var
ext: String;
item: TListItem;
begin
item := TListItem.Create(lst_Files.Items);
item.Caption := FileName;
ext := ExtractFileExt(FileName);
if IsPathDelimiter(FileName, Length(Filename)) then
begin
item.ImageIndex := 4;
end
...
//hab das mal etwas gekürzt ;-)
...
else
begin
item.ImageIndex := 5;
end;
item.Checked := true;
item.StateIndex := -1;
lst_Files.Items.AddItem(Item);
end;
Jetzt wird zwar das Symbol angezeigt. Aber nicht die caption, wieso??? ne Eigenschaft wie z. B. ShowCaption := true gibts nicht.
Ich habe schon die versch. Einstellungen der ListView durchprobiert.
Weiß jemand Rat?