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)...
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.
Not to take away from what you have done which is good, but your code should be like this:
B4X:
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:
B4X:
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
Not to take away from what you have done which is good, but your code should be like this:
B4X:
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:
B4X:
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