Android Question Search for a Switch view

[FrankDev]

Hello,

is there actually such a switch as shown in the picture ?
A switch that can be set to different positions....
e.g. to set a font size.

b4x Views preferred.

Best regards
Frank

 

[Mahares]

A switch that can be set to different positions....

Here is one that looks like what you show in your screeenshot

BubbleSeekbar

Got something from this https://github.com/woxingxiao/BubbleSeekBar BubbleSeekbar Author: SMM Version: 1.34 BubbleSeekbar Events: getprogressonactionup (progress As Int, progressfloat As Float) getprogressonfinally (progress As Int, progressfloat As Float, fromUser As Boolean)...

www.b4x.com

 

[Lucas Siqueira]

Hello,

is there actually such a switch as shown in the picture ?
A switch that can be set to different positions....
e.g. to set a font size.

b4x Views preferred.

Best regards
Frank

You can create using panels
See the example I made for you

 

[FrankDev]

how much is a cup of coffee ?

 

[FrankDev]

hello Mahares

thanks for the tip. but i saw that the github project is already older.
I already had some problems with views that didn't run under the latest b4a development environment.

that's why it's better to use controls that you can influence yourself.

Best regards

 

[Mahares]

Not to take away from what you have done which is good, but your code should be like this:

Private Sub pn_sizeAll_Click  'same event name for all 3 panels
    Dim p As B4XView = Sender
    lb_text.Font = xui.CreateDefaultFont(p.Tag)   'tags respectively: 14, 18,22
    setAllGray
    setBlue(p)
End Sub

You do not need any of this below code:

Private Sub pn_size1_Click
    lb_text.Font = xui.CreateDefaultFont(14)
    setAllGray
    setBlue(pn_size1)
End Sub

Private Sub pn_size2_Click
    lb_text.Font = xui.CreateDefaultFont(18)
    setAllGray
    setBlue(pn_size2)
End Sub

Private Sub pn_size3_Click
    lb_text.Font = xui.CreateDefaultFont(22)
    setAllGray
    setBlue(pn_size3)
End Sub

 

[Lucas Siqueira]

Not to take away from what you have done which is good, but your code should be like this:

Private Sub pn_sizeAll_Click  'same event name for all 3 panels
    Dim p As B4XView = Sender
    lb_text.Font = xui.CreateDefaultFont(p.Tag)   'tags respectively: 14, 18,22
    setAllGray
    setBlue(p)
End Sub

You do not need any of this below code:

Private Sub pn_size1_Click
    lb_text.Font = xui.CreateDefaultFont(14)
    setAllGray
    setBlue(pn_size1)
End Sub

Private Sub pn_size2_Click
    lb_text.Font = xui.CreateDefaultFont(18)
    setAllGray
    setBlue(pn_size2)
End Sub

Private Sub pn_size3_Click
    lb_text.Font = xui.CreateDefaultFont(22)
    setAllGray
    setBlue(pn_size3)
End Sub

Fantastic, I thought of doing it this way, but at first, it can be confusing for some users...

you need to put the font size in the TAG property of each panel, so you can get it when you click on the panel...

you will also need to change the name of the event in the designer so that all panels call the pn_sizeAll event...

 

[Mahares]

TAG property of each panel, so you can get it when you click on the panel...

change the name of the event in the designer so that all panels call the pn_sizeAll event...

I have already put those requirements in my comments at the end of the lines in questions