FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index Bugs report & fixes / Informe de errores y arreglos Erro em bKeyDown
FiveWiDi
Posts: 1445
Joined: Mon Oct 10, 2005 02:38 PM
Erro em bKeyDown
Posted: Thu Jan 17, 2008 03: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.

Un Saludo

Carlos G.



FiveWin 25.12 + Harbour 3.2.0dev (r2502110321), BCC 7.7 Windows 11 Home

Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Erro em bKeyDown
Posted: Thu Jan 17, 2008 08: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
FiveWiDi
Posts: 1445
Joined: Mon Oct 10, 2005 02:38 PM
Erro em bKeyDown
Posted: Thu Jan 17, 2008 09: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.

Un Saludo

Carlos G.



FiveWin 25.12 + Harbour 3.2.0dev (r2502110321), BCC 7.7 Windows 11 Home

miragerr
Posts: 140
Joined: Tue Oct 11, 2005 02:36 AM
Erro em bKeyDown
Posted: Fri Jan 18, 2008 02:16 PM
Antonio

Resolvi o MEU problema da seguinte forma:

Code: Select all Collapse
   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 Collapse
   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
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Erro em bKeyDown
Posted: Wed Jan 23, 2008 09:22 AM

gracias!

regards, saludos

Antonio Linares
www.fivetechsoft.com

Continue the discussion

Static archive 路 New replies & topics via GitHub Discussions