Private Sub WriteText
Private X,Y As Float
Private RowHeight, TextSize As Float
Private lv As LayoutValues
' RowHeight = 60dip
RowHeight = Activity.Height / 10
X = 5dip
lv = GetDeviceLayoutValues
TextSize = RowHeight / lv.Scale * 0.8
Y = RowHeight * 0.75
' cnv.DrawText("First text", X, Y, Typeface.DEFAULT, 22 * Scale.GetScaleTxt, Colors.Blue, "LEFT")
cnv.DrawText("First text", X, Y, Typeface.DEFAULT, TextSize, Colors.Blue, "LEFT")
For r = 1 To 9
Y = Y + RowHeight
' cnv.DrawText("Other " & r, X, Y, Typeface.DEFAULT, 22 * Scale.GetScaleTxt, Colors.Blue, "LEFT")
cnv.DrawText("Other " & r, X, Y, Typeface.DEFAULT, TextSize, Colors.Blue, "LEFT")
Next
End Sub