Blinking current row in xBrowse

[fraxzi]

Hello!

How to blink or make it blinking the xbrowse current row on ::nMarqueeStyle := MARQSTYLE_HIGHLROWRC


Has any one with working code?

Thanks and regards,

[Rochinha]

Friend,

For me its work with tWBrowse:

Code: Select all  Expand view  RUN

...
   @ 0,0 LISTBOX oLbxP1 FIELDS "" HEADERS "" SIZE 200,nSplitH PIXEL OF oChildWnd
...
   DEFINE TIMER oCLITimer OF oWnd INTERVAL 300 ACTION Blinking( oLbxP1 )
   ACTIVATE TIMER oCLITimer

   ACTIVATE WINDOW oChildWnd MAXIMIZED
   return nil

Function Blinking( oBrw )
  oBrw:nClrNFBack := iif( oBrw:nClrNFBack==oBrow:nClrBackfocus, oBrow:nClrBackfocus, CLR_BLACK)
  oBrw:nClrNFFore := iif( oBrw:nClrNFFore==oBrow:nClrBackfocus, CLR_BLACK, oBrow:nClrBackfocus)
  oBrw:Refresh()
  return .t.
...


[fraxzi]

Hello Rochinha!


Finally! someone generously answer this question.

You are right! the timer is the only way... changing the row's background color in iteration... I'm inspired to do it in xBrowse.


Thank you so much for the guide.

Regards,

[Rochinha]

Good luck,

A little modification:

Code: Select all  Expand view  RUN

Function Blinking( oBrw )
  if ! 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.