Ruotare il testo in una DrawingArea
Il seguente codice [Nota 1] effettua la rotazione di un testo in un'Area di Disegno. In particolare esso dimostra che la rotazione è data dai valori presenti nei metodi Traslate relativi alle misure dell'area di disegno e a quelle del testo. E' come se il fulcro di Translate agisse da vortice: a seconda di dove si pone il testo nel vortice il testo ruoterà. [Nota 2]
Per poter provare questo codice occorre creare un'applicazione grafica con un'area di disegno (DrawingArea) di almeno 450 per lato e denominarla "da".
Quindi aggiungere alla MainForm sei pulsanti (Button) denominati rispettivamente:
btCentro (disegna la scritta che ruoterà sul proprio asse centrale)
btTesta (disegna la scritta che ruoterà facendo perno sull'inizio del testo)
btCoda (disegna la scritta che ruoterà facendo perno sulla fine del testo)
btEsterna (disegna la scritta che ruoterà intorno al cerchio)
btLeft (ruota la scritta in senso antiorario)
btRight (ruota la scritta in senso orario)
Private fRaggio As Float ' Memorizza la lunghezza del raggio del cerchio entro cui ruota la scritta.
Private xArc As Float ' Memorizza il centro del cerchio.
Private yArc As Float ' Idem.
Private x As Float ' Memorizza l'inizio della scritta.
Private y As Float ' Idem.
Private iAlt As Integer ' Memorizza l'altezza della scritta.
Private iLarg As Integer ' Memorizza la larghezza della scritta.
Private sTesto As String ' Memorizza la scritta.
Private fAngolo As Float ' Memorizza i gradi dell'angolo.
Private sPos As String ' Memorizza il tipo di rotazione se con perno centrale, di testa o di coda.
Private fSopra1 As Float ' Memorizza la posizione di partenza orizzontale della rotazione.
Private fSopra2 As Float ' Memorizza la posizione di partenza verticale della rotazione.
Private fSotto1 As Float ' Memorizza la posizione di arrivo orizzontale della rotazione.
Private fSotto2 As Float ' Memorizza la posizione di arrivo verticale della rotazione.
Private bOk As Boolean ' Booleano che se vero consete il disegno sulla DrawigArea.
Public Sub Form_Open()
sTesto = "Testo qualsiasi"
Me.Center
End
Public Sub da_Draw()
' Se il booleano "bOk" è "vero", raccoglie tutti i dati e le misure occorrenti
' per poter disegnare testo e cerchio nell'area di disegno:
If bOk Then
With Paint
.Begin(da)
.Font.Size = ridimensiona(22)
iLarg = .Font.RichTextWidth(sTesto)
iAlt = .Font.RichTextHeight(sTesto)
Select Case sPos
' Se la rotazione è centrale, posiziona il testo al centro dell'area
' di disegno così come le misure di partenza e arrivo e siccome la scritta
' ruota su se stessa da al raggio del cerchio mezza lunghezza del testo:
Case "Center"
x = CFloat((da.W / 2) - (iLarg / 2))
y = CFloat((da.H / 2) - (iAlt / 2))
fRaggio = CFloat(iLarg / 2)
' Se rotazione è di testa, posiziona l'inizio del testo al centro
' dell'area di disegno così come le misure di partenza e arrivo; e siccome la scritta
' ruota come un raggio, dà al raggio del cerchio la lunghezza del testo:
Case "Testa"
x = CFloat(da.W / 2)
y = CFloat((da.H / 2) - (iAlt / 2))
fRaggio = CFloat(iLarg)
' Se rotazione è di coda, posiziona la fine del testo al centro dell'area
' di disegno così come le misure di partenza e arrivo; e siccome la scritta
' ruota come un raggio dà al raggio del cerchio la lunghezza del testo:
Case "Coda"
x = CFloat((da.W / 2) - iLarg)
y = CFloat((da.H / 2) - (iAlt / 2))
fRaggio = CFloat(iLarg)
' Se rotazione è esterna, posiziona l'inizio del testo a fine raggio del cerchio,
' sempre al centro dell'area di disegno le misure di partenza e arrivo:
Case "Esterna"
x = CFloat((da.W / 2) + (iLarg / 2))
y = CFloat((da.H / 2) - (iAlt / 2))
fRaggio = CFloat(iLarg / 2)
End Select
' In questa dimostrazione il fulcro (vortice) è sempre il centro dell'area di disegno:
xArc = CFloat((da.W / 2))
yArc = CFloat(da.H / 2)
fSopra1 = CFloat((da.W / 2))
fSopra2 = CFloat(da.H / 2)
fSotto1 = CFloat(- (da.W / 2))
fSotto2 = CFloat(- (da.H / 2))
' Vortice:
.Translate(fSopra1, fSopra2)
.Rotate(Rad(fAngolo))
.Translate(fSotto1, fSotto2)
' ' Testo:
'.DrawText(sTesto, x, y, iLarg, iAlt)
.Text(sTesto, x, y, iLarg, iAlt)
.Fill
' Arco:
.Arc(xArc, yArc, fRaggio)
.Stroke
.End
End With
bOk = False
Endif
End
Public Sub ridimensiona(size As Float) As Float
' Proporziona il testo nell'area di disegno:
If Paint.Device = da Then
Return (size * 0.744)
Else
Return size
Endif
End
Public Sub attivaDisegno()
' Porta a vero bOk, pulisce l'area di disegno e attiva il disegno:
bOk = True
da.Clear
da.Refresh
End
Public Sub btCentro_Click()
' Indica il tipo di rotazione, attiva il disegno:
sPos = "Center"
attivaDisegno()
End
Public Sub btTesta_Click()
' Indica il tipo di rotazione, attiva il disegno:
sPos = "Testa"
attivaDisegno()
End
Public Sub btCoda_Click()
' Indica il tipo di rotazione, attiva il disegno:
sPos = "Coda"
attivaDisegno()
End
Public Sub btEsterna_Click()
' Indica il tipo di rotazione, attiva il disegno:
sPos = "Esterna"
attivaDisegno()
End
Public Sub btLeft_Click()
' Ogni volta che si agisce sul tasto incrementa il valore di un ottavo di giro:
' (positivo = senso antiorario).
fAngolo += 45
If fAngolo = 405 Then fAngolo = 45
bOk = True
da.Refresh
End
Public Sub btRight_Click()
' Ogni volta che si agisce sul tasto decrementa il valore di un ottavo di giro:
' (negativo = senso orario).
fAngolo -= 45
If fAngolo = -405 Then fAngolo = -45
bOk = True
da.Refresh
End
Note
[1] Il codice è stato realizzato dall'utente Gianluigi del forum www.gambas-it.org.
[2] Si vedano anche queste pagine della WIKI:
- Ruotare qualsiasi elemento da disegnare in una DrawingArea
- Curvare il testo in una DrawingArea
