Discussion :

[xenos]

Bonjour,

J'ai un TImageList avec 4 images et 200 TImages. 50 TImages devront charger la première image de la TImageList, 50 TImages devront charger la deuxième image de la TImageList, ...

Ce que je veux faire, c'est charger dynamiquement les Images dans les TImages à partir du TImageList :

Code :

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

1
2
3
4
5
6
7
  [...]
 
  ImageList1.Draw(Image1.Canvas, 0, 0, 0, True);
  Image1.AutoSize := True;
  Image1.Transparent := True;
 
  [...]

Le problème c'est que Image1 n'est pas transparent et qu'il ne se redimensionne pas ...

D'avance merci pour vos réponses

[Pedro]

Salut
As-tu essayé

Code :

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

1
2
 
  ImageList1.GetBitmap(ImageX.Bitmap, Index);

A vérifier

[xenos]

Merci pour ta réponse Pedro.

Non, je n'avais pas essayé :

Code :

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

1
2
3
4
5
6
7
[...]
 
  ImageList1.GetBitmap(0, Image1.Picture.Bitmap);
  Image1.AutoSize := True;
  Image1.Transparent := True;
 
[...]

L'AutoSize fonctionne, mais le transparent ne fonctionne pas ...

Par contre, en lancant la même image directement dans l'Image1, l'image est transparente.

[xenos]

Pour ceux que la solution intéresse :

En fait j'ai contourné le problème et j'ai directement chargé les Images à partir de leur adresse (C:\...) dans le TImage.

Code :

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

Image1.Picture.LoadFromFile('C:\...');

Après, il n'y a plus qu'à créer une boucle.

[Pedro]

Attends, il reste une solution. J'avais eu un problème similaire et voila comment j'avais fait:
Dans le TImageList, met la propriété TransparentColor de chaque Image à clNone (aucune).
Ensuite, tu les charges comme je t'ai dit dans le TImage (Avec GetBitmap). Et tu mets transparent à true... Essaie de cette façon pour voir...

[xenos]

En effet Pedro, ta seconde solution fonctionne !

Encore merci et bonne programmation !!!