Verschiedene Farben einzelner Items in ComboBox

[sebastian1979]

vielen Dank für die raschen Antworten.

Ich habe es jetzt wie folgt ausprobiert:

Style auf csOwnerDrawFixed gesetzt und testweise auch auf csOwnerDrawVariable

Delphi-Quellcode:

procedure TMHauptmaske.ComboBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
  var i:integer;
begin
  i:= combobox1.ItemIndex;
  if combobox1.Items.Strings[i] = 'test1' then
  combobox1.canvas.Brush.Color := clred;
  if combobox1.Items.Strings[i] = 'test2' then
  combobox1.canvas.Brush.Color := clyellow;
  if combobox1.Items.Strings[i] = 'test3' then
  combobox1.canvas.Brush.Color := clgreen;
  combobox1.canvas.FillRect(rect);
end;

Allerdings ändert sich die Frabe erst wenn ich mit der maus über das item gehe,
vorher ist das ganze Feld weiß, es sollen aber direkt die entsprechneden Fraben angezeigt werden.

Des Weiteren scheint dabei der Text auch in der Farbe erstellt zu werden,
der soll aber schwarz bleiben.