Hallo,
ich hab mir jetzt verschiedene Threads durchgelesen zu dem Thema, aber ich hab 's nicht verstanden. Ich will auch einer Listbox ein Item hinzufügen und jedem Item eine eigene Farbe verpassen. (Die Listbox soll Einträge der Registry anzeigen.)
Zuerst wird ein Farbwert ausgelesen, dann soll die Farbe eben geändert (werden) und danach das Item in dieser Farbe hinzugefügt werden.
Der Code sieht etwa so aus:
Delphi-Quellcode:
procedure TForm1.Listbox1Click(Sender: TObject);
[...]
for i:=1 to Liste.Count do //Liste ist eine StringListe
begin
if regist.ValueExists('Name_'+IntToStr(i)) then
begin
Name:=regist.ReadString('Name_'+IntToStr(i));
Farbe:=regist.ReadInteger('Name_'+IntToStr(i)+'_color');
Listbox1.Font.Color:=Farbe;
Listbox1.Items.Add(Name);
end;
end;
Ich habe es schon mit dem OnDrawItem versucht, aber da wurden gar keine Items hinzugefügt, wenn es so aussah ("Listbox1.Font.Color:=Farbe" oben dann ausgeklammert):
Delphi-Quellcode:
procedure TForm1.Listbox1DrawItem(Control: TWinControl;
Index: Integer; Rect: TRect; State: TOwnerDrawState);
begin
Listbox1.Font.Color:=Farbe;
end;