Android Question Radius for Imageview

[stevenindon]

Hello all,

I have put an image to a Imageview (Dim as B4xview). But when i try to set the radius of the imageview with the followings:

MyImageView.SetColorAndBorder(xui.Color_White,1dip,xui.Color_Blue,30dip)

I got the radius drawn on the image view...but the image became white. I even tried :

MyImageView.SetColorAndBorder(xui.Color_Transparent,1dip,xui.Color_Blue,30dip)... now the image is lost.

How can I set the radius of the imageview but maintain the image?

Thanks

 

[mcqueccu]

Use B4XImageview from Xui Views. Its easy to set radius, as well as resize modes

[B4X] B4XImageView - ImageView + resize modes

B4XImageView is a new custom view, added to XUI Views v2.40. It adds several useful resize modes to the standard ImageView: (Images source: https://www.b4x.com/android/forum/threads/compass-gm-a-gyro-magnetic-compass-app-featuring-true-and-magnetic-heading.121239/...

www.b4x.com

 

[stevenindon]

Mcqueccu, Thank you for your suggestion. I can't use B4XImageview as my Imageview are created using codes (Arrays of Imageview) that are then inserted into Customlistview as 'cards'

I need to find a way to make my imageview with images to have certain degree of radius. With this code :

MyImageView.SetColorAndBorder(xui.Color_Transparent,1dip,xui.Color_Blue,30dip)

IOS runs without problem (Imageview displays image with radius)... but not in Android.

 

[TILogistic]

? B4X

    Dim img As B4XBitmap = xui.LoadBitmapResize(File.DirAssets, "1.png", ImageView1.Width, ImageView1.Height, True)
    ImageView1.SetBitmap(CreateRoundRectBitmap(img, 20dip))

Public Sub CreateRoundRectBitmap (Input As B4XBitmap, Radius As Float) As B4XBitmap
    Dim BorderColor As Int = xui.Color_Black
    Dim BorderWidth As Int = 4dip
    Dim c As B4XCanvas
    Dim xview As B4XView = xui.CreatePanel("")
    xview.SetLayoutAnimated(0, 0, 0, Input.Width, Input.Height)
    c.Initialize(xview)
    Dim path As B4XPath
    path.InitializeRoundedRect(c.TargetRect, Radius)
    c.ClipPath(path)
    c.DrawRect(c.TargetRect, BorderColor, True, BorderWidth) 'border
    c.RemoveClip
    Dim r As B4XRect
    r.Initialize(BorderWidth, BorderWidth, c.TargetRect.Width - BorderWidth, c.TargetRect.Height - BorderWidth)
    path.InitializeRoundedRect(r, Radius - 0.7 * BorderWidth)
    c.ClipPath(path)
    c.DrawBitmap(Input, r)
    c.RemoveClip
    c.Invalidate
    Dim res As B4XBitmap = c.CreateBitmap
    c.Release
    Return res
End Sub

See:

[B4X] [XUI] Rectangle image with rounded corners

Code to create a rectangle image with rounded corners: Compatible with B4A, B4i and B4J. Depends on XUI library v1.47+. Sub CreateRoundRectBitmap (Input As B4XBitmap, Radius As Float) As B4XBitmap Dim BorderColor As Int = xui.Color_Black Dim BorderWidth As Int = 4dip Dim c As...

www.b4x.com

 

[TILogistic]

Other:

[B4X] [XUI] Create a round image

Better implementation in B4XImageView (XUI Views) This code snippet is based on XUI library and it is compatible with B4A, B4i and B4J. The input is a bitmap and the output is a round bitmap (with no distortions). 'xui is a global XUI variable. Sub CreateRoundBitmap (Input As B4XBitmap...

www.b4x.com

 

[stevenindon]

oparra,

Thank you very much for your help.. ? ? . Code is working superb.

 

[Erel]

Mcqueccu, Thank you for your suggestion. I can't use B4XImageview as my Imageview are created using codes (Arrays of Imageview) that are then inserted into Customlistview as 'cards'

Best to use B4XImageView. It will have much better performance compared to the code above.
You can create any custom view programmatically: [B4X] I need 100 <custom view here>s. How to add programmatically?
B4XImageView is especially simple to create with:

Dim iv As B4XImageView = XUIViewsUtils.CreateB4XImageView