Differenze tra le versioni di "Aggiungere il canale Alfa a un Oggetto Image privo"
Da Gambas-it.org - Wikipedia.
Riga 10: | Riga 10: | ||
If .State = Media.Playing Then .Stop | If .State = Media.Playing Then .Stop | ||
.URL = "v4l2:///dev/video0" | .URL = "v4l2:///dev/video0" | ||
− | .SetWindow( | + | .SetWindow(DrawingArea1) |
.Play() | .Play() | ||
End With | End With |
Versione delle 00:44, 1 ago 2024
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 Public Sub Button1_Click() With mp If .State = Media.Playing Then .Stop .URL = "v4l2:///dev/video0" .SetWindow(DrawingArea1) .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 automaticamente 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