Differenze tra le versioni di "Aggiungere il canale Alfa a un Oggetto Image privo"
Da Gambas-it.org - Wikipedia.
Riga 26: | Riga 26: | ||
im = mp.Video.Image | im = mp.Video.Image | ||
− | <FONT Color=gray>' ''Converte l'Oggetto "Image" in una "Picture", per aggiungerle il canale Alfa, e poi la ri-converte in una "Image":''</font> | + | <FONT Color=gray>' ''Converte l'Oggetto "Image" in una "Picture", per aggiungerle automaticamente il canale Alfa, e poi la ri-converte in una "Image":''</font> |
im = im<FONT Color=#B22222>.Picture.Image</font> | im = im<FONT Color=#B22222>.Picture.Image</font> | ||
Versione delle 14:59, 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 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