bonjour
je n'arrive pas à afficher une image png transparente, l'image s'affiche mais pas de transparence avec:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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;
Partager