Verschiedene Farben einzelner Items in ComboBox

[himitsu]

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.