Private Canvas1 As B4XCanvas
Private ChrRect As B4XRect
Private Xfont As B4XFont = xui.CreateDefaultFont(fontsize)
fontsize as Float = 26
chrwidth as Float
Canvas1.Resize(Panel1.width, Panel1.height)
ChrRect = B4XCanvas1.MeasureText("9", Xfont)
ChrWidth = ChrRect.Width