Antonio Blinking Dsay y FWH 8.01

GUSPRE · Post by **GUSPRE** » Tue Jan 29, 2008 4:23 pm

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,

Post by **Antonio Linares** » Tue Jan 29, 2008 11:12 pm

Gustavo,

Por favor envíame la clase DSAY y un pequeño ejemplo de uso, gracias

Post by **karinha** » Wed Jan 30, 2008 11:03 am

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

GUSPRE · Post by **GUSPRE** » Wed Jan 30, 2008 1:19 pm

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

Post by **Antonio Linares** » Thu Jan 31, 2008 8:04 pm

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

GUSPRE · Post by **GUSPRE** » Thu Jan 31, 2008 10:23 pm

PROBLEMA SOLUCIONADO!!

Muchas Gracias Antonio,

saludos,

Post by **karinha** » Fri Feb 01, 2008 11:50 am

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.