Foros Club Delphi - Duda con el combo

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - Duda con el combo (https://www.clubdelphi.com/foros/showthread.php?t=4631)

Duda con el combo

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.

Aquí te paso un ejemplo sencillo:

Código:

{

  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!