Page 1 of 1
Cual es el #define para las combinaciones CTTL + A
Posted: Mon Feb 06, 2006 8:30 pm
by 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
Re: Cual es el #define para las combinaciones CTTL + A
Posted: Mon Feb 06, 2006 9:18 pm
by karinha
armandini wrote: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
Re: Cual es el #define para las combinaciones CTTL + A
Posted: Mon Feb 06, 2006 9:44 pm
by armandini
karinha wrote:armandini wrote: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
Posted: Tue Feb 07, 2006 10:53 am
by 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. )
Posted: Tue Feb 07, 2006 10:55 am
by 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!