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;