Discussion :

[magdani]

Bonjour,

Je voudrais insérer une image d'un Tglyph dans un Timage

Les images de mon Glyph viennent d'un Imagelist.

Mon code ci-dessous :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Glyph1->ImageIndex =0;
Image1->MultiResBitmap->Insert(Glyph1->ImageIndex);
}

Pas d'erreurs mais ça ne marche pas. J'ai essayé avec MultiResBitmap->Add, pas moyen non plus

Si vous avez une solution, merci d'avance

[magdani]

J'ai finalement trouvé une solution :

Dans le fichier .cpp :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
#pragma package(smart_init)
#pragma resource "*.fmx"
 
TBitmap *MyBitmap; // pour créer un Bitmap
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    Glyph1->ImageIndex =0;      // ou 1 ou 2 ... selon l'image choisie à partir de ImageList
    MyBitmap = new TBitmap(0,0);    // création du bitmap
    MyBitmap->Assign(Glyph1->MakeScreenshot());
    Image1->Bitmap = MyBitmap;
}