| makena76 hat folgendes geschrieben: |
| Einen Icon kannst auch noch setzen, da musst aber IMO noch eine ImageList einfügen und dann nur auf die ImageId verweisen. |
Und er wollte ja wissen wie
DAS geht.
Also kopiere ich auch mal ein Beispiel aus meiner Anwendung raus. Die lädt Icons in einem bestimmten Verzeichnis und zeigt sie mit Namen und Bild in der List-View an:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
| lv1.Items.Clear; lv1.Items.BeginUpdate;
lvimg.Clear;
if(directoryexists(ExtractFilePath(paramstr(0)) + szSharedIcons)) then
with lv1 do begin
res := FindFirst(ExtractFilePath(paramstr(0)) + szSharedIcons +
'\*.ico',faAnyFile,ds);
while(res = 0) do begin
mIcon := TIcon.Create;
try
mIcon.LoadFromFile(ExtractFilePath(paramstr(0)) +
szSharedIcons + '\' + ds.Name);
li := Items.Add;
li.Caption := ds.Name;
li.ImageIndex := lvimg.AddIcon(mIcon);
finally
mIcon.Free;
end;
res := FindNext(ds);
end;
FindClose(ds);
end;
lv1.Items.EndUpdate; |
Die eigentlich interessante Zeile ist
Delphi-Quelltext
1:
| li.ImageIndex := lvimg.AddIcon(mIcon); |
Hier wird für das aktuelle List-View-Item der Bildindex auf das zuletzt in die Imageliste angehangene Symbol gesetzt. Nach gleichem Muster lässt sich vorgehen, wenn du eine Imageliste mit festen Symbolen hast, um den Code von makena76 zu benutzen
Delphi-Quelltext
1:
| ListView.Items[j].ImageIndex := 3; |
würde für das gerade aktuelle List-View-Item das 4. Symbol aus der Imageliste benutzen. usw. usw.
Gruß.
