Format png et transparence

bonjour
je n'arrive pas à afficher une image png transparente, l'image s'affiche mais pas de transparence avec:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

var myimage: TPortableNetworkGraphic;   begin myimage:=TPortableNetworkGraphic.Create; myimage.LoadFromLazarusResource('Image_png') ; myimage.TransparentColor:=clred; myimage.Transparent:=true; Image_png.Canvas.Draw(0,0,myimage); myimage.Free;   end;

---

Bonsoir

il faut activer la transparence

Code:

---

1 2 3 4

Image.Transparent := TRUE; // On active la transparence des images png Image.TransparentColor := clFuchsia; // On Doit utiliser la couleur par defaut pour la transparence // Sinon choisir un pixel transparent de l'image Image.TransparentColor := FPColorToTColor(Image.Canvas.Colors[0,0]);

---

A+

Salut,
voir ici dans les FAQ :

Il faut initialiser le fond de l'image avant l'appel pour avoir un fond alpha dessus, et ensuite d'utiliser la méthode CopyRect (et non Draw) :

Code:

---

1 2 3 4 5 6

Image2.Transparent := True; Image2.Picture.LoadFromFile('test.png'); Image1.Transparent := True; Image1.Canvas.Brush.Color := clGreen; Image1.Canvas.FillRect(Rect(0,0,1024,512)); Image1.Canvas.CopyRect(Rect(0,0,100,100),Image2.Canvas,Rect(0,0,100,100));

---

Nullosse

Salut, ça marche également avec la fonction Draw :zoubi: il faut cependant s'assurer que le bitmap de destination soit lui aussi en 32 bit (pixelformat = pft32bit)
C'est ce que j'ai fait dans l'exemple de FreeCell :P

A+

Bonjour

avec ce code, ça marche sans transparentcolor pour afficher mon image dans un coin de ma fenêtre:

Code:

---

1 2 3 4 5 6 7

MyImage:=TPortableNetworkGraphic.Create; MyImage.LoadFromLazarusResource('Image_png') ; Image_png.Canvas.Brush.Color:=clForm; Image_png.Canvas.FillRect(Rect(0,0,Image_png.Width,Image_png.Height)); Image_png.Canvas.Draw(0,0,MyImage); MyImage.Free;

---

Hello n'oublis pas de marquer le sujet "comme résolu" merci.