Charger TImage depuis un ImageList

Bonjour,

J'ai un ImageList sur un DataModule.
Sur ma fiche FMX j'ai un TImage.

Je souhaiterais que mon TImage soit rempli par l'image ayant l'index 0 de mon ImageList.

J'ai une variable de type Bitmap, mais je ne peux pas faire

Code:

---

ImageList.GetBitmap(0, monBitmap)

---

Car VCL.Graphics.TBitmap diffère de FMX.Graphics.TBitmap :calim2:
Quand je fait un "control-click" sur le GetBitmap cela me renvoi sur le TBitmap de la VCL ..

Merci

Normalement les unités VCL et les unités FMX ne fonctionnent pas ensemble dans un même programme.
Si tu veux le faire en FMX tu peux regarder aussi du côté de TImageControl et constituer un array of Timage ou array of TImageControl

Bonjour,

Je sais, il est tard pour y répondre mais je suis "tombé" sur cette discussion en faisant mes propres recherches sur le sujet (en fait en prenant compte les images multi-résolutions et la résolution de l'écran).

Donc pour répondre à la question, ce serait quelque chose comme

Code:

---

monBitmap.Bitmap:=ImageList.Bitmap(TSizeF.Create(32,32),0);

---

Comme car le TSizeF.create(32,32) est à modifier avec les bonnes largeur et hauteur et que, pour bien faire il faudrait très certainement s'occuper de la multi-résolution (ma recherche actuelle)

Edit : TSizeF.Create(32,32) pourrait être remplacé par monBitmap.Size.Size

C'est bien comme ça. Un bon point pour Sergio ;)

Citation:

---

Envoyé par Papy214

Un bon point pour Sergio ;)

---

Où ça ?
Et non, je galère avec cette histoire de multi-résolution
Pièce jointe 509169

le code :

Code:

---

1 2 3 4 5 6

procedure TBonus.Button1Click(Sender: TObject); var sz : TSizeF; begin sz:=TSizeF.Create(32,32); Image1.Bitmap:=ImageList1.Bitmap(sz,0); end;

---

Pièce jointe 509172
avec sz:=TSizeF.Create(64,64);
Pièce jointe 509173
j'ai bien un image différente mais je n'en ai qu'une partie :bug:

ce serait pas juste l'affichage du TImage qui stretche la visu ?

Code:

---

1 2 3 4 5

procedure TForm1.Button1Click(Sender: TObject); begin Image1.Bitmap := ImageList1.Bitmap(TSizeF.Create(24, 24), 0); Image2.Bitmap := ImageList1.Bitmap(TSizeF.Create(48, 48), 0); end;

---

Pièce jointe 509181

Bonne question :aie: mais non il y a autres choses
Pièce jointe 509184

a) le choix de l'image ne va pas (certainement un rapport avec l'échelle)
b) la découpe (je n'ai pas d'autres termes) est faite par rapport à la taille demandée (avec un :?:)

il faudrait que j'arrive à obtenir la taille réelle d'où mon essai avec sz

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

procedure TBonus.Button1Click(Sender: TObject); var sz : TSizeF; begin sz:=TSizeF.Create(30,30); ImageList1.BestSize(0,sz); Image1.Bitmap:=ImageList1.Bitmap(sz,0); sz.cx:=50; sz.cy:=50; ImageList1.BestSize(0,sz); Image2.Bitmap:=ImageList1.Bitmap(sz,0); sz.cx:=70; sz.cy:=70; Image3.Bitmap:=ImageList1.Bitmap(sz,0); end;

---

tracé dans un mémo

Citation:

---

30 x 30 donne 30 x 30
50 x 50 donne 45 x 45
70 x 70 donne 60 x 60

---

dans ta capture écran, ta première image fait 30 x 30 et tu utilises un TSize de 32, 32

essaie avec les mêmes valeurs comme dans mon test

Non, j'ai fait exprès d'utiliser des images différentes par taille mais non :bug:
je ne pense pas que ce soit la bonne piste j'ai utilisé les tailles existantes (30x30, 96x96, 144x144), changer la taille de base pour la taille maxi 144x144 rien n'y fait (c'est même pire, je ne vois pas la 96x96 remplacée par une partie de la 144x144)

Pièce jointe 509223
si tu regardes le résultat du mémo tu y verras que les tailles demandées sont "transformées" je ne sais par quel algorithme :koi: et c'est ce "découpage" qui est pris en compte

J'ai changé les échelles
Pièce jointe 509225
j'ai calculé les échelles en fonction des tailles 96/30 144/30.

Bon, cela fonctionne sur mon écran mais certainement qu'il y aura un problème avec des écrans de plus hautes/ différentes résolutions
AMHA il va falloir récupérer la résolution de l'écran et calculer la "taille" en fonction de celle-ci pour le TSizeF
Il doit y avoir un moyen plus simple mais je sèche

c'est déjà beau d'en être arrivé là :bravo: