FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour BLINK EN CELDA/FILA XBROWSE - Mr RAO / ???
Posts: 2064
Joined: Fri Jan 06, 2006 09:28 PM
BLINK EN CELDA/FILA XBROWSE - Mr RAO / ???
Posted: Mon Aug 07, 2023 04:31 PM
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... :shock:
Dios no está muerto...



Gracias a mi Dios ante todo!
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: BLINK EN CELDA/FILA XBROWSE - Mr RAO / ???
Posted: Mon Aug 07, 2023 04:36 PM

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.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
Posts: 2064
Joined: Fri Jan 06, 2006 09:28 PM
Re: BLINK EN CELDA/FILA XBROWSE - Mr RAO / ???
Posted: Mon Aug 07, 2023 05:06 PM
karinha wrote: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

https://forums.fivetechsupport.com/viewtopic.php?f=6&t=32201&sid=a5a58954f196d6736da9800876fe7ea6#p204602
Dios no está muerto...



Gracias a mi Dios ante todo!
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: BLINK EN CELDA/FILA XBROWSE - Mr RAO / ???
Posted: Mon Aug 07, 2023 05:22 PM
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 (fw): Select all Collapse
   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.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
Posts: 2064
Joined: Fri Jan 06, 2006 09:28 PM
Re: BLINK EN CELDA/FILA XBROWSE - Mr RAO / ???
Posted: Mon Aug 07, 2023 06:01 PM
karinha wrote: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 (fw): Select all Collapse
   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... :shock:
Dios no está muerto...



Gracias a mi Dios ante todo!

Continue the discussion