Pulsacion de Boton lPushed

[Pablo Herranz]

He puesto un boton en un from que al pulsarlo activa la filterbar (y se
queda pulsado) y al volver a pulsar debe de ponerse en modo normal y
desaparecer la filterbar pero no me funciona, ya que en el logdebug el
oSender:lPushed siempre da falso.
nClick := { |oSender| if( oSender:lPushed,logdebug( "Pulsado"),logdebug( "NO
pulsado")),;
if( oSender:lPushed,oSenderetPushed(.F.),oSenderetPushed(.T.)),;
if( oSender:lPushed,oSender:lPushed:=.f.,oSender:lPushed:=.t.)}
He enlazado el button.obj que dejo Igancio en el foro pero nada.
Saludos
Pablo H

[jfgimenez]

Pablo,
revisa los mensajes de ayer de este mismo foro. Ignacio subió la corrección
en el hilo "Problema con TBtnBmp".
--
Un saludo,
José F. Giménez

[jmartial]

Sí Jose, efectivamente, pero sigue sin funcionar incluyendo el Obj corregido
de Ignacio.
Un Saludo,
Joaquín
"Jose F. Gimenez" <jfgimenez@wanadoo.es> escribió en el mensaje
news:[email=422ef4ec@ozsrv2.ozlan.local...]422ef4ec@ozsrv2.ozlan.local...[/email]
> Pablo,
>
> revisa los mensajes de ayer de este mismo foro. Ignacio subió la
corrección
> en el hilo "Problema con TBtnBmp".
>
> --
> Un saludo,
>
> José F. Giménez
>
>

[jfgimenez]

Joaquín, Pablo,
> Sí Jose, efectivamente, pero sigue sin funcionar incluyendo el Obj
> corregido
> de Ignacio.
Perdonad, acabo de darme cuenta que Pablo lo ha comentado en su mensaje.
Intentaré revisarlo esta tarde.
--
Un saludo,
José F. Giménez

[ignacio]

Joaquin,
Solucionado. Te incluyo el OBJ.
Un saludo,
"Joaquín Martínez" <jmartial@interbook.net> escribió en el mensaje
news:[email=422efa0c@ozsrv2.ozlan.local...]422efa0c@ozsrv2.ozlan.local...[/email]
> Sí Jose, efectivamente, pero sigue sin funcionar incluyendo el Obj
> corregido
> de Ignacio.
>
> Un Saludo,
> Joaquín
>
>
>
>
>
> "Jose F. Gimenez" <jfgimenez@wanadoo.es> escribió en el mensaje
> news:[email=422ef4ec@ozsrv2.ozlan.local...]422ef4ec@ozsrv2.ozlan.local...[/email]
>> Pablo,
>>
>> revisa los mensajes de ayer de este mismo foro. Ignacio subió la
> corrección
>> en el hilo "Problema con TBtnBmp".
>>
>> --
>> Un saludo,
>>
>> José F. Giménez
>>
>>
>
>


Attached files button.zip (3.4 KB)Â

[Pablo Herranz]

Sigue sin funcionrme. ahora no se me queda pulsado con
oSender:SetPushed(.t.)
He incluido el obj ultimo
Pablo
"Ignacio Ortiz de Zúñiga" <InvalidAccount@ozs.com> escribió en el mensaje
news:422f007d$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
> Joaquin,
>
> Solucionado. Te incluyo el OBJ.
>
> Un saludo,
>
> "Joaquín Martínez" <jmartial@interbook.net> escribió en el mensaje
> news:[email=422efa0c@ozsrv2.ozlan.local...]422efa0c@ozsrv2.ozlan.local...[/email]
>> Sí Jose, efectivamente, pero sigue sin funcionar incluyendo el Obj
>> corregido
>> de Ignacio.
>>
>> Un Saludo,
>> Joaquín
>>
>>
>>
>>
>>
>> "Jose F. Gimenez" <jfgimenez@wanadoo.es> escribió en el
>> mensaje
>> news:[email=422ef4ec@ozsrv2.ozlan.local...]422ef4ec@ozsrv2.ozlan.local...[/email]
>>> Pablo,
>>>
>>> revisa los mensajes de ayer de este mismo foro. Ignacio subió la
>> corrección
>>> en el hilo "Problema con TBtnBmp".
>>>
>>> --
>>> Un saludo,
>>>
>>> José F. Giménez
>>>
>>>
>>
>>
>
>
>

[ignacio]

Pablo,
Podrías probar el siguiente proyecto.
Gracias.
"Pablo Herranz" <pablo@ibertabaco.com> escribió en el mensaje
news:[email=422f20f3@ozsrv2.ozlan.local...]422f20f3@ozsrv2.ozlan.local...[/email]
> Sigue sin funcionrme. ahora no se me queda pulsado con
> oSender:SetPushed(.t.)
> He incluido el obj ultimo
>
> Pablo
>
>
> "Ignacio Ortiz de Zúñiga" <InvalidAccount@ozs.com> escribió en el mensaje
> news:422f007d$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
>> Joaquin,
>>
>> Solucionado. Te incluyo el OBJ.
>>
>> Un saludo,
>>
>> "Joaquín Martínez" <jmartial@interbook.net> escribió en el mensaje
>> news:[email=422efa0c@ozsrv2.ozlan.local...]422efa0c@ozsrv2.ozlan.local...[/email]
>>> Sí Jose, efectivamente, pero sigue sin funcionar incluyendo el Obj
>>> corregido
>>> de Ignacio.
>>>
>>> Un Saludo,
>>> Joaquín
>>>
>>>
>>>
>>>
>>>
>>> "Jose F. Gimenez" <jfgimenez@wanadoo.es> escribió en el
>>> mensaje
>>> news:[email=422ef4ec@ozsrv2.ozlan.local...]422ef4ec@ozsrv2.ozlan.local...[/email]
>>>> Pablo,
>>>>
>>>> revisa los mensajes de ayer de este mismo foro. Ignacio subió la
>>> corrección
>>>> en el hilo "Problema con TBtnBmp".
>>>>
>>>> --
>>>> Un saludo,
>>>>
>>>> José F. Giménez
>>>>
>>>>
>>>
>>>
>>
>>
>>
>
>


Attached files test.zip (1.6 KB)Â

[jmartial]

Ignacio,
ten cuidado, que los ejemplos los ha hecho con BtnBmp, a lo mejor en Button
va bien y en esta clase es donde falla.
Un Saludo,
Joaquín
"Ignacio Ortiz de Zúñiga" <InvalidAccount@ozs.com> escribió en el mensaje
news:422f2303$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
> Pablo,
>
> Podrías probar el siguiente proyecto.
>
> Gracias.
>
>
> "Pablo Herranz" <pablo@ibertabaco.com> escribió en el mensaje
> news:[email=422f20f3@ozsrv2.ozlan.local...]422f20f3@ozsrv2.ozlan.local...[/email]
> > Sigue sin funcionrme. ahora no se me queda pulsado con
> > oSender:SetPushed(.t.)
> > He incluido el obj ultimo
> >
> > Pablo
> >
> >
> > "Ignacio Ortiz de Zúñiga" <InvalidAccount@ozs.com> escribió en el
mensaje
> > news:422f007d$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
> >> Joaquin,
> >>
> >> Solucionado. Te incluyo el OBJ.
> >>
> >> Un saludo,
> >>
> >> "Joaquín Martínez" <jmartial@interbook.net> escribió en el mensaje
> >> news:[email=422efa0c@ozsrv2.ozlan.local...]422efa0c@ozsrv2.ozlan.local...[/email]
> >>> Sí Jose, efectivamente, pero sigue sin funcionar incluyendo el Obj
> >>> corregido
> >>> de Ignacio.
> >>>
> >>> Un Saludo,
> >>> Joaquín
> >>>
> >>>
> >>>
> >>>
> >>>
> >>> "Jose F. Gimenez" <jfgimenez@wanadoo.es> escribió en el
> >>> mensaje
> >>> news:[email=422ef4ec@ozsrv2.ozlan.local...]422ef4ec@ozsrv2.ozlan.local...[/email]
> >>>> Pablo,
> >>>>
> >>>> revisa los mensajes de ayer de este mismo foro. Ignacio subió la
> >>> corrección
> >>>> en el hilo "Problema con TBtnBmp".
> >>>>
> >>>> --
> >>>> Un saludo,
> >>>>
> >>>> José F. Giménez
> >>>>
> >>>>
> >>>
> >>>
> >>
> >>
> >>
> >
> >
>
>
>

[Pablo Herranz]

Lo he probado y me da este error, de todas formas te adjunto el proyecto
mio, no va el ultimo button.obj pero lo estoy utilizando en el enlace
Pablo
"Ignacio Ortiz de Zúñiga" <InvalidAccount@ozs.com> escribió en el mensaje
news:422f2303$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
> Pablo,
>
> Podrías probar el siguiente proyecto.
>
> Gracias.
>
>
> "Pablo Herranz" <pablo@ibertabaco.com> escribió en el mensaje
> news:[email=422f20f3@ozsrv2.ozlan.local...]422f20f3@ozsrv2.ozlan.local...[/email]
>> Sigue sin funcionrme. ahora no se me queda pulsado con
>> oSender:SetPushed(.t.)
>> He incluido el obj ultimo
>>
>> Pablo
>>
>>
>> "Ignacio Ortiz de Zúñiga" <InvalidAccount@ozs.com> escribió en el mensaje
>> news:422f007d$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
>>> Joaquin,
>>>
>>> Solucionado. Te incluyo el OBJ.
>>>
>>> Un saludo,
>>>
>>> "Joaquín Martínez" <jmartial@interbook.net> escribió en el mensaje
>>> news:[email=422efa0c@ozsrv2.ozlan.local...]422efa0c@ozsrv2.ozlan.local...[/email]
>>>> Sí Jose, efectivamente, pero sigue sin funcionar incluyendo el Obj
>>>> corregido
>>>> de Ignacio.
>>>>
>>>> Un Saludo,
>>>> Joaquín
>>>>
>>>>
>>>>
>>>>
>>>>
>>>> "Jose F. Gimenez" <jfgimenez@wanadoo.es> escribió en el
>>>> mensaje
>>>> news:[email=422ef4ec@ozsrv2.ozlan.local...]422ef4ec@ozsrv2.ozlan.local...[/email]
>>>>> Pablo,
>>>>>
>>>>> revisa los mensajes de ayer de este mismo foro. Ignacio subió la
>>>> corrección
>>>>> en el hilo "Problema con TBtnBmp".
>>>>>
>>>>> --
>>>>> Un saludo,
>>>>>
>>>>> José F. Giménez
>>>>>
>>>>>
>>>>
>>>>
>>>
>>>
>>>
>>
>>
>
>
>


Attached files

[Pablo Herranz]

No soy capaz de enviar el proyecto por que ocupa 100 k y el servidor solo
acepta 70, le he quitado lo bmp, ico y jpg pero nada
Pablo
"Pablo Herranz" <pablo@ibertabaco.com> escribió en el mensaje
news:[email=422f31bb@ozsrv2.ozlan.local...]422f31bb@ozsrv2.ozlan.local...[/email]
> Lo he probado y me da este error, de todas formas te adjunto el proyecto
> mio, no va el ultimo button.obj pero lo estoy utilizando en el enlace
>
> Pablo
>
>
> "Ignacio Ortiz de Zúñiga" <InvalidAccount@ozs.com> escribió en el mensaje
> news:422f2303$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
>> Pablo,
>>
>> Podrías probar el siguiente proyecto.
>>
>> Gracias.
>>
>>
>> "Pablo Herranz" <pablo@ibertabaco.com> escribió en el mensaje
>> news:[email=422f20f3@ozsrv2.ozlan.local...]422f20f3@ozsrv2.ozlan.local...[/email]
>>> Sigue sin funcionrme. ahora no se me queda pulsado con
>>> oSender:SetPushed(.t.)
>>> He incluido el obj ultimo
>>>
>>> Pablo
>>>
>>>
>>> "Ignacio Ortiz de Zúñiga" <InvalidAccount@ozs.com> escribió en el
>>> mensaje
>>> news:422f007d$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
>>>> Joaquin,
>>>>
>>>> Solucionado. Te incluyo el OBJ.
>>>>
>>>> Un saludo,
>>>>
>>>> "Joaquín Martínez" <jmartial@interbook.net> escribió en el mensaje
>>>> news:[email=422efa0c@ozsrv2.ozlan.local...]422efa0c@ozsrv2.ozlan.local...[/email]
>>>>> Sí Jose, efectivamente, pero sigue sin funcionar incluyendo el Obj
>>>>> corregido
>>>>> de Ignacio.
>>>>>
>>>>> Un Saludo,
>>>>> Joaquín
>>>>>
>>>>>
>>>>>
>>>>>
>>>>>
>>>>> "Jose F. Gimenez" <jfgimenez@wanadoo.es> escribió en el
>>>>> mensaje
>>>>> news:[email=422ef4ec@ozsrv2.ozlan.local...]422ef4ec@ozsrv2.ozlan.local...[/email]
>>>>>> Pablo,
>>>>>>
>>>>>> revisa los mensajes de ayer de este mismo foro. Ignacio subió la
>>>>> corrección
>>>>>> en el hilo "Problema con TBtnBmp".
>>>>>>
>>>>>> --
>>>>>> Un saludo,
>>>>>>
>>>>>> José F. Giménez
>>>>>>
>>>>>>
>>>>>
>>>>>
>>>>
>>>>
>>>>
>>>
>>>
>>
>>
>>
>
>
>
>

[jfgimenez]

Pablo,
> No soy capaz de enviar el proyecto por que ocupa 100 k y el servidor solo
> acepta 70, le he quitado lo bmp, ico y jpg pero nada
utiliza la opción "Proyecto", "Publicar proyecto...". Eso te generará un
..zip con los archivos necesarios para compilarlo (fuentes, recursos, etc.),
pero sin .obj, .exe ni otros archivos innecesarios.
--
Un saludo,
José F. Giménez

[ignacio]

Pablo,
Ese error tiene que ver con el DBBrowse que fallaba cuando se ponia la
Filterbar en tiempo de diseño sin tener un dataset asignado que yo ya tengo
arreglado.
Te mando otra versión con BtnBmp y sin usar browses.
Un saludo,
"Pablo Herranz" <pablo@ibertabaco.com> escribió en el mensaje
news:422f3395$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
> No soy capaz de enviar el proyecto por que ocupa 100 k y el servidor solo
> acepta 70, le he quitado lo bmp, ico y jpg pero nada
>
> Pablo
>
>
> "Pablo Herranz" <pablo@ibertabaco.com> escribió en el mensaje
> news:[email=422f31bb@ozsrv2.ozlan.local...]422f31bb@ozsrv2.ozlan.local...[/email]
>> Lo he probado y me da este error, de todas formas te adjunto el proyecto
>> mio, no va el ultimo button.obj pero lo estoy utilizando en el enlace
>>
>> Pablo
>>
>>
>> "Ignacio Ortiz de Zúñiga" <InvalidAccount@ozs.com> escribió en el mensaje
>> news:422f2303$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
>>> Pablo,
>>>
>>> Podrías probar el siguiente proyecto.
>>>
>>> Gracias.
>>>
>>>
>>> "Pablo Herranz" <pablo@ibertabaco.com> escribió en el mensaje
>>> news:[email=422f20f3@ozsrv2.ozlan.local...]422f20f3@ozsrv2.ozlan.local...[/email]
>>>> Sigue sin funcionrme. ahora no se me queda pulsado con
>>>> oSender:SetPushed(.t.)
>>>> He incluido el obj ultimo
>>>>
>>>> Pablo
>>>>
>>>>
>>>> "Ignacio Ortiz de Zúñiga" <InvalidAccount@ozs.com> escribió en el
>>>> mensaje
>>>> news:422f007d$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
>>>>> Joaquin,
>>>>>
>>>>> Solucionado. Te incluyo el OBJ.
>>>>>
>>>>> Un saludo,
>>>>>
>>>>> "Joaquín Martínez" <jmartial@interbook.net> escribió en el mensaje
>>>>> news:[email=422efa0c@ozsrv2.ozlan.local...]422efa0c@ozsrv2.ozlan.local...[/email]
>>>>>> Sí Jose, efectivamente, pero sigue sin funcionar incluyendo el Obj
>>>>>> corregido
>>>>>> de Ignacio.
>>>>>>
>>>>>> Un Saludo,
>>>>>> Joaquín
>>>>>>
>>>>>>
>>>>>>
>>>>>>
>>>>>>
>>>>>> "Jose F. Gimenez" <jfgimenez@wanadoo.es> escribió en el
>>>>>> mensaje
>>>>>> news:[email=422ef4ec@ozsrv2.ozlan.local...]422ef4ec@ozsrv2.ozlan.local...[/email]
>>>>>>> Pablo,
>>>>>>>
>>>>>>> revisa los mensajes de ayer de este mismo foro. Ignacio subió la
>>>>>> corrección
>>>>>>> en el hilo "Problema con TBtnBmp".
>>>>>>>
>>>>>>> --
>>>>>>> Un saludo,
>>>>>>>
>>>>>>> José F. Giménez
>>>>>>>
>>>>>>>
>>>>>>
>>>>>>
>>>>>
>>>>>
>>>>>
>>>>
>>>>
>>>
>>>
>>>
>>
>>
>>
>>
>
>


Attached files test.zip (1.6 KB)Â

[Pablo Herranz]

He probado el proyecto, y efectivamente el boton se pulsa, pero una vez
pulsado no hay manera de quitarle la pulsacion. He publicado el mio y lo
adjunto, lo que no ira sera la tabla de datos que se llama matvar.dbf y
consta de codigo y nombre
Pablo


Attached files ITR2005.zip (34.5 KB)Â

[ignacio]

Pablo,
Pues a mi me va perfectamente. Estas seguro de que estás enlazando con el
button.obj que te di?
Podría alguien más probarlo? Vuelvo a poner el OBJ en este email
Un saludo,
"Pablo Herranz" <pablo@ibertabaco.com> escribió en el mensaje
news:[email=422ff416@ozsrv2.ozlan.local...]422ff416@ozsrv2.ozlan.local...[/email]
> He probado el proyecto, y efectivamente el boton se pulsa, pero una vez
> pulsado no hay manera de quitarle la pulsacion. He publicado el mio y lo
> adjunto, lo que no ira sera la tabla de datos que se llama matvar.dbf y
> consta de codigo y nombre
>
> Pablo
>
>
>


Attached files Button.rar (3.3 KB)Â

[Pablo Herranz]

He vuelto a probar con el obj que adjuntas y nada, el logdebug(:lPushed)
siempre me da falso, cuando pulso por primera vez se hunde el boton pero ya
no hay manera de sacarlo de ahi:
Pablo
"Ignacio Ortiz de Zúñiga" <InvalidAccount@ozs.com> escribió en el mensaje
news:42300f4f$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
> Pablo,
>
> Pues a mi me va perfectamente. Estas seguro de que estás enlazando con el
> button.obj que te di?
>
> Podría alguien más probarlo? Vuelvo a poner el OBJ en este email
>
> Un saludo,
>
> "Pablo Herranz" <pablo@ibertabaco.com> escribió en el mensaje
> news:[email=422ff416@ozsrv2.ozlan.local...]422ff416@ozsrv2.ozlan.local...[/email]
>> He probado el proyecto, y efectivamente el boton se pulsa, pero una vez
>> pulsado no hay manera de quitarle la pulsacion. He publicado el mio y lo
>> adjunto, lo que no ira sera la tabla de datos que se llama matvar.dbf y
>> consta de codigo y nombre
>>
>> Pablo
>>
>>
>>
>
>
>

[jfgimenez]

Pablo,
acabo de probar tanto tu ejemplo como el de Ignacio, y veo que funciona bien
si se pulsa el botón con el ratón o con la barra espaciadora cuando tiene el
foco. En cambio no funciona bien pulsado Enter sobre el botón o con su tecla
aceleradora. ¿Es eso lo que te ocurre?
--
Un saludo,
José F. Giménez

[jfgimenez]

Pablo,
por cierto, se me olvidaba... para asignar los bitmaps a los botones y otras
tareas de inicialización de controles, puedes usar el evento OnInitialize
del formulario, y escribir ahí todo lo que necesites, en vez de usar el
evento OnCreate de cada uno de los controles.
--
Un saludo,
José F. Giménez

[Pablo Herranz]

Gracias Jose, estamos invesigando Joaqui y yo y vemos que el problema se
produce al asignar la lFilterbar dentro del evento click del boton, si le
quito lo de la filterbar si me funciona.
Pablo
"Jose F. Gimenez" <jfgimenez@wanadoo.es> escribió en el mensaje
news:[email=42302d6b@ozsrv2.ozlan.local...]42302d6b@ozsrv2.ozlan.local...[/email]
> Pablo,
>
> por cierto, se me olvidaba... para asignar los bitmaps a los botones y
> otras tareas de inicialización de controles, puedes usar el evento
> OnInitialize del formulario, y escribir ahí todo lo que necesites, en vez
> de usar el evento OnCreate de cada uno de los controles.
>
> --
> Un saludo,
>
> José F. Giménez
>

[jmartial]

Ignacio,
A mí también me va bien haciendo simplemente SetPushed( !lPushed) en el
onClick del BtnBmp , pero el Bug está en otro sitio, si en la línea
siguiente pones ::oDbBrowse1:lFilterBar:= .T. ( suponiendo que tengas un
browse de ese tipo en el mismo form) ¡ SE VUELVE A EVALUAR EL ONCLICK del
botón!
por lo que SetPushed( !lPushed) en la 1ª vale False y en la segunda se
vuelve a True, te da la impresión que no se queda, y es que Xailer manda un
OnClick inexplicablente a ese botón.
Un Saludo,
Joaquín
"Ignacio Ortiz de Zúñiga" <InvalidAccount@ozs.com> escribió en el mensaje
news:42300f4f$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
> Pablo,
>
> Pues a mi me va perfectamente. Estas seguro de que estás enlazando con el
> button.obj que te di?
>
> Podría alguien más probarlo? Vuelvo a poner el OBJ en este email
>
> Un saludo,
>
> "Pablo Herranz" <pablo@ibertabaco.com> escribió en el mensaje
> news:[email=422ff416@ozsrv2.ozlan.local...]422ff416@ozsrv2.ozlan.local...[/email]
> > He probado el proyecto, y efectivamente el boton se pulsa, pero una vez
> > pulsado no hay manera de quitarle la pulsacion. He publicado el mio y lo
> > adjunto, lo que no ira sera la tabla de datos que se llama matvar.dbf y
> > consta de codigo y nombre
> >
> > Pablo
> >
> >
> >
>
>
>

[jfgimenez]

Pablo,
> Gracias Jose, estamos invesigando Joaqui y yo y vemos que el problema se
> produce al asignar la lFilterbar dentro del evento click del boton, si le
> quito lo de la filterbar si me funciona.
Yo he quitado la asignación a lFilterbar porque no tenía la .dbf. Si
quieres, envíamela (no te olvides de quitar los caracteres extras en la
dirección de email que aparece aquí) y esta tarde hago la prueba completa.
--
Un saludo,
José F. Giménez

[ignacio]

Joaquin,
Utiliza el proyecto que te envié con la filterbar y asignale una DBF para
que no falle. Intenta conseguir que no casque y me lo mandas de vuelta con
el error que comentas para que lo investigue.
Gracias de antemano,
"Joaquín Martínez" <jmartial@interbook.net> escribió en el mensaje
news:[email=423038f5@ozsrv2.ozlan.local...]423038f5@ozsrv2.ozlan.local...[/email]
> Ignacio,
>
> A mí también me va bien haciendo simplemente SetPushed( !lPushed) en el
> onClick del BtnBmp , pero el Bug está en otro sitio, si en la línea
> siguiente pones ::oDbBrowse1:lFilterBar:= .T. ( suponiendo que tengas un
> browse de ese tipo en el mismo form) ¡ SE VUELVE A EVALUAR EL ONCLICK del
> botón!
> por lo que SetPushed( !lPushed) en la 1ª vale False y en la segunda se
> vuelve a True, te da la impresión que no se queda, y es que Xailer manda
> un
> OnClick inexplicablente a ese botón.
>
>
> Un Saludo,
> Joaquín
>
> "Ignacio Ortiz de Zúñiga" <InvalidAccount@ozs.com> escribió en el mensaje
> news:42300f4f$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
>> Pablo,
>>
>> Pues a mi me va perfectamente. Estas seguro de que estás enlazando con el
>> button.obj que te di?
>>
>> Podría alguien más probarlo? Vuelvo a poner el OBJ en este email
>>
>> Un saludo,
>>
>> "Pablo Herranz" <pablo@ibertabaco.com> escribió en el mensaje
>> news:[email=422ff416@ozsrv2.ozlan.local...]422ff416@ozsrv2.ozlan.local...[/email]
>> > He probado el proyecto, y efectivamente el boton se pulsa, pero una vez
>> > pulsado no hay manera de quitarle la pulsacion. He publicado el mio y
>> > lo
>> > adjunto, lo que no ira sera la tabla de datos que se llama matvar.dbf y
>> > consta de codigo y nombre
>> >
>> > Pablo
>> >
>> >
>> >
>>
>>
>>
>
>

[Pablo Herranz]

Ahi va, con datos
Saludos
Pablo
"Ignacio Ortiz de Zúñiga" <InvalidAccount@ozs.com> escribió en el mensaje
news:42304532$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
> Joaquin,
>
> Utiliza el proyecto que te envié con la filterbar y asignale una DBF para
> que no falle. Intenta conseguir que no casque y me lo mandas de vuelta con
> el error que comentas para que lo investigue.
>
> Gracias de antemano,
>
> "Joaquín Martínez" <jmartial@interbook.net> escribió en el mensaje
> news:[email=423038f5@ozsrv2.ozlan.local...]423038f5@ozsrv2.ozlan.local...[/email]
>> Ignacio,
>>
>> A mí también me va bien haciendo simplemente SetPushed( !lPushed) en el
>> onClick del BtnBmp , pero el Bug está en otro sitio, si en la línea
>> siguiente pones ::oDbBrowse1:lFilterBar:= .T. ( suponiendo que tengas un
>> browse de ese tipo en el mismo form) ¡ SE VUELVE A EVALUAR EL ONCLICK del
>> botón!
>> por lo que SetPushed( !lPushed) en la 1ª vale False y en la segunda se
>> vuelve a True, te da la impresión que no se queda, y es que Xailer manda
>> un
>> OnClick inexplicablente a ese botón.
>>
>>
>> Un Saludo,
>> Joaquín
>>
>> "Ignacio Ortiz de Zúñiga" <InvalidAccount@ozs.com> escribió en el mensaje
>> news:42300f4f$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
>>> Pablo,
>>>
>>> Pues a mi me va perfectamente. Estas seguro de que estás enlazando con
>>> el
>>> button.obj que te di?
>>>
>>> Podría alguien más probarlo? Vuelvo a poner el OBJ en este email
>>>
>>> Un saludo,
>>>
>>> "Pablo Herranz" <pablo@ibertabaco.com> escribió en el mensaje
>>> news:[email=422ff416@ozsrv2.ozlan.local...]422ff416@ozsrv2.ozlan.local...[/email]
>>> > He probado el proyecto, y efectivamente el boton se pulsa, pero una
>>> > vez
>>> > pulsado no hay manera de quitarle la pulsacion. He publicado el mio y
>>> > lo
>>> > adjunto, lo que no ira sera la tabla de datos que se llama matvar.dbf
>>> > y
>>> > consta de codigo y nombre
>>> >
>>> > Pablo
>>> >
>>> >
>>> >
>>>
>>>
>>>
>>
>>
>
>


Attached files test.rar (2.9 KB)Â

[ignacio]

Pablo,
Tenías toda la razón, el evento OnClick se estaba disparando dos veces pero
espero que ya esté arreglado. Muchas gracias por tu colaboración. Te mando
los nuevos OBJS
Un saludo,
"Pablo Herranz" <pablo@ibertabaco.com> escribió en el mensaje
news:[email=42304a1b@ozsrv2.ozlan.local...]42304a1b@ozsrv2.ozlan.local...[/email]
> Ahi va, con datos
>
> Saludos
> Pablo
>
> "Ignacio Ortiz de Zúñiga" <InvalidAccount@ozs.com> escribió en el mensaje
> news:42304532$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
>> Joaquin,
>>
>> Utiliza el proyecto que te envié con la filterbar y asignale una DBF para
>> que no falle. Intenta conseguir que no casque y me lo mandas de vuelta
>> con
>> el error que comentas para que lo investigue.
>>
>> Gracias de antemano,
>>
>> "Joaquín Martínez" <jmartial@interbook.net> escribió en el mensaje
>> news:[email=423038f5@ozsrv2.ozlan.local...]423038f5@ozsrv2.ozlan.local...[/email]
>>> Ignacio,
>>>
>>> A mí también me va bien haciendo simplemente SetPushed( !lPushed) en el
>>> onClick del BtnBmp , pero el Bug está en otro sitio, si en la línea
>>> siguiente pones ::oDbBrowse1:lFilterBar:= .T. ( suponiendo que tengas un
>>> browse de ese tipo en el mismo form) ¡ SE VUELVE A EVALUAR EL ONCLICK
>>> del
>>> botón!
>>> por lo que SetPushed( !lPushed) en la 1ª vale False y en la segunda se
>>> vuelve a True, te da la impresión que no se queda, y es que Xailer manda
>>> un
>>> OnClick inexplicablente a ese botón.
>>>
>>>
>>> Un Saludo,
>>> Joaquín
>>>
>>> "Ignacio Ortiz de Zúñiga" <InvalidAccount@ozs.com> escribió en el
>>> mensaje
>>> news:42300f4f$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
>>>> Pablo,
>>>>
>>>> Pues a mi me va perfectamente. Estas seguro de que estás enlazando con
>>>> el
>>>> button.obj que te di?
>>>>
>>>> Podría alguien más probarlo? Vuelvo a poner el OBJ en este email
>>>>
>>>> Un saludo,
>>>>
>>>> "Pablo Herranz" <pablo@ibertabaco.com> escribió en el mensaje
>>>> news:[email=422ff416@ozsrv2.ozlan.local...]422ff416@ozsrv2.ozlan.local...[/email]
>>>> > He probado el proyecto, y efectivamente el boton se pulsa, pero una
>>>> > vez
>>>> > pulsado no hay manera de quitarle la pulsacion. He publicado el mio y
>>>> > lo
>>>> > adjunto, lo que no ira sera la tabla de datos que se llama matvar.dbf
>>>> > y
>>>> > consta de codigo y nombre
>>>> >
>>>> > Pablo
>>>> >
>>>> >
>>>> >
>>>>
>>>>
>>>>
>>>
>>>
>>
>>
>
>
>


Attached files browses.rar (30.4 KB)Â

[Pablo Herranz]

He enlazado con los nuevos obj y
WITH OBJECT oSender
:lPushed:=.t.
LogDebug(:lPushed)
::oDbBRowse1:lFilterBar:=:lPushed
END
¡¡¡ El logdebug me devuelve falso !!!
El evento click solo se ejecuta 1 vez
Pablo
"Ignacio Ortiz de Zúñiga" <InvalidAccount@ozs.com> escribió en el mensaje
news:42306e20$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
> Pablo,
>
> Tenías toda la razón, el evento OnClick se estaba disparando dos veces
> pero espero que ya esté arreglado. Muchas gracias por tu colaboración. Te
> mando los nuevos OBJS
>
> Un saludo,
>
> "Pablo Herranz" <pablo@ibertabaco.com> escribió en el mensaje
> news:[email=42304a1b@ozsrv2.ozlan.local...]42304a1b@ozsrv2.ozlan.local...[/email]
>> Ahi va, con datos
>>
>> Saludos
>> Pablo
>>
>> "Ignacio Ortiz de Zúñiga" <InvalidAccount@ozs.com> escribió en el mensaje
>> news:42304532$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
>>> Joaquin,
>>>
>>> Utiliza el proyecto que te envié con la filterbar y asignale una DBF
>>> para
>>> que no falle. Intenta conseguir que no casque y me lo mandas de vuelta
>>> con
>>> el error que comentas para que lo investigue.
>>>
>>> Gracias de antemano,
>>>
>>> "Joaquín Martínez" <jmartial@interbook.net> escribió en el mensaje
>>> news:[email=423038f5@ozsrv2.ozlan.local...]423038f5@ozsrv2.ozlan.local...[/email]
>>>> Ignacio,
>>>>
>>>> A mí también me va bien haciendo simplemente SetPushed( !lPushed) en el
>>>> onClick del BtnBmp , pero el Bug está en otro sitio, si en la línea
>>>> siguiente pones ::oDbBrowse1:lFilterBar:= .T. ( suponiendo que tengas
>>>> un
>>>> browse de ese tipo en el mismo form) ¡ SE VUELVE A EVALUAR EL ONCLICK
>>>> del
>>>> botón!
>>>> por lo que SetPushed( !lPushed) en la 1ª vale False y en la segunda se
>>>> vuelve a True, te da la impresión que no se queda, y es que Xailer
>>>> manda
>>>> un
>>>> OnClick inexplicablente a ese botón.
>>>>
>>>>
>>>> Un Saludo,
>>>> Joaquín
>>>>
>>>> "Ignacio Ortiz de Zúñiga" <InvalidAccount@ozs.com> escribió en el
>>>> mensaje
>>>> news:42300f4f$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
>>>>> Pablo,
>>>>>
>>>>> Pues a mi me va perfectamente. Estas seguro de que estás enlazando con
>>>>> el
>>>>> button.obj que te di?
>>>>>
>>>>> Podría alguien más probarlo? Vuelvo a poner el OBJ en este email
>>>>>
>>>>> Un saludo,
>>>>>
>>>>> "Pablo Herranz" <pablo@ibertabaco.com> escribió en el mensaje
>>>>> news:[email=422ff416@ozsrv2.ozlan.local...]422ff416@ozsrv2.ozlan.local...[/email]
>>>>> > He probado el proyecto, y efectivamente el boton se pulsa, pero una
>>>>> > vez
>>>>> > pulsado no hay manera de quitarle la pulsacion. He publicado el mio
>>>>> > y
>>>>> > lo
>>>>> > adjunto, lo que no ira sera la tabla de datos que se llama
>>>>> > matvar.dbf
>>>>> > y
>>>>> > consta de codigo y nombre
>>>>> >
>>>>> > Pablo
>>>>> >
>>>>> >
>>>>> >
>>>>>
>>>>>
>>>>>
>>>>
>>>>
>>>
>>>
>>
>>
>>
>
>
>

[ignacio]

Pablo,
Siento tremendamente la tabarra que te estamos dando y te pido mil perdones
por ello.
Aqui esta funcionando perfectamente. Antes había un problema con la clase
DBBrowse al hacer un cambio de foco. pero creia que el problema con la clase
TButton estaba solucionado, y que tan sólo se producia el error cuando
intentabas modificar la FilterBar desde el botón. Logicamente si
inmediatemante despues de hacer un lPushed := .T. te sige valiendo lPushed a
falso significa que tu error con la clase TButton sigue presente pero no
obstante en Email anteriores tuyos o de Joaquin me habeis comentado que
funcionaba.
¿Me puedes confirmar que incluso quitando la linea que modifca la FilterBar
sigue fallando? Gracias
Un saludo,
"Pablo Herranz" <pablo@ibertabaco.com> escribió en el mensaje
news:[email=423078bd@ozsrv2.ozlan.local...]423078bd@ozsrv2.ozlan.local...[/email]
> He enlazado con los nuevos obj y
> WITH OBJECT oSender
> :lPushed:=.t.
> LogDebug(:lPushed)
> ::oDbBRowse1:lFilterBar:=:lPushed
> END
> ¡¡¡ El logdebug me devuelve falso !!!
>
> El evento click solo se ejecuta 1 vez
>
> Pablo
>
>
>
>
> "Ignacio Ortiz de Zúñiga" <InvalidAccount@ozs.com> escribió en el mensaje
> news:42306e20$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
>> Pablo,
>>
>> Tenías toda la razón, el evento OnClick se estaba disparando dos veces
>> pero espero que ya esté arreglado. Muchas gracias por tu colaboración. Te
>> mando los nuevos OBJS
>>
>> Un saludo,
>>
>> "Pablo Herranz" <pablo@ibertabaco.com> escribió en el mensaje
>> news:[email=42304a1b@ozsrv2.ozlan.local...]42304a1b@ozsrv2.ozlan.local...[/email]
>>> Ahi va, con datos
>>>
>>> Saludos
>>> Pablo
>>>
>>> "Ignacio Ortiz de Zúñiga" <InvalidAccount@ozs.com> escribió en el
>>> mensaje
>>> news:42304532$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
>>>> Joaquin,
>>>>
>>>> Utiliza el proyecto que te envié con la filterbar y asignale una DBF
>>>> para
>>>> que no falle. Intenta conseguir que no casque y me lo mandas de vuelta
>>>> con
>>>> el error que comentas para que lo investigue.
>>>>
>>>> Gracias de antemano,
>>>>
>>>> "Joaquín Martínez" <jmartial@interbook.net> escribió en el mensaje
>>>> news:[email=423038f5@ozsrv2.ozlan.local...]423038f5@ozsrv2.ozlan.local...[/email]
>>>>> Ignacio,
>>>>>
>>>>> A mí también me va bien haciendo simplemente SetPushed( !lPushed) en
>>>>> el
>>>>> onClick del BtnBmp , pero el Bug está en otro sitio, si en la línea
>>>>> siguiente pones ::oDbBrowse1:lFilterBar:= .T. ( suponiendo que tengas
>>>>> un
>>>>> browse de ese tipo en el mismo form) ¡ SE VUELVE A EVALUAR EL ONCLICK
>>>>> del
>>>>> botón!
>>>>> por lo que SetPushed( !lPushed) en la 1ª vale False y en la segunda se
>>>>> vuelve a True, te da la impresión que no se queda, y es que Xailer
>>>>> manda
>>>>> un
>>>>> OnClick inexplicablente a ese botón.
>>>>>
>>>>>
>>>>> Un Saludo,
>>>>> Joaquín
>>>>>
>>>>> "Ignacio Ortiz de Zúñiga" <InvalidAccount@ozs.com> escribió en el
>>>>> mensaje
>>>>> news:42300f4f$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
>>>>>> Pablo,
>>>>>>
>>>>>> Pues a mi me va perfectamente. Estas seguro de que estás enlazando
>>>>>> con
>>>>>> el
>>>>>> button.obj que te di?
>>>>>>
>>>>>> Podría alguien más probarlo? Vuelvo a poner el OBJ en este email
>>>>>>
>>>>>> Un saludo,
>>>>>>
>>>>>> "Pablo Herranz" <pablo@ibertabaco.com> escribió en el mensaje
>>>>>> news:[email=422ff416@ozsrv2.ozlan.local...]422ff416@ozsrv2.ozlan.local...[/email]
>>>>>> > He probado el proyecto, y efectivamente el boton se pulsa, pero una
>>>>>> > vez
>>>>>> > pulsado no hay manera de quitarle la pulsacion. He publicado el mio
>>>>>> > y
>>>>>> > lo
>>>>>> > adjunto, lo que no ira sera la tabla de datos que se llama
>>>>>> > matvar.dbf
>>>>>> > y
>>>>>> > consta de codigo y nombre
>>>>>> >
>>>>>> > Pablo
>>>>>> >
>>>>>> >
>>>>>> >
>>>>>>
>>>>>>
>>>>>>
>>>>>
>>>>>
>>>>
>>>>
>>>
>>>
>>>
>>
>>
>>
>
>