Differenze tra le versioni di "Aggiungere il canale Alfa a un Oggetto Image privo"
Da Gambas-it.org - Wikipedia.
(Creata pagina con "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'Ogg...") |
|||
Riga 1: | Riga 1: | ||
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''. | 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: | + | Mostriamo un esempio (è necessario attivare anche il Componente ''gb.media''): |
Private mp As New MediaPlayer As "Player" | Private mp As New MediaPlayer As "Player" | ||
Riga 9: | Riga 9: | ||
With mp | With mp | ||
If .State = Media.Playing Then .Stop | If .State = Media.Playing Then .Stop | ||
− | .URL = "v4l2:///dev/ | + | .URL = "v4l2:///dev/video0" |
.SetWindow(DrawArea1) | .SetWindow(DrawArea1) | ||
.Play() | .Play() |
Versione delle 14:56, 18 set 2023
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