Better implementation is available in XUI Views library: [B4X] XUI Views - Cross platform views and dialogs
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