'Custom View class
#DesignerProperty: Key: CornerRadius, DisplayName: Corner Radius, FieldType: Int, DefaultValue: 0, Description: Corner Radius
Sub Class_Globals
Private mEventName As String 'ignore
Private mCallBack As Object 'ignore
Private mBase As Panel
Private Const DefaultColorConstant As Int = -984833 'ignore
End Sub
Public Sub Initialize (Callback As Object, EventName As String)
mEventName = EventName
mCallBack = Callback
End Sub
Public Sub DesignerCreateView (Base As Panel, Lbl As Label, Props As Map)
mBase = Base
CornerRadius(Props.Get("CornerRadius"))
End Sub
Public Sub GetBase As Panel
Return mBase
End Sub
Public Sub CornerRadius (Radius As Int)
Dim cd As ColorDrawable
Dim cvs As Canvas
cvs.Initialize(mBase)
cd.Initialize(cvs.Bitmap.GetPixel(mBase.Width / 2,mBase.Height / 2),Radius)
mBase.Background = cd
End Sub