B4A Class StrokeDemo

setting a stroke on any views.
you should use this with javaobject lib

'using javaobject
Public Sub getGradientDrawableEx(gd As GradientDrawable,broderwidth As Int,brodercolor As Int) As Object
    Dim jo As JavaObject
    jo=gd
    'jo.RunMethod("setColor",Array As Object(c))
    'jo.RunMethod("setCornerRadius",Array As Object(f))
    jo.RunMethod("setStroke",Array As Object(broderwidth,brodercolor))
    Return jo
End Sub