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

[aguml]

A ver, ya di con la solucion pero querria a ver si podeis explicarme porque pasa eso.
El bitbtn es uno solo y si cargo la imagen en el evento oncreate del form se carga con transparencia sin problemas.
El problema viene si intentas cambiar la imagen en ejecucion que entonces no cambia la imagen.
Probé a poner las propiedades del Glyph (Transparent a true, cambiar el color de TransparentColor, cambiar TransparentMode, y otras cosas).
Probé con:

Código PHP:

bitbtn->Glyph->Canvas->Draw(0,0,bmp); 


Eso si que funciona pero hay que usar un TBitmap intermedio.
Despues de tanto comerme la cabeza me di cuenta que con esto funciona perfecto:

Código PHP:

void __fastcall TForm2::FormCreate(TObject *Sender)
{
   ImageList->GetBitmap(0, BitBtnImprimir->Glyph);
}
//---------------------------------------------------------------------------

void __fastcall TForm2::BitBtnImprimirClick(TObject *Sender)
{
   if(imprimiendo == false)
   {
      imprimiendo = true;
      BitBtnImprimir->Glyph = NULL;
      ImageList->GetBitmap(1, BitBtnImprimir->Glyph);
      VividReport1->Print();
   }
   else
   {
      Application->MessageBoxA("La impresion ya ha sido enviada. Espere a que termine el proceso de envio y vuelve a intentarlo.", "Atención", MB_OK |MB_ICONINFORMATION | MB_APPLMODAL);
   }
}
//---------------------------------------------------------------------------

void __fastcall TForm2::VividReport1EndPrint(TObject *Sender,
      TAfterAction &ARepeat)
{
   BitBtnImprimir->Glyph = NULL;
   ImageList->GetBitmap(0, BitBtnImprimir->Glyph);
   imprimiendo = false;
} 


No se porque hay que poner a NULL el Glyph antes de asignarle una nueva imagen para que funcione pero asi funciona y sin eso no funciona. ¿pueden explicarme por que? ¿es correcto lo que hago?

[ecfisa]

Hola aguml.

Empezado por aguml

...
He probado con:

Código PHP:

ImageList->GetBitmap(0,BitBtnImprimir->Glyph); 
pero no surte efecto, solo me ha funcionado usando el metodo de arriba y la verdad es que no me agrada tener que usar un TBitmap intermedio para ello ¿se puede hacer directamente? 


...

Entonces, la pregunta inicial esta mál formulada. No es que el código anterior no surta efecto, sucede cuando se intenta cargar una imágen a un TBitBtn que ya posee una.

Empezado por aguml

No se porque hay que poner a NULL el Glyph antes de asignarle una nueva imagen para que funcione pero asi funciona y sin eso no funciona. ¿pueden explicarme por que? ¿es correcto lo que hago?

No exíste un método como "Clear" o "Delete" que realice el borrado de un contenedor gráfico, la forma de "limpiarlo" es asignándole el valor NULL.
Esto, por ejemplo, también se cumple para un TImage, donde el código a aplicar es:

Código PHP:

{
  Image1->Picture = NULL; // ó : ... = 0
  // O, con el mismo resultado:
  Image1->Picture->Assign(NULL); // ó : ... = 0
} 


Así que si, definitivamente es correcto hacerlo de ese modo.

Saludos