Duda con el combo

[ivanmm]

Me gustaría saber si hay alguna forma de cambiar los colores de los item que se inserta en un combo, es decir, que pueda haber dentro del combo, items con distintos colores

Muchas gracias a tosdos.

[delphi.com.ar]

Aquí te paso un ejemplo sencillo:

{
  www.delphi.com.ar
  El combo debe tener la propiedad Style en uno de los siguientes valores: csOwnerDrawFixed, csOwnerDrawVariable
}
procedure TForm1.ComboBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);
begin
  with ComboBox1.Canvas do
  begin
    if not (odSelected in State) Then
    begin
      if Odd(Index) Then
        Font.Color := clWhite
      else
        Font.Color := clBlack;

      if Odd(Index) Then
        Brush.Color := clGray
      else
        Brush.Color := clSilver;
    end;

    FillRect(Rect);
    TextRect(Rect, Rect.Left + 1, Rect.Top + 1, ComboBox1.Items[Index]);
  end;
end;

Saludos!