Scrivere del testo in una DrawingArea - Cronologia

Vuott il 21:02, 25 lug 2025

2025-07-25T21:02:53Z

← Versione meno recente		Versione delle 15:02, 25 lug 2025
Riga 22:		Riga 22:
	' .Stroke</font>		' .Stroke</font>

	<FONT color=gray>' ''con il ~~metodo~~ '''.DrawText''' non è necessario l'uso di ".Stroke", né di ".Fill":''</font>		<FONT color=gray>' ''con il Metodo "'''.DrawText'''" non è necessario l'uso di ".Stroke", né di ".Fill":''</font>
	'''.DrawText'''("Testo con DrawText", 10, 10, 20, 20)		'''.DrawText'''("Testo con DrawText", 10, 10, 20, 20)

Vuott il 21:02, 25 lug 2025

2025-07-25T21:02:06Z

← Versione meno recente		Versione delle 15:02, 25 lug 2025
Riga 6:		Riga 6:
	<FONT color=gray>' ''Attiva la funzione disegno nell'Area di disegno con '''Paint''':''</font>		<FONT color=gray>' ''Attiva la funzione disegno nell'Area di disegno con '''Paint''':''</font>
	With Paint		With Paint

	<FONT color=gray>' ''imposta il colore dei caratteri:''</font>		<FONT color=gray>' ''imposta il colore dei caratteri:''</font>
	.Brush = Paint.Color(Color.Red) <FONT color=gray>'</font><SUP>[[[#Note\|nota 1]]]</sup>		.Brush = Paint.Color(Color.Red) <FONT color=gray>'</font><SUP>[[[#Note\|nota 1]]]</sup>
Riga 12:		Riga 13:
	<FONT color=gray>' ''Imposta la dimensione dei caratteri:''</font>		<FONT color=gray>' ''Imposta la dimensione dei caratteri:''</font>
	.Font.Size = 16		.Font.Size = 16
	<FONT color=gray>' ''Scrive sull'Area di Disegno il seguente testo di caratteri nella posizione X, Y all'interno di un quadrilatero virtuale W, H</font>'' <SUP>[[[#Note\|nota 2]]]</sup> <FONT color=gray>''con i Metodi "'''.RichText'''" e "'''.Text'''", ~~ma occorrerà uno~~ ".~~Stroke~~" a seguire (però .Stroke tende a dare l'effetto del grassetto):''</font>		<FONT color=gray>' ''Scrive sull'Area di Disegno il seguente testo di caratteri nella posizione X, Y all'interno di un quadrilatero virtuale W, H</font>'' <SUP>[[[#Note\|nota 2]]]</sup> <FONT color=gray>''con i Metodi "'''.RichText'''" e "'''.Text'''".''
			' ''Per far mostrare il disegno del testo, sarà necessario inserire anche il Metodo ".Fill" a seguire oppure ".Stroke" (però ".Stroke" tende a dare l'effetto del grassetto):''</font>
	'''.RichText'''("Testo con RichText", 200, 20, 16, 100)		'''.RichText'''("Testo con RichText", 200, 20, 16, 100)

	'''.Text'''("Testo con Text", 10, 30, 20, 20)		'''.Text'''("Testo con Text", 10, 30, 20, 20)
	.~~Stroke~~		.Fill
	<FONT color=gray>' ''...oppure (~~meglio, perché non dà~~ l'effetto del grassetto) ".~~fill~~":'' ~~'</font><SUP>[[[#Note\|nota 3]]]</sup>~~		<FONT color=gray>' ''...oppure (sebbene dia però l'effetto del grassetto) ".Stroke":''
	~~<FONT color=gray>~~' .~~Fill~~</font>		' .Stroke</font>

	<FONT color=gray>' ''con il metodo '''.DrawText''' non è necessario l'uso di ".Stroke", né di ".Fill":''</font>		<FONT color=gray>' ''con il metodo '''.DrawText''' non è necessario l'uso di ".Stroke", né di ".Fill":''</font>
	'''.DrawText'''("Testo con DrawText", 10, 10, 20, 20)		'''.DrawText'''("Testo con DrawText", 10, 10, 20, 20)
	~~.End~~
	End With		End With

Riga 36:		Riga 40:

	[2] Le impostazioni dei parametri relativi al quadrilatero virtuale, nel quale viene scritto il testo, non sono obbligatorie, ma la loro assenza può determinare l'impossibilità di dare una particolare disposizione del testo.		[2] Le impostazioni dei parametri relativi al quadrilatero virtuale, nel quale viene scritto il testo, non sono obbligatorie, ma la loro assenza può determinare l'impossibilità di dare una particolare disposizione del testo.

	[3] Come sottolineato dall'Utente ''fsurfing'' del Forum ''Gambas-it.org'', « ''con "Stroke" viene disegnato solo il contorno che quindi con un size piccolo sembra quasi un grassetto, con "Fill" viene fatto il riempimento e quindi si vede normale.'' ».

Vuott il 14:21, 10 dic 2024

2024-12-10T14:21:55Z

← Versione meno recente		Versione delle 08:21, 10 dic 2024
Riga 1:		Riga 1:
	Per scrivere del testo in una ''DrawingArea'' si potranno usare almeno tre Metodi della Classe ''Paint'': ".RichText", ".Text" e ".DrawText".		Per scrivere del testo in una ''DrawingArea'' si potranno usare almeno tre Metodi della Classe ''Paint'': ".RichText()", ".Text()" e ".DrawText()".

	Mostreremo di seguito tali modalità:.		Mostreremo di seguito tali modalità:.

Vuott il 14:21, 10 dic 2024

2024-12-10T14:21:33Z

← Versione meno recente		Versione delle 08:21, 10 dic 2024
Riga 1:		Riga 1:
	~~Mostreremo di seguito le modalità per~~ scrivere del testo ~~con il metodo~~ ''Paint'' ~~all'interno~~ di ~~una DrawingArea~~.		Per scrivere del testo in una ''DrawingArea'' si potranno usare almeno tre Metodi della Classe ''Paint'': ".RichText", ".Text" e ".DrawText".

			Mostreremo di seguito tali modalità:.
	Public Sub DrawingArea1_Draw()		Public Sub DrawingArea1_Draw()

Riga 26:		Riga 28:

	=Note=		=Note=
	[1] Con la ~~classe~~ ''Paint'' si potrà impostare il colore in questi modi:		[1] Con la Classe ''Paint'' si potrà impostare il colore in questi modi:
	Paint.Brush = Paint.Color(<FONT color=gray>''numero_del_colore''</font>)		Paint.Brush = Paint.Color(<FONT color=gray>''numero_del_colore''</font>)

Vuott il 13:26, 10 dic 2024

2024-12-10T13:26:36Z

← Versione meno recente		Versione delle 07:26, 10 dic 2024
Riga 11:		Riga 11:
	.Font.Size = 16		.Font.Size = 16
	<FONT color=gray>' ''Scrive sull'Area di Disegno il seguente testo di caratteri nella posizione X, Y all'interno di un quadrilatero virtuale W, H</font>'' <SUP>[[[#Note\|nota 2]]]</sup> <FONT color=gray>''con i Metodi "'''.RichText'''" e "'''.Text'''", ma occorrerà uno ".Stroke" a seguire (però .Stroke tende a dare l'effetto del grassetto):''</font>		<FONT color=gray>' ''Scrive sull'Area di Disegno il seguente testo di caratteri nella posizione X, Y all'interno di un quadrilatero virtuale W, H</font>'' <SUP>[[[#Note\|nota 2]]]</sup> <FONT color=gray>''con i Metodi "'''.RichText'''" e "'''.Text'''", ma occorrerà uno ".Stroke" a seguire (però .Stroke tende a dare l'effetto del grassetto):''</font>
	.RichText("Testo con RichText", 200, 20, 16, 100)		'''.RichText'''("Testo con RichText", 200, 20, 16, 100)
	.Text("Testo con Text", 10, 30, 20, 20)		'''.Text'''("Testo con Text", 10, 30, 20, 20)
	.Stroke		.Stroke
	<FONT color=gray>' ''...oppure (meglio, perché non dà l'effetto del grassetto) ".fill":'' '</font><SUP>[[[#Note\|nota 3]]]</sup>		<FONT color=gray>' ''...oppure (meglio, perché non dà l'effetto del grassetto) ".fill":'' '</font><SUP>[[[#Note\|nota 3]]]</sup>
	<FONT color=gray>' .Fill</font>		<FONT color=gray>' .Fill</font>
	<FONT color=gray>' ''con il metodo '''.DrawText''' non è necessario l'uso di ".Stroke", né di ".Fill":''</font>		<FONT color=gray>' ''con il metodo '''.DrawText''' non è necessario l'uso di ".Stroke", né di ".Fill":''</font>
	.DrawText("Testo con DrawText", 10, 10, 20, 20)		'''.DrawText'''("Testo con DrawText", 10, 10, 20, 20)
	.End		.End
	End With		End With

Vuott il 20:43, 27 giu 2024

2024-06-27T20:43:59Z

← Versione meno recente		Versione delle 14:43, 27 giu 2024
Riga 1:		Riga 1:
	Mostreremo di seguito le modalità per scrivere del testo con il metodo ''Paint'' all'interno di una DrawingArea.		Mostreremo di seguito le modalità per scrivere del testo con il metodo ''Paint'' all'interno di una DrawingArea.
			Public Sub DrawingArea1_Draw()
	~~'''~~Public~~'''~~ Sub DrawingArea1_Draw()

	<FONT color=gray>' ''Attiva la funzione disegno nell'Area di disegno con '''Paint''':''</font>		<FONT color=gray>' ''Attiva la funzione disegno nell'Area di disegno con '''Paint''':''</font>
	With Paint		With Paint
	<FONT color=gray>' ''imposta il colore dei caratteri:''</font>		<FONT color=gray>' ''imposta il colore dei caratteri:''</font>
	.Brush = Paint.Color(Color.Red) <FONT color=gray>'</font><SUP>[[[#Note\|~~Nota~~ 1]]]</sup>		.Brush = Paint.Color(Color.Red) <FONT color=gray>'</font><SUP>[[[#Note\|nota 1]]]</sup>
	<FONT color=gray>' ''imposta il tipo di carattere:''</font>		<FONT color=gray>' ''imposta il tipo di carattere:''</font>
	.Font.Name = "Arial"		.Font.Name = "Arial"
	<FONT color=gray>' ''Imposta la dimensione dei caratteri:''</font>		<FONT color=gray>' ''Imposta la dimensione dei caratteri:''</font>
	.Font.Size = 16		.Font.Size = 16
	<FONT color=gray>' ''Scrive sull'Area di Disegno il seguente testo di caratteri nella posizione X, Y all'interno di un quadrilatero virtuale W, H</font>'' <SUP>[[[#Note\|~~Nota~~ 2]]]</sup> <FONT color=gray>''con i Metodi "'''.RichText'''" e "'''.Text'''", ma occorrerà uno ".Stroke" a seguire (però .Stroke tende a dare l'effetto del grassetto):''</font>		<FONT color=gray>' ''Scrive sull'Area di Disegno il seguente testo di caratteri nella posizione X, Y all'interno di un quadrilatero virtuale W, H</font>'' <SUP>[[[#Note\|nota 2]]]</sup> <FONT color=gray>''con i Metodi "'''.RichText'''" e "'''.Text'''", ma occorrerà uno ".Stroke" a seguire (però .Stroke tende a dare l'effetto del grassetto):''</font>
	.RichText("Testo con RichText", 200, 20, 16, 100)		.RichText("Testo con RichText", 200, 20, 16, 100)
	.Text("Testo con Text", 10, 30, 20, 20)		.Text("Testo con Text", 10, 30, 20, 20)
	.Stroke		.Stroke
	<FONT color=gray>' ''...oppure (meglio, perché non dà l'effetto del grassetto) ".fill":'' '</font><SUP>[[[#Note\|~~Nota~~ 3]]]</sup>		<FONT color=gray>' ''...oppure (meglio, perché non dà l'effetto del grassetto) ".fill":'' '</font><SUP>[[[#Note\|nota 3]]]</sup>
	<FONT color=gray>' .Fill</font>		<FONT color=gray>' .Fill</font>
	<FONT color=gray>' ''con il metodo '''.DrawText''' non è necessario l'uso di ".Stroke", né di ".Fill":''</font>		<FONT color=gray>' ''con il metodo '''.DrawText''' non è necessario l'uso di ".Stroke", né di ".Fill":''</font>
Riga 22:		Riga 21:
	End With		End With

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



	~~----~~
	=Note=		=Note=
	[1] Con la classe ''Paint'' si potrà impostare il colore in questi modi:		[1] Con la classe ''Paint'' si potrà impostare il colore in questi modi:
	Paint.Brush = Paint.Color(''numero_del_colore'')		Paint.Brush = Paint.Color(<FONT color=gray>''numero_del_colore''</font>)

	Paint.Brush = Paint.Color(Color.''nome_colore'')		Paint.Brush = Paint.Color(Color.<FONT color=gray>''nome_colore''</font>)

	Paint.Brush = Paint.Color(Color.RGB(''n.'', ''n.'', ''n.''))		Paint.Brush = Paint.Color(Color.RGB(<FONT color=gray>''n.''</font>, <FONT color=gray>''n.''</font>, <FONT color=gray>''n.''</font>))

	[2] Le impostazioni dei parametri relativi al quadrilatero virtuale, nel quale viene scritto il testo, non sono obbligatorie, ma la loro assenza può determinare l'impossibilità di dare una particolare disposizione del testo.		[2] Le impostazioni dei parametri relativi al quadrilatero virtuale, nel quale viene scritto il testo, non sono obbligatorie, ma la loro assenza può determinare l'impossibilità di dare una particolare disposizione del testo.

	[3] Come sottolineato dall'Utente ''fsurfing'' del Forum ''Gambas-it.org'', « ''con "Stroke" viene disegnato solo il contorno che quindi con un size piccolo sembra quasi un grassetto, con "Fill" viene fatto il riempimento e quindi si vede normale.'' ».		[3] Come sottolineato dall'Utente ''fsurfing'' del Forum ''Gambas-it.org'', « ''con "Stroke" viene disegnato solo il contorno che quindi con un size piccolo sembra quasi un grassetto, con "Fill" viene fatto il riempimento e quindi si vede normale.'' ».

Vuott il 22:31, 16 apr 2023

2023-04-16T22:31:21Z

← Versione meno recente		Versione delle 16:31, 16 apr 2023
Riga 6:		Riga 6:
	With Paint		With Paint
	<FONT color=gray>' ''imposta il colore dei caratteri:''</font>		<FONT color=gray>' ''imposta il colore dei caratteri:''</font>
	.Brush = Paint.Color(Color.Red) <SUP>[[[#Note\|Nota 1]]]</sup>		.Brush = Paint.Color(Color.Red) <FONT color=gray>'</font><SUP>[[[#Note\|Nota 1]]]</sup>
	<FONT color=gray>' ''imposta il tipo di carattere:''</font>		<FONT color=gray>' ''imposta il tipo di carattere:''</font>
	.Font.Name = "Arial"		.Font.Name = "Arial"
Riga 15:		Riga 15:
	.Text("Testo con Text", 10, 30, 20, 20)		.Text("Testo con Text", 10, 30, 20, 20)
	.Stroke		.Stroke
	<FONT color=gray>' ''...oppure (meglio, perché non dà l'effetto del grassetto) ".fill":''</font> <SUP>[[[#Note\|Nota 3]]]</sup>		<FONT color=gray>' ''...oppure (meglio, perché non dà l'effetto del grassetto) ".fill":'' '</font><SUP>[[[#Note\|Nota 3]]]</sup>
	<FONT color=gray>' .Fill</font>		<FONT color=gray>' .Fill</font>
	<FONT color=gray>' ''con il metodo '''.DrawText''' non è necessario l'uso di ".Stroke", né di ".Fill":''</font>		<FONT color=gray>' ''con il metodo '''.DrawText''' non è necessario l'uso di ".Stroke", né di ".Fill":''</font>

Vuott il 09:32, 2 dic 2020

2020-12-02T09:32:14Z

← Versione meno recente		Versione delle 03:32, 2 dic 2020
Riga 35:		Riga 35:
	Paint.Brush = Paint.Color(Color.RGB(''n.'', ''n.'', ''n.''))		Paint.Brush = Paint.Color(Color.RGB(''n.'', ''n.'', ''n.''))

	[2] Le impostazioni dei parametri relativi al quadrilatero virtuale, nel quale viene scritto il testo, non sono obbligatorie, ma la loro assenza può determinare l'impossibilità di dare una particolare ~~della~~ disposizione del testo.		[2] Le impostazioni dei parametri relativi al quadrilatero virtuale, nel quale viene scritto il testo, non sono obbligatorie, ma la loro assenza può determinare l'impossibilità di dare una particolare disposizione del testo.

	[3] Come sottolineato dall'Utente ''fsurfing'' del Forum ''Gambas-it.org'', « ''con "Stroke" viene disegnato solo il contorno che quindi con un size piccolo sembra quasi un grassetto, con "Fill" viene fatto il riempimento e quindi si vede normale.'' ».		[3] Come sottolineato dall'Utente ''fsurfing'' del Forum ''Gambas-it.org'', « ''con "Stroke" viene disegnato solo il contorno che quindi con un size piccolo sembra quasi un grassetto, con "Fill" viene fatto il riempimento e quindi si vede normale.'' ».

Vuott il 09:30, 2 dic 2020

2020-12-02T09:30:41Z

← Versione meno recente		Versione delle 03:30, 2 dic 2020
Riga 15:		Riga 15:
	.Text("Testo con Text", 10, 30, 20, 20)		.Text("Testo con Text", 10, 30, 20, 20)
	.Stroke		.Stroke
	<FONT color=gray>' ''...oppure (meglio, perché non dà l'effetto del grassetto) ".fill":''</font> <SUP>[[[#Note\|Nota 2]]]</sup>		<FONT color=gray>' ''...oppure (meglio, perché non dà l'effetto del grassetto) ".fill":''</font> <SUP>[[[#Note\|Nota 3]]]</sup>
	<FONT color=gray>' .Fill</font>		<FONT color=gray>' .Fill</font>
	<FONT color=gray>' ''con il metodo '''.DrawText''' non è necessario l'uso di ".Stroke", né di ".Fill":''</font>		<FONT color=gray>' ''con il metodo '''.DrawText''' non è necessario l'uso di ".Stroke", né di ".Fill":''</font>

Vuott il 09:30, 2 dic 2020

2020-12-02T09:30:20Z

← Versione meno recente		Versione delle 03:30, 2 dic 2020
Riga 3:		Riga 3:
	'''Public''' Sub DrawingArea1_Draw()		'''Public''' Sub DrawingArea1_Draw()

	<FONT color=~~#006400~~>' ''Attiva la funzione disegno nell'Area di disegno con '''Paint'''''</font>		<FONT color=gray>' ''Attiva la funzione disegno nell'Area di disegno con '''Paint''':''</font>
	With Paint		With Paint
	<FONT color=~~#006400~~>' ''imposta il colore dei caratteri:''</font>		<FONT color=gray>' ''imposta il colore dei caratteri:''</font>
	.Brush = Paint.Color(Color.Red) \|[[#Note\|1]]\|		.Brush = Paint.Color(Color.Red) <SUP>[[[#Note\|Nota 1]]]</sup>
	<FONT color=~~#006400~~>' ''imposta il tipo di carattere:''</font>		<FONT color=gray>' ''imposta il tipo di carattere:''</font>
	.Font.Name = "Arial"		.Font.Name = "Arial"
	<FONT color=~~#006400~~>' ''Imposta la dimensione dei caratteri:''</font>		<FONT color=gray>' ''Imposta la dimensione dei caratteri:''</font>
	.Font.Size = 16		.Font.Size = 16
	<FONT color=~~#006400~~>' ''Scrive sull'Area di Disegno il seguente testo di caratteri nella posizione X, Y''		<FONT color=gray>' ''Scrive sull'Area di Disegno il seguente testo di caratteri nella posizione X, Y all'interno di un quadrilatero virtuale W, H</font>'' <SUP>[[[#Note\|Nota 2]]]</sup> <FONT color=gray>''con i Metodi "'''.RichText'''" e "'''.Text'''", ma occorrerà uno ".Stroke" a seguire (però .Stroke tende a dare l'effetto del grassetto):''</font>
	~~' ''~~all'interno di un quadrilatero virtuale W, H</font>'' \|[[#Note\|2]]\| <FONT color=~~#006400~~>''con i ~~metodi~~ '''.RichText''' e '''.Text''',''
	~~' ''~~ma occorrerà uno ".Stroke" a seguire (però .Stroke tende a dare l'effetto del grassetto):''</font>
	.RichText("Testo con RichText", 200, 20, 16, 100)		.RichText("Testo con RichText", 200, 20, 16, 100)
	.Text("Testo con Text", 10, 30, 20, 20)		.Text("Testo con Text", 10, 30, 20, 20)
	.Stroke		.Stroke
	<FONT color=~~#006400~~>' ''...oppure (meglio, perché non dà l'effetto del grassetto) ".fill":''</font> \|[[#Note\|3]]\|		<FONT color=gray>' ''...oppure (meglio, perché non dà l'effetto del grassetto) ".fill":''</font> <SUP>[[[#Note\|Nota 2]]]</sup>
	<FONT color=~~#006400~~> .Fill</font>		<FONT color=gray>' .Fill</font>
	<FONT color=~~#006400~~>' ''con il metodo '''.DrawText''' non è necessario l'uso di ".Stroke", né di ".Fill":''</font>		<FONT color=gray>' ''con il metodo '''.DrawText''' non è necessario l'uso di ".Stroke", né di ".Fill":''</font>
	.DrawText("Testo con DrawText", 10, 10, 20, 20)		.DrawText("Testo con DrawText", 10, 10, 20, 20)
	.End		.End
Riga 29:		Riga 27:

	----		----
			=Note=
	==Note==
	[1] Con la classe ''Paint'' si potrà impostare il colore in questi modi:		[1] Con la classe ''Paint'' si potrà impostare il colore in questi modi:
	Paint.Brush = Paint.Color(''numero_del_colore'')		Paint.Brush = Paint.Color(''numero_del_colore'')