Aggiungere il canale Alfa a un Oggetto Image privo

Da Gambas-it.org - Wikipedia.

Per aggiungere il canale Alfa a un Oggetto Image, privo di tale canale, è sufficiente convertire l'Oggetto Image in una Picture e successivamente convertire l'Oggetto Picture in una Image.

Mostriamo un esempio (è necessario attivare anche il Componente gb.media):

Private mp As New MediaPlayer As "Player"


Public Sub Button1_Click()

 With mp
   If .State = Media.Playing Then .Stop
   .URL = "v4l2:///dev/video0"
   .SetWindow(DrawArea1)
   .Play()
 End With

End


Public Sub Button2_Click()

 Dim im As Image

 If mp.State <> Media.Playing Then Return

' Viene generata in questo caso un Oggetto "Image" privo di canale Alfa:
 im = mp.Video.Image

' Converte l'Oggetto "Image" in una "Picture", per aggiungerle il canale Alfa, e poi la ri-converte in una "Image":
 im = im.Picture.Image

' Se all'Oggetto "Image" non fosse stato aggiunto il canale Alfa, questa riga solleverebbe uno specifico errore:
 im = im.Opacity(0.3)

' Mostra il risultato in una "ImageView":
 ImageView1.Image = im

End