ENTER en un checkbox que esta en un FOLDER

Board index FiveWin para Harbour/xHarbour ENTER en un checkbox que esta en un FOLDER

Posts: 1789

Joined: Tue Oct 11, 2005 05:01 PM

ENTER en un checkbox que esta en un FOLDER
Posted: Tue Dec 13, 2011 08:16 PM

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 (fw): Select all Collapse

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

Salu2

Carlos Vargas

Desde Managua, Nicaragua (CA)

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: ENTER en un checkbox que esta en un FOLDER
Posted: Tue Dec 13, 2011 08:39 PM

Carlos,

Esta bien implementado :-)

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

regards, saludos

Antonio Linares
www.fivetechsoft.com

carlos vargas

Posts: 1789

Joined: Tue Oct 11, 2005 05:01 PM

Re: ENTER en un checkbox que esta en un FOLDER
Posted: Tue Dec 13, 2011 11:00 PM

Antonio, lo mismo para la clase tradio.

Code (fw): Select all Collapse

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 (fw): Select all Collapse

    #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

Salu2

Carlos Vargas

Desde Managua, Nicaragua (CA)

FiveTech Support Forums

Continue the discussion