Private Sub B4XPage_Created (Root1 As B4XView)
Root = Root1
Dim headerPanel As B4XView = xui.CreatePanel("")
headerPanel.Color = xui.Color_Red
Root.AddView(headerPanel, 0, 0, Root.width, .075 * Root.height)
Dim cv As B4XCanvas
cv.initialize(headerPanel)
Dim radius As Float = 2 * Root.Width
Dim path As B4XPath
path.InitializeArc(headerPanel.width/2, -radius + headerPanel.height - 5dip, radius, 70, 40)
cv.DrawPath(path, xui.Color_Blue, True, 0)
End Sub