Item in ListView hinzufügen mit icon

[Äfan]

Hi,

Ich habe folgendes vor: Wenn man auf den Button klickt, werden alle DAteien des Ordners X in die Liste eigefügt. Wie mache ich es, das wenn die datei vom typ Text ist, das icon 1 aus imagelist davor gesetzt wird ? Also das man schon am symbol erkennen kann, welcher typ es ist. Ich wollte es mit:

Delphi-Quellcode:

If Caption = '*.txt' then
setze bild davor
...

...machen, nur weiß ich nicht, wie man ein bild so davor setzen kann.

MFG

[toms]

Hi,

Sollte so funktionieren:

Delphi-Quellcode:

ListViewItem.ImageIndex := 1

[Äfan]

Ne so geht es nicht. Es dürfte normalerweise auch kein ListViewItem stehen sondern wenn dann nur ImageIndex, geht aber trotzdem nicht.

Hier mal der codeteil:

Delphi-Quellcode:

... 
 with DownloadList.Items.Add do
   begin
    if ((sr.attr and faDirectory) <> faDirectory) then
     if Caption = '*.txt' then
      
      BILD 1 AUS IMAGELIST SOLL FÜR DIESEN ITEM GEZEIGT WERDEN
      
      Caption := (sr.Name);
      Subitems.Add(formatfloat('0.00',sr.Size / 1024)+' KB');
      Subitems.Add(DateTimeToStr(FileDateToDateTime(sr.time)));
   end;
...

mfg

[Luckie]

So geht es und so steht es auch als Beispiel in der Hilfe. gefunden über TCustomListview -> SmallImages:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
  I: Integer;
  ListItem: TListItem;
  NewColumn: TListColumn;
begin
  // Create a ListView item for each image in the ImageList
  with ListView1 do
  begin
    SmallImages := ImageList1;
    LargeImages := ImageList1;
    for I := 0 to ImageList1.Count - 1 do
    begin
      ListItem := Items.Add;
      Listitem.Caption := 'Image' + IntToStr(I);

      ListItem.ImageIndex := I;
    end;

[Äfan]

Wie würde des in meinem Code mit dem Bild aussehen ? Bei mit klapp was net...

[Luckie]

Zeog deinen Code.

[Äfan]

Delphi-Quellcode:

  with DownloadList.Items.Add do
   begin
    if ((sr.attr and faDirectory) <> faDirectory) then
     Caption := (sr.Name);
     Subitems.Add(formatfloat('0.00',sr.Size / 1024)+' KB');
     Subitems.Add(DateTimeToStr(FileDateToDateTime(sr.time)));
    end;

[alcaeus]

Na dann, wo liegt das problem?

Delphi-Quellcode:

  with DownloadList.Items.Add do
   begin
    if ((sr.attr and faDirectory) <> faDirectory) then
     Caption := (sr.Name);
     Subitems.Add(formatfloat('0.00',sr.Size / 1024)+' KB');
     Subitems.Add(DateTimeToStr(FileDateToDateTime(sr.time)));
     ImageIndex := 0;
    end;

Natürlich musst du der ListView eine Imagelist zuweisen, sonst wird wohl relativ wenig angezeigt werden.

Greetz
alcaeus

PS: Ich musste auch erst in der Hilfe nachsehn, also : wer suchet, der findet

[Äfan]

Ahhh das mit ImageIndex ging vorhin net, da kam immer ein Fehler, aber jetzt gehts. Big thanks !

MFFFFG

[ehem. Benutzer]

Nimm doch einfach ein ShellListView, ordne per Eigenschaft 'root' den
Ordner zu und dann eben die gewünschte Datei.

Icons werden standardmäßig mit angezeigt (glaub ich). ;-)



MfG



[edit] ListView drausgemacht :lol: