Estimado Antonio, estoy tratando de terminar la migración a FWH 8.01 y xharbour 1.1.0 , uso bastante DSAY con parpadeo (BLINKING) pero no me funciona y bloquea el Dialog si funciona usando scroll, que puede ser ?, estuve revisando DSAY.PRG y lo unico que se me ocurre es el TIMER que usa, alguna idea ?
Saludos y Gracias,
Gustavo,
Por favor envÃame la clase DSAY y un pequeño ejemplo de uso, gracias
Antonio Linares wrote:Gustavo,
Por favor envÃame la clase DSAY y un pequeño ejemplo de uso, gracias
Estimado antonio te he enviado un e-mail con una aplicacion ejemplo del problema con Dsay, con la opcion BLINKING no funciona bien, pero con Scroll si, que estará pasando.- FWH 8.01 y Xharbour 1.1.0, saludos
METHOD Paint() CLASS TDSay
...
// InvalidateRect( ::hWnd, ::aRect, .t. )
FillRect( ::hDC, GetClientRect( ::hWnd ), ::oBrush:hBrush )
...Antonio Linares wrote:Hay que hacer esta modificación en la clase TDSay:
METHOD Paint() CLASS TDSay ... // InvalidateRect( ::hWnd, ::aRect, .t. ) FillRect( ::hDC, GetClientRect( ::hWnd ), ::oBrush:hBrush ) ...
El intervalo del timer lo he pasado de 300 a 600, pero eso será según las preferencias de cada uno