Foros Club Delphi - trabajo en el componente ImageList de BCB

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- C++ Builder (https://www.clubdelphi.com/foros/forumdisplay.php?f=13)

- - trabajo en el componente ImageList de BCB (https://www.clubdelphi.com/foros/showthread.php?t=79991)

trabajo en el componente ImageList de BCB

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

Como desde los codigos puedo introduccir una imagen.

Hola lisette.

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

Código:

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:

Código:

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.

trabajo en el componente ImageList de BCB

Gracias el codigo funciono a la perfeccion.