Sub Globals
Dim cvsActivity As Canvas
Dim ABExtDraw As ABExtDrawing
Dim ABRect As ABRectF
Dim ABPaint1 As ABPaint
End Sub
Sub Activity_Create(FirstTime As Boolean)
cvsActivity.Initialize(Activity)
ABPaint1.Initialize
ABPaint1.SetStrokeWidth(3dip)
ABPaint1.SetColor(Colors.Red)
ABRect.Initialize(10dip, 10dip, 200dip, 100dip)
ABExtDraw.drawRoundRect(cvsActivity, ABRect, 20dip, 20dip, ABPaint1)
ABRect.Initialize(10dip, 110dip, 200dip, 200dip)
ABExtDraw.drawRoundRect(cvsActivity, ABRect, 20dip, 10dip, ABPaint1)
ABRect.Initialize(10dip, 210dip, 60dip, 260dip)
ABExtDraw.drawRoundRect(cvsActivity, ABRect, 25dip, 25dip, ABPaint1)
ABRect.Initialize(100dip, 210dip, 200dip, 260dip)
ABExtDraw.drawRoundRect(cvsActivity, ABRect, 50dip, 25dip, ABPaint1)
End Sub