Asignar una imagen de un TImageList a un TBitButton en ejecucion

[ecfisa]

Hola aguml.

Usando las imágenes que adjuntaste y este código,

Código PHP:

void __fastcall TForm1::FormCreate(TObject *Sender)
{
  Graphics::TBitmap *bm = new Graphics::TBitmap;

  ImageList1->Height = 42;
  ImageList1->Width  = 42;

  bm->LoadFromFile("C:\\imagenes\\ico_imprimir_original.bmp");
  ImageList1->Add(bm, 0);
  bm->LoadFromFile("C:\\imagenes\\ico_Cancelar_Impresion_original.bmp");
  ImageList1->Add(bm, 0);
  bm->LoadFromFile("C:\\imagenes\\ico_imprimir_final.bmp");
  ImageList1->Add(bm, 0);
  bm->LoadFromFile("C:\\imagenes\\ico_Cancelar_Impresion_final.bmp");
  ImageList1->Add(bm, 0);

  delete bm;
}

void __fastcall TForm1::btnPutImagesClick(TObject *Sender)
{
  ImageList1->GetBitmap(0, BitBtnPrintOrig->Glyph);
  ImageList1->GetBitmap(1, BitBtnCancelOrig->Glyph);
  ImageList1->GetBitmap(2, BitBtnPrintMod->Glyph);
  ImageList1->GetBitmap(3, BitBtnCancelMod->Glyph);
} 


obtengo esta salida:


Saludos