topic-6404

Posts: 1956

Joined: Fri Oct 07, 2005 07:08 PM

oJump y los buttons
Posted: Tue Mar 20, 2007 01:16 PM

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 Collapse

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 )

FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

oJump y los buttons
Posted: Tue Mar 20, 2007 01:21 PM

Prueba a usar la cláusula CANCEL en los buttons

regards, saludos

Antonio Linares
www.fivetechsoft.com

goosfancito

Posts: 1956

Joined: Fri Oct 07, 2005 07:08 PM

oJump y los buttons
Posted: Tue Mar 20, 2007 01:29 PM

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.

FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/

fleal

Posts: 234

Joined: Tue Oct 25, 2005 12:39 AM

una prueba
Posted: Tue Mar 20, 2007 11:17 PM

¿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

FiveTech Support Forums

Continue the discussion