Page 1 of 1
Antonio Blinking Dsay y FWH 8.01
Posted: Tue Jan 29, 2008 4:23 pm
by GUSPRE
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,
Posted: Tue Jan 29, 2008 11:12 pm
by Antonio Linares
Gustavo,
Por favor envíame la clase DSAY y un pequeño ejemplo de uso, gracias
Posted: Wed Jan 30, 2008 11:03 am
by karinha
Antonio Linares wrote:Gustavo,
Por favor envíame la clase DSAY y un pequeño ejemplo de uso, gracias
Maestro, tenbién tengo el problema.
Principalmente en WINDOWS XP.
http://www.fivewin.com.br/exibedicas.asp?id=484
Posted: Wed Jan 30, 2008 1:19 pm
by GUSPRE
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
Posted: Thu Jan 31, 2008 8:04 pm
by Antonio Linares
Hay que hacer esta modificación en la clase TDSay:
Code: Select all
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
Posted: Thu Jan 31, 2008 10:23 pm
by GUSPRE
PROBLEMA SOLUCIONADO!!
Muchas Gracias Antonio,
saludos,
Posted: Fri Feb 01, 2008 11:50 am
by karinha
Antonio Linares wrote:Hay que hacer esta modificación en la clase TDSay:
Code: Select all
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
EXPLENDIDO MAESTRO!! MUI BIÉN!!
MAESTRO, É UN GRAND GENIO DEL FIVEWIN!!!
Muchas gracias.
Best regards, saludos.