Differenze tra le versioni di "Scrivere del testo in una DrawingArea"
Da Gambas-it.org - Wikipedia.
| (8 versioni intermedie di uno stesso utente non sono mostrate) | |||
| 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() | |
| − | + | ||
| − | + | <FONT color=gray>' ''Attiva la funzione disegno nell'Area di disegno con '''Paint''':''</font> | |
| − | <FONT color= | ||
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 | ||
End With | End With | ||
| − | + | End | |
| + | |||
| + | |||
| + | =Note= | ||
| + | [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(Color.<FONT color=gray>''nome_colore''</font>) | ||
| − | + | 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. | |
| − | [ | ||
| − | [ | + | [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 13:43, 27 giu 2024
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. ».
