Delphi-Quellcode:
begin
with Control as TListBox do begin // Mit dem gewählten Control
Canvas.FillRect(Rect); // mal ein Viereck, so groß wie das Control ist
Canvas.FontColor:=TColor(Items.Objects[Index]); // Setze Schriftart, so wie irgendwo gewählt
Canvas.TextOut(Rect.Left +2, Rect.Top, Items[Index]); // Schreibe einen String aufs Control
end;
end;
Mehr läßt sich auch den 5 Zeilen nicht entnehmen