Xailer & OZ Software

Hola
He comprobado que en u TMonthCalendar, cuando haces click en cualquier
dí­a salta el evento ONChange correctamente, pero si vuelves a clicar
sobre el dí­a de hoy no se dispara. Ni pulsando en el dí­a directamente,
ni en el enlace inferior que pone "hoy".
Gracias y un saludo,
José Alfonso Suárez Moreno
--

¿Ninguna pista sobre esto?
El 13/12/2010 17:11, José Alfonso Suárez Moreno escribió:
> Hola
>
> He comprobado que en u TMonthCalendar, cuando haces click en cualquier
> dí­a salta el evento ONChange correctamente, pero si vuelves a clicar
> sobre el dí­a de hoy no se dispara. Ni pulsando en el dí­a directamente,
> ni en el enlace inferior que pone "hoy".
>
> Gracias y un saludo,
>
> José Alfonso Suárez Moreno

José Alfonso,
> He comprobado que en u TMonthCalendar, cuando haces click en cualquier
> dí­a salta el evento ONChange correctamente, pero si vuelves a clicar
> sobre el dí­a de hoy no se dispara. Ni pulsando en el dí­a directamente,
> ni en el enlace inferior que pone "hoy".
Modifica el método Change() de TMonthCalendar así­:
//---------------------------------------------------------- ----------------
METHOD Change( dValue ) CLASS XMonthCalendar
IF ::Fdvalue != dValue
::Fdvalue := dValue // Esta es la lí­nea a añadir
::OnChange( dValue )
ENDIF
RETURN Nil
//---------------------------------------------------------- ----------------
--
Un saludo,
José F. Giménez
http://www.xailer.com
http://www.xailer.info

Hay alguna solucion par los que no tenemos acceso a las fuentes?
Gracias
"Jose F. Gimenez" <jfgimenez@wanadoo.es> escribió en el mensaje
news:[email=4d0a6e66@svctag-j7w3v3j....]4d0a6e66@svctag-j7w3v3j....[/email]
> José Alfonso,
>
>> He comprobado que en u TMonthCalendar, cuando haces click en cualquier
>> día salta el evento ONChange correctamente, pero si vuelves a clicar
>> sobre el día de hoy no se dispara. Ni pulsando en el día directamente,
>> ni en el enlace inferior que pone "hoy".
>
> Modifica el método Change() de TMonthCalendar así:
>
> //---------------------------------------------------------- ----------------
>
> METHOD Change( dValue ) CLASS XMonthCalendar
>
> IF ::Fdvalue != dValue
> ::Fdvalue := dValue // Esta es la línea a añadir
> ::OnChange( dValue )
> ENDIF
>
> RETURN Nil
>
> //---------------------------------------------------------- ----------------
>
>
> --
> Un saludo,
>
> José F. Giménez
> http://www.xailer.com
> http://www.xailer.info

Jose,
Muchas gracias.
Un abrazo y felices fiestas.
Alf+.
El 16/12/2010 20:54, Jose F. Gimenez escribió:
> José Alfonso,
>
>> He comprobado que en u TMonthCalendar, cuando haces click en cualquier
>> dí­a salta el evento ONChange correctamente, pero si vuelves a clicar
>> sobre el dí­a de hoy no se dispara. Ni pulsando en el dí­a directamente,
>> ni en el enlace inferior que pone "hoy".
>
> Modifica el método Change() de TMonthCalendar así­:
>
> //---------------------------------------------------------- ----------------
>
>
> METHOD Change( dValue ) CLASS XMonthCalendar
>
> IF ::Fdvalue != dValue
> ::Fdvalue := dValue // Esta es la lí­nea a añadir
> ::OnChange( dValue )
> ENDIF
>
> RETURN Nil
>
> //---------------------------------------------------------- ----------------
>
>
>

Moises,
> Hay alguna solucion par los que no tenemos acceso a las fuentes?
pon en algún sitio de tu proyecto:
CLASS TMonthCalendar FROM XMonthCalendar
METHOD Change( dValue )
ENDCLASS
METHOD Change( dValue ) CLASS TMonthCalendar
IF ::Fdvalue != dValue
::Fdvalue := dValue
::OnChange( dValue )
ENDIF
RETURN Nil
--
Un saludo,
José F. Giménez
http://www.xailer.com
http://www.xailer.info

Muchas gracias Jose, sera de gran utilidad para mi proyecto
"Jose F. Gimenez" <jfgimenez@wanadoo.es> escribió en el mensaje
news:[email=4d0ca1f1@svctag-j7w3v3j....]4d0ca1f1@svctag-j7w3v3j....[/email]
> Moises,
>
>> Hay alguna solucion par los que no tenemos acceso a las fuentes?
>
> pon en algún sitio de tu proyecto:
>
> CLASS TMonthCalendar FROM XMonthCalendar
> METHOD Change( dValue )
> ENDCLASS
>
> METHOD Change( dValue ) CLASS TMonthCalendar
> IF ::Fdvalue != dValue
> ::Fdvalue := dValue
> ::OnChange( dValue )
> ENDIF
> RETURN Nil
>
>
> --
> Un saludo,
>
> José F. Giménez
> http://www.xailer.com
> http://www.xailer.info