FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour xbrowse codeblock after every action
Posts: 392
Joined: Tue Mar 10, 2009 11:54 AM
xbrowse codeblock after every action
Posted: Mon Jun 20, 2011 02:14 PM

searching for a xbrowse codeblock, which triggers after every action, respectively changing the focus from one row to another one?

Still exist, or how can I define an UDF which will be triggered when focus changed to another row?

Windows 11 Pro 22H2 22621.1848

Microsoft (R) Windows (R) Resource Compiler Version 10.0.10011.16384

Harbour 3.2.0dev (r2008190002)

FWH 23.10 x86
Posts: 1088
Joined: Fri Oct 07, 2005 03:33 PM
Re: xbrowse codeblock after every action
Posted: Mon Jun 20, 2011 07:00 PM

Hola,

did you try with bchange?

regards

Marcelo

Posts: 4840
Joined: Fri Nov 18, 2005 04:52 PM
Re: xbrowse codeblock after every action
Posted: Mon Jun 20, 2011 11:43 PM
I concur with Marcelo, bChange seems to be what you need. The Change() method is called from the GoUp(), GoDown(), GoLeft() and GoRight() methods. If you don't want bChange triggered when moving to another column, then check the value of lRow, it will be .F. when moving to a new column and .T. when moving to a new row.

Code (fw): Select all Collapse
METHOD Change( lRow ) CLASS TXBrowse

   if ::bChange != nil

      DEFAULT lRow := .t.

      if lRow .or. ::lColChangeNotify
         Eval( ::bChange, Self, lRow )
      endif

   endif

return nil


Regards,
James
FWH 18.05/xHarbour 1.2.3/BCC7/Windows 10
Posts: 392
Joined: Tue Mar 10, 2009 11:54 AM
Re: xbrowse codeblock after every action
Posted: Tue Jun 21, 2011 06:59 AM

Marcelo, James,

yes, that's what I'm looking for! Thank you so much :D

Windows 11 Pro 22H2 22621.1848

Microsoft (R) Windows (R) Resource Compiler Version 10.0.10011.16384

Harbour 3.2.0dev (r2008190002)

FWH 23.10 x86

Continue the discussion