Android Question [Solved] Round corner in AS ViewPager

asales · Sep 6, 2024

The AS ViewPager is a great lib from @Alexander Stolte .

I based in this example to create a slider with auto play and a label:

[B4X] AS ViewPager - Auto Play

In this example project you can see how to add an auto play feautre to the AS ViewPager. https://www.b4x.com/android/forum/threads/b4x-xui-as-viewpager-based-on-xcustomlistview.116709/ Sub Class_Globals Private tmr_AutoPlay As Timer End Sub Private Sub B4XPage_Created (Root1 As B4XView)...

www.b4x.com

I'm trying to put a round corner in the panel of the slide, but I get this behaviour:

This is the code that I changed in the original example:

B4X:

Dim cor As Int   
For i = 0 To 5
    Dim tmp_xpnl As B4XView = xui.CreatePanel("")
    cor = xui.Color_ARGB(255,Rnd(1,255),Rnd(1,255),Rnd(1,255))
    tmp_xpnl.SetColorAndBorder(cor, 2dip, xui.Color_Gray, 30dip)
    tmp_xpnl.SetLayoutAnimated(0,0,0,ASViewPager1.Base.Width,ASViewPager1.Base.Height)
        
    Dim lb As Label
    lb.Initialize("lb")
    tmp_xpnl.AddView(lb, 25dip, 25dip, tmp_xpnl.Width - 50dip, tmp_xpnl.Height - 50dip)
    lb.Color = xui.Color_Cyan
    lb.TextColor = xui.Color_White
    lb.TextSize = 30
    lb.Text = "Test" & i
        
    ASViewPager1.AddPage(tmp_xpnl,"Test" & i)
Next

How I can set a border with the background transparent, like this:

Thanks in advance for any tip .

TILogistic · Sep 6, 2024

test

B4X:

Public Sub SetRectangleClip(pnl As B4XView, CornersRadius As Double)
    pnl.SetColorAndBorder(0, 0, 0, CornersRadius)
    #If B4J
    Dim Rectangle As JavaObject
    Dim cx = pnl.Width, cy = pnl.Height As Double
    Rectangle.InitializeNewInstance("javafx.scene.shape.Rectangle", Array(cx, cy))
    If CornersRadius > 0 Then
        Rectangle.RunMethod("setArcHeight", Array(CornersRadius))
        Rectangle.RunMethod("setArcWidth", Array(CornersRadius))
    End If
    pnl.As(JavaObject).RunMethod("setClip", Array(Rectangle))
    #Else If B4A
    pnl.As(JavaObject).RunMethod("setClipToOutline", Array(CornersRadius > 0))
    #End If
End Sub

TILogistic · Sep 6, 2024

test

B4X:

Public Sub SetRectangleClip(pnl As B4XView, CornersRadius As Double)
    pnl.SetColorAndBorder(0, 0, 0, CornersRadius)
    #If B4J
    Dim Rectangle As JavaObject
    Dim cx = pnl.Width, cy = pnl.Height As Double
    Rectangle.InitializeNewInstance("javafx.scene.shape.Rectangle", Array(cx, cy))
    If CornersRadius > 0 Then
        Rectangle.RunMethod("setArcHeight", Array(CornersRadius))
        Rectangle.RunMethod("setArcWidth", Array(CornersRadius))
    End If
    pnl.As(JavaObject).RunMethod("setClip", Array(Rectangle))
    #Else If B4A
    pnl.As(JavaObject).RunMethod("setClipToOutline", Array(CornersRadius > 0))
    #End If
End Sub

Alexander Stolte · Sep 6, 2024

TILogistic said:

test

B4X:

Public Sub SetRectangleClip(pnl As B4XView, CornersRadius As Double)
pnl.SetColorAndBorder(0, 0, 0, CornersRadius)
 #If B4J
Dim Rectangle As JavaObject
Dim cx = pnl.Width, cy = pnl.Height As Double
Rectangle.InitializeNewInstance("javafx.scene.shape.Rectangle", Array(cx, cy))
If CornersRadius > 0 Then
Rectangle.RunMethod("setArcHeight", Array(CornersRadius))
Rectangle.RunMethod("setArcWidth", Array(CornersRadius))
End If
pnl.As(JavaObject).RunMethod("setClip", Array(Rectangle))
#Else If B4A
pnl.As(JavaObject).RunMethod("setClipToOutline", Array(CornersRadius > 0))
#End If
End Sub

what he says

asales · Sep 9, 2024

TILogistic said:

test

B4X:

Public Sub SetRectangleClip(pnl As B4XView, CornersRadius As Double)
    pnl.SetColorAndBorder(0, 0, 0, CornersRadius)
    #If B4J
    Dim Rectangle As JavaObject
    Dim cx = pnl.Width, cy = pnl.Height As Double
    Rectangle.InitializeNewInstance("javafx.scene.shape.Rectangle", Array(cx, cy))
    If CornersRadius > 0 Then
        Rectangle.RunMethod("setArcHeight", Array(CornersRadius))
        Rectangle.RunMethod("setArcWidth", Array(CornersRadius))
    End If
    pnl.As(JavaObject).RunMethod("setClip", Array(Rectangle))
    #Else If B4A
    pnl.As(JavaObject).RunMethod("setClipToOutline", Array(CornersRadius > 0))
    #End If
End Sub

Thanks!
Solved with this line before the for:

B4X:

SetRectangleClip(ASViewPager1.Base, 30dip)

Android Question [Solved] Round corner in AS ViewPager

asales

Expert

[B4X] AS ViewPager - Auto Play

TILogistic

TILogistic

Expert

Alexander Stolte

Expert

asales

Expert

Similar Threads

Android Question [Solved] Round corner in AS ViewPager

asales

Expert

[B4X] AS ViewPager - Auto Play

TILogistic

Expert

Alexander Stolte

Expert

asales

Expert

Similar Threads

Privacy & Transparency

Privacy & Transparency