Implementa el siguiente código
Código Delphi
[-]
procedure TForm1.JvDBLookupCombo1GetImage(Sender: TObject;
IsEmpty: Boolean; var Graphic: TGraphic; var TextMargin: Integer);
var
imgStream : TStream;
imgGraphic : TBitmap;
Begin
TextMargin := 80;
try
If Not Table2.Active then Exit;
if Table2.Fieldbyname('Diseno').IsNull then Exit;
imgStream := Tstream.create;
imgStream := Table2.CreateBlobStream(Table2.Fieldbyname('Diseno'),bmread);
imgGraphic := TBitmap.Create;
imgGraphic.LoadFromStream(imgStream);
TextMargin := imgGraphic.Width;
Graphic := imgGraphic;
imgStream.free;
finally end;
end;
para aumentar la altura del lienzo, aumenta la propiedad ItemHeight del control, normalmente trae 13, la puedes aumentar a 48 o más segun tus necesidades. Tampoco no vayas a abusar. También, dependiendo de la altura de las imágenes tienes que disminuir la propiedad DropDownCounts, normalmente trae en ocho, pero tu veras, si la tienes que disminuir hasta que la lista desplegable quepa en la pantalla.
Espero que me entiendas. Ha sido un placer haberte ayudado. Bye.