In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.

Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.

Browse OnKeyDown

Foro de Xailer profesional en español
Responder
Xevi
Mensajes: 1706
Registrado: Jue Sep 08, 2005 12:58 pm

Browse OnKeyDown

Mensaje por Xevi »

Llevo toda la tarde con quebradero de cabeza... a ver si lo hacía mal yo...
pero no... recompilaba en mi otra máquina con Xailer 1.0 y funcionaba
correctamente, por lo que se debía a la versión 1.1... busco, busco... y
allo este gazapo!!!
Resulta que cuando entramos en edición de un Browse, al escribir en el Edit,
se lanza el OnKeyDown PERO DEL BROWSE !!!
Adjunto un ejemplo que vereis que al editar la columna 4 y entrar en Edición
lanza el susodicho evento!!!
Un Saludo,
Xevi.


Attached files Prova.zip (1.8 KB)Â
Avatar de Usuario
ignacio
Site Admin
Mensajes: 9457
Registrado: Lun Abr 06, 2015 8:00 pm
Ubicación: Madrid, Spain
Contactar:

Browse OnKeyDown

Mensaje por ignacio »

Xevi,
Prueba con este OBJ, haber si se arregla. Perdona por las molestias.
Un saludo
--
Ignacio Ortiz de Zúñiga
http://www.xailer.com
"Xevi" <xevicomas@gmail.com> escribió en el mensaje
news:[email=454b862b@news.xailer.com...]454b862b@news.xailer.com...[/email]
> Llevo toda la tarde con quebradero de cabeza... a ver si lo hacía mal
> yo...
> pero no... recompilaba en mi otra máquina con Xailer 1.0 y funcionaba
> correctamente, por lo que se debía a la versión 1.1... busco, busco... y
> allo este gazapo!!!
>
> Resulta que cuando entramos en edición de un Browse, al escribir en el
> Edit,
> se lanza el OnKeyDown PERO DEL BROWSE !!!
>
> Adjunto un ejemplo que vereis que al editar la columna 4 y entrar en
> Edición
> lanza el susodicho evento!!!
>
>
>
> Un Saludo,
> Xevi.
>
>
>


Attached files Browse.rar (18.2 KB)Â
Ignacio Ortiz de Zúñiga
[OZ Software]
https://www.ozs.es
--
[Equipo de Xailer / Xailer team]
https://www.xailer.com
Xevi
Mensajes: 1706
Registrado: Jue Sep 08, 2005 12:58 pm

Browse OnKeyDown

Mensaje por Xevi »

Ignacio,
Se queda la aplicación "pillada" y no muestra el Browse.
Tengo que cerrar la aplicación por el botón "detener" de Xailer.
Vuelta atrás... vuelvo a la anterior Lib.
Gracias.
Un Saludo,
Xevi.
"Ignacio Ortiz de Zúñiga" <NoName@xailer.com> ha escrit al missatge del grup
de discussió: 454f66cb$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
> Xevi,
>
> Prueba con este OBJ, haber si se arregla. Perdona por las molestias.
>
> Un saludo
>
> --
> Ignacio Ortiz de Zúñiga
> http://www.xailer.com
> "Xevi" <xevicomas@gmail.com> escribió en el mensaje
> news:[email=454b862b@news.xailer.com...]454b862b@news.xailer.com...[/email]
>> Llevo toda la tarde con quebradero de cabeza... a ver si lo hacía mal
>> yo...
>> pero no... recompilaba en mi otra máquina con Xailer 1.0 y funcionaba
>> correctamente, por lo que se debía a la versión 1.1... busco, busco... y
>> allo este gazapo!!!
>>
>> Resulta que cuando entramos en edición de un Browse, al escribir en el
>> Edit,
>> se lanza el OnKeyDown PERO DEL BROWSE !!!
>>
>> Adjunto un ejemplo que vereis que al editar la columna 4 y entrar en
>> Edición
>> lanza el susodicho evento!!!
>>
>>
>>
>> Un Saludo,
>> Xevi.
>>
>>
>>
>
>
>
Avatar de Usuario
ignacio
Site Admin
Mensajes: 9457
Registrado: Lun Abr 06, 2015 8:00 pm
Ubicación: Madrid, Spain
Contactar:

Browse OnKeyDown

Mensaje por ignacio »

Xevi,
Acabo de probar los ejemplos DataControlsDbfData1 y DbfBuilder con dicha
modificación y parece que funcionan correctamente. No se que te puede estar
ocurriendo. Me puedes mandar un ejemplo si no es mucha molestia.
Gracias
--
Ignacio Ortiz de Zúñiga
http://www.xailer.com
"Xevi" <xevicomas@gmail.com> escribió en el mensaje
news:[email=454f6c9c@news.xailer.com...]454f6c9c@news.xailer.com...[/email]
> Ignacio,
>
> Se queda la aplicación "pillada" y no muestra el Browse.
> Tengo que cerrar la aplicación por el botón "detener" de Xailer.
>
> Vuelta atrás... vuelvo a la anterior Lib.
>
>
> Gracias.
>
> Un Saludo,
> Xevi.
>
>
> "Ignacio Ortiz de Zúñiga" <NoName@xailer.com> ha escrit al missatge del
> grup de discussió: 454f66cb$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
>> Xevi,
>>
>> Prueba con este OBJ, haber si se arregla. Perdona por las molestias.
>>
>> Un saludo
>>
>> --
>> Ignacio Ortiz de Zúñiga
>> http://www.xailer.com
>> "Xevi" <xevicomas@gmail.com> escribió en el mensaje
>> news:[email=454b862b@news.xailer.com...]454b862b@news.xailer.com...[/email]
>>> Llevo toda la tarde con quebradero de cabeza... a ver si lo hacía mal
>>> yo...
>>> pero no... recompilaba en mi otra máquina con Xailer 1.0 y funcionaba
>>> correctamente, por lo que se debía a la versión 1.1... busco, busco... y
>>> allo este gazapo!!!
>>>
>>> Resulta que cuando entramos en edición de un Browse, al escribir en el
>>> Edit,
>>> se lanza el OnKeyDown PERO DEL BROWSE !!!
>>>
>>> Adjunto un ejemplo que vereis que al editar la columna 4 y entrar en
>>> Edición
>>> lanza el susodicho evento!!!
>>>
>>>
>>>
>>> Un Saludo,
>>> Xevi.
>>>
>>>
>>>
>>
>>
>>
>
>
Ignacio Ortiz de Zúñiga
[OZ Software]
https://www.ozs.es
--
[Equipo de Xailer / Xailer team]
https://www.xailer.com
Xevi
Mensajes: 1706
Registrado: Jue Sep 08, 2005 12:58 pm

Browse OnKeyDown

Mensaje por Xevi »

Ignacio,
El ejemplo sirve el que te he enviado en el mensaje "Pintado de Celdas en
Browse v1.1".
En este ejemplo si incluyo el Obj (cambiado en la Xailer.Lib) obtengo el GPF
que te adjunto, sin embargo en mi aplicación NO se abre el Form que contiene
el Browse y se queda la aplicación "pillada", debiendo de cerrarla con el
botón detener de Xailer.
Un Saludo,
Xevi.
"Ignacio Ortiz de Zúñiga" <NoName@xailer.com> ha escrit al missatge del grup
de discussió: 454f6ff8$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
> Xevi,
>
> Acabo de probar los ejemplos DataControlsDbfData1 y DbfBuilder con dicha
> modificación y parece que funcionan correctamente. No se que te puede
> estar
> ocurriendo. Me puedes mandar un ejemplo si no es mucha molestia.
>
> Gracias
>
> --
> Ignacio Ortiz de Zúñiga
> http://www.xailer.com
> "Xevi" <xevicomas@gmail.com> escribió en el mensaje
> news:[email=454f6c9c@news.xailer.com...]454f6c9c@news.xailer.com...[/email]
>> Ignacio,
>>
>> Se queda la aplicación "pillada" y no muestra el Browse.
>> Tengo que cerrar la aplicación por el botón "detener" de Xailer.
>>
>> Vuelta atrás... vuelvo a la anterior Lib.
>>
>>
>> Gracias.
>>
>> Un Saludo,
>> Xevi.
>>
>>
>> "Ignacio Ortiz de Zúñiga" <NoName@xailer.com> ha escrit al missatge del
>> grup de discussió: 454f66cb$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
>>> Xevi,
>>>
>>> Prueba con este OBJ, haber si se arregla. Perdona por las molestias.
>>>
>>> Un saludo
>>>
>>> --
>>> Ignacio Ortiz de Zúñiga
>>> http://www.xailer.com
>>> "Xevi" <xevicomas@gmail.com> escribió en el mensaje
>>> news:[email=454b862b@news.xailer.com...]454b862b@news.xailer.com...[/email]
>>>> Llevo toda la tarde con quebradero de cabeza... a ver si lo hacía mal
>>>> yo...
>>>> pero no... recompilaba en mi otra máquina con Xailer 1.0 y funcionaba
>>>> correctamente, por lo que se debía a la versión 1.1... busco, busco...
>>>> y
>>>> allo este gazapo!!!
>>>>
>>>> Resulta que cuando entramos en edición de un Browse, al escribir en el
>>>> Edit,
>>>> se lanza el OnKeyDown PERO DEL BROWSE !!!
>>>>
>>>> Adjunto un ejemplo que vereis que al editar la columna 4 y entrar en
>>>> Edición
>>>> lanza el susodicho evento!!!
>>>>
>>>>
>>>>
>>>> Un Saludo,
>>>> Xevi.
>>>>
>>>>
>>>>
>>>
>>>
>>>
>>
>>
>
>


Attached files
Xevi
Mensajes: 1706
Registrado: Jue Sep 08, 2005 12:58 pm

Browse OnKeyDown

Mensaje por Xevi »

Ignacio,
Los Samples DbfData1, DbfData2... lanzan el mismo GPF, sin embargo
DbfBuilder hace lo mismo que mi aplicación... no se muestra el Form y debo
cerrar con el botón detener de Xailer.
Un Saludo,
Xevi.
"Xevi" <xevicomas@gmail.com> ha escrit al missatge del grup de discussió:
[email=454f7591@news.xailer.com...]454f7591@news.xailer.com...[/email]
> Ignacio,
>
> El ejemplo sirve el que te he enviado en el mensaje "Pintado de Celdas en
> Browse v1.1".
>
> En este ejemplo si incluyo el Obj (cambiado en la Xailer.Lib) obtengo el
> GPF que te adjunto, sin embargo en mi aplicación NO se abre el Form que
> contiene el Browse y se queda la aplicación "pillada", debiendo de
> cerrarla con el botón detener de Xailer.
>
>
>
> Un Saludo,
> Xevi.
>
>
> "Ignacio Ortiz de Zúñiga" <NoName@xailer.com> ha escrit al missatge del
> grup de discussió: 454f6ff8$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
>> Xevi,
>>
>> Acabo de probar los ejemplos DataControlsDbfData1 y DbfBuilder con dicha
>> modificación y parece que funcionan correctamente. No se que te puede
>> estar
>> ocurriendo. Me puedes mandar un ejemplo si no es mucha molestia.
>>
>> Gracias
>>
>> --
>> Ignacio Ortiz de Zúñiga
>> http://www.xailer.com
>> "Xevi" <xevicomas@gmail.com> escribió en el mensaje
>> news:[email=454f6c9c@news.xailer.com...]454f6c9c@news.xailer.com...[/email]
>>> Ignacio,
>>>
>>> Se queda la aplicación "pillada" y no muestra el Browse.
>>> Tengo que cerrar la aplicación por el botón "detener" de Xailer.
>>>
>>> Vuelta atrás... vuelvo a la anterior Lib.
>>>
>>>
>>> Gracias.
>>>
>>> Un Saludo,
>>> Xevi.
>>>
>>>
>>> "Ignacio Ortiz de Zúñiga" <NoName@xailer.com> ha escrit al missatge del
>>> grup de discussió: 454f66cb$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
>>>> Xevi,
>>>>
>>>> Prueba con este OBJ, haber si se arregla. Perdona por las molestias.
>>>>
>>>> Un saludo
>>>>
>>>> --
>>>> Ignacio Ortiz de Zúñiga
>>>> http://www.xailer.com
>>>> "Xevi" <xevicomas@gmail.com> escribió en el mensaje
>>>> news:[email=454b862b@news.xailer.com...]454b862b@news.xailer.com...[/email]
>>>>> Llevo toda la tarde con quebradero de cabeza... a ver si lo hacía mal
>>>>> yo...
>>>>> pero no... recompilaba en mi otra máquina con Xailer 1.0 y funcionaba
>>>>> correctamente, por lo que se debía a la versión 1.1... busco, busco...
>>>>> y
>>>>> allo este gazapo!!!
>>>>>
>>>>> Resulta que cuando entramos en edición de un Browse, al escribir en el
>>>>> Edit,
>>>>> se lanza el OnKeyDown PERO DEL BROWSE !!!
>>>>>
>>>>> Adjunto un ejemplo que vereis que al editar la columna 4 y entrar en
>>>>> Edición
>>>>> lanza el susodicho evento!!!
>>>>>
>>>>>
>>>>>
>>>>> Un Saludo,
>>>>> Xevi.
>>>>>
>>>>>
>>>>>
>>>>
>>>>
>>>>
>>>
>>>
>>
>>
>
>
>
Avatar de Usuario
jfgimenez
Site Admin
Mensajes: 5718
Registrado: Lun Abr 06, 2015 8:48 pm
Contactar:

Browse OnKeyDown

Mensaje por jfgimenez »

Ignacio,
seguramente es por la versión de xHarbour
--
Un saludo,
José F. Giménez
http://www.xailer.com
José F. Giménez
[Equipo de Xailer / Xailer team]
http://www.xailer.com
http://www.xailer.info
Avatar de Usuario
ignacio
Site Admin
Mensajes: 9457
Registrado: Lun Abr 06, 2015 8:00 pm
Ubicación: Madrid, Spain
Contactar:

Browse OnKeyDown

Mensaje por ignacio »

José,
Seguramente que si. Envío con este mensaje una nueva versión compilada con
la anterior versión de xHarbour.
Un saludo,
--
Ignacio Ortiz de Zúñiga
http://www.xailer.com
"Jose F. Gimenez" <jfgimenez@wanadoo.es> escribió en el mensaje
news:454f7980$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
> Ignacio,
>
> seguramente es por la versión de xHarbour
>
> --
> Un saludo,
>
> José F. Giménez
> http://www.xailer.com
>
>


Attached files Browse.rar (17.5 KB)Â
Ignacio Ortiz de Zúñiga
[OZ Software]
https://www.ozs.es
--
[Equipo de Xailer / Xailer team]
https://www.xailer.com
Xevi
Mensajes: 1706
Registrado: Jue Sep 08, 2005 12:58 pm

Browse OnKeyDown

Mensaje por Xevi »

Ignacio,
Ahora no lanza GPF... pero sigue lanzandose el evento OnKeyDown del Browse
cuando editamos un Edit.
Un Saludo,
Xevi.
"Ignacio Ortiz de Zúñiga" <NoName@xailer.com> ha escrit al missatge del grup
de discussió: 45504dd6$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
> José,
>
> Seguramente que si. Envío con este mensaje una nueva versión compilada con
> la anterior versión de xHarbour.
>
> Un saludo,
>
> --
> Ignacio Ortiz de Zúñiga
> http://www.xailer.com
> "Jose F. Gimenez" <jfgimenez@wanadoo.es> escribió en el mensaje
> news:454f7980$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
>> Ignacio,
>>
>> seguramente es por la versión de xHarbour
>>
>> --
>> Un saludo,
>>
>> José F. Giménez
>> http://www.xailer.com
>>
>>
>
>
>
Avatar de Usuario
ignacio
Site Admin
Mensajes: 9457
Registrado: Lun Abr 06, 2015 8:00 pm
Ubicación: Madrid, Spain
Contactar:

Browse OnKeyDown

Mensaje por ignacio »

Xevi,
Si, pero el browe no hace nada con las teclas que le llegan. Es el
comportamiento normal de Xailer, de la misma forma que a un formulario le
llegan las pulsaciones de teclado de un TEdit.
Un saludo,
--
Ignacio Ortiz de Zúñiga
http://www.xailer.com
"Xevi" <xevicomas@gmail.com> escribió en el mensaje
news:[email=45505280@news.xailer.com...]45505280@news.xailer.com...[/email]
> Ignacio,
>
> Ahora no lanza GPF... pero sigue lanzandose el evento OnKeyDown del Browse
> cuando editamos un Edit.
>
> Un Saludo,
> Xevi.
>
>
> "Ignacio Ortiz de Zúñiga" <NoName@xailer.com> ha escrit al missatge del
> grup de discussió: 45504dd6$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
>> José,
>>
>> Seguramente que si. Envío con este mensaje una nueva versión compilada
>> con la anterior versión de xHarbour.
>>
>> Un saludo,
>>
>> --
>> Ignacio Ortiz de Zúñiga
>> http://www.xailer.com
>> "Jose F. Gimenez" <jfgimenez@wanadoo.es> escribió en el
>> mensaje news:454f7980$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
>>> Ignacio,
>>>
>>> seguramente es por la versión de xHarbour
>>>
>>> --
>>> Un saludo,
>>>
>>> José F. Giménez
>>> http://www.xailer.com
>>>
>>>
>>
>>
>>
>
>
Ignacio Ortiz de Zúñiga
[OZ Software]
https://www.ozs.es
--
[Equipo de Xailer / Xailer team]
https://www.xailer.com
Xevi
Mensajes: 1706
Registrado: Jue Sep 08, 2005 12:58 pm

Browse OnKeyDown

Mensaje por Xevi »

Ignacio,
Ya... pero si en OnKeyDown del Browse hago hacer alguna operación en concreto al pulsar "A", por ej... se dispara cada ver que en el Edit pulso la tecla "A".
Que no es problema... lo tengo solucionado dejando el evento OnKeyDown del Browse a Nil al entrar en Edición y al salir le vuelvo a dejar el evento OnKeyDown del Browse... pero creo que era mejor el comportamiento anterior.
Otro detalle más con este Obj...!!!
Yo derivo de XBrowse y personalizo misBrowses...
CLASS TBrowse FROM xBrowse
PUBLISHED:
METHOD WMKeyDown( nKey, nFlags )
ENDCLASS
*
**
METHOD WMKeyDown( nKey, nFlags ) CLASS TBrowse
IF nKey == VK_HOME .and. GetKeyState( VK_CONTROL ) < 0 //Ctrl+Inici... Primera Fila
RETURN Super:WMKeyDown( VK_HOME, nFlags )
ElseIF nKey == VK_END .and. GetKeyState( VK_CONTROL ) < 0 //Ctrl+Final... íšltima Fila
RETURN Super:WMKeyDown( VK_END, nFlags )
ElseIF nKey == VK_HOME //Inici... Primera Columna
Super:GoLeftMost()
ElseIF nKey == VK_END //Final... íšltima Columna
Super:GoRightMost()
ELSE
RETURN Super:WMKeyDown( nKey, nFlags )
ENDIF
RETURN 0
bien pues no funcionan las teclas de dirección Up/Down/AvPag/RePag
Gracias.
Un Saludo,
Xevi.
"Ignacio Ortiz de Zúñiga" <NoName@xailer.com> ha escrit al missatge del grup de discussió: 45506ae7$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
> Xevi,
>
> Si, pero el browe no hace nada con las teclas que le llegan. Es el
> comportamiento normal de Xailer, de la misma forma que a un formulario le
> llegan las pulsaciones de teclado de un TEdit.
>
> Un saludo,
>
> --
> Ignacio Ortiz de Zúñiga
> http://www.xailer.com
> "Xevi" <xevicomas@gmail.com> escribió en el mensaje
> news:[email=45505280@news.xailer.com...]45505280@news.xailer.com...[/email]
>> Ignacio,
>>
>> Ahora no lanza GPF... pero sigue lanzandose el evento OnKeyDown del Browse
>> cuando editamos un Edit.
>>
>> Un Saludo,
>> Xevi.
>>
>>
>> "Ignacio Ortiz de Zúñiga" <NoName@xailer.com> ha escrit al missatge del
>> grup de discussió: 45504dd6$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
>>> José,
>>>
>>> Seguramente que si. Enví­o con este mensaje una nueva versión compilada
>>> con la anterior versión de xHarbour.
>>>
>>> Un saludo,
>>>
>>> --
>>> Ignacio Ortiz de Zúñiga
>>> http://www.xailer.com
>>> "Jose F. Gimenez" <jfgimenez@wanadoo.es> escribió en el
>>> mensaje news:454f7980$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
>>>> Ignacio,
>>>>
>>>> seguramente es por la versión de xHarbour
>>>>
>>>> --
>>>> Un saludo,
>>>>
>>>> José F. Giménez
>>>> http://www.xailer.com
>>>>
>>>>
>>>
>>>
>>>
>>
>>
>
>
--
Avatar de Usuario
ignacio
Site Admin
Mensajes: 9457
Registrado: Lun Abr 06, 2015 8:00 pm
Ubicación: Madrid, Spain
Contactar:

Browse OnKeyDown

Mensaje por ignacio »

Xevi,
>>Ya... pero si en OnKeyDown del Browse hago hacer alguna operación en concreto al pulsar
>>"A", por ej... se dispara cada ver que en el Edit pulso la tecla "A".
Deberas comprobar si estás en edición con la propiedad lEditMode (aún no documentada).
>>Otro detalle más con este Obj...!!!
>>Yo derivo de XBrowse y personalizo misBrowses...
Debés pasar un tercer parametro hWnd en el método
METHOD WMKeyDown( nKey, nFlags, hWnd ) CLASS TBrowse
IF nKey == VK_HOME .and. GetKeyState( VK_CONTROL ) < 0 //Ctrl+Inici... Primera Fila
RETURN Super:WMKeyDown( VK_HOME, nFlags, hWnd )
ElseIF nKey == VK_END .and. GetKeyState( VK_CONTROL ) < 0 //Ctrl+Final... íšltima Fila
RETURN Super:WMKeyDown( VK_END, nFlags, hWnd )
ElseIF nKey == VK_HOME //Inici... Primera Columna
Super:GoLeftMost()
ElseIF nKey == VK_END //Final... íšltima Columna
Super:GoRightMost()
ELSE
RETURN Super:WMKeyDown( nKey, nFlags, hWnd )
ENDIF
RETURN 0
Saludos
--
Ignacio Ortiz de Zúñiga
http://www.xailer.com
"Xevi" <xevicomas@gmail.com> escribió en el mensaje news:45506d98$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
Ignacio,
Ya... pero si en OnKeyDown del Browse hago hacer alguna operación en concreto al pulsar "A", por ej... se dispara cada ver que en el Edit pulso la tecla "A".
Que no es problema... lo tengo solucionado dejando el evento OnKeyDown del Browse a Nil al entrar en Edición y al salir le vuelvo a dejar el evento OnKeyDown del Browse... pero creo que era mejor el comportamiento anterior.
Otro detalle más con este Obj...!!!
Yo derivo de XBrowse y personalizo misBrowses...
CLASS TBrowse FROM xBrowse
PUBLISHED:
METHOD WMKeyDown( nKey, nFlags )
ENDCLASS
*
**
METHOD WMKeyDown( nKey, nFlags ) CLASS TBrowse
IF nKey == VK_HOME .and. GetKeyState( VK_CONTROL ) < 0 //Ctrl+Inici... Primera Fila
RETURN Super:WMKeyDown( VK_HOME, nFlags )
ElseIF nKey == VK_END .and. GetKeyState( VK_CONTROL ) < 0 //Ctrl+Final... íšltima Fila
RETURN Super:WMKeyDown( VK_END, nFlags )
ElseIF nKey == VK_HOME //Inici... Primera Columna
Super:GoLeftMost()
ElseIF nKey == VK_END //Final... íšltima Columna
Super:GoRightMost()
ELSE
RETURN Super:WMKeyDown( nKey, nFlags )
ENDIF
RETURN 0
bien pues no funcionan las teclas de dirección Up/Down/AvPag/RePag
Gracias.
Un Saludo,
Xevi.
"Ignacio Ortiz de Zúñiga" <NoName@xailer.com> ha escrit al missatge del grup de discussió: 45506ae7$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
> Xevi,
>
> Si, pero el browe no hace nada con las teclas que le llegan. Es el
> comportamiento normal de Xailer, de la misma forma que a un formulario le
> llegan las pulsaciones de teclado de un TEdit.
>
> Un saludo,
>
> --
> Ignacio Ortiz de Zúñiga
> http://www.xailer.com
> "Xevi" <xevicomas@gmail.com> escribió en el mensaje
> news:[email=45505280@news.xailer.com...]45505280@news.xailer.com...[/email]
>> Ignacio,
>>
>> Ahora no lanza GPF... pero sigue lanzandose el evento OnKeyDown del Browse
>> cuando editamos un Edit.
>>
>> Un Saludo,
>> Xevi.
>>
>>
>> "Ignacio Ortiz de Zúñiga" <NoName@xailer.com> ha escrit al missatge del
>> grup de discussió: 45504dd6$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
>>> José,
>>>
>>> Seguramente que si. Enví­o con este mensaje una nueva versión compilada
>>> con la anterior versión de xHarbour.
>>>
>>> Un saludo,
>>>
>>> --
>>> Ignacio Ortiz de Zúñiga
>>> http://www.xailer.com
>>> "Jose F. Gimenez" <jfgimenez@wanadoo.es> escribió en el
>>> mensaje news:454f7980$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
>>>> Ignacio,
>>>>
>>>> seguramente es por la versión de xHarbour
>>>>
>>>> --
>>>> Un saludo,
>>>>
>>>> José F. Giménez
>>>> http://www.xailer.com
>>>>
>>>>
>>>
>>>
>>>
>>
>>
>
>
--
Ignacio Ortiz de Zúñiga
[OZ Software]
https://www.ozs.es
--
[Equipo de Xailer / Xailer team]
https://www.xailer.com
Xevi
Mensajes: 1706
Registrado: Jue Sep 08, 2005 12:58 pm

Browse OnKeyDown

Mensaje por Xevi »

Ignacio,
Ya funciona correctamente.
Todas las derivaciones que tengo...
miEdit From XEdit
miPreviewControl From XPreviewControl
miMemo From XMemo
....
en las que METHOD WMKeyDown( nKey, nFlags )
¿Les debo añadir este tercer parámetro o es sólo para el XBrowse ???
Gracias.
Un Saludo,
Xevi.
"Ignacio Ortiz de Zúñiga" <NoName@xailer.com> ha escrit al missatge del grup de discussió: 455071ca$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
Xevi,
>>Ya... pero si en OnKeyDown del Browse hago hacer alguna operación en concreto al pulsar
>>"A", por ej... se dispara cada ver que en el Edit pulso la tecla "A".
Deberas comprobar si estás en edición con la propiedad lEditMode (aún no documentada).
>>Otro detalle más con este Obj...!!!
>>Yo derivo de XBrowse y personalizo misBrowses...
Debés pasar un tercer parametro hWnd en el método
METHOD WMKeyDown( nKey, nFlags, hWnd ) CLASS TBrowse
IF nKey == VK_HOME .and. GetKeyState( VK_CONTROL ) < 0 //Ctrl+Inici... Primera Fila
RETURN Super:WMKeyDown( VK_HOME, nFlags, hWnd )
ElseIF nKey == VK_END .and. GetKeyState( VK_CONTROL ) < 0 //Ctrl+Final... íšltima Fila
RETURN Super:WMKeyDown( VK_END, nFlags, hWnd )
ElseIF nKey == VK_HOME //Inici... Primera Columna
Super:GoLeftMost()
ElseIF nKey == VK_END //Final... íšltima Columna
Super:GoRightMost()
ELSE
RETURN Super:WMKeyDown( nKey, nFlags, hWnd )
ENDIF
RETURN 0
Saludos
--
Ignacio Ortiz de Zúñiga
http://www.xailer.com
"Xevi" <xevicomas@gmail.com> escribió en el mensaje news:45506d98$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
Ignacio,
Ya... pero si en OnKeyDown del Browse hago hacer alguna operación en concreto al pulsar "A", por ej... se dispara cada ver que en el Edit pulso la tecla "A".
Que no es problema... lo tengo solucionado dejando el evento OnKeyDown del Browse a Nil al entrar en Edición y al salir le vuelvo a dejar el evento OnKeyDown del Browse... pero creo que era mejor el comportamiento anterior.
Otro detalle más con este Obj...!!!
Yo derivo de XBrowse y personalizo misBrowses...
CLASS TBrowse FROM xBrowse
PUBLISHED:
METHOD WMKeyDown( nKey, nFlags )
ENDCLASS
*
**
METHOD WMKeyDown( nKey, nFlags ) CLASS TBrowse
IF nKey == VK_HOME .and. GetKeyState( VK_CONTROL ) < 0 //Ctrl+Inici... Primera Fila
RETURN Super:WMKeyDown( VK_HOME, nFlags )
ElseIF nKey == VK_END .and. GetKeyState( VK_CONTROL ) < 0 //Ctrl+Final... íšltima Fila
RETURN Super:WMKeyDown( VK_END, nFlags )
ElseIF nKey == VK_HOME //Inici... Primera Columna
Super:GoLeftMost()
ElseIF nKey == VK_END //Final... íšltima Columna
Super:GoRightMost()
ELSE
RETURN Super:WMKeyDown( nKey, nFlags )
ENDIF
RETURN 0
bien pues no funcionan las teclas de dirección Up/Down/AvPag/RePag
Gracias.
Un Saludo,
Xevi.
"Ignacio Ortiz de Zúñiga" <NoName@xailer.com> ha escrit al missatge del grup de discussió: 45506ae7$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
> Xevi,
>
> Si, pero el browe no hace nada con las teclas que le llegan. Es el
> comportamiento normal de Xailer, de la misma forma que a un formulario le
> llegan las pulsaciones de teclado de un TEdit.
>
> Un saludo,
>
> --
> Ignacio Ortiz de Zúñiga
> http://www.xailer.com
> "Xevi" <xevicomas@gmail.com> escribió en el mensaje
> news:[email=45505280@news.xailer.com...]45505280@news.xailer.com...[/email]
>> Ignacio,
>>
>> Ahora no lanza GPF... pero sigue lanzandose el evento OnKeyDown del Browse
>> cuando editamos un Edit.
>>
>> Un Saludo,
>> Xevi.
>>
>>
>> "Ignacio Ortiz de Zúñiga" <NoName@xailer.com> ha escrit al missatge del
>> grup de discussió: 45504dd6$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
>>> José,
>>>
>>> Seguramente que si. Enví­o con este mensaje una nueva versión compilada
>>> con la anterior versión de xHarbour.
>>>
>>> Un saludo,
>>>
>>> --
>>> Ignacio Ortiz de Zúñiga
>>> http://www.xailer.com
>>> "Jose F. Gimenez" <jfgimenez@wanadoo.es> escribió en el
>>> mensaje news:454f7980$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
>>>> Ignacio,
>>>>
>>>> seguramente es por la versión de xHarbour
>>>>
>>>> --
>>>> Un saludo,
>>>>
>>>> José F. Giménez
>>>> http://www.xailer.com
>>>>
>>>>
>>>
>>>
>>>
>>
>>
>
>
--
Avatar de Usuario
ignacio
Site Admin
Mensajes: 9457
Registrado: Lun Abr 06, 2015 8:00 pm
Ubicación: Madrid, Spain
Contactar:

Browse OnKeyDown

Mensaje por ignacio »

Xevi,
Sólo es necesario para el Browse.
Un saludo,
--
Ignacio Ortiz de Zúñiga
http://www.xailer.com
"Xevi" <xevicomas@gmail.com> escribió en el mensaje news:[email=4550768d@news.xailer.com...]4550768d@news.xailer.com...[/email]
Ignacio,
Ya funciona correctamente.
Todas las derivaciones que tengo...
miEdit From XEdit
miPreviewControl From XPreviewControl
miMemo From XMemo
...
en las que METHOD WMKeyDown( nKey, nFlags )
¿Les debo añadir este tercer parámetro o es sólo para el XBrowse ???
Gracias.
Un Saludo,
Xevi.
"Ignacio Ortiz de Zúñiga" <NoName@xailer.com> ha escrit al missatge del grup de discussió: 455071ca$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
Xevi,
>>Ya... pero si en OnKeyDown del Browse hago hacer alguna operación en concreto al pulsar
>>"A", por ej... se dispara cada ver que en el Edit pulso la tecla "A".
Deberas comprobar si estás en edición con la propiedad lEditMode (aún no documentada).
>>Otro detalle más con este Obj...!!!
>>Yo derivo de XBrowse y personalizo misBrowses...
Debés pasar un tercer parametro hWnd en el método
METHOD WMKeyDown( nKey, nFlags, hWnd ) CLASS TBrowse
IF nKey == VK_HOME .and. GetKeyState( VK_CONTROL ) < 0 //Ctrl+Inici... Primera Fila
RETURN Super:WMKeyDown( VK_HOME, nFlags, hWnd )
ElseIF nKey == VK_END .and. GetKeyState( VK_CONTROL ) < 0 //Ctrl+Final... íšltima Fila
RETURN Super:WMKeyDown( VK_END, nFlags, hWnd )
ElseIF nKey == VK_HOME //Inici... Primera Columna
Super:GoLeftMost()
ElseIF nKey == VK_END //Final... íšltima Columna
Super:GoRightMost()
ELSE
RETURN Super:WMKeyDown( nKey, nFlags, hWnd )
ENDIF
RETURN 0
Saludos
--
Ignacio Ortiz de Zúñiga
http://www.xailer.com
"Xevi" <xevicomas@gmail.com> escribió en el mensaje news:45506d98$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
Ignacio,
Ya... pero si en OnKeyDown del Browse hago hacer alguna operación en concreto al pulsar "A", por ej... se dispara cada ver que en el Edit pulso la tecla "A".
Que no es problema... lo tengo solucionado dejando el evento OnKeyDown del Browse a Nil al entrar en Edición y al salir le vuelvo a dejar el evento OnKeyDown del Browse... pero creo que era mejor el comportamiento anterior.
Otro detalle más con este Obj...!!!
Yo derivo de XBrowse y personalizo misBrowses...
CLASS TBrowse FROM xBrowse
PUBLISHED:
METHOD WMKeyDown( nKey, nFlags )
ENDCLASS
*
**
METHOD WMKeyDown( nKey, nFlags ) CLASS TBrowse
IF nKey == VK_HOME .and. GetKeyState( VK_CONTROL ) < 0 //Ctrl+Inici... Primera Fila
RETURN Super:WMKeyDown( VK_HOME, nFlags )
ElseIF nKey == VK_END .and. GetKeyState( VK_CONTROL ) < 0 //Ctrl+Final... íšltima Fila
RETURN Super:WMKeyDown( VK_END, nFlags )
ElseIF nKey == VK_HOME //Inici... Primera Columna
Super:GoLeftMost()
ElseIF nKey == VK_END //Final... íšltima Columna
Super:GoRightMost()
ELSE
RETURN Super:WMKeyDown( nKey, nFlags )
ENDIF
RETURN 0
bien pues no funcionan las teclas de dirección Up/Down/AvPag/RePag
Gracias.
Un Saludo,
Xevi.
"Ignacio Ortiz de Zúñiga" <NoName@xailer.com> ha escrit al missatge del grup de discussió: 45506ae7$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
> Xevi,
>
> Si, pero el browe no hace nada con las teclas que le llegan. Es el
> comportamiento normal de Xailer, de la misma forma que a un formulario le
> llegan las pulsaciones de teclado de un TEdit.
>
> Un saludo,
>
> --
> Ignacio Ortiz de Zúñiga
> http://www.xailer.com
> "Xevi" <xevicomas@gmail.com> escribió en el mensaje
> news:[email=45505280@news.xailer.com...]45505280@news.xailer.com...[/email]
>> Ignacio,
>>
>> Ahora no lanza GPF... pero sigue lanzandose el evento OnKeyDown del Browse
>> cuando editamos un Edit.
>>
>> Un Saludo,
>> Xevi.
>>
>>
>> "Ignacio Ortiz de Zúñiga" <NoName@xailer.com> ha escrit al missatge del
>> grup de discussió: 45504dd6$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
>>> José,
>>>
>>> Seguramente que si. Enví­o con este mensaje una nueva versión compilada
>>> con la anterior versión de xHarbour.
>>>
>>> Un saludo,
>>>
>>> --
>>> Ignacio Ortiz de Zúñiga
>>> http://www.xailer.com
>>> "Jose F. Gimenez" <jfgimenez@wanadoo.es> escribió en el
>>> mensaje news:454f7980$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
>>>> Ignacio,
>>>>
>>>> seguramente es por la versión de xHarbour
>>>>
>>>> --
>>>> Un saludo,
>>>>
>>>> José F. Giménez
>>>> http://www.xailer.com
>>>>
>>>>
>>>
>>>
>>>
>>
>>
>
>
--
Ignacio Ortiz de Zúñiga
[OZ Software]
https://www.ozs.es
--
[Equipo de Xailer / Xailer team]
https://www.xailer.com
Xevi
Mensajes: 1706
Registrado: Jue Sep 08, 2005 12:58 pm

Browse OnKeyDown

Mensaje por Xevi »

Ignacio,
>Deberas comprobar si estás en edición con la propiedad lEditMode (aún no documentada).
He añadido la comprobación lEditMode en el OnKeyDown del Browse y ya funciona PERFECTO!!!
Un Saludo,
Xevi.
"Ignacio Ortiz de Zúñiga" <NoName@xailer.com> ha escrit al missatge del grup de discussió: 455071ca$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
Xevi,
>>Ya... pero si en OnKeyDown del Browse hago hacer alguna operación en concreto al pulsar
>>"A", por ej... se dispara cada ver que en el Edit pulso la tecla "A".
Deberas comprobar si estás en edición con la propiedad lEditMode (aún no documentada).
>>Otro detalle más con este Obj...!!!
>>Yo derivo de XBrowse y personalizo misBrowses...
Debés pasar un tercer parametro hWnd en el método
METHOD WMKeyDown( nKey, nFlags, hWnd ) CLASS TBrowse
IF nKey == VK_HOME .and. GetKeyState( VK_CONTROL ) < 0 //Ctrl+Inici... Primera Fila
RETURN Super:WMKeyDown( VK_HOME, nFlags, hWnd )
ElseIF nKey == VK_END .and. GetKeyState( VK_CONTROL ) < 0 //Ctrl+Final... íšltima Fila
RETURN Super:WMKeyDown( VK_END, nFlags, hWnd )
ElseIF nKey == VK_HOME //Inici... Primera Columna
Super:GoLeftMost()
ElseIF nKey == VK_END //Final... íšltima Columna
Super:GoRightMost()
ELSE
RETURN Super:WMKeyDown( nKey, nFlags, hWnd )
ENDIF
RETURN 0
Saludos
--
Ignacio Ortiz de Zúñiga
http://www.xailer.com
"Xevi" <xevicomas@gmail.com> escribió en el mensaje news:45506d98$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
Ignacio,
Ya... pero si en OnKeyDown del Browse hago hacer alguna operación en concreto al pulsar "A", por ej... se dispara cada ver que en el Edit pulso la tecla "A".
Que no es problema... lo tengo solucionado dejando el evento OnKeyDown del Browse a Nil al entrar en Edición y al salir le vuelvo a dejar el evento OnKeyDown del Browse... pero creo que era mejor el comportamiento anterior.
Otro detalle más con este Obj...!!!
Yo derivo de XBrowse y personalizo misBrowses...
CLASS TBrowse FROM xBrowse
PUBLISHED:
METHOD WMKeyDown( nKey, nFlags )
ENDCLASS
*
**
METHOD WMKeyDown( nKey, nFlags ) CLASS TBrowse
IF nKey == VK_HOME .and. GetKeyState( VK_CONTROL ) < 0 //Ctrl+Inici... Primera Fila
RETURN Super:WMKeyDown( VK_HOME, nFlags )
ElseIF nKey == VK_END .and. GetKeyState( VK_CONTROL ) < 0 //Ctrl+Final... íšltima Fila
RETURN Super:WMKeyDown( VK_END, nFlags )
ElseIF nKey == VK_HOME //Inici... Primera Columna
Super:GoLeftMost()
ElseIF nKey == VK_END //Final... íšltima Columna
Super:GoRightMost()
ELSE
RETURN Super:WMKeyDown( nKey, nFlags )
ENDIF
RETURN 0
bien pues no funcionan las teclas de dirección Up/Down/AvPag/RePag
Gracias.
Un Saludo,
Xevi.
"Ignacio Ortiz de Zúñiga" <NoName@xailer.com> ha escrit al missatge del grup de discussió: 45506ae7$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
> Xevi,
>
> Si, pero el browe no hace nada con las teclas que le llegan. Es el
> comportamiento normal de Xailer, de la misma forma que a un formulario le
> llegan las pulsaciones de teclado de un TEdit.
>
> Un saludo,
>
> --
> Ignacio Ortiz de Zúñiga
> http://www.xailer.com
> "Xevi" <xevicomas@gmail.com> escribió en el mensaje
> news:[email=45505280@news.xailer.com...]45505280@news.xailer.com...[/email]
>> Ignacio,
>>
>> Ahora no lanza GPF... pero sigue lanzandose el evento OnKeyDown del Browse
>> cuando editamos un Edit.
>>
>> Un Saludo,
>> Xevi.
>>
>>
>> "Ignacio Ortiz de Zúñiga" <NoName@xailer.com> ha escrit al missatge del
>> grup de discussió: 45504dd6$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
>>> José,
>>>
>>> Seguramente que si. Enví­o con este mensaje una nueva versión compilada
>>> con la anterior versión de xHarbour.
>>>
>>> Un saludo,
>>>
>>> --
>>> Ignacio Ortiz de Zúñiga
>>> http://www.xailer.com
>>> "Jose F. Gimenez" <jfgimenez@wanadoo.es> escribió en el
>>> mensaje news:454f7980$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
>>>> Ignacio,
>>>>
>>>> seguramente es por la versión de xHarbour
>>>>
>>>> --
>>>> Un saludo,
>>>>
>>>> José F. Giménez
>>>> http://www.xailer.com
>>>>
>>>>
>>>
>>>
>>>
>>
>>
>
>
--
Responder