FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexActive topicsAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour Cual es el #define para las combinaciones CTTL + A
armandini
Posts: 23
Joined: Wed Jan 04, 2006 07:48 PM
Cual es el #define para las combinaciones CTTL + A
Posted: Mon Feb 06, 2006 08: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
karinha
Posts: 8523
Joined: Tue Dec 20, 2005 07:36 PM
Re: Cual es el #define para las combinaciones CTTL + A
Posted: Mon Feb 06, 2006 09: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
armandini
Posts: 23
Joined: Wed Jan 04, 2006 07:48 PM
Re: Cual es el #define para las combinaciones CTTL + A
Posted: Mon Feb 06, 2006 09: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
karinha
Posts: 8523
Joined: Tue Dec 20, 2005 07:36 PM
Cual es el #define para las combinaciones CTTL + A
Posted: 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
karinha
Posts: 8523
Joined: Tue Dec 20, 2005 07:36 PM
Cual es el #define para las combinaciones CTTL + A
Posted: 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

Continue the discussion

Static archive · New replies & topics via GitHub Discussions