Llenar un TimageList en ejecucion
 

Hola que tal, estoy seguro que esto esta por demas tratado, pero no lo encuentro, como llenar un TimageList en tiempo de ejecución, tengo imagenes BMP en disco duro y quiero cargarlas en tiempo de ejecucion a un TimageList.

Un ejemplo:

Código Delphi [-]
var
  Bitmap: TBitmap;

begin
  // Estableces las dimensiones de los bitmaps
  ImageList1.Width := 128;
  ImageList1.Height := 128;

  // Creas un bitmap intermediario
  Bitmap := TBitmap.Create;

  try
    // estas dos líneas las repites por cada bitmap que vayas a agregar
    // clWhite será el color transparente
    Bitmap.LoadFromFile('un bitmap.bmp');  // <-- cargas el bitmap del archivo en disco
    ImageList1.AddMasked(Bitmap, clWhite); // <-- lo insertas en el ImageList
 finally
    // liberas memoria
    Bitmap.Free;
  end;
end;

// Saludos

Excelente, Muchas Gracias Roman.

Como Pudo Insertar Imagenes de 122 x 122 pixeles en un imagelist? ¿puedo hacer esto?...
gracias