topic-11460

fraxzi

Posts: 811

Joined: Tue May 06, 2008 04:28 AM

Blinking current row in xBrowse
Posted: Fri Jun 06, 2008 02: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,

Kind Regards,

Frances

Fivewin for xHarbour v18.07

xHarbour v1.2.3.x

BCC 7.3 + PellesC8 ( Resource Compiler only)

ADS 10.1 / MariaDB

Crystal Reports 8.5/9.23 DE

xMate v1.15

Rochinha

Posts: 310

Joined: Sun Jan 08, 2006 10:09 PM

Blinking current row in xBrowse
Posted: Sun Jun 08, 2008 10:35 PM

Friend,

For me its work with tWBrowse:

Code: Select all Collapse

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

@braços :?)
fivolution@hotmail.com
http://www.5VOLUTION.com.br

fraxzi

Posts: 811

Joined: Tue May 06, 2008 04:28 AM

Blinking current row in xBrowse
Posted: Mon Jun 09, 2008 02: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,

Kind Regards,

Frances

Fivewin for xHarbour v18.07

xHarbour v1.2.3.x

BCC 7.3 + PellesC8 ( Resource Compiler only)

ADS 10.1 / MariaDB

Crystal Reports 8.5/9.23 DE

xMate v1.15

Rochinha

Posts: 310

Joined: Sun Jan 08, 2006 10:09 PM

Blinking current row in xBrowse
Posted: Mon Jun 09, 2008 02:36 AM

Good luck,

A little modification:

Code: Select all Collapse

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.

@braços :?)
fivolution@hotmail.com
http://www.5VOLUTION.com.br

FiveTech Support Forums

Continue the discussion