B4J Code Snippet [B4X] DrawCircle to SelectedDay in B4XDateTemplate

Private Sub DrawBox (c As B4XCanvas, clr As Int, x As Int, y As Int)
    'Dim r As B4XRect
    'r.Initialize(x * boxW, y * boxH, x * boxW + boxW,  y * boxH + boxH)
    'c.DrawRect(r, clr, True, 1dip)
    c.DrawCircle(x * boxW + 0.5 * boxW, y * boxH + 0.5 * boxH, boxH * 0.5, clr, True, 1dip)
End Sub