Cual es el #define para las combinaciones CTTL + A

Cual es el #define para las combinaciones CTTL + A

Postby armandini » Mon Feb 06, 2006 8:30 pm

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
principiante
armandini
 
Posts: 23
Joined: Wed Jan 04, 2006 7:48 pm
Location: Bucaramanga/Colombia

Re: Cual es el #define para las combinaciones CTTL + A

Postby karinha » Mon Feb 06, 2006 9:18 pm

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
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7804
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: Cual es el #define para las combinaciones CTTL + A

Postby armandini » Mon Feb 06, 2006 9:44 pm

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
principiante
armandini
 
Posts: 23
Joined: Wed Jan 04, 2006 7:48 pm
Location: Bucaramanga/Colombia

Postby karinha » Tue Feb 07, 2006 10:53 am

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. )
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7804
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Postby karinha » Tue Feb 07, 2006 10:55 am

Si kieres usar las combinaciones di ALT+... en una LISTBOX, tienes ke CAMBIAR la CLASE TWBROWSE.PRG, kualkquer cosa, avisame ke indico como... Saludos!
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7804
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil


Return to FiveWin para Harbour/xHarbour

Who is online

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