oJump y los buttons

Post Reply
User avatar
goosfancito
Posts: 1392
Joined: Fri Oct 07, 2005 7:08 pm

oJump y los buttons

Post by goosfancito »

Antonio,

Pongo aca el código asi me explico mejor. aca los oJump funcionan, pero no puedo hacer click en los button. en este caso, como hago para que funcione el oJump y a parte el click del button?

Gracias

Code: Select all

FUNCTION main()

   LOCAL oDlg, ;
         oDatos := Array( 10 ), ;
         vDatos := Array( 10 ), ;
         oBtns  := Array( 2 )

   oDlg:= Dialogo( oDatos, vDatos, oBtns )
   Inicializar( oDatos, vDatos, oBtns )

   //----------( Controlo los Get´s )----------

   oDatos[1]:bValid:= { || oDatos[1]:oJump:= oDatos[ vDatos[1] ], .T. }
   oDatos[2]:bValid:= { || oDatos[2]:oJump:= oDatos[ vDatos[2] ], .T. }
   oDatos[3]:bValid:= { || oDatos[3]:oJump:= oDatos[ vDatos[3] ], .T. }
   oDatos[4]:bValid:= { || oDatos[4]:oJump:= oDatos[ vDatos[4] ], .T. }
   oDatos[5]:bValid:= { || oDatos[5]:oJump:= oDatos[ vDatos[5] ], .T. }
   oDatos[6]:bValid:= { || oDatos[6]:oJump:= oDatos[ vDatos[6] ], .T. }
   oDatos[7]:bValid:= { || oDatos[7]:oJump:= oDatos[ vDatos[7] ], .T. }
   oDatos[8]:bValid:= { || oDatos[8]:oJump:= oDatos[ vDatos[8] ], .T. }

   ACTIVATE DIALOG oDlg Centered

   RETURN ( NIL )

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

FUNCTION Inicializar( oDatos, vDatos, oBtns )

   vDatos[1]:= 3
   vDatos[2]:= 7
   vDatos[3]:= 8
   vDatos[4]:= 6
   vDatos[5]:= 2
   vDatos[6]:= 5
   vDatos[7]:= 3
   vDatos[8]:= 6

   oDatos[1]:refresh()
   oDatos[2]:refresh()
   oDatos[3]:refresh()
   oDatos[4]:refresh()
   oDatos[5]:refresh()
   oDatos[6]:refresh()
   oDatos[7]:refresh()
   oDatos[8]:refresh()

   RETURN ( NIL )

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

FUNCTION Dialogo( oDatos, vDatos, oBtns )

   LOCAL oDlg

   DEFINE DIALOG oDlg RESOURCE "DLG_PARTICULAR"

      //----------( Get´s )----------

      REDEFINE GET oDatos[1] VAR vDatos[1] ID 101 OF oDlg
      REDEFINE GET oDatos[2] VAR vDatos[2] ID 102 OF oDlg
      REDEFINE GET oDatos[3] VAR vDatos[3] ID 103 OF oDlg
      REDEFINE GET oDatos[4] VAR vDatos[4] ID 104 OF oDlg
      REDEFINE GET oDatos[5] VAR vDatos[5] ID 105 OF oDlg
      REDEFINE GET oDatos[6] VAR vDatos[6] ID 106 OF oDlg
      REDEFINE GET oDatos[7] VAR vDatos[7] ID 107 OF oDlg
      REDEFINE GET oDatos[8] VAR vDatos[8] ID 108 OF oDlg

      REDEFINE Checkbox oDatos[9]  VAR vDatos[9]  ID 109 OF oDlg
      REDEFINE Checkbox oDatos[10] VAR vDatos[10] ID 110 OF oDlg

      //----------( Botones )----------

      REDEFINE BUTTON oBtns[1] ID 301 OF oDlg
      REDEFINE BUTTON oBtns[2] ID 302 OF oDlg

   RETURN ( oDlg )
Un aporte chico hace grandes cambios.
Apoyemos al proyecto "Hogar pimpinela"
Bajate la aplicación (gratuita) y encuentra en ella toda la info de como podes colaborar.
GRACIAS!
https://play.google.com/store/apps/deta ... .acomprar
User avatar
Antonio Linares
Site Admin
Posts: 37481
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain
Contact:

Post by Antonio Linares »

Prueba a usar la cláusula CANCEL en los buttons
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
goosfancito
Posts: 1392
Joined: Fri Oct 07, 2005 7:08 pm

Post by goosfancito »

Antonio Linares wrote:Prueba a usar la cláusula CANCEL en los buttons
Al hacer esto, luego ya deja de funcionar el jump... aclaro con el mouse, con el teclado funciona.
Un aporte chico hace grandes cambios.
Apoyemos al proyecto "Hogar pimpinela"
Bajate la aplicación (gratuita) y encuentra en ella toda la info de como podes colaborar.
GRACIAS!
https://play.google.com/store/apps/deta ... .acomprar
fleal
Posts: 234
Joined: Tue Oct 25, 2005 12:39 am
Location: México, DF

una prueba

Post by fleal »

¿Ya probaste a poner un mensaje en el action del botón?. Pregunto por que no veo que tenga un action entonces.... simplemente no hace nada.


REDEFINE BUTTON oBtns[1] ID 301 OF oDlg ;
ACTION Hola()


static function Hola()
?"Si aparece este mensaje. Si funciona"
return nil
Post Reply