problème avec un TImageList et un TBitmap

Bonjour à tous,

J'ai un problème avec un TimageList et un TBitmap. J'aimerais affecter mon TBitMap avec un élément de ma TImageList.

voici le code

Code:

---

1 2 3

Sizef.cx := 128; Sizef.cy := 128; Operations[i].Image.Bitmap := imgListe.Source.ImageList.Bitmap (Sizef,i);

---

j'espérais que ça marcherait avec les infos que j'ai trouvées et l'aide de Delphi mais j'ai un problème de type.

Dans ma liste, j'ai affecté les champs Source avec mes images.

Si vous avec une idée sur la marche à suivre.

Merci pour votre aide.

Dans ma liste, j'ai affecté les champs Source avec mes images.

Bonjour,

je n'ai pas tout compris, mais pour affecter une image d'un TImageList à Image1 il faut faire :

Code:

---

1 2 3 4 5 6 7 8 9 10

var bmp: TBitmap; begin bmp := TBitmap.Create; try ImageList1.GetBitmap(i, bmp); Image1.Picture.Bitmap.Assign(bmp); finally bmp.Free; end;

---

A+
Charly

il ne prend comprend pas la méthode GetBitmap.

Dans le TimageList il y a 2 catégories : Destination et Source. Mes Images sont stockées dans Source avec un index et Item + index.

Je viens de tester la solution de Charly910, et avec XE7, elle fonctionne bien (en donnant une valeur à i, bien sûr).
Quelle est la version de Delphi utilisée ?

Code:

---

1 2 3

Sizef.cx := 128; Sizef.cy := 128; Operations[i].Image.Bitmap := imgListe.Source.ImageList.Bitmap (Sizef,i);

---

Si l'on prend en compte le premier code fourni, on constate un code très approximatif

imgListe quelle est la classe ?
Ce n'est pas Vcl.Controls.TImageList mais probablement FMX.ImgList.TImageList qui est la seule fournissant une propriété Source

Source est donc une TSourceCollection
Et acccéder à ImageList revient à imgListe donc tout cela est fort mal maitrisé.

la fonction Bitmap(Size, Index) existe bien dans FMX.ImgList.TImageList et la documentation n'a pas été lue:

Citation:

---

Because the TCustomImageList component can automatically destroys the TBitmap objects, that are returned by Bitmap, in the internal cache; therefore, you must not:

• Store references to returned TBitmap objects.
• Destroy returned TBitmap objects explicitly.

---

Comme on ignore ce qu'est Operations[i].Image.Bitmap, avez-vous créé un accesseur qui fait une copie explicite en interne ?
On ne peut que supposer un problème mais on ignore lequel, on n'a aucun détail sur la suite, quel est le dsyfonctionnement

Un code théorique basé sur la documentation, je ne pratique pas FMX et ne connaissant pas Operations[i].Image.Bitmap cela peut peut être faux.

Code:

---

1 2 3 4

Sizef.cx := 128; Sizef.cy := 128; Operations[i].Image.Bitmap := TBitmap.Create(Sizef.cx, Sizef.cy); Operations[i].Image.Bitmap.CopyFromBitmap(imgListe.Bitmap(Sizef, i));

---

Bien vu, la demande est vraisemblablement pour un programme FMX, si confirmation, je déplacerai dans le forum idoine

Code:

---

1 2 3

//copier une image de la liste vers un timage Image4.Bitmap.Assign(ImageList1.Bitmap(TSizeF.Create(128,128),1))

---

reste à savoir ce qu'est ce tableau operations[]

Bonsoir à tous,

J'ai sur une form des Images 'Images1' à 'Images12' que je récupère dans un tableau 'Images : array[1..MaxIndexImage] of TImage;'

avec la commande :

Code:

---

1 2 3 4 5 6 7 8 9 10

var idxImage : Integer; NomDeMonComposant : String; begin for idxImage := 1 to MaxIndexImage do begin NomDeMonComposant := 'Image' + IntToStr(idxImage); Images[idxImage] := FindComponent(NomDeMonComposant) as TImage; end; end;

---

Mon but c'est d'affecter une des images de mon tableau à un autre tableau :

Code:

---

1 2 3

idxImage := StrToInt(Categorie);   Operations[i].Image:= uRessources.Images[idxImage];

---

J'ai trouvé des infos ici et là, mais elles sont anciennes (2010) et ne marchent pas avec ce que je veux faire. J'ai passé ma journée hier et une bonne partie de la nuit à trouver une solution sans succès. C'est pour une application pour Android qui fonctionne aussi sur Windows 10.

Citation:

---

C'est pour une application pour Android qui fonctionne aussi sur Windows 10.

---

Donc FMX => je transfére dans le forum idoine

Je reprends la suite après transfert.

Il faudrait tout d'abord lever une ambiguïté suite au dernier message. À la genèse de la discussion, on avait affaire à une TImageList le nom, "uRessources" fait penser soit au fichier ressources du programme, soit à une unité séparée, mais dans ce dernier cas à quoi correspond le tableau Images ?

En prenant à partir du TImageList, j'ai la prime impression que vous n'avez pas utilisé le bon composant (TImage) pour la réalisation de votre forme. Remplacez TImage par TGlyph et votre horizon s'éclaircira. Les propriétés TGlyph.Images (liaison au TImageList) et TGlyph.ImageIndex suffisent pour le job demandé.

Code:

---

Images[i].IndexImage:=StrToInt(Categorie); // Images tableau de TGlyph

---

Si vous persistez avec le TImage le code pour récupérer le bitmap et l'afficher sera

Code:

---

1 2 3

// 128 est tiré de votre code cependant la résolution est différente en un écran "classique" Windows et Androïd Images[i].Bitmap.Assign(ImageList1.Bitmap(TSizeF.Create(128,128),StrToIntDef(Categorie,-1))); // utilisation de Strtointdef plutôt que Strtoint par précaution

---