Erro em bKeyDown

[FiveWiDi]

Rafa, tu código y el mio hacen lo mismo. La segunda parte de un .AND. no se ejecuta si no se cumple la primera parte.

Antonio,

lo que dices es válido si se usa esta opción del compilador?

"# /Z Esta opción elimina la optimización debida a la evaluación abreviada
# para los operadores lógicos .AND. y .OR. Su objetivo es ayudar a aislar
# un código que depende del comportamiento de versiones anteriores de
# CA-Clipper."

Saludos
Carlos G.

[Antonio Linares]

Carlos,

No es válido si usas esa opción.

Mejor no usarla, salvo que necesites depurar las dos partes.

[FiveWiDi]

Carlos,

No es válido si usas esa opción.

Mejor no usarla, salvo que necesites depurar las dos partes.

Gracias, de hecho no la uso.
Necesitaba que alguien con conocimiento me lo confirmara.

Saludos
Carlos G.

[miragerr]

Antonio

Resolvi o MEU problema da seguinte forma:

Code: Select all  Expand view  RUN

   if ::bKeyDown != nil .AND. ::ClassName() == "TGET"
      if ValType( uVal := Eval( ::bKeyDown, nKey, nFlags, Self ) ) == "N" .and. ;
         uVal == 0
         return 0
      endif
   endif


Como vc pode ver, desta forma tenho outras classes que herdam a TGET e executam 2x a mesma função, pois na classe WINDOWS.PRG

Code: Select all  Expand view  RUN

   if Upper( ::ClassName() ) != "TGET" .and. ::bKeyDown != nil
      return Eval( ::bKeyDown, nKey, nFlags )
   endif


axo que esta pequena modificação, podera resolver muitos problemas de outros usuarios

Espero ter ajudado

[Antonio Linares]

gracias!