iOS Question B4XPageIndicator have low quality

[webhost.company]

The B4XPageIndicator1 is a good library for B4X
Only, that has an important the problem
The circles are of poor quality
That is not sharp and seem lost quality

 

[Erel]

Please upload a small project + screenshot.

 

[webhost.company]

Please see circles, the circles round is not sharp

 

[Erel]

Change Base_Resize code to:

Private Sub Base_Resize (Width As Double, Height As Double)
    #if B4i
    Dim scale As Float = GetDeviceLayoutValues.NonnormalizedScale
    #else
    Dim scale As Float = 1
    #end if
    If bc.IsInitialized = False Or bc.mWidth <> Width * scale Then
        bc.Initialize(Width * scale, 20dip * scale)
        r = 5dip * scale
        gap = 15dip * scale
        Transparent = bc.CreateBrushFromColor(xui.Color_Transparent)
        ActiveBrush = bc.CreateBrushFromColor(clr)
        InactiveBrush = bc.CreateBrushFromColor(Bit.Or(0x55000000, Bit.And(0x00FFFFFF, clr)))
    End If
    iv.SetLayoutAnimated(0, 0, 0, Width, bc.mHeight)
    Draw
End Sub

 

[webhost.company]

Change Base_Resize code to:

Private Sub Base_Resize (Width As Double, Height As Double)
    #if B4i
    Dim scale As Float = GetDeviceLayoutValues.NonnormalizedScale
    #else
    Dim scale As Float = 1
    #end if
    If bc.IsInitialized = False Or bc.mWidth <> Width * scale Then
        bc.Initialize(Width * scale, 20dip * scale)
        r = 5dip * scale
        gap = 15dip * scale
        Transparent = bc.CreateBrushFromColor(xui.Color_Transparent)
        ActiveBrush = bc.CreateBrushFromColor(clr)
        InactiveBrush = bc.CreateBrushFromColor(Bit.Or(0x55000000, Bit.And(0x00FFFFFF, clr)))
    End If
    iv.SetLayoutAnimated(0, 0, 0, Width, bc.mHeight)
    Draw
End Sub

Oh that is good Thanks
Can you add this code to the B4xPageindicator library?