PureBasic

Salut,

J'ai cette image png 24bit avec transparence :

Remarque : tiens, même IE me l'affichage comme une savate, cette image ...

et je souhaite afficher cette image sur un fond mauve. je dois donc obtenir :

Mais j'obtient ceci :

Voici le code (il faut l'image Test.png donnée au début du sujet)

Code : Tout sélectionner

; Auteur : Le Soldat Inconnu
; Version de PB : 3.9
;
; Explication du programme :
; Pour faire des programmes de test rapidement, il ne reste qu'a rajouter les gadgets et la gestion des évènements.


; Création de la fenêtre et dela GadgetList
If OpenWindow(0, 0, 0, 300, 300, #PB_Window_SystemMenu | #PB_Window_ScreenCentered | #PB_Window_MinimizeGadget, "Test") = 0 Or CreateGadgetList(WindowID()) = 0 : End : EndIf

UsePNGImageDecoder()
UsePNGImageEncoder()

LoadImage(0, "Test.png")

CreateImage(1, 100, 100)
StartDrawing(ImageOutput())
  Box(0, 0, 100, 100, $FF00FF)
  DrawImage(UseImage(0), 0, 0)
StopDrawing()

SaveImage(1, "Test2.png", #PB_ImagePlugin_PNG)

ImageGadget(0, 10, 10, 100, 100, UseImage(1))

Repeat
  Event = WaitWindowEvent()
  
  
Until Event = #PB_EventCloseWindow

End

ce serait bien d'avoir un support complet du format PNG, comme pour les icônes

Bah j'ai essayer de te l'arranger deja pas besoin de 2 usepngimagedecoder et j'ai trouvre un truc mais sa decale l'image

Code : Tout sélectionner

; Auteur : Le Soldat Inconnu
; Version de PB : 3.9
;
; Explication du programme :
; Pour faire des programmes de test rapidement, il ne reste qu'a rajouter les gadgets et la gestion des évènements.


; Création de la fenêtre et dela GadgetList
If OpenWindow(0, 0, 0, 300, 300, #PB_Window_SystemMenu | #PB_Window_ScreenCentered | #PB_Window_MinimizeGadget, "Test") = 0 Or CreateGadgetList(WindowID()) = 0 : End : EndIf

UsePNGImageDecoder()

LoadImage(0, "Test.png")

CreateImage(1, 100, 100)
StartDrawing(ImageOutput())
  Box(0, 0, 100, 100, $FF00FF)
  DrawImage(UseImage(0), 20 , 0)
StopDrawing()

SaveImage(1, "Test2.png", #PB_ImagePlugin_PNG)

ImageGadget(0, 10, 10, 100, 100, UseImage(1))

Repeat
  Event = WaitWindowEvent()
 
 
Until Event = #PB_EventCloseWindow

End

Tu as bien de la chance, parce que moi, j'obtiens un carré gris entouré de blanc en utilisant la 3.92 beta1.

T'as raison, y a comme un gros bug

@Garzul

Il n'y a pas 2 #UsePNGImageDecoder(), il y en a un, qui sert à lire la première image, (Test.png), l'autre est un #UsePNGImageEncoder() qui sert à sauvegarder l'image créée, (Test2.png).

Et c'est normal que tu ai un décalage, puisque tu mets le DrawImage() à 20 pour la position x

PureBasic

Image PNG avec transparence

Image PNG avec transparence