FiveTech Software tech support forums

Posted: **Fri Jun 06, 2008 2:20 pm**

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,

Posted: **Sun Jun 08, 2008 10:35 pm**

Friend,

For me its work with tWBrowse:

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

Posted: **Mon Jun 09, 2008 2:20 am**

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,

Posted: **Mon Jun 09, 2008 2:36 am**

Good luck,

A little modification:

Code: Select all

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.

FiveTech Software tech support forums

Blinking current row in xBrowse

Blinking current row in xBrowse