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;
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;