BLINK EN CELDA/FILA XBROWSE - Mr RAO / ???

[joseluisysturiz]

Saludos, retomando este tema, habra alguna manera de que usando alguna clausula como BLINK en el color de la fila de un xbrowse, este titile, parpadee(BLINK) sin necesidad de usar la funcion con el timer...? esto seria muy practico para resaltar registros bajo alguna condicion, es una idea que se me viene y se que muchos podrian necesitar usar, y si es que ya existe, algun ejemplo de como usarla... gracias, saludos...

[karinha]

Hasta donde yo sé, BLINK funciona solo en SAYS y lo mejor es SSAY.PRG y tenemos Dynamic SAYS con DSAY.PRG. Quizás el señor Rao haga un milagro. jajajajaja.

Regards, saludos.

[joseluisysturiz]

Hasta donde yo sé, BLINK funciona solo en SAYS y lo mejor es SSAY.PRG y tenemos Dynamic SAYS con DSAY.PRG. Quizás el señor Rao haga un milagro. jajajajaja.

Regards, saludos.

Saludos Karinha, hay esta propuesta, no se si eso de píe a una solucion

viewtopic.php?f=6&t=32201&sid=a5a58954f196d6736da9800876fe7ea6#p204602

[karinha]

Hola, esto es un truco. No pertenece a xBrowse(), probablemente causará efectos secundarios y el efecto visual puede ser horrible para el usuario. Mejor esperar señor Rao.

Code: Select all  Expand view  RUN

   DEFINE TIMER oCLITimer OF oWnd INTERVAL 300 ACTION Blinking( oBrw )

   ACTIVATE TIMER oCLITimer


FUNCTION Blinking( oBrw )

   IF .NOT. oBrw:lFocused

      oBrw:nClrNFBack := iif( oBrw:nClrNFBack == oBrw:nClrBackFocus, oBrw:nClrBackFocus, CLR_BLACK )
      oBrw:nClrNFFore := iif( oBrw:nClrNFFore == oBrw:nClrBackFocus, CLR_BLACK, oBrw:nClrBackFocus )
      oBrw:Refresh()

   ENDIF

RETURN .T.
 

Regards, saludos.

[joseluisysturiz]

Hola, esto es un truco. No pertenece a xBrowse(), probablemente causará efectos secundarios y el efecto visual puede ser horrible para el usuario. Mejor esperar señor Rao.

Code: Select all  Expand view  RUN

   DEFINE TIMER oCLITimer OF oWnd INTERVAL 300 ACTION Blinking( oBrw )

   ACTIVATE TIMER oCLITimer


FUNCTION Blinking( oBrw )

   IF .NOT. oBrw:lFocused

      oBrw:nClrNFBack := iif( oBrw:nClrNFBack == oBrw:nClrBackFocus, oBrw:nClrBackFocus, CLR_BLACK )
      oBrw:nClrNFFore := iif( oBrw:nClrNFFore == oBrw:nClrBackFocus, CLR_BLACK, oBrw:nClrBackFocus )
      oBrw:Refresh()

   ENDIF

RETURN .T.
 

Regards, saludos.

Estoy de acuerdo contigo, pero igual voy a probarlo a ver como se ve... creo y espero Mr RAO, tenga una solucion mas eficaz... saludos, gracias...