Ver Mensaje Individual
  #2  
Antiguo 03-05-2007
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Reputación: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
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
Responder Con Cita