Public Sub SetCircleClip (pnl As B4XView)
#if B4J
Dim circle As JavaObject
Dim radius As Double = Max(pnl.Width / 2, pnl.Height / 2)
Dim cx As Double = pnl.Width / 2
Dim cy As Double = pnl.Height / 2
circle.InitializeNewInstance("javafx.scene.shape.Circle", Array(cx, cy, radius))
Dim jo As JavaObject = pnl
jo.RunMethod("setClip", Array(circle))
#else if B4A
Dim jo As JavaObject = pnl
jo.RunMethod("setClipToOutline", Array(True))
#end if
End Sub