Discussion :

[retwas]

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 :

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

ImageList.GetBitmap(0, monBitmap)

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

Merci

[ALWEBER]

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

[SergioMaster]

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 :

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

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

[Papy214]

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

[SergioMaster]

Un bon point pour Sergio

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


le code :

Code :

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

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;

avec sz:=TSizeF.Create(64,64);

j'ai bien un image différente mais je n'en ai qu'une partie

[Papy214]

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

Code :

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

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;

[SergioMaster]

Bonne question mais non il y a autres choses


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 :

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

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

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

[Papy214]

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

[SergioMaster]

Non, j'ai fait exprès d'utiliser des images différentes par taille mais non
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)


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 et c'est ce "découpage" qui est pris en compte

[SergioMaster]

J'ai changé les échelles

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

[Papy214]

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