Better implementation is available in XUI Views library: [B4X] XUI Views - Cross platform views and dialogs
Attachments
Last edited:
Unknown member drawpath.
Depends on a recent version of XUI library (B4A - XUI, B4J - jXUI, B4i - iXUI).
This is a custom drawn button. Nothing will happen unless it is implemented. The code is quite simple. It shouldn't be difficult to add a "disabled" state.hen Enabled property set to false the button should have grayed color and can not be clicked
Yes you are right, this is what i have done:This is a custom drawn button. Nothing will happen unless it is implemented. The code is quite simple. It shouldn't be difficult to add a "disabled" state.
If mBase.Enabled=False Then Return
If mBase.Enabled=False Then
clr1 = Colors.Gray
clr2 = Colors.DarkGray
pressed=False
End If
Add the module to your project and add the button as a custom view with the designer.How can I use it in B4A?
Yes.can it be used in TabStrip?
Not sure that I understand this question. The code is available. You can modify it as you like.Any way of use better lookin buttons or images to click on and go to an activity with B4A and designer?
Private Sub p_Touch (Action As Int, X As Float, Y As Float)
If mBase.Enabled=False Then Return
Select Action
Case mBase.TOUCH_ACTION_DOWN
pressed = True
Draw
Case mBase.TOUCH_ACTION_UP
pressed = False
Draw
If (mBase.Left + x) >= mBase.Left And (mBase.Left + x) <= (mBase.Left + mBase.Width) And _
(mBase.Top + y) >= mBase.Top And (mBase.Top + y) <= (mBase.Top + mBase.Height) Then
CallSubDelayed(mCallBack, mEventName & "_Click")
End If
End Select
End Sub
Sub AnimateSwiftButton(b As SwiftButton, Duration As Int, newTop As Int)
Dim base As B4XView = b.mBase
Dim left As Int = base.left
Dim height As Int = base.Height
Dim width As Int = base.width
base.SetLayoutAnimated(Duration, left, newTop, width, height)
End Sub