Discussion :

[F@bien.fd]

Bonjour,

Apparemment le 1er post a disparu, donc je repose ma question.

Je souhaite obtenir la transparence du fond de mon image que je récupère dans un TImageList. Le fond de mon image à l'origine est vert et cela devrait donc devenir transparent.
J'utilise le code suivant :

Code :

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

1
2
3
4
 
  Image1.Picture.Bitmap.TransParentColor := Image1.canvas.pixels[0,0];//  clRed; //  clLime;
  Image1.Picture.Bitmap.TransparentMode := tmAuto;
  ImageList1.Draw(Image1.Canvas, 0 , 0, 0);    //

Or j'obtiens le fond blanc au lieu de transparent.
si je remplace Image1.canvas.pixels[0,0] par clRed ou clLime, ça reste blanc...
Où ai-je bien pu cafouiller ?
Merci par avance.

[mick605]

Salut

Comment affiche tu ton image ? Sur quel composant ? Peut tu nous montrer ton code ?

Vu que le fond devient blanc, ca veut dire que ta transparence est bien prise en compte, mais que tu dessine ton image sur un fond blanc ...

[F@bien.fd]

Salut

Comment affiche tu ton image ? Sur quel composant ? Peut tu nous montrer ton code ?

Vu que le fond devien blanc, ca veut dire que ta transparence est bien prise en compte, mais que tu dessine ton image sur un fond blanc ...

non mon fond est bleu avec un dessin...

qui plus est si je mets une image dans mon Timage avant de charger celle ci-dessus, les deux ... s'affichent l'une sur l'autre

et là mon fond est bien apparent cette fois. Si je l'enlève ... ploufff

[mick605]

As tu bien mis la propriété Transparent de ton TImage a true ?

Le code suivant marche chez moi :

Code :

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

 ImageList1.GetBitmap(0,Image1.Picture.Bitmap);

Une petite précision : quand tu met TransparentMode a tmAuto, tu n'as pas besoin de définir la TransparentColor, elle se met automatiquement. C'est pour cela qu'en changeant ta couleur au début, ca restait blanc.

[ShaiLeTroll]

Le Blanc cela vient du TImage !
Par défaut, il créé une zone blanche pour les zones non dessinées
Comme tu dessine une image transparente, le vert est éliminé, le blanc reste

Tu confonds la couleur de transparence de l'image cible avec celle de l'image source !
C'est la couleur de la source (TImageList ) qui est utilisé entre TImageList vers TImage
Puis c'est la couleur de transparence de TImage qui utilisé entre TImage et TForm

[ShaiLeTroll]

J'utilise plutôt GetBitmap mais lorsque j'ai ajouté l'image dans la TImageList,
je lui ai affecté clFuchsia comme Pixel Bottom Left [0, Height] et non [0, 0]
Je n'ai jamais tenté de modifier le Pixel en cours de route, je le fais lors du DesignTime

Regarde aussi BkColor, en le definissant à clGreen, toutes les images devraient être dessiné en transparence

[F@bien.fd]

J'utilise plutôt GetBitmap mais lorsque j'ai ajouté l'image dans la TImageList,
je lui ai affecté clFuchsia comme Pixel Bottom Left [0, Height] et non [0, 0]
Je n'ai jamais tenté de modifier le Pixel en cours de route, je le fais lors du DesignTime

Regarde aussi BkColor, en le definissant à clGreen, toutes les images devraient être dessiné en transparence

et oui dans mon TimageList, j'avais laissé la propriété BkColor à clNone et j'avais essayé de la passer en dur à clLime qui est la couleur de fond de mes ".bmp".

j'ai donc mis cette propriété à clLime dans le TImageList et ça roule.

[F@bien.fd]

merci à tous les deux...