Listbox con items de colores

[[Bicho]]

Si queremos que un listbox, o un combobox tengan sus items de colores introducid este código al evento OnDrawItem del componente:

Código Delphi [-]
  with (Control as TComboBox) do //with (Control as TListBox) do --según el componente que usemos
  begin
    //Los Items pares de color verde
    //Los impares en rojo
    if Odd(Index) then Canvas.Font.Color:=clGreen
    else               Canvas.Font.Color:=clRed;
    Canvas.FillRect(Rect);
    Canvas.TextOut(Rect.Left,Rect.Top,Items[Index]);
  end;