Kolorowy tekst w ComboBox

Aby poszczególne elementy w ComboBox1 miały różne kolory czcionek należy najpierw w Inspektorze Obiektów ustawić właściwość Style na csOwnerDrawFixed, a następnie utworzyć zdarzenie OnDrawItem:

Unit1.cpp

void __fastcall TForm1::ComboBox1DrawItem(TWinControl *Control, int Index, TRect &Rect,
                                          TOwnerDrawState State)
{
   switch (Index)
   {
      case 0: ComboBox1->Canvas->Font->Color = clBlue;  break;
      case 1: ComboBox1->Canvas->Font->Color = clRed;   break;
      case 2: ComboBox1->Canvas->Font->Color = clGreen; break;
   }

   ComboBox1->Canvas->FillRect(Rect);
   ComboBox1->Canvas->TextOut(Rect.Left + ImageList1->Height + 2, Rect.Top,                               ComboBox1->Items->Strings[Index]);
}