B4A Library [Class]ClsWheel Input wheels

klaus · Dec 29, 2012

@rboeck,
Are you speaking about derezs' Wheel library or about the ClsWheel class from this thread.

In the ClsWheel class both solutions are possible, but need some modifications in the class.
The second solution is not that easy, having a longclick event in the main code wouldn't be a good solution it would be better to modify the class code.
The longclick event must be treated in the Touch routine of the year ScrollView you cannot have a LongClick event for a ScrollView.
Then you need to change the content of the year ScrollView and after a selection you must set it back to the original content.
I'm not sure that selecting the decennium and then selecting the correct year is faster than scrolling over a hundred years.

Best regards.

Harris · Dec 30, 2012

klaus said:
@Harris,
I'm afraid that this is an error in the DateTime.TimeFormat function because it works for most time zones and there is one hour difference for some time zones like Greenwich time.

Date and Time seem to cause the most issues (it seems to me). Overall, on a scale of 1 to 100, we are 99% bug free which is real accomplishment.

I do, on too many occasions run into odd "behavior" in my code. For example, a checkbox hides and unhides a panel. The second time of unhiding this panel, the following sub gets fired:

B4X:

Sub EditText2_FocusChanged (HasFocus As Boolean)
   If HasFocus = True Then
          Msgbox(" focus","")

      whlTimeHM.Show(EditText2, "")
   End If
End Sub

Once I cancel the wheel view, it will never behave this way again (until I restart the app). Odd indeed.

Thanks for your expert response. :sign0188:

klaus · Dec 30, 2012

1) Problem with the checkbox hiding a panel.
I remember having had a problem similar to yours with Basic4PPC.
The problem is probably when you hide the panel and there is a view on it that has the focus it's focus is tranfered to the next view in the OS list (depends on the order you add the views). In your case the focus is transfered to EditText2. Try to remove it and add it again or better use a Label or if you really want an EditText the solution below.

2) Problem when you quit the wheel, it doesn't matter if it's with OK or Cancel, the EditText keeps the focus. So when you click again on it there is no FocusChange and no FocusChanged event is raised.
As a workaround you could add a Touch event to the EditText with the Reflection library.

B4X:

Dim obj As Reflector
obj.Target = EditText2
obj.SetOnTouchListener("EditText2_Touch")
'
'
'
Sub EditText2_Touch(viewtag As Object, action As Int, X As Float, Y As Float, motionevent As Object) As Boolean
    If action = Activity.ACTION_DOWN Then
        whlTimeHM.Show(EditText2, EditText2.Text)
    End If
    Return True
End Sub

If you return True EditText2 doesn't get the focus ('consumes' the event).
If you return False EditText2 gets the focus (the event is sent back to the OS).
Don't add a Click event because if the EditText doesn't have the focus you need a first click to set the focus and only the second click raises the Click event.

But anyway it's better to use Labels instead of EditTexts because the user is not supposed to modify the content with the keyboard.
I showed that it works also with EditTexts but didn't test it as far as you did.

Best regards.

Harris · Dec 30, 2012

But anyway it's better to use Labels instead of EditTexts because the user is not supposed to modify the content with the keyboard.
I showed that it works also with EditTexts but didn't test it as far as you did.

Thanks Klaus,

It does work much better with labels... no odd behavior.
I can see where the edittext may gain focus when the panel is made visible - causing the focus change to get fired.

gjoisa · Dec 31, 2012

continuous wheels

I loved this class . I was in search since a long time for this type of lib(Class) . Is it possible to have continuous wheel like ios date wheel ? i.e . date should not stop on 31 or 30 . after 31 is reached 1,2,3 should appear .:sign0098:

melamoud · Jan 22, 2013

feature request

Klaus, hi

great class, the only minor thing I would love if you can add, (I added it to my copy) is the ability to get callback (event) at the end,
the whole thing with the Label does not work for me,
I want to call show and get called on event when the user press ok

I added an event name in the initialize sub, and this line at the end of the btnOK_Click sub

CallSub2 (Callback,eventName,GetSelection)

maybe another small thing, is instead of passing default value with the seperation text etc, it will be easier to pass an array of values

just my 2 cents

thanks for a great class!

aaronk · Mar 2, 2013

Hello,

I have posted a question about this and hoping someone can help..

Question can be found here: http://www.b4x.com/forum/basic4android-updates-questions/26916-clswheel-input-wheels-help.html

maleche · Mar 2, 2013

Is there a method to have the "wheels" roll over from the beginning? I'm attempting to build an vehicle Odometer.
Thanks!

sanjibnanda · Mar 9, 2013

slot machine view

hi,
i see great potential in this class if
1) we could add images
2) give it rolling effect like slot machine

is it possible with this view? like

android-wheel - Android Picker widget - Google Project Hosting

if yes how can it be accomplished ?

regards,
sanjib

padvou · Apr 12, 2013

Is it possible to show two of them wheels side by side?

klaus · Apr 12, 2013

No and yes.

No, you cannot put two wheel panels side by side.
But feel free to modify the class to fit your requirements.

Yes, you can define custum wheel panels with sevreral wheels side by side, like the custom wheel in the example code.

Best regards.

Uitenhage · May 28, 2013

Custom wheels only returns 2 results

I added this great class to my project with 3 wheels and only got the first 2 wheel's selections returned.

In clsWheels Sub GetSelection I replaced

B4X:

   Case CUSTOM
      Selection = Sel(0) & SepText & Sel(1)

with:

B4X:

   Case CUSTOM
      'Selection = Sel(0) & SepText & Sel(1)
      Dim i As Int
      For i = 0 To WheelNb - 1
         Selection = Selection & Sel(i) & SepText
      Next
      Selection = Selection.SubString2(0, Selection.Length - SepText.Length)

:sign0089:

klaus · May 28, 2013

Thank you for this bug report.
The zip file in the first post has been updated.

Best regards.

gawie007 · Jun 8, 2013

Hi Klaus,

Thank you for a brilliant Class!
It was just what I needed.

I have also used it to use a single list with the class. (This is in case someone else also would like to use it as a single item list)
After trying to modify your code, I have set it back to how it was and managed to do it this way:

B4X:

Sub InitWheelData
'The class expects an array of lists, so send it an array dimmed to 1: lstDay(1)
Dim lstDay(1) As List
lstDay(0).Initialize

'For demo purposes:
lstDay(0).Add("Mon")
lstDay(0).Add("Wed")
lstDay(0).Add("Fri")

whlDay.Initialize(Me, Activity, "Delivery Day", 1, lstDay, 24, 4)
End Sub

This may be apparent to most of you but hopefully I can help some people save a bit of time.

Cheers

Gavin

klaus · Jun 12, 2013

A new version 1.3 is available in the first post.
- Mofied property routines.
- Added Show2 for raising an event when clicking the OK button
- Added optional continus scrolling

Best regards.

drachmad · Jun 13, 2013

Thanks for a great class, I like it.
But since version 1.2 it seem there is a bug.

If the button is click for the first time, not all of the screen is dimmed. But the second time it is fine.
It is more easier to look at it if back ground is set to white.
Designer -> Activity -> Color -> White
It should be in the pnlScreen but I can not find the reason.
A screen capture is attached.

drachmad · Jun 13, 2013

Before you change in V1.3, I got an idea from Erel AnotherDatePicker v.1.1
to change your class into:

Public Sub Initialize(Target As Object, EventName As String, Parent As Activity, cTitle As String, cWheelNb As Int, cWheelContent() As List, cFontSize As Float, cWheelType As Int) As Boolean
mTarget = Target
mEventName = EventName

Private Sub btnCancel_Click
CallSub3(mTarget, mEventName & "_Closed", True, GetSelection)
holder.RemoveView
End Sub

Private Sub btnOK_Click
CallSub3(mTarget, mEventName & "_Closed", False, GetSelection)
holder.RemoveView
End Sub

--------------------

Dim whlTimeHM As ClsWheel
whlTimeHM.Initialize(Me, "Time", Activity, "T i m e", 2, Null, 30, 1)

Sub Time_Closed (Cancelled As Boolean, Selection As String)
If Cancelled Then
...
else
...
end if
End Sub

I think Erel idea is more flexible for the user, Canceled or Ok is up to the user to respond.
BTW, I have checked, if only "pnlScreen.Visible = False" the panel count in the main activity is increase every time. Don't you think it is better to .RemoveView?

klaus · Jun 13, 2013

The problem of the wrong color will be solved with a DoEvents just after adding pnlScreen. It seems that Android takes, for big screens, too much time to fill the panel with the color before the next statements.

Concerning the Closed event I will change it.

I have checked, if only "pnlScreen.Visible = False" the panel count in the main activity is increase every time.

No, because you should Initialize a given wheel type only once and then use Show or Show2.
However it is increased for each different wheel type.
I was already thinking about this because with 7 different wheel types I got Out of Memory messages when testing some other features.
But this needs some more testing.

Best regards.

drachmad · Jun 14, 2013

Thanks Klaus, you are right about the doevents and the increasing panel.
I put the initialize at the click because it is not the main process in my application. I thought it can reduce the memory and time.
Thanks again for the great class dan support.

gawie007 · Jun 14, 2013

Hi Klaus,

I have not yet downloaded your updated class.

I am using the CUSTOM wheel.

I add a list of strings for the options for example: Opt A Opt B, Opt C.

If I enter
whlOpt.Show(lblWheelValue, "Opt B")
Opt A is selected(first item on wheel) and not Opt B or whatever value I set it to.

The only thing I am doing differently is:
Dim lblWheelValue as label in Globals,
and
If FirstTime - lblWheelValue.Initialize("lblWheelValue") in Activity Create
i.e. I do not use panel.addview or add it in the designer.
The event I raise saves the selected value.
I am only doing this because the show method requires lblWheelValue.

This may be because I am using one list and it is looking for a minimum of two with SepText??

Thanks for a great class!

B4A Library [Class]ClsWheel Input wheels

Attachments

Expert

Expert

Expert

Expert

Active Member

Active Member

Well-Known Member

Active Member

Active Member

Active Member

Expert

Member

Expert

Member

Expert

Member

Attachments

Member

Expert

Member

Member

Similar Threads