Hallo zusammen
Und danke für die Antwort
Ja ich hatte vergessen zu erwähnen, das ich es momentan mit einer zweiten Listview Komponente ausprobiert habe
Ich hab es jetzt anders gemacht
Delphi-Quellcode:
If (Bewertung.Kommentar = '1') then Fliste.ListView.Items[i-2].ImageIndex := 0 else
If (Bewertung.Kommentar = '2') then Fliste.ListView.Items[i-2].ImageIndex := 1 else
If (Bewertung.Kommentar = '3') then Fliste.ListView.Items[i-2].ImageIndex := 2 else
If (Bewertung.Kommentar = '4') then Fliste.ListView.Items[i-2].ImageIndex := 3 else
If (Bewertung.Kommentar = '5') then Fliste.ListView.Items[i-2].ImageIndex := 4 else
If (Bewertung.Kommentar = '') then Fliste.ListView.Items[i-2].ImageIndex := -1 else
Macht zwar im Prinzip das gleiche, aber man kann nicht jede Spalte mit einem Icon oder Bitmap versehen , oder ?
Liebe Grüße Starworld