Xailer & OZ Software

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)Â

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,
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.
>>
>>
>>
>
>
>

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,
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

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.
>>>>>
>>>>>
>>>>>
>>>>
>>>>
>>>>
>>>
>>>
>>
>>
>
>
>

Ignacio,
seguramente es por la versión de xHarbour
--
Un saludo,
José F. Giménez
http://www.xailer.com

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,
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
>>
>>
>
>
>

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,
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
>>>>
>>>>
>>>
>>>
>>>
>>
>>
>
>
--

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,
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
>>>>
>>>>
>>>
>>>
>>>
>>
>>
>
>
--

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,
>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
>>>>
>>>>
>>>
>>>
>>>
>>
>>
>
>
--