Creare da codice un'immagine trasparente - Cronologia

Vuott il 22:45, 25 giu 2024

2024-06-25T22:45:29Z

← Versione meno recente		Versione delle 16:45, 25 giu 2024
Riga 6:		Riga 6:
	===Mediante la Classe ''Image''===		===Mediante la Classe ''Image''===
	Si potrà fare uso delle risorse disponibili con la Classe ''Image'':		Si potrà fare uso delle risorse disponibili con la Classe ''Image'':
	~~'''~~Public~~'''~~ Sub Button1_Click()		Public Sub Button1_Click()

	Dim im As Image		Dim im As Image

	With im = New Image(100, 100, <FONT color=~~#B22222~~>&FF000000</font>, Image.Standard)		With im = New Image(100, 100, <FONT color=red>&FF000000</font>, Image.Standard)
	<FONT color=gray>' ''oppure anche: '''New Image(100, 100, Color.Transparent, Image.Standard)'''''</font>		<FONT color=gray>' ''oppure anche: '''New Image(100, 100, Color.Transparent, Image.Standard)'''''</font>
	.Save("/tmp/immagine_trasparente.png", 100)		.Save("/tmp/immagine_trasparente.png", 100)
Riga 17:		Riga 17:
	PictureBox1.Image = im		PictureBox1.Image = im

	~~'''~~End~~'''~~		End


	===Mediante la Classe ''Picture''===		===Mediante la Classe ''Picture''===
	Si potrà fare uso delle risorse disponibili con la Classe ''Picture'':		Si potrà fare uso delle risorse disponibili con la Classe ''Picture'':
	~~'''~~Public~~'''~~ Sub Button1_Click()		Public Sub Button1_Click()

	Dim pc As Picture		Dim pc As Picture

	<FONT color=gray>' ''Creando la variabile di tipo "Picture", porremo il terzo parametro a "True":''</font>		<FONT color=gray>' ''Creando la variabile di tipo "Picture", porremo il terzo parametro a "True":''</font>
	With pc = New Picture(100, 100, <FONT color=~~#B22222~~>True</font>)		With pc = New Picture(100, 100, <FONT color=red>True</font>)
	<FONT color=gray>' ''Oppure il terzo parametro può essere impostato anche così:''		<FONT color=gray>' ''Oppure il terzo parametro può essere impostato anche così:''
	' '''With pc = New Picture(100, 100, Color.Transparent)'''</font>		' '''With pc = New Picture(100, 100, Color.Transparent)'''</font>
Riga 35:		Riga 35:
	End With		End With

	~~'''~~End~~'''~~		End


Riga 41:		Riga 41:
	Si potrà anche fare uso del protocollo relativo ai file immagine del [[Struttura_del_formato_XPM\|formato ''XPM'']].		Si potrà anche fare uso del protocollo relativo ai file immagine del [[Struttura_del_formato_XPM\|formato ''XPM'']].

	~~'''~~Public~~'''~~ Sub Button1_Click()		Public Sub Button1_Click()

	Dim wc, hr As Short		Dim wc, hr As Short
Riga 63:		Riga 63:
	File.Save("/tmp/immagine_trasparente.xpm''</font>", s)		File.Save("/tmp/immagine_trasparente.xpm''</font>", s)

	~~'''~~End~~'''~~		End

Vuott il 02:07, 8 dic 2021

2021-12-08T02:07:10Z

← Versione meno recente		Versione delle 20:07, 7 dic 2021
Riga 8:		Riga 8:
	'''Public''' Sub Button1_Click()		'''Public''' Sub Button1_Click()

	Dim i As Image		Dim im As Image

			With im = New Image(100, 100, <FONT color=#B22222>&FF000000</font>, Image.Standard)
			<FONT color=gray>' ''oppure anche: '''New Image(100, 100, Color.Transparent, Image.Standard)'''''</font>
			.Save("/tmp/immagine_trasparente.png", 100)
			End With

	~~With i = New Image(100, 100, <FONT color=#B22222>&FF000000</font>, Image.Standard) <FONT color=gray>oppure anche: '''New Image(100, 100, Color.Transparent, Image.Standard)'''</font>~~		PictureBox1.Image = im
	.~~Save("<FONT color=gray>''/percorso/dell'immagine/trasparente''</font>", 100)~~
	~~<FONT color=gray>' ''Trasformiamo la variabile "~~Image~~" in una variabile di tipo "Picture" per essere caricata in una "PictureBox":''</font>~~
	~~PictureBox1.Picture~~ = ~~.Picture~~
	~~End With~~

	'''End'''		'''End'''
Riga 25:		Riga 25:

	Dim pc As Picture		Dim pc As Picture


	<FONT color=gray>' ''Creando la variabile di tipo "Picture", porremo il terzo parametro a "True":''</font>		<FONT color=gray>' ''Creando la variabile di tipo "Picture", porremo il terzo parametro a "True":''</font>
Riga 33:		Riga 32:

	<FONT color=gray>' ''I formati utili per generare immagini trasparenti sono ".png" e ".xpm":''</font>		<FONT color=gray>' ''I formati utili per generare immagini trasparenti sono ".png" e ".xpm":''</font>
	.Save("~~<FONT color=gray>''~~/~~percorso~~/~~dell'immagine/trasparente~~.~~xpm''</font>~~", 100)		.Save("/tmp/immagine_trasparente.png", 100)
	End With		End With

Riga 46:		Riga 45:
	Dim wc, hr As Short		Dim wc, hr As Short
	Dim s, px As String		Dim s, px As String


	<FONT color=gray>' ''La variabile "wc" rappresenta il numero di pixel della dimensione orizzontale (numero di colonne) dell'immagine:''</font>		<FONT color=gray>' ''La variabile "wc" rappresenta il numero di pixel della dimensione orizzontale (numero di colonne) dell'immagine:''</font>
	wc = 100		wc = 100

	<FONT color=gray>' ''La variabile "hr" rappresenta il numero di pixel della dimensione verticale (numero di righe) dell'immagine:''</font>		<FONT color=gray>' ''La variabile "hr" rappresenta il numero di pixel della dimensione verticale (numero di righe) dell'immagine:''</font>
	hr = 100		hr = 100

	px = String$(hr, "\"" & String$(wc, ".") & "\",\n")		px = String$(hr, "\"" & String$(wc, ".") & "\",\n")

	s = "/* XPM */\n" &		s = "/* XPM */\n" &
	"static char *" & Application.Name & "[]={\n" &		"static char *" & Application.Name & "[]={\n" &
	"\"" & wc & " " & hr & " 1 1\",\n" & <FONT color=gray>' ''Valori: <width/cols> <height/rows> <colors> <char on pixel>''</font>		"\"" & wc & " " & hr & " 1 1\",\n" & <FONT color=gray>' ''Valori: <width/cols> <height/rows> <colors> <char on pixel>''</font>
	"\". c None\",\n" & <FONT color=gray>' ''Colors''</font>		"\". c None\",\n" & <FONT color=gray>' ''Colors''</font>
	px & "};" <FONT color=gray>' ''Pixels''</font>		px & "};" <FONT color=gray>' ''Pixels''</font>

	<FONT color=gray>' ''Viene salvata l'immagine, per essere successivamente caricata ed utilizzata:''</font>		<FONT color=gray>' ''Viene salvata l'immagine, per essere successivamente caricata ed utilizzata:''</font>
	File.Save("~~<FONT color=gray>''~~/~~percorso~~/~~dell'immagine/trasparente~~''</font>", s)		File.Save("/tmp/immagine_trasparente.xpm''</font>", s)

	'''End'''		'''End'''

Vuott il 17:09, 25 feb 2018

2018-02-25T17:09:40Z

← Versione meno recente		Versione delle 11:09, 25 feb 2018
Riga 11:		Riga 11:


	With i = New Image(100, 100, <FONT color=#B22222>&FF000000</font>, 0) <FONT color=gray>oppure anche: '''New Image(100, 100, Color.Transparent)'''</font>		With i = New Image(100, 100, <FONT color=#B22222>&FF000000</font>, Image.Standard) <FONT color=gray>oppure anche: '''New Image(100, 100, Color.Transparent, Image.Standard)'''</font>
	.Save("<FONT color=gray>''/percorso/dell'immagine/trasparente''</font>", 100)		.Save("<FONT color=gray>''/percorso/dell'immagine/trasparente''</font>", 100)
	<FONT color=gray>' ''Trasformiamo la variabile "Image" in una variabile di tipo "Picture" per essere caricata in una "PictureBox":''</font>		<FONT color=gray>' ''Trasformiamo la variabile "Image" in una variabile di tipo "Picture" per essere caricata in una "PictureBox":''</font>

Vuott il 00:36, 31 dic 2016

2016-12-31T00:36:55Z

← Versione meno recente		Versione delle 18:36, 30 dic 2016
Riga 33:		Riga 33:

	<FONT color=gray>' ''I formati utili per generare immagini trasparenti sono ".png" e ".xpm":''</font>		<FONT color=gray>' ''I formati utili per generare immagini trasparenti sono ".png" e ".xpm":''</font>
	.Save("''/percorso/dell'immagine/trasparente.xpm''", 100)		.Save("<FONT color=gray>''/percorso/dell'immagine/trasparente.xpm''</font>", 100)
	End With		End With

Riga 63:		Riga 63:

	<FONT color=gray>' ''Viene salvata l'immagine, per essere successivamente caricata ed utilizzata:''</font>		<FONT color=gray>' ''Viene salvata l'immagine, per essere successivamente caricata ed utilizzata:''</font>
	File.Save("''/percorso/dell'immagine/trasparente''", s)		File.Save("<FONT color=gray>''/percorso/dell'immagine/trasparente''</font>", s)

	'''End'''		'''End'''

Vuott il 00:36, 31 dic 2016

2016-12-31T00:36:07Z

← Versione meno recente		Versione delle 18:36, 30 dic 2016
Riga 11:		Riga 11:


	With i = New Image(100, 100, <FONT color=#B22222>&FF000000</font>, 0)		With i = New Image(100, 100, <FONT color=#B22222>&FF000000</font>, 0) <FONT color=gray>oppure anche: '''New Image(100, 100, Color.Transparent)'''</font>
	.Save("''/percorso/dell'immagine/trasparente''", 100)		.Save("<FONT color=gray>''/percorso/dell'immagine/trasparente''</font>", 100)
	<FONT color=gray>' ''Trasformiamo la variabile "Image" in una variabile di tipo "Picture" per essere caricata in una "PictureBox":''</font>		<FONT color=gray>' ''Trasformiamo la variabile "Image" in una variabile di tipo "Picture" per essere caricata in una "PictureBox":''</font>
	PictureBox1.Picture = .Picture		PictureBox1.Picture = .Picture

Vuott il 00:44, 21 nov 2014

2014-11-21T00:44:29Z

← Versione meno recente		Versione delle 18:44, 20 nov 2014
Riga 9:		Riga 9:

	Dim i As Image		Dim i As Image
	~~Dim pc As Picture~~

			With i = New Image(100, 100, <FONT color=#B22222>&FF000000</font>, 0)
	With i = New Image(100, 100, <FONT color=#B22222>&~~FFFFFF00~~</font>, 0)
	.Save("''/percorso/dell'immagine/trasparente''", 100)		.Save("''/percorso/dell'immagine/trasparente''", 100)
	<FONT color=gray>' ''~~Generiamo anche~~ una variabile di tipo "Picture", per ~~un eventuale uso~~ in una "PictureBox":''</font>		<FONT color=gray>' ''Trasformiamo la variabile "Image" in una variabile di tipo "Picture" per essere caricata in una "PictureBox":''</font>
	pc = i.Picture		PictureBox1.Picture = .Picture
	End With		End With

Vuott il 13:56, 5 set 2014

2014-09-05T13:56:23Z

← Versione meno recente		Versione delle 07:56, 5 set 2014
Riga 30:		Riga 30:
	<FONT color=gray>' ''Creando la variabile di tipo "Picture", porremo il terzo parametro a "True":''</font>		<FONT color=gray>' ''Creando la variabile di tipo "Picture", porremo il terzo parametro a "True":''</font>
	With pc = New Picture(100, 100, <FONT color=#B22222>True</font>)		With pc = New Picture(100, 100, <FONT color=#B22222>True</font>)
			<FONT color=gray>' ''Oppure il terzo parametro può essere impostato anche così:''
			' '''With pc = New Picture(100, 100, Color.Transparent)'''</font>

	<FONT color=gray>' ''I formati utili per generare immagini trasparenti sono ".png" e ".xpm":''</font>		<FONT color=gray>' ''I formati utili per generare immagini trasparenti sono ".png" e ".xpm":''</font>
	.Save("''/percorso/dell'immagine/trasparente.xpm''", 100)		.Save("''/percorso/dell'immagine/trasparente.xpm''", 100)

Vuott il 10:07, 5 set 2014

2014-09-05T10:07:22Z

← Versione meno recente		Versione delle 04:07, 5 set 2014
Riga 28:		Riga 28:


			<FONT color=gray>' ''Creando la variabile di tipo "Picture", porremo il terzo parametro a "True":''</font>
	With pc = New Picture(100, 100, <FONT color=#B22222>True</font>)		With pc = New Picture(100, 100, <FONT color=#B22222>True</font>)
			<FONT color=gray>' ''I formati utili per generare immagini trasparenti sono ".png" e ".xpm":''</font>
	.Save("''/percorso/dell'immagine/trasparente.xpm''", 100)		.Save("''/percorso/dell'immagine/trasparente.xpm''", 100)
	End With		End With

Vuott il 09:58, 5 set 2014

2014-09-05T09:58:09Z

← Versione meno recente		Versione delle 03:58, 5 set 2014
Riga 1:		Riga 1:
	Talvolta può rendersi necessario utilizzare una o più immagini <SPAN style="text-decoration:underline">trasparenti</span>.		Talvolta può rendersi necessario utilizzare una o più immagini <SPAN style="text-decoration:underline">trasparenti</span>.

	E' possibile evitare di dover caricare preliminarmente nel progetto un file di un'immagine trasparente, generandola direttamente via codice Gambas con almeno ~~due~~ modalità.		E' possibile evitare di dover caricare preliminarmente nel progetto un file di un'immagine trasparente, generandola direttamente via codice Gambas con almeno tre modalità.

Vuott il 09:57, 5 set 2014

2014-09-05T09:57:54Z

@@ Riga 16: / Riga 16: @@
   <FONT color=gray>' ''Generiamo anche una variabile di tipo "Picture", per un eventuale uso in una "PictureBox":''</font>
       pc = i.Picture
     End With