FiveTech Support Forums

Hola amigos.
Tengo un problema que le vengo dando vueltas desde hace 3 dias. Resulta que tengo un usuario al que se le ocurrió presionar la combinacion Ctrl-C para tratar de copiar el contenido de una celda de xbrowse a otra y le dió el siguiente error:

Error description: Error BASE/1004 Class: 'NIL' has no exported method: PAGEDOWN
Args:
[ 1] = U

Stack Calls
===========
Called from: => PAGEDOWN(0)
Called from: XBROWSE.PRG => TXBROWSE:KEYCHAR(2181)
Called from: => TWINDOW:HANDLEEVENT(0)
Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT(1483)
Called from: XBROWSE.PRG => TXBROWSE:HANDLEEVENT(10762)
Called from: .\source\classes\WINDOW.PRG => _FWH(3391)
Called from: => WINRUN(0)
Called from: .\source\classes\WINDOW.PRG => TMDIFRAME:ACTIVATE(976)
Called from: D:\COSERI~1\NEWCON~1\wcont32.prg => MAIN(160)


Después de investigaciones y pruebas encontré que en xbrowse desde recursos, ésta combinación trabaja correctamente... no así en ventanas MDCHILD ambiente MDI creadas desde código, ocasionando el error descrito.

Si primero se presiona ENTER o doble click como que se va a editar la celda, no aparece el error, pero para pegar el dato en otra celda, forzosamente hay que presionar enter, antes, para que pueda hacerlo. Es decir, si se usa esta combinacion (Ctrl-C) sobre una celda que no está en modo edición, da el error. Repito, solo en ventanas MDCHILD desde código.

¿Existe alguna manera de solucionar esto? ¿Alguno de ustedes ha tenido este problema, y lo ha solucionado?
Mucho agradeceré su ayuda. Sé que podría deshabilitar esta combinación, pero el usuario insiste en que necesita copiar/pegar.

Utilizo FWH 1204, BCC 5.82, XHARBOUR 1,2,1 Intl. (Simplex) (Rev. 9445)
PD: con FWH 1006 tambien me da el mismo problema.
Saludos.

Francisco, yo tengo un xbrowse en una ventana MdiChild y no produce el error que describes. Trabajo con el mismo entorno que el tuyo. Será un problema de datos ???

Saludos

Horacio, gracias por tu interes.
Por el momento, lo he solucionado asi, y funciona perfecto (sin tocar la Classe):

Function Teclas(nKey, oBrw)
Do Case
case nKey == VK_CONTROL
if ! oBrw:lEditMode
oBrw:SelectedCol():Edit()
endif
EndCase
Return nil

Saludos.