-
Welcome to B4X forum!
B4X is a set of simple and powerful cross platform RAD tools:
- B4A (free) - Android development
- B4J (free) - Desktop and Server development
- B4i - iOS development
- B4R (free) - Arduino, ESP8266 and ESP32 development
B4J Question Help is needed to draw rotated text
- Thread starter LucaMs
- Start date
- Similar Threads Similar Threads
Better, not perfect:
B4X:
Public Sub DrawTexts(Pn As B4XView, lstTexts As List, FontSize As Float, lstColors As List, Radius As Int, StrokeWidth As Int, CircleColor As Int)
Dim xCanvas As B4XCanvas
xCanvas.Initialize(Pn)
Dim NumOfSectors As Int = lstTexts.Size
Dim SectorsOffset As Double = 360 / NumOfSectors
Dim CenterX, CenterY As Float
CenterX = Pn.Width / 2
CenterY = Pn.Height / 2
Dim Angle As Float
Dim xFont As B4XFont = xui.CreateDefaultFont(FontSize)
Dim Text As String
For i = 0 To NumOfSectors - 1
Text = lstTexts.Get(i)
Angle = 270 + i * SectorsOffset + SectorsOffset / 2
Dim r As B4XRect = xCanvas.MeasureText(Text, xFont)
Dim BaseLine As Int = CenterY - r.Height / 2 - r.Top
xCanvas.DrawTextRotated(Text, CenterX + 100dip * CosD(Angle), BaseLine + 100dip * SinD(Angle), xFont, xui.Color_Black, "CENTER", Angle)
Next
End Sub
Upvote
0
):
You're right (what a novelty! ?): that way it is less difficult and even more readable (the sector texts)
Thank you, Erel.
Upvote
0
Have you tried this library?
www.b4x.com
Maybe you shouldn't write vertically but horizontally, it wouldn't be warped
[B4X] [XUI] SD AwesoneWheel
SD_XUI_AwesoneWheel Author: Star-Dust Version: 0.05 AwesoneWheel Events: StopWheel (Index As Int, Value As String) Fields: Degree As Int TextSize As Int TimeLapseTick As Int Time frame that the wheel takes to cross each box - Defaults is 60 (milliseconds) RadiusCentralBall As Int Default...
www.b4x.com
Maybe you shouldn't write vertically but horizontally, it wouldn't be warped
Upvote
0
Yes, I have also encountered this problem. It is not aligned but I solved it. I don't remember how.
Upvote
0
Here I have drawn the median rays; the text is aligned on these. But to center the text on the rays you should change the angle according to the height of the texts.
Upvote
0
I had already tried, even trying to calculate how much that increase must be.
I'm attaching the project (some things need to be changed; it is not correct that the number of sectors is deduced from the list of colors provided - and other stuff to change/remove, added just for tests)
Upvote
0
I looked at my code and didn't understand anything about it.
So by exclusion I went to trial and error.
It seems to me, if I'm not mistaken because you don't understand anything, that I put half a point of a degree less on the wheel and one point more on the text
Upvote
0
Are you expecting this?
A text is, by default, positioned vertically on the text base line.
The base line is represented by the value 0 in in xRect you get with xRect = xCanvas.MeasureText(Sector.Text, xFont).
You need to take into account the distance between the base line and the center of the text.
This is taken into account in the code below:
A text is, by default, positioned vertically on the text base line.
The base line is represented by the value 0 in in xRect you get with xRect = xCanvas.MeasureText(Sector.Text, xFont).
You need to take into account the distance between the base line and the center of the text.
This is taken into account in the code below:
B4X:
xRect = xCanvas.MeasureText(Sector.Text, xFont)
X = CenterX + HalfRadius * CosD(MiddleAngle) + SinD(MiddleAngle) * xRect.CenterY
Y = CenterY + HalfRadius * SinD(MiddleAngle) - CosD(MiddleAngle) * xRect.CenterY
xCanvas.DrawTextRotated(Sector.Text, X, Y, xFont, Sector.TextColor, "CENTER", MiddleAngle)
Last edited:
Upvote
0
No, I was just waiting... for your intervention. I knew you would solve it!
Perfect, as always!
?
The usual great Klaus.
Last edited:
Upvote
0
