Differenze tra le versioni di "Scrivere del testo in una DrawingArea"
Da Gambas-it.org - Wikipedia.
| (4 versioni intermedie di uno stesso utente non sono mostrate) | |||
| Riga 3: | Riga 3: | ||
'''Public''' Sub DrawingArea1_Draw() | '''Public''' Sub DrawingArea1_Draw() | ||
| − | <FONT color= | + | <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= | + | .Brush = Paint.Color(Color.Red) <FONT color=gray>'</font><SUP>[[[#Note|Nota 1]]]</sup> |
| − | .Brush = Paint.Color(Color.Red) | + | <FONT color=gray>' ''imposta il tipo di carattere:''</font> |
| − | <FONT color= | ||
.Font.Name = "Arial" | .Font.Name = "Arial" | ||
| − | <FONT color= | + | <FONT color=gray>' ''Imposta la dimensione dei caratteri:''</font> |
.Font.Size = 16 | .Font.Size = 16 | ||
| − | <FONT color= | + | <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= | + | <FONT color=gray>' ''...oppure (meglio, perché non dà l'effetto del grassetto) ".fill":'' '</font><SUP>[[[#Note|Nota 3]]]</sup> |
| − | <FONT color= | + | <FONT color=gray>' .Fill</font> |
| − | <FONT color= | + | <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 30: | Riga 27: | ||
---- | ---- | ||
| − | + | =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'') | ||
| Riga 39: | 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 | + | [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.'' ». | ||
Versione attuale delle 16:31, 16 apr 2023
Mostreremo di seguito le modalità per scrivere del testo con il metodo Paint all'interno di una DrawingArea.
Public Sub DrawingArea1_Draw()
' Attiva la funzione disegno nell'Area di disegno con Paint:
With Paint
' imposta il colore dei caratteri:
.Brush = Paint.Color(Color.Red) '[Nota 1]
' imposta il tipo di carattere:
.Font.Name = "Arial"
' Imposta la dimensione dei caratteri:
.Font.Size = 16
' Scrive sull'Area di Disegno il seguente testo di caratteri nella posizione X, Y all'interno di un quadrilatero virtuale W, H [Nota 2] con i Metodi ".RichText" e ".Text", ma occorrerà uno ".Stroke" a seguire (però .Stroke tende a dare l'effetto del grassetto):
.RichText("Testo con RichText", 200, 20, 16, 100)
.Text("Testo con Text", 10, 30, 20, 20)
.Stroke
' ...oppure (meglio, perché non dà l'effetto del grassetto) ".fill": '[Nota 3]
' .Fill
' con il metodo .DrawText non è necessario l'uso di ".Stroke", né di ".Fill":
.DrawText("Testo con DrawText", 10, 10, 20, 20)
.End
End With
End
Note
[1] Con la classe Paint si potrà impostare il colore in questi modi:
Paint.Brush = Paint.Color(numero_del_colore)
Paint.Brush = Paint.Color(Color.nome_colore)
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 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. ».
