Hola que tal , Saludos a Todos.
Alguien a puesto en un xBrowse letras que parpaden
necesito poner un alerta por mis articulos.
Si alguien me puede echar la mano.
Gracias de antemano.
Board index FiveWin para Harbour/xHarbour Mensajes Parpadeantes
Hola, no se si es lo que buscas, en el foro busca Dsay.
Saludos
Ruben Fernandez
Hola Javier:
Creo recordar que en el foro de brasil había un ejemplo de como hacerlo, he buscado el link, pero por lo visto no me lo guarde, busca el ejemplo allí.
Un saludo
JLL
Libreria: FWH/FWH1109 + Harbour 5.8.2 + Borland C++ 5.8.2
Editor de Recursos: PellecC
ADA, OURXDBU
S.O: XP / Win 7 /Win10
Blog: http://javierlloris.blogspot.com.es/
e-mail: javierllorisprogramador@gmail.com
Editor de Recursos: PellecC
ADA, OURXDBU
S.O: XP / Win 7 /Win10
Blog: http://javierlloris.blogspot.com.es/
e-mail: javierllorisprogramador@gmail.com
Hola, yo tambien vi el post en el foro de Fivewin BR, y era algo mas o menos asi...
Yo uso TWBROWSE, y en la data :nClrPane le asigne lo siguiente:
:nClrPane := {|| ClrPaneBrw() } // aqui es onde pinto con efecto de flash y mas...
y en el ACTIVATE del DIALOG lo siguiente:
ACTIVATE DIALOG oDlg ;
CENTERED ;
ON INIT ( f_IniciaTimer(oDlg) )
El objeto oAnticipos es un TARRAY que contiene informacion que uso temporal en los procesos...
y el aoBrowse[2] es el objeto del TWBROWSE para referenciarlo...
Espero haberme Explicado...
El codigo de las funciones necesarias estan abajo...
Yo uso TWBROWSE, y en la data :nClrPane le asigne lo siguiente:
:nClrPane := {|| ClrPaneBrw() } // aqui es onde pinto con efecto de flash y mas...
y en el ACTIVATE del DIALOG lo siguiente:
ACTIVATE DIALOG oDlg ;
CENTERED ;
ON INIT ( f_IniciaTimer(oDlg) )
El objeto oAnticipos es un TARRAY que contiene informacion que uso temporal en los procesos...
y el aoBrowse[2] es el objeto del TWBROWSE para referenciarlo...
Espero haberme Explicado...
El codigo de las funciones necesarias estan abajo...
****************************************************************************
STATIC FUNCTION ClrPaneBrw()
****************************************************************************
*
* Trocar cor da linha do listbox
* Parametros:
* Retorno: Nenhum
*
* Autor: Anderson
* 05/04/2008 - 09:32:59
*
****************************************************************************
LOCAL Result := nRgb(255,255,255)
IF oAnticipos:cConcepto = "10"
IF Val(Right(Time(),2)) % 2 == 0
Result := nRgb( 200, 200, 223 )
else
Result := CLR_RED
ENDIF
else
IF oAnticipos:Recno() % 2 == 0
Result := nRGB( 193, 221, 255 )
else
Result := nRGB( 221, 245, 255 )
ENDIF
ENDIF
RETURN Result
****************************************************************************
STATIC procedure f_IniciaTimer(oDlg)
****************************************************************************
*
* Executar tarefa ao iniciar o dialog
* Parametros: nenhum
* Retorno: Nenhum
*
* Autor: Anderson
* 05/04/2008 - 09:38:53
*
****************************************************************************
Define Timer oTimer ;
Interval 1000 ;
Of oDlg ;
Action ( aoBrowse[2]:Paint(), aoBrowse[2]:refresh() )
Activate Timer oTimer
RETURN NilLuis Fernando Rubio Rubio
apenas regresando de unos días de descanso.
Gracias por sus respuestas, voy a checarlas y probar.
ya les dire los resultados.
Saludos.