Sobre las últimas modificaciones en control.prg

Sobre las últimas modificaciones en control.prg

Postby tsales » Wed Feb 15, 2006 6:20 pm

Antonio

Con las últimas modificaciones realizadas en el método Keydown en control.prg, concretamente con la inclusión de este código:
if nKey == VK_ESCAPE
::oWnd:KeyChar( nKey, nFlags )
return 0
endif

Me encuentro que la captura del método al redefinir el dialogo no hace nada.

oDlg:bKeyDown := {|nKey| if(nKey==VK_ESCAPE, (msginfo("adios"), oDlg:End()), ) }

¿Como puedo solucionar esto ahora?. ¿Es correcto ese comportamiento?
Saludos
Toni Sales
tsales
 
Posts: 186
Joined: Sat Oct 08, 2005 7:32 am

Postby Antonio Linares » Wed Feb 15, 2006 6:24 pm

Toni,

Parece un error. Debería ser:

Code: Select all  Expand view
   if nKey == VK_ESCAPE
      ::oWnd:KeyDown( nKey, nFlags )
      return 0
   endif   


Por favor, pruébalo y nos comentas. Gracias.
regards, saludos

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

Postby tsales » Wed Feb 15, 2006 7:00 pm

Antonio Linares wrote:Toni,

Parece un error. Debería ser:

Code: Select all  Expand view
   if nKey == VK_ESCAPE
      ::oWnd:KeyDown( nKey, nFlags )
      return 0
   endif   


Por favor, pruébalo y nos comentas. Gracias.


Ok
Ahora funciona perfecto.

Saludos
Toni Sales
tsales
 
Posts: 186
Joined: Sat Oct 08, 2005 7:32 am

Postby Antonio Linares » Wed Feb 15, 2006 8:38 pm

bien! :)

gracias,
regards, saludos

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


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 150 guests