trabajo en el componente ImageList de BCB

[lisette]

el componente ImageList tiene la propiedad Add para incluir las imagenes.

Como desde los codigos puedo introduccir una imagen.

[ecfisa]

Hola lisette.

Te pongo un ejemplo muy básico de como podes hacerlo:

void AddToImageList(TImageList *aImageList, char *aName){
  Graphics::TBitmap *bm = new Graphics::TBitmap;
  __try {
    bm->LoadFromFile(aName);
    aImageList->Add(bm,bm);
  }
  __finally {
    delete bm;
  }
}

Ejemplo de llamada:

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  const AnsiString Ruta = "C:\\TMP\\";
  TSearchRec sr;
  if (!FindFirst(Ruta + "*.bmp", faArchive, sr))  
    do
      AddToImageList(ImageList1,(Ruta+sr.Name).c_str());
    while (!FindNext(sr));
}

Saludos.

[lisette]

Gracias el codigo funciono a la perfeccion.