Jetzt noch statt combobox1 ein TComboBox(Control) verwenden und es ist perfekt.
Zitat:
Delphi-Quellcode:
if combobox1.Items.Strings[index] = 'test1' then
combobox1.canvas.Brush.Color := clred;
if combobox1.Items.Strings[index] = 'test2' then
combobox1.canvas.Brush.Color := clyellow;
if combobox1.Items.Strings[index] = 'test3' then
combobox1.canvas.Brush.Color := clgreen;
Wenn du weißt, welcher Eintrag wo ist, dann kannst du den Index auch direkt verwenden.
Delphi-Quellcode:
case Index of
0: TComboBox(Control).Canvas.Brush.Color := clRed;
1: TComboBox(Control).Canvas.Brush.Color := clYellow;
2: TComboBox(Control).Canvas.Brush.Color := clGreen;
end;
PS: Eine ordentliche Codeeinrückung, sowie eine entsprechende Groß-/Kleinschreibung macht das Lesen/Verstehen von Code um Einiges einfacher.