Ver Mensaje Individual
  #1  
Antiguo 07-10-2004
JROMAN JROMAN is offline
Miembro
 
Registrado: sep 2003
Posts: 11
Reputación: 0
JROMAN Va por buen camino
Arrow Añadir imagenes en un TimageList

Hola a Todos.
Estoy intentando añadir BMPs en tiempo de ejecución a un TimageList, pero siempre recibo el mismo mensaje 'Invalid image Size' , y no se por qué.
Adjunto código a ver si alguien me puede echar una mano.

Código Delphi [-]
var
  imagen: tbitmap;
  cadena string;
begin
  image:=tbitmap.create;
  imagelist1.Clear;
  cadena:=getcurrentdir+'\main.bmp';
  imagen.loadfromfile(cadena);
  imagelist1.AddMasked(imagen,clWhite);

y si el bmp lo cargo mediante el image Editor del Timagelist, lo carga perfectamente.

Un saludo.
Responder Con Cita