B4J Question Customizing the design of buttons and other elements ...

Sub Process_Globals
    Private fx As JFX
    Private MainForm As Form
    Private SwiftButton1 As SwiftButton
    Type ButtonData (iv As B4XView, DownBitmap As B4XBitmap, UpBitmap As B4XBitmap)
    Private xui As XUI
End Sub

Sub AppStart (Form1 As Form, Args() As String)
    MainForm = Form1
    MainForm.RootPane.LoadLayout("1") 'Load the layout file.
    MainForm.Show
    CreateButtonData(SwiftButton1, xui.LoadBitmapResize(File.DirAssets, "1.jpg", 60dip, 60dip, True), _
        xui.LoadBitmapResize(File.DirAssets, "100802.jpg", 60dip, 60dip, True), 60dip, 60dip)
End Sub

Sub SwiftButton1_ButtonUp
    Dim b As SwiftButton = Sender
    StateUpdated(b, False)
End Sub

Sub SwiftButton1_ButtonDown
    Dim b As SwiftButton = Sender
    StateUpdated(b, True)
End Sub

Sub SwiftButton1_Click
    Log("click")
End Sub

Sub StateUpdated (Button As SwiftButton, Down As Boolean)
    Dim bd As ButtonData = Button.Tag
    If Down Then
        bd.iv.SetBitmap(bd.DownBitmap)
    Else
        bd.iv.SetBitmap(bd.UpBitmap)
    End If
End Sub

Public Sub CreateButtonData (Button As SwiftButton, DownBitmap As B4XBitmap, UpBitmap As B4XBitmap, ImageWidth As Int, ImageHeight As Int)
    Dim t1 As ButtonData
    t1.Initialize
    t1.DownBitmap = DownBitmap
    t1.UpBitmap = UpBitmap
    Dim iv As ImageView
    iv.Initialize("")
    #if B4J
    Dim jo As JavaObject = iv
    jo.RunMethod("setMouseTransparent", Array(True))
    #End If
    t1.iv = iv
    SwiftButton1.mBase.AddView(iv, SwiftButton1.mBase.Width / 2 - ImageWidth / 2, SwiftButton1.mBase.Height / 2 - ImageHeight / 2, ImageWidth, ImageHeight)
    t1.iv.SetBitmap(UpBitmap)
    Button.Tag = t1
End Sub