Mensajes Parpadeantes

[JavierVital]

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.

[RuFerSo]

Hola, no se si es lo que buscas, en el foro busca Dsay.


Saludos

Ruben Fernandez

[jll-fwh]

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

[derpipu]

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...

Code: Select all

****************************************************************************
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 Nil
 

[JavierVital]

apenas regresando de unos días de descanso.

Gracias por sus respuestas, voy a checarlas y probar.
ya les dire los resultados.

Saludos.