Xailer & OZ Software

He observado que pulsando en las flechitas de desplazamiento atras parar ir
hacia el mes anterior en el monthcalendar, a veces se queda como enganchado
y va cambiando meses el solo hacia atras hasta que se detiene.Lo noto pues
tengo puesto en el onchange que me pinte un progressbar y me di cuenta que
empezo a pintar una y otra vez la progressbar, al hacer click encima del
boton de desplamiento hacia atras.. Bueno a veces no, me pasa siempre ahora
que observo.
Ahi va el ejemplo :
WITH OBJECT ::oMonthCalendar := TMonthCalendar():New( oBevel_RIGHT_R )
:dValue := Date()
:l3d := .F.
:lBorder := .F.
:lWeekNumbers := .T.
:nAlign := alTOP
:nClrTitlePane := RGB( 51, 102, 153 )
:nHeight := 154
:Create()
:OnChange := { | oSender, dDate |
::Re_Build_tipo_CALENDARIO( dDate ) }
END
Atentamente : Francisco Sanchez

Francisco,
Si sin poner el OnChange te va bien seguramente el problema esta en tu
metodo ::Re_Build_tipo_CALENDARIO( dDate )
Un saludo
"Francisco Sanchez" <francisco@softwaretotal.biz> escribió en el mensaje
news:425229ed$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
> He observado que pulsando en las flechitas de desplazamiento atras parar
> ir hacia el mes anterior en el monthcalendar, a veces se queda como
> enganchado y va cambiando meses el solo hacia atras hasta que se
> detiene.Lo noto pues tengo puesto en el onchange que me pinte un
> progressbar y me di cuenta que empezo a pintar una y otra vez la
> progressbar, al hacer click encima del boton de desplamiento hacia atras..
> Bueno a veces no, me pasa siempre ahora que observo.
>
> Ahi va el ejemplo :
>
> WITH OBJECT ::oMonthCalendar := TMonthCalendar():New( oBevel_RIGHT_R )
> :dValue := Date()
> :l3d := .F.
> :lBorder := .F.
> :lWeekNumbers := .T.
> :nAlign := alTOP
> :nClrTitlePane := RGB( 51, 102, 153 )
> :nHeight := 154
> :Create()
> :OnChange := { | oSender, dDate |
> ::Re_Build_tipo_CALENDARIO( dDate ) }
> END
>
> Atentamente : Francisco Sanchez
>