FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour More xBrowse & 13.05 problem
Posts: 3022
Joined: Fri Oct 07, 2005 01:45 PM
More xBrowse & 13.05 problem
Posted: Wed Jun 12, 2013 11:55 PM

In the past, using the following syntax with an xBrowse, I can click on a header and reset the order of the index:

    add to oLbxcl header "Account" data oCli:acrnum ALIGN CENTER ORDER "eclnum" SIZE 120

Now, this capability which has been working for years no longer responds to the mouse click !

I just released an update to my clients not knowing about this. A quick fix would be GREATLY appreciated.

Tim

Tim Stone
http://www.MasterLinkSoftware.com
http://www.autoshopwriter.com
timstone@masterlinksoftware.com
Using: FWH 23.10 with Harbour 3.2.0 / Microsoft Visual Studio Community 2022-24 32/64 bit
Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM
Re: More xBrowse & 13.05 problem
Posted: Thu Jun 13, 2013 03:52 AM
Please apply this fix:
In xbrowse.prg, go to lines 5798. You will find this code:
Code (fw): Select all Collapse
   if ncOrder != nil
      oCol:cSortOrder := ncOrder
      if ::nDataType == DATATYPE_RDD .and. ! Empty( ::cAlias ) .and. SELECT( ::cAlias ) > 0

Please insert a new line
Code (fw): Select all Collapse
   ::lAutoSort   := .t.

after the line oCol:cSortOrder := ncOrder
The revised code should look like this:
Code (fw): Select all Collapse
   if ncOrder != nil
      oCol:cSortOrder := ncOrder
      ::lAutoSort     := .t.   // INSERTED NOW
      if ::nDataType == DATATYPE_RDD .and. ! Empty( ::cAlias ) .and. SELECT( ::cAlias ) > 0

Please let us know if the problem is fixed.
Regards



G. N. Rao.

Hyderabad, India

Continue the discussion