SetRadialGradient corner radius


Licensed User
Longtime User
i am using this code for a backing of a panel, is it possible to set the radius so that round edges appear rather than corners, how would i modify the code.

Thanks in advance!!!

Sub Activity_Create(FirstTime As Boolean)
Dim GD As GradientDrawable
GD.Initialize("TOP_BOTTOM", Array As Int(Colors.White, Colors.Black))
activity.Background = gd
SetRadialGradient(GD, Activity.Height/2)
End Sub

Sub SetRadialGradient(GD As GradientDrawable, radius As Float)
Dim r As Reflector
r.Target = GD
r.RunMethod2("setGradientType", 1, "")
r.RunMethod2("setGradientRadius", radius, "java.lang.float")
End Sub