Android Question Add Image to button in code

Sort by date Sort by votes
M

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
I

iCAB

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

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.

[B4X] Round clipping panel

Purpose is to create a panel that clips its child views to a circle or rounded rect. 1. Set the round corners with the visual designer. 2. Use this code: Public Sub SetCircleClip (pnl As B4XView) #if B4J Dim circle As JavaObject Dim radius As Double = Max(pnl.Width / 2, pnl.Height / 2)...
www.b4x.com
 
Last edited:
Upvote 0
You must log in or register to reply here.

Similar Threads

  • Question
Android Question Image and text in a button
Replies
5
Views
984
Sagenut
A
  • Question
Android Question How to place any Text to a button at CustomlistView
Replies
10
Views
2K
AndroidMadhu
A
  • Question
Android Question How to programmatically click on all dynamically created buttons
Replies
1
Views
1K
derez
  • Question
Android Question How to add image on colordrawable button?
Replies
3
Views
2K
capisx
P
  • Question
Android Question How to code buttons, labels and other items under AddView menu in Visual Designer
Replies
2
Views
2K
Myr0n
Menu
Log in
Register
Cookies are required to use this site. You must accept them to continue using the site. Learn more…