Android Question Add Image to button in code

Mahares

Expert
Licensed User
Longtime User
You can achieve your goals by using CSBuilder and SwiftButton. For swiftButton you need XUI Views library. You do all in the Designer or by code.
B4X:
Dim cs As CSBuilder
    cs.Initialize
    cs.Image(LoadBitmap(File.DirAssets, "hannibal.jpg"), 60dip, 60dip, False).Append(CRLF).VerticalAlign(8dip).Append("Leader")
    cs.PopAll
    SwiftButton1.xLBL.Text= cs
    SwiftButton1.CornersRadius =40dip
    SwiftButton1.SideHeight =10dip
    SwiftButton1.SetColors(xui.Color_Red, xui.Color_Black)


B4X:
 
Upvote 0

TILogistic

Expert
Licensed User
Longtime User
other simple:
B4X:
    Dim cs As CSBuilder
    cs.Initialize
    cs.Size(60)
    cs.Alignment("ALIGN_CENTER")
    cs.Color(Colors.Blue)
    cs.TypeFace(Typeface.FONTAWESOME)
    cs.Append(Chr(0xF028))
    cs.Append(CRLF)
    cs.TypeFace(Typeface.DEFAULT)
    cs.Size(14)
    cs.Color(Colors.Red)
    cs.Bold
    cs.VerticalAlign(4dip)
    cs.Append("Button with CSBuilder")
    cs.PopAll

    Button1.As(B4XView).SetColorAndBorder(xui.Color_LightGray, 1dip, xui.Color_DarkGray, 9dip)
    SetShadow(Button1.As(B4XView), 4, xui.Color_DarkGray)
    Button1.Text = cs


    Dim cs As CSBuilder
    cs.Initialize
    cs.Size(60)
    cs.Alignment("ALIGN_CENTER")
    cs.Color(Colors.Blue)
    cs.TypeFace(Typeface.FONTAWESOME)
    cs.Append(Chr(0xF028))
    cs.Append(CRLF)
    cs.TypeFace(Typeface.DEFAULT)
    cs.Size(14)
    cs.Color(Colors.Red)
    cs.Bold
    cs.VerticalAlign(4dip)
    cs.Append("Label with CSBuilder")
    cs.PopAll

    Label1.As(B4XView).SetColorAndBorder(xui.Color_LightGray, 1dip, xui.Color_DarkGray, 9dip)
    SetShadow(Label1.As(B4XView), 4, xui.Color_DarkGray)

    Label1.Text = cs

B4X:
Public Sub SetShadow (View As B4XView, Offset As Double, Color As Int)
    #if B4J
    Dim DropShadow As JavaObject
    'You might prefer to ignore panels as the shadow is different.
    'If View Is Pane Then Return
    DropShadow.InitializeNewInstance(IIf(View Is Pane, "javafx.scene.effect.InnerShadow", "javafx.scene.effect.DropShadow"), Null)
    DropShadow.RunMethod("setOffsetX", Array(Offset))
    DropShadow.RunMethod("setOffsetY", Array(Offset))
    DropShadow.RunMethod("setRadius", Array(Offset))
    Dim fx As JFX
    DropShadow.RunMethod("setColor", Array(fx.Colors.From32Bit(Color)))
    View.As(JavaObject).RunMethod("setEffect", Array(DropShadow))
    #Else If B4A
    Offset = Offset * 2
    View.As(JavaObject).RunMethod("setElevation", Array(Offset.As(Float)))
    #Else If B4i
    View.As(View).SetShadow(Color, Offset, Offset, 0.5, False)
    #End If
End Sub



Color Background and border.
 
Last edited:
Upvote 0

TILogistic

Expert
Licensed User
Longtime User
other:
B4X:
    Dim cs As CSBuilder
    cs.Initialize
    cs.Size(60)
    cs.Alignment("ALIGN_CENTER")
    cs.Color(Colors.Blue)
    cs.TypeFace(Typeface.FONTAWESOME)
    cs.Append(Chr(0xF028))
    cs.Append(CRLF)
    cs.TypeFace(Typeface.DEFAULT)
    cs.Size(14)
    cs.Color(Colors.Red)
    cs.Bold
    cs.VerticalAlign(4dip)
    cs.Append("Button with CSBuilder")
    cs.PopAll

    Button1.Text = cs
  
    Dim Gradient1 As GradientDrawable
    Dim Clrs(2) As Int
    Clrs(0) =  xui.Color_DarkGray
    Clrs(1) = xui.Color_White
    Gradient1.Initialize("TR_BL", Clrs)
    Button1.Background = Gradient1
    setCornerRadii(Button1,4%x,4%x,4%x,4%x,4%x,4%x,4%x,4%x)
B4X:
Public Sub setCornerRadii(v As View, Rx_TopLeft As Float, Ry_TopLeft As Float, Rx_TopRight As Float, Ry_TopRight As Float, Rx_BottomRight As Float, Ry_BottomRight As Float, Rx_BottomLeft As Float, Ry_BottomLeft As Float)
    Dim jo As JavaObject = v.Background
    If v.Background Is ColorDrawable Or v.Background Is GradientDrawable Then
        jo.RunMethod("setCornerRadii", Array As Object(Array As Float(Rx_TopLeft, Ry_TopLeft, Rx_TopRight, Ry_TopRight, Rx_BottomRight, Ry_BottomRight, Rx_BottomLeft, Ry_BottomLeft)))
    End If
End Sub

 
Last edited:
Upvote 0

iCAB

Well-Known Member
Licensed User
Longtime User
Thanks Guys for your help. Greatly appreciated!
I will give both suggestions a try.
 
Upvote 0

iCAB

Well-Known Member
Licensed User
Longtime User
Hi @oparra

I am trying your approach first.

Assuming that I am using BitmapDrawable to set the button background, would your approach still work? if so, can you please provide an example?

Thanks
iCAB
 
Upvote 0

TILogistic

Expert
Licensed User
Longtime User
see:
BitmapDrawable button 4


B4X:
    Dim icon As B4XBitmap = xui.LoadBitmap(File.DirAssets, "icon.png")
    Dim IamgeBackGround As B4XBitmap = xui.LoadBitmap(File.DirAssets, "background.png")
   
    Dim cs As CSBuilder
    cs.Initialize
    cs.Image(icon, 50dip, 50dip, False)
    cs.Append(CRLF)
    cs.TypeFace(Typeface.DEFAULT)
    cs.Size(14)
    cs.Color(xui.Color_Black)
    cs.Bold
    cs.VerticalAlign(4dip)
    cs.Append("Made CSBuilder")
    cs.PopAll
   
    Button4.Text = cs
    Button4.As(B4XView).SetBitmap(IamgeBackGround)

NOTE:
For button 4 edges, the solution would be to place the button inside a panel.
 
Last edited:
Upvote 0
Cookies are required to use this site. You must accept them to continue using the site. Learn more…