Android Question round circular progress bar

Erel said:

Change DrawValue to:

B4X:

Private Sub DrawValue(Value As Float)
    bc.DrawRect2(bc.TargetRect, TransparentBrush, True, 0)
    mLbl.Text = $"$1.0{Value}"$
    Dim startAngle = -90, sweepAngle = Value / 100 * 361 As Float
    bc.DrawArc2(cx, cy, radius, emptyBrush, False, stroke, startAngle, -(360 - sweepAngle))
    bc.DrawArc2(cx, cy, radius, fullBrush, False, stroke, startAngle, sweepAngle)
    Dim halfStroke As Float = stroke / 2
    If Value > 0 Then
        bc.DrawCircle2(cx + Round((radius - halfStroke) * CosD(startAngle + sweepAngle)), _
            cy + Round((radius - halfStroke) * SinD(startAngle + sweepAngle)), halfStroke, fullBrush, True, 0)
    End If
    bc.SetBitmapToImageView(bc.Bitmap, iv)
End Sub

This will draw a round circle at the end. It will work in the three platforms but due to rounding errors it will not be 100% perfect

B4J:

View attachment 133859
The ending circle is drawn with the same gradient as the arc.

Click to expand...

Private Sub DrawValue(Value As Float)
    bc.DrawRect2(bc.TargetRect, TransparentBrush, True, 0)
    mLbl.Text = $"$1.0{Value}"$
    Dim startAngle = -90, sweepAngle = Value / 100 * 361 As Float
    bc.DrawArc2(cx, cy, radius, emptyBrush, False, stroke, startAngle, -(360 - sweepAngle))
    bc.DrawArc2(cx, cy, radius, fullBrush, False, stroke, startAngle, sweepAngle)
    Dim halfStroke As Float = stroke / 2
    If Value > 0 Then
        bc.DrawCircle2(cx + Round((radius - halfStroke) * CosD(startAngle + sweepAngle)), _
            cy + Round((radius - halfStroke) * SinD(startAngle + sweepAngle)), halfStroke, fullBrush, True, 0)
        bc.DrawCircle(cx + Round((radius - halfStroke) * CosD(startAngle)), _
            cy + Round((radius - halfStroke) * SinD(startAngle)), halfStroke, clr1, True, 0)
    End If
    bc.SetBitmapToImageView(bc.Bitmap, iv)
End Sub