Agregar imagen estirada a ImageList en Delphi
Tengo una tabla que contiene Imagen en un campo de Imagen y voy a ponerla en una Lista de imágenes. Aquí está el código:
ImageList.Clear;
ItemsDts.First;
ImageBitmap:= TBitmap.Create;
try
while not ItemsDts.Eof do
begin
if not ItemsDtsPicture.IsNull then
begin
ItemsDtsPicture.SaveToFile(TempFileBitmap);
ImageBitmap.LoadFromFile(TempFileBitmap);
ImageList.Add(ImageBitmap, nil);
end;
ItemsDts.Next;
end;
finally
ImageBitmap.Free;
end;
Pero tengo algún problema para las imágenes con un tamaño diferente del tamaño de ImageList.
Update: mi problema es que al agregar una imagen más grande que el tamaño de ImageList (32 * 32), por ejemplo 100 * 150, no aparece correctamente en un componente conectado a ImageList (por ejemplo, en ListView). Parece que la imagen recién agregada no se estira sino que se recorta. Quiero que la nueva imagen se estire como en ImageList Editor.