Cual es el #define para las combinaciones CTTL + A

[armandini]

No encuentro la defincion de los #define para las combinaciones de las teclas de control + las letras : shift, ctrl y alt mas cualquier tecla.


Muchas Gracias..
Principiante en FWH

[karinha]

No encuentro la defincion de los #define para las combinaciones de las teclas de control + las letras : shift, ctrl y alt mas cualquier tecla.


Muchas Gracias..
Principiante en FWH

En cual momento necesitas de estas combinaciones??

Mira em fwh..\include\vkey.ch

[armandini]

No encuentro la defincion de los #define para las combinaciones de las teclas de control + las letras : shift, ctrl y alt mas cualquier tecla.


Muchas Gracias..
Principiante en FWH

En cual momento necesitas de estas combinaciones??

Mira em fwh..\include\vkey.ch

En cualquier momento dentro de un dialogo, hasta el momento ya he asigando funcion a teclas como F1,F2, etc, Pero requiero asiganarle una funcion a las combinaciones de ctrl + a, ctrl + b, etc,.

El vkey.ch, define a la tecla de control como VK_CONTROL , pero no encuento la combinacion mencionada. Asi como en clipper CTRL+A = 1

La sintaxis del setkey() , ya lo conozco.

Gracias

[karinha]

Static Function Teclas( nKey, Alias, oSay, oLbx )

DO CASE

CASE ( nKey == Asc( "A" ) .OR. nKey == Asc( "a" ) ) .AND. ;
GetKeyState( VK_CONTROL )
? 'Control+A-For Aldreks'
CASE ( nKey == Asc( "B" ) .OR. nKey == Asc( "b" ) ) .AND. ;
GetKeyState( VK_CONTROL )
? 'Control+B-For Aldreks'
CASE ( nKey == Asc( "C" ) .OR. nKey == Asc( "c" ) ) .AND. ;
GetKeyState( VK_CONTROL )
? 'Control+C-For Aldreks'
CASE ( nKey == Asc( "D" ) .OR. nKey == Asc( "d" ) ) .AND. ;
GetKeyState( VK_CONTROL )
? 'Control+D-For Aldreks'
CASE ( nKey == Asc( "E" ) .OR. nKey == Asc( "e" ) ) .AND. ;
GetKeyState( VK_CONTROL )
? 'Control+E-For Aldreks'
CASE ( nKey == Asc( "F" ) .OR. nKey == Asc( "f" ) ) .AND. ;
GetKeyState( VK_CONTROL )
? 'Control+F-For Aldreks'
CASE ( nKey == Asc( "G" ) .OR. nKey == Asc( "g" ) ) .AND. ;
GetKeyState( VK_CONTROL )
? 'Control+G-For Aldreks'
CASE ( nKey == Asc( "H" ) .OR. nKey == Asc( "h" ) ) .AND. ;
GetKeyState( VK_CONTROL )
? 'Control+H-For Aldreks'
CASE ( nKey == Asc( "I" ) .OR. nKey == Asc( "i" ) ) .AND. ;
GetKeyState( VK_CONTROL )
? 'Control+I-For Aldreks'
CASE ( nKey == Asc( "P" ) .OR. nKey == Asc( "p" ) ) .AND. ;
GetKeyState( VK_CONTROL )
? 'Control+P-For Aldreks'
CASE ( nKey == Asc( "T" ) .OR. nKey == Asc( "t" ) ) .AND. ;
GetKeyState( VK_CONTROL )
? 'Control+T-For Aldreks'

//CASE ( nKey == Asc( "Z" ) .OR. nKey == Asc( "z" ) ) .AND. ;
// GetKeyState( VK_CONTROL )
// ? 'Control+Z-For Aldreks'

CASE ( nKey == VK_INSERT .AND. GetKeyState( VK_SHIFT ) ) .OR. ;
( nKey == ASC( "V" ) .AND. GetKeyState( VK_CONTROL ) ) .OR. ;
( nKey == ASC( 'X' ) .AND. GetKeyState( VK_CONTROL ) )
? ' Multiplas-For Aldreks'

/*
CASE nKey==VK_F12
? 'F12-For Aldreks'
*/

CASE ( nKey == VK_F2 .AND. GetKeyState( VK_CONTROL ) )
? 'Control+F2-For Aldreks'
// Acao(Action) do seu programa
CASE ( nKey == VK_F3 .AND. GetKeyState( VK_CONTROL ) )
? 'Control+F3-For Aldreks'
// Acao(Action) do seu programa
CASE ( nKey == VK_F4 .AND. GetKeyState( VK_CONTROL ) )
? 'Control+F4-For Aldreks'
// Acao(Action) do seu programa
CASE ( nKey == VK_F5 .AND. GetKeyState( VK_CONTROL ) )
? 'Control+F5-For Aldreks'
// Acao(Action) do seu programa
CASE ( nKey == VK_F6 .AND. GetKeyState( VK_CONTROL ) )
? 'Control+F6-For Aldreks'
// Acao(Action) do seu programa
CASE ( nKey == VK_F7 .AND. GetKeyState( VK_CONTROL ) )
? 'Control+F7-For Aldreks'
// Acao(Action) do seu programa
CASE ( nKey == VK_F8 .AND. GetKeyState( VK_CONTROL ) )
? 'Control+F8-For Aldreks'
// Acao(Action) do seu programa
CASE ( nKey == VK_F9 .AND. GetKeyState( VK_CONTROL ) )
? 'Control+F9-For Aldreks'
// Acao(Action) do seu programa
//CASE ( nKey == VK_F10 .AND. GetKeyState( VK_CONTROL ) )
// ? 'Control+F10-For Aldreks'
// Acao(Action) do seu programa
CASE ( nKey == VK_F11 .AND. GetKeyState( VK_CONTROL ) )
? 'Control+F11-For Aldreks'
// Acao(Action) do seu programa
CASE ( nKey == VK_F12 .AND. GetKeyState( VK_CONTROL ) )
? 'Control+F12-For Aldreks'
// Acao(Action) do seu programa

ENDCASE

Return( .T. )

[karinha]

Si kieres usar las combinaciones di ALT+... en una LISTBOX, tienes ke CAMBIAR la CLASE TWBROWSE.PRG, kualkquer cosa, avisame ke indico como... Saludos!