Sub DrawTextWithOutline(text As String, x As Float, y As Float, Thickness As Int, textColor As Int, outlineColor As Int, textSize As Float)
Dim xFont As B4XFont = xui.CreateDefaultFont(textSize)
xCanvas.DrawText(text, x - Thickness, y, xFont, outlineColor, "LEFT")
xCanvas.DrawText(text, x + Thickness, y, xFont, outlineColor, "LEFT")
xCanvas.DrawText(text, x, y - Thickness, xFont, outlineColor, "LEFT")
xCanvas.DrawText(text, x, y + Thickness, xFont, outlineColor, "LEFT")
xCanvas.DrawText(text, x, y, xFont, textColor, "LEFT")
xCanvas.Invalidate
End Sub