Private Sub DrawEllipse(Canvas As B4XCanvas, Rect As B4XRect, Color As Int, Filled As Boolean, StrokeWidth As Float)
Private RectExt As B4XRect
Private Path, PathExt As B4XPath
Private StrokeWidth_2 As Float
StrokeWidth_2 = StrokeWidth / 2
RectExt.Initialize(Rect.Left - StrokeWidth_2, Rect.Top - StrokeWidth_2, Rect.Right + StrokeWidth_2, Rect.Bottom + StrokeWidth_2)
Path.InitializeOval(Rect)
PathExt.InitializeOval(RectExt)
If Filled = True Then
Canvas.DrawPath(Path, Color, True, 1dip)
Else
Canvas.DrawPath(PathExt, Color, False, StrokeWidth)
End If
End Sub