![]() |
Item in ListView hinzufügen mit icon
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:
...machen, nur weiß ich nicht, wie man ein bild so davor setzen kann.
If Caption = '*.txt' then
setze bild davor ... MFG |
Re: Item in ListView hinzufügen mit icon
Hi,
Sollte so funktionieren:
Delphi-Quellcode:
ListViewItem.ImageIndex := 1
|
Re: Item in ListView hinzufügen mit icon
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:
mfg
...
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; ... |
Re: Item in ListView hinzufügen mit icon
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; |
Re: Item in ListView hinzufügen mit icon
Wie würde des in meinem Code mit dem Bild aussehen ? Bei mit klapp was net...
|
Re: Item in ListView hinzufügen mit icon
Zeog deinen Code.
|
Re: Item in ListView hinzufügen mit icon
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; |
Re: Item in ListView hinzufügen mit icon
Na dann, wo liegt das problem?
Delphi-Quellcode:
Natürlich musst du der ListView eine Imagelist zuweisen, sonst wird wohl relativ wenig angezeigt werden.
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; Greetz alcaeus PS: Ich musste auch erst in der Hilfe nachsehn, also : wer suchet, der findet |
Re: Item in ListView hinzufügen mit icon
Ahhh das mit ImageIndex ging vorhin net, da kam immer ein Fehler, aber jetzt gehts. Big thanks !
MFFFFG |
Re: Item in ListView hinzufügen mit icon
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: |
Alle Zeitangaben in WEZ +1. Es ist jetzt 17:29 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz