Ayuda ComboBoxEx

[dec]

Hola,

Ignoro si en C++ Builder cuentas con el componente "ComboBoxEx" (en la pestaña "Win32" de la paleta de componentes), digo, que si cuentas con este componente tal vez te interese usarlo. Es un "ComboBox" con esteroides que entre otras cosas permite asignarle una lista de imágenes ("TImageList") y que cada "item" tenga asociada una por lo menos.

Si no cuentas con el componente "TComboBoxEx"... el caso es que creo que sí que era posible implementar lo que se necesita partiendo de un sencillo "TComboBox", empero, ahora mismo no sabría decirte... creo que en estos mismos Foros Román alguna vez solucionó algo así.

[roman]

Empezado por dec

Si no cuentas con el componente "TComboBoxEx"

Pero, ¡desde un principio preguntó por este componente!

Empezado por título original del hilo

Ayuda ComboBoxEx

// Saludos

[dec]

Hola,

¡Pues ni me dí cuenta!

Ahora mismo estaba yo liado con el evento "OnDrawItem" del humilde "ComboBox" (no "Ex") puesto que como se dice en la ayuda:

Write an OnDrawItem event handler to draw the items in the drop-down list of an owner-draw combo box. An OnDrawItem event handler can add graphic elements to the list items, or replace the list item text by graphics.

Je, je, je... ¡A ver si me pongo unas buenas gafas!

[dec]

Hola,

Bueno. Pues utilizando un "ComboBox" normal, corriente y moliente, poniendo su estilo a "csOwnerDrawFixed", podemos utilizar su evento "OnDrawItem" más o menos como sigue:

Código Delphi [-]
procedure TForm1.ComboBox1DrawItem(Control: TWinControl;
 Index: Integer; Rect: TRect; State: TOwnerDrawState);
begin
   with (Control as TComboBox) do
   begin
     Canvas.FillRect(Rect);

     { Los Items impares tendrán la imagen con index 0 que
       se encuentre en el componente "TImageList" que asumimos
     }
     if Odd(Index) then
       ImageList1.Draw(Canvas, 0, Rect.Top, 0)
     else
       // Los Items pares tendrán la imagen con index 1
       ImageList1.Draw(Canvas, 0, Rect.Top, 1);

     Canvas.TextOut(Rect.Left+18,Rect.Top,Items[Index]);
   end;
end;

Todavía quedaría por retocar algunos detallitos, pero, básicamente eso es.

[Ge0Ks]

muchisimas gracias por la respuesta