Discussion :

[pascal pierre]

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 :

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

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.

[Charly910]

Bonjour,

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

Code :

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

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

[pascal pierre]

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.

[Lung]

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 ?

[ShaiLeTroll]

Code :

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

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:

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 :

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

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));

[SergioMaster]

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

Code :

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

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[]