topic-39018

Posts: 607

Joined: Mon Mar 04, 2013 04:32 PM

Combinacion de teclas en un GET
Posted: Sun May 24, 2020 07:57 PM

Hola amigos:

En un objeto GET en un cuadro de dialogo me gustaria que al pulsar una combinacion de letras realizara una determinada accion.
hago esto. Tengo puesto en el valid del oCodigo !(Empty(cCodigo)) para que no dejen el campo vacio. No creo que influya.

Code (fw): Select all Collapse

#include "inkey.ch"

oCodigo:bKeyDown := { | nKey | IIf( nKey == K_CTRL_INS,MsgInfo("Hola") ,  ) }

¿Que hago mal?

Gracias por vuestra ayuda.

Saludos.

Jose.

Fwh 24.07 64 bits + Harbour 64 bits 3.2dev(r2407221137) + MSVC64

compubrion

Posts: 132

Joined: Thu Mar 08, 2007 06:12 PM

Re: Combinacion de teclas en un GET
Posted: Sun May 24, 2020 08:50 PM

Saludos !
oCodigo es la variable ó el objeto get

Harbour / Bcc / MinGW / Fwh 13.9

Armando

Posts: 3358

Joined: Fri Oct 07, 2005 08:20 PM

Re: Combinacion de teclas en un GET
Posted: Sun May 24, 2020 08:53 PM

Jvtecheto:

Aquí un ejemplo

Code (fw): Select all Collapse

       IF GetAsyncKey( VK_F2, VK_F12 )
       ……
       ……
       ENDIF

Aplica cuando el usuario oprime las teclas F2 + F12 y RETURN

SAludos

SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero

jvtecheto

Posts: 607

Joined: Mon Mar 04, 2013 04:32 PM

Re: Combinacion de teclas en un GET
Posted: Sun May 24, 2020 08:53 PM

Hola.

Gracias por tu interés

Es el objeto get, la variable es cCodigo

Saludos.

Enviado desde mi POCOPHONE F1 mediante Tapatalk

Fwh 24.07 64 bits + Harbour 64 bits 3.2dev(r2407221137) + MSVC64

cnavarro

Posts: 6755

Joined: Wed Feb 15, 2012 08:25 PM

Re: Combinacion de teclas en un GET
Posted: Sun May 24, 2020 09:41 PM

Jose Vicente, a ver si esto te sirve de algo

Code (fw): Select all Collapse

#include "FiveWin.Ch"

Function Main()
   Local oDlg
   Local oGet
   local cVar := space( 20 )

   DEFINE DIALOG oDlg from 0,0 to 400,400 pixel

      @ 15,15 GET oGet VAR cVar PICTURE "@!" BITMAP "..\bitmaps\chkyes.bmp" ACTION( msginfo( "action" ) );
         SIZE 120,12 OF oDlg PIXEL
      oGet:lAdjustBtn := .t.
      oGet:bKeyDown   := { | nKey, nFlag | TeclaPulsada( nKey, nFlag ) }

   ACTIVATE DIALOG oDlg 
 
 return nil

Function TeclaPulsada( nKey, nFlag )

   local lControl := GetKeyState( VK_CONTROL )
   local lShift   := GetKeyState( VK_SHIFT )
   local lMenu    := GetKeyState( VK_MENU )

   if lControl .and. nKey = 65
      FWLOG nkey, nFlag, lControl, lShift, lMenu
   endif

Return 0

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces

horacio

Posts: 1364

Joined: Wed Jun 21, 2006 12:39 AM

Re: Combinacion de teclas en un GET
Posted: Sun May 24, 2020 10:01 PM

Hola Cristobal, que hace esta instrucción?

Code (fw): Select all Collapse

FWLOG nkey, nFlag, lControl, lShift, lMenu

Gracias

Saludos

cnavarro

Posts: 6755

Joined: Wed Feb 15, 2012 08:25 PM

Re: Combinacion de teclas en un GET
Posted: Sun May 24, 2020 10:06 PM

Horacio, te crea un fichero con extensión .LOG ( con el nombre del EXE ), y va guardando lo que tu le pongas después del comando FWLOG, y se usa como alternativa a la depuración, aunque yo suelo utilizar también esta otra "modalidad"

Code (fw): Select all Collapse

#include "Fivewin.ch"

Static oWnd

function Main()

   //StartFWLog( nTop, nLeft, nHeight, nWidth, lDown, lLines, lCouple, cTitle )
   StartFWLog( , , 622, 590, .F., .T., , )    //.F.
   DEFINE WINDOW oWnd FROM 0, 0 TO 750, 1365 PIXEL ;
      TITLE "FWH Test FWINLOG - " + FWVERSION MENU BuildMenu()
   ACTIVATE WINDOW oWnd ON INIT Inicial() MAXIMIZED

return nil

//----------------------------------------------------------------------------//

Static Function BuildMenu()

   local oMnu
   MENU oMnu
      MENUITEM "Options"
      MENU
         MENUITEM "Option - 1" ACTION Uno() 
         SEPARATOR
         MENUITEM "Exit" ACTION oWnd:End()
      ENDMENU
      MENUITEM "Others"
      MENU
         MENUITEM "Others - 2" ACTION Dos()
         SEPARATOR
         MENUITEM "Others - 3" ACTION Tres()
      ENDMENU
   ENDMENU
   
Return oMnu

//----------------------------------------------------------------------------//

Function Inicial()

FWINLOG Len( oWnd:oMenu:aMenuItems )

Return nil

//----------------------------------------------------------------------------//

Function Uno()

FWINLOG oWnd

Return nil

//----------------------------------------------------------------------------//

Function Dos()

FWINLOG oWnd:oMenu

Return nil

//----------------------------------------------------------------------------//

Function Tres()

FWINLOG oWnd:nHeight

Return nil

//----------------------------------------------------------------------------//

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces

horacio

Posts: 1364

Joined: Wed Jun 21, 2006 12:39 AM

Re: Combinacion de teclas en un GET
Posted: Tue May 26, 2020 08:12 PM

Cristobal, muchas gracias por el tip

Saludos

joseluisysturiz

Posts: 2064

Joined: Fri Jan 06, 2006 09:28 PM

Re: Combinacion de teclas en un GET
Posted: Sun May 31, 2020 05:30 AM

compubrion wrote:Saludos !
oCodigo es la variable ó el objeto get

Disculpen use este modo, saludos Compubrion, por favor comunicate conmigo por joseluisturiz@yahoo.com, 04142317600, wsap, gracias...

Dios no está muerto...

Gracias a mi Dios ante todo!

nageswaragunupudi

Posts: 10733

Joined: Sun Nov 19, 2006 05:22 AM

Re: Combinacion de teclas en un GET
Posted: Sun May 31, 2020 02:19 PM

jvtecheto wrote:Hola amigos:

En un objeto GET en un cuadro de dialogo me gustaria que al pulsar una combinacion de letras realizara una determinada accion.
hago esto. Tengo puesto en el valid del oCodigo !(Empty(cCodigo)) para que no dejen el campo vacio. No creo que influya.
Code (fw): Select all Collapse
#include "inkey.ch"

oCodigo:bKeyDown := { | nKey | IIf( nKey == K_CTRL_INS,MsgInfo("Hola") ,  ) }
¿Que hago mal?

Gracias por vuestra ayuda.

Saludos.

Jose.

Code (fw): Select all Collapse

   oGet:bKeyDown := { |k| If( k == VK_INSERT .and. GetKeyState( VK_CONTROL ), ( MsgInfo( "CtrlInsert" ), 0 ), nil ) }

Regards

G. N. Rao.

Hyderabad, India

jvtecheto

Posts: 607

Joined: Mon Mar 04, 2013 04:32 PM

Re: Combinacion de teclas en un GET
Posted: Sun May 31, 2020 03:58 PM

Thanks Mr. Rao,

I had solved it by pressing only the + key with this code.

Code (fw): Select all Collapse

oDlg:bKeydown := {|nKey| IIF(nKey == VK_ADD,(cCodigo:=NextRecord("Emp",2),MsgInfo("El registro siguiente sera " + cCodigo) ),nil )}

The function simply calculates the record following the last one.

Thank you always for your support

Jose.

Fwh 24.07 64 bits + Harbour 64 bits 3.2dev(r2407221137) + MSVC64

FiveTech Support Forums

Continue the discussion