ENTER en un checkbox que esta en un FOLDER

[carlos vargas]

Estimado Antonio,

Al presionar ENTER en un checkbox que esta en un folder no se realiza el salto al siguiente control.
he mirado que el codigo de tCheckbox no esta definido el metodo KeyChar
por tanto lo he puesto, y ahora funciona, existe algun inconveniente con este codigo?

Code: Select all  Expand view

CLASS TCheckBox FROM TControl
    ....
   METHOD KeyChar( nKey, nFlags )
   ....
endclass

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

METHOD KeyChar( nKey, nFlags ) CLASS TCheckbox

   IF nKey == VK_RETURN
      ::oWnd:GoNextCtrl( ::hWnd )
   ENDIF

RETURN Super:KeyChar( nKey, nFlags )

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

 

salu2
carlos vargas

[Antonio Linares]

Carlos,

Esta bien implementado

Si no hay objección de algún usuario, podemos implementarlo en FWH estandard

[carlos vargas]

Antonio, lo mismo para la clase tradio.

Code: Select all  Expand view

CLASS TRadioFROM TControl
    ....
   METHOD KeyChar( nKey, nFlags )
   ....
endclass

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

METHOD KeyChar( nKey, nFlags ) CLASS TRadio

   IF nKey == VK_RETURN
      ::oWnd:GoNextCtrl( ::hWnd )
   ENDIF

RETURN Super:KeyChar( nKey, nFlags )

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

aca el ejemplo

Code: Select all  Expand view

    #include "FiveWin.ch"

    function Main()

       local oDlg, oFnt, oFld, lVal := .T., cVar := space(25), cVar2 := space(25), nNivel:=1, lVar1:=.f., lVar2:=.t., lVar3:=.f.

       DEFINE FONT oFnt NAME "Tahoma" SIZE 0, -12
       
       DEFINE DIALOG oDlg SIZE 400, 300 FONT oFnt

       @ 0.5, 1 FOLDER oFld PROMPTS "One", "Two", "Three" SIZE 190, 120

       @ 1, 1  SAY "Hola1" SIZE 25, 12 OF oFld:aDialogs[ 1 ]
       
       @ 1, 10 GET      cVar                SIZE 80, 12 OF oFld:aDialogs[ 1 ]
       
       @ 3, 10 CHECKBOX lVal PROMPT "&Test" SIZE 80, 12 OF oFld:aDialogs[ 1 ]

       @ 5, 1  SAY "Hola2" SIZE 25, 12 OF oFld:aDialogs[ 1 ]
       @ 5, 10 GET      cVar2               SIZE 80, 12 OF oFld:aDialogs[ 1 ]      

      @ 1,  1 SAY "&Name:" OF oFld:aDialogs[ 2 ]
      @ 1,  6 GET cVar OF oFld:aDialogs[ 2 ]
      @ 2,  1 SAY "&Address:" OF oFld:aDialogs[ 2 ]
      @ 2,  6 GET cVar2 OF oFld:aDialogs[ 2 ]  

      @ 4,  1 CHECKBOX lVar1 PROMPT "&FivePro" OF oFld:aDialogs[ 2 ] SIZE 70, 11
      @ 5,  1 CHECKBOX lVar2  PROMPT "&Dialog"  OF oFld:aDialogs[ 2 ] SIZE 70, 11
      @ 6,  1 CHECKBOX lVar3 PROMPT "&Objects" OF oFld:aDialogs[ 2 ] SIZE 70, 11

      @ 4,  9 RADIO nNivel PROMPT "&Novice", "A&vanced", "&Expert" OF oFld:aDialogs[ 2 ]
   
       @ 7.3, 14 BUTTON "&Ok" ACTION oDlg:End()

       ACTIVATE DIALOG oDlg CENTERED

    return nil
 

salu2
carlos vargas