Erro em bKeyDown

Postby FiveWiDi » Thu Jan 17, 2008 3:46 pm

Antonio Linares wrote: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.
FiveWiDi
 
Posts: 1048
Joined: Mon Oct 10, 2005 2:38 pm

Postby Antonio Linares » Thu Jan 17, 2008 8:28 pm

Carlos,

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

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

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 41205
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Postby FiveWiDi » Thu Jan 17, 2008 9:06 pm

Antonio Linares wrote: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.
FiveWiDi
 
Posts: 1048
Joined: Mon Oct 10, 2005 2:38 pm

Postby miragerr » Fri Jan 18, 2008 2:16 pm

Antonio

Resolvi o MEU problema da seguinte forma:

Code: Select all  Expand view
   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
   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
Jackson Douglas C. Brito
Boa Vista - RR - Brasil
FWH 12.09 Last Build
xHarbour Free
UESTUDIO
SQLRDD
User avatar
miragerr
 
Posts: 140
Joined: Tue Oct 11, 2005 2:36 am
Location: Brasil

Postby Antonio Linares » Wed Jan 23, 2008 9:22 am

gracias!
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 41205
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Previous

Return to Bugs report & fixes / Informe de errores y arreglos

Who is online

Users browsing this forum: No registered users and 6 guests