Probleme mit ComboBox-Einträge in verschiedenen Farben

[Cathleen]

Hallo,
ich möchte gerne in meiner Combobox, Einträge in verschieden Schriftfarben angezeigt bekommen.
so ungefähr
items[0]= Blau
items[1]= Rot

in einem ähnlichen beitrag habe ich bereits ein Code Beispiel gefunden. Doch er funktioniert bei mir nicht. Gibt es irgentwelche Besonderheiten, Einstellungen usw. zu beachten?
Vielleicht ist es nur ein Versionskonflikt. Ich programmiere mit Delphi7.

Delphi-Quellcode:

procedure TfrmMAIN.ComboBox1DrawItem(Control: TWinControl; Index: Integer; 
  Rect: TRect; State: TOwnerDrawState); 

var 
  cb : TComboBox; 
begin 
  cb := TComboBox(Control); 
  case Index of 
    0 : 
      begin 
        cb.Canvas.Brush.Color := clWhite; 
        cb.Canvas.FillRect(Rect); 
        cb.Canvas.Font.Color := clBlack; 
        cb.Canvas.TextOut(Rect.Left,Rect.Top,cb.Items[Index]); 
      end; 
    1 : 
      begin 
        cb.Canvas.Brush.Color := clGreen; 
        cb.Canvas.FillRect(Rect); 
        cb.Canvas.Font.Color := clWhite; 
        cb.Canvas.TextOut(Rect.Left,Rect.Top,cb.Items[Index]); 
      end; 
    2 : 
      begin 
        cb.Canvas.Brush.Color := clRed; 
        cb.Canvas.FillRect(Rect); 
        cb.Canvas.Font.Color := clWhite; 
        cb.Canvas.TextOut(Rect.Left,Rect.Top,cb.Items[Index]); 
      end; 
  end; 
end

Bin für alle Ideen und Vorschläge offen.
Danke!

Cathleen

[Mirilin]

:hi:


Hast Du "Style" auch entsprechend geändert?


mfg Tobias