How to scroll up/down in a get with spinner from keyboard

How to scroll up/down in a get with spinner from keyboard

Postby Otto » Sat Dec 22, 2007 8:24 am

Could someone tellme which key to use to scroll up/down in a get with spinner from keyboard.

Thanks in advance
Otto
User avatar
Otto
 
Posts: 6328
Joined: Fri Oct 07, 2005 7:07 pm

Postby Antonio Linares » Sat Dec 22, 2007 8:35 am

Otto,

Please add this code to Class TGet Method KeyDown():
Code: Select all  Expand view
        case nKey == VK_PRIOR
             if ::lSpinner
                Self--
             endif   

        case nKey == VK_NEXT
             if ::lSpinner
                Self++
             endif   

Now you can use PageUp and PageDown
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42080
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Postby Manuel Valdenebro » Sun Oct 26, 2008 6:45 pm

Antonio Linares wrote:Otto,

Please add this code to Class TGet Method KeyDown():
Code: Select all  Expand view
        case nKey == VK_PRIOR
             if ::lSpinner
                Self--
             endif   

        case nKey == VK_NEXT
             if ::lSpinner
                Self++
             endif   

Now you can use PageUp and PageDown


Antonio,
I have added those two "case" to Tget class, but when I click in PgUp/PgDown, move another combobox control that I have in that dialog and it not move the spinner one.

(Spanish)
He añadido los dos "case" a la clase Tget, pero me mueve un combobox que tengo en el diálogo y no el spinner.
Un saludo

Manuel
User avatar
Manuel Valdenebro
 
Posts: 706
Joined: Thu Oct 06, 2005 9:57 pm
Location: Málaga-España


Return to FiveWin for Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 84 guests