1
Programmazione (Gambas 2) / Re: Grafica: immagini trasparenti su form
« il: 25 Luglio 2008, 11:34:09 »
Ciao e grazie dei veloci suggerimenti!
cioè fare un MERGE dell'immagine di sfondo con quella dell'icona?
questo è il trucchetto che dicevi?
DIM hpict_b AS Picture 'picture intera di sfondo del form
DIM hpict_part AS Picture 'parte di sfondo del form inerente alla posizione della PictureBox
DIM himg_f, himg_b AS Image 'foreground, background image
'pb è la pictureBox piazzata sul form
'... hpict_b è già caricata con il file di sfondo
ME.Picture = hpict_b 'metto l'immagine di sfondo all'intero form
hpict_part = hpict_b.Copy(pb.X, pb.Y, pb.W, pb.H) 'preleva la parte di immagine dello sfondo che sta sotto la pictureBox
himg_b = hpict_part.Image 'conversione pict -> img
himg_f = Picture["my_ico.png"].Image 'preleva icona da visualizzare da file
'merge dell'immagine di sfondo (himg_b) con quella di foreground (himg_f)
himg_b.Draw(himg_f, 0, 0)
hpict_b.Flush()
pb.Picture = himg_b
'... ma un modo + semplice, integrato nel componente delle PictureBox, no?? :)
cioè fare un MERGE dell'immagine di sfondo con quella dell'icona?
questo è il trucchetto che dicevi?
DIM hpict_b AS Picture 'picture intera di sfondo del form
DIM hpict_part AS Picture 'parte di sfondo del form inerente alla posizione della PictureBox
DIM himg_f, himg_b AS Image 'foreground, background image
'pb è la pictureBox piazzata sul form
'... hpict_b è già caricata con il file di sfondo
ME.Picture = hpict_b 'metto l'immagine di sfondo all'intero form
hpict_part = hpict_b.Copy(pb.X, pb.Y, pb.W, pb.H) 'preleva la parte di immagine dello sfondo che sta sotto la pictureBox
himg_b = hpict_part.Image 'conversione pict -> img
himg_f = Picture["my_ico.png"].Image 'preleva icona da visualizzare da file
'merge dell'immagine di sfondo (himg_b) con quella di foreground (himg_f)
himg_b.Draw(himg_f, 0, 0)
hpict_b.Flush()
pb.Picture = himg_b
'... ma un modo + semplice, integrato nel componente delle PictureBox, no?? :)