[harpo]

Buenas,

necesito mostrar una serie de imágenes jpeg en un grid (concretamente un GridView de http://www.bergsoftware.net/). El problema de este grid es que con él solo se pueden mostrar bmp de 32x32 .

Mi código de pruebas:

var
  IO        :TImageEnIO;
  Stream    :TStream;
  BMPStream :TStream;
  BMP       :TBitmap;
begin
  try
    IO := TImageEnIO.Create(Self);
    BMP := TBitmap.Create;
    BMPStream := TMemoryStream.Create;
    if ResultType = rtImage then
    begin
      Stream:=(NewRecord as TFileData).Thumbnail;
      if Assigned(Stream) then
        IO.LoadFromStreamJPEG(Stream);
        //IO.SaveToFileBMP('C:\p.bmp');
        IO.SaveToStreamBMP(BMPStream);
        BMP.LoadFromStream(BMPStream);
        BMP.Width := 32;
        BMP.Height := 32;
        DBImageList.Insert(DBImageList.Count-1,BMP,nil);
        gvResult.CellByName['image','Last'].AsInteger := DBImageList.Count-1;
    end;
  finally
    IO.Free;
    BMP.Free;
    BMPStream.Free;
    Stream.Free;
  end;

IO es un componente de ImageEn (http://www.hicomponents.com) que en este caso lo único que hace es cargar el jpeg y guardarlo en un stream bmp. El problema lo tengo al guardar las imágenes en la TImageList, si las añado en tiempo de diseño se muestran bien, sin embargo, en runtime no. He probado a no hacer el free de BMP, pero igual.

Alguna idea?

Gracias