Foros Club Delphi - TSpeedButton con imágenes de un TImageList

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

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

- - TSpeedButton con imágenes de un TImageList (https://www.clubdelphi.com/foros/showthread.php?t=75878)

Kalondro

24-09-2011 01:48:21

TSpeedButton con imágenes de un TImageList

Hola a todo el foro,

Tengo una pequeña problema que seguro que alguien me lo puede resolver, en un formulario tengo varios TSpeedButton y un componente TImageList con dos imágenes, la idea es que cada uno de los TSpeedButton puede tener una de las dos imágenes o ninguna (sin texto), buscando por el foro he encontrado el siguiente método para quitar la imagen

Código:

 

SpeedButton1->Glyph = NULL;

Pero no he sido capaz de encontrar la forma de poner en cualquier botón la imagen sacada del TImageList. Agradecería cualquier ayuda al respecto.

Muchas gracias.

ecfisa

24-09-2011 02:38:04

Hola.

Probá de este modo:

Código:

/* (El ejemplo pone las imágenes de ImageList en los SpeedButton del form) */

void __fastcall TForm1::Button1Click(TObject *Sender)

{

int Inx=0; // indice 

 for(int i=0; i < ComponentCount - 1; i++)

  // si es SpeedButton y hay imágenes para él, poner imágen

  if(Components[i]->ClassNameIs("TSpeedButton") && Inx < ImageList1->Count) {

    ImageList1->GetBitmap(Inx, ((TSpeedButton*)Components[i])->Glyph); 

    Inx++;  // próxima imágen

  }

}

Inx es el índice que dá la posición de la imágen en el ImageList, donde 0 es la primera y Count-1 la última.

Saludos.

Kalondro

24-09-2011 11:58:55

Es perfecto, justo lo que necesitaba.
Muchas gracias.

La franja horaria es GMT +2. Ahora son las 01:53:49.