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