\fwh\samples\testxbr3 generates RTE with 9.04

Posts: 1096

Joined: Fri Oct 28, 2005 02:27 AM

\fwh\samples\testxbr3 generates RTE with 9.04

Posted: Sat Apr 11, 2009 05:03 AM

After compiling \samples\testxbr3 with 9.04, attemp to run any of the option produces run-time error as follows:

Error description: Error BASE/1132 Bound error: array access
Args:
[ 1] = A { ... }
[ 2] = N 6

Stack Calls
===========
Called from: .\source\classes\XBROWSE.PRG => TXBRWCOLUMN:PAINTHEADER(7081)
Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:PAINT(1143)
Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:DISPLAY(933)
Called from: .\source\classes\CONTROL.PRG => TXBROWSE:HANDLEEVENT(1423)
Called from: .\source\classes\WINDOW.PRG => _FWH(3333)
Called from: => SYSREFRESH(0)
Called from: .\source\classes\DIALOG.PRG => TDIALOG:END(530)
Called from: .\source\function\ERRSYSW.PRG => (b)ERRORDIALOG(326)
Called from: .\source\classes\BUTTON.PRG => TBUTTON:CLICK(176)
Called from: .\source\classes\CONTROL.PRG => TBUTTON:HANDLEEVENT(1411)
Called from: .\source\classes\WINDOW.PRG => _FWH(3333)
Called from: => SENDMESSAGE(0)
Called from: .\source\classes\DIALOG.PRG => TDIALOG:COMMAND(407)
Called from: => TWINDOW:HANDLEEVENT(0)
Called from: .\source\classes\DIALOG.PRG => TDIALOG:HANDLEEVENT(928)
Called from: => DIALOGBOXINDIRECT(0)
Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE(273)
Called from: .\source\function\ERRSYSW.PRG => ERRORDIALOG(343)
Called from: .\source\function\ERRSYSW.PRG => (b)ERRORSYS(27)
Called from: .\source\classes\XBROWSE.PRG => TXBRWCOLUMN:PAINTHEADER(7081)
Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:PAINT(1143)
Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:DISPLAY(933)
Called from: .\source\classes\CONTROL.PRG => TXBROWSE:HANDLEEVENT(1423)
Called from: .\source\classes\WINDOW.PRG => _FWH(3333)
Called from: => DIALOGBOX(0)
Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE(273)
Called from: testxbr3.prg => RDDBRWRES(715)
Called from: testxbr3.prg => (b)MAINMENU(117)
Called from: .\source\classes\MENU.PRG => TMENU:COMMAND(437)
Called from: .\source\classes\WINDOW.PRG => TWINDOW:COMMAND(1003)
Called from: .\source\classes\MDIFRAME.PRG => TMDIFRAME:COMMAND(241)
Called from: => TMDIFRAME:HANDLEEVENT(0)
Called from: .\source\classes\WINDOW.PRG => _FWH(3333)
Called from: => WINRUN(0)
Called from: .\source\classes\WINDOW.PRG => TMDIFRAME:ACTIVATE(952)
Called from: testxbr3.prg => MAIN(42)

FWH 11.08/FWH 19.12

BCC5.82/BCC7.3

xHarbour/Harbour

nageswaragunupudi

Posts: 10733

Joined: Sun Nov 19, 2006 05:22 AM

Re: \fwh\samples\testxbr3 generates RTE with 9.04

Posted: Sat Apr 11, 2009 07:57 AM

Please make the following change in XBrowse.Prg

Present lines 548 to 551 are:

Code (fw): Select all Collapse

   hBmp        := FWBmpAsc()
   AAdd( ::aSortBmp, { hBmp, 0, nBmpWidth( hBmp ), nBmpHeight( hBmp ), nil } )
   hBmp        := FWBmpDes()
   AAdd( ::aSortBmp, { hBmp, 0, nBmpWidth( hBmp ), nBmpHeight( hBmp ), nil } )

Please substitute the following lines

Code (fw): Select all Collapse

   hBmp        := FWBmpAsc()
   AAdd( ::aSortBmp, { hBmp, 0, nBmpWidth( hBmp ), nBmpHeight( hBmp ), nil, .f. } )
   hBmp        := FWBmpDes()
   AAdd( ::aSortBmp, { hBmp, 0, nBmpWidth( hBmp ), nBmpHeight( hBmp ), nil, .f. } )

With this small fix, it works.

Mr Antonio. Kindly consider including this fix.

Regards

G. N. Rao.

Hyderabad, India

Antonio Linares

Posts: 44162