Imagenes en Combobox/Listbox

[Bicho]

En primer lugar, hay que poner un ImageList en el form, con las imágenes que querramos usar.

Tanto para el combobox como el listbox hay que poner la propiedad Style a lbOwnerDrawFixed.

Por último pondremos éste código en el evento OnDrawItem:

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
begin
with (Control as TListBox) do begin // with (Control as TCombobox) do begin --según el componente que querramos usar
Canvas.FillRect(Rect);
Canvas.TextOut(Rect.Left+ImageList1.Height+2,Rect.Top,Items[Index]);
ImageList1.Draw(Canvas,Rect.Left,Rect.Top,Index);
end;
end;