B4J Library B4j ToggleSwitch

[stevel05]

Hi Roger,

This thread just contains a very basic implementation that anybody can use as a template and change as they wish. If you want to share your modified version, feel free to do so in a new thread and explain what you have changed.

BTW, there is a small error (check the log window) that should be addressed before you share it.

 

[ThRuST]

ok I should update my previous post, sorry for taking advantage of your code.
I do like my addions, it made it a bit better in fact

 

[stevel05]

sorry for taking advantage of your code.

That's what it's here for

 

[ThRuST]

Well I made it better so we can both complain haha

 

[ThRuST]

What bug are you talking about? Both of our code is perfect. Or are you trying to tell me something else?
What if I'm Tuco's brother in Breakin' bad Steve (Netflix success TV series) hahaha

 

[ThRuST]

Whooaaa Steve... that's a great plan is it?

hahahah

 

[stevel05]

What bug are you talking about

check the log window - Variable declaration type is missing in sub SetText

 

[ThRuST]

Oops sorry I totally missed that. Thanks for notifying me. I will update my post with v1.1

 

[ThRuST]

Successfully corrected

 

[ThRuST]

Hi Steve. I updated my changes to v1.2 which should be the best yet.

 

[ThRuST]

Hi again Steve, I couldn't let go of it. I updated your library to v1.3

See my post #19 to find it.

 

[ThRuST]

Steve, it would be nice with a fading effect on the text everytime the button is clicked. How to do that

 

[ThRuST]

Steve, do you mind adding calls to these subs in your class. It will save me alot of time if you do it. Thanks

Public Sub FadeIn
    TSLbl.SetAlphaAnimated(mDuration /2, 1)
End Sub

Public Sub FadeOut
    TSLbl.SetAlphaAnimated(mDuration /2, 0)
End Sub

 

[ThRuST]

oh, and they should better be private

 

[VittorioBarile]

Hi, I'm trying to use your lib on B4X Pages project.
In my first page it works, but when i close it and open another B4XPage, it doens't show button switch:

in my AppStart it works, but when i close this layout and open a new one it doesn't show button switch, but only text!

MainForm = Form1
MainForm.Stylesheets.Add(File.GetUri(File.DirAssets,"ToggleSwitch.css"))
MainForm.Show

B4XPages.ShowPageAndRemovePreviousPages("NewPage")

could you help me?