FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour Explorerbar error using redefine
Posts: 663
Joined: Mon Dec 05, 2005 11:22 PM
Explorerbar error using redefine
Posted: Thu Jul 21, 2011 02:38 PM
Using samples\explbar2.prg I get the following error.
Application
===========
Path and name: C:\FWH\samples\explbar2.exe (32 bits)
Size: 1,820,672 bytes
Time from start: 0 hours 0 mins 0 secs
Error occurred at: 07/21/11, 09:33:38
Error description: Error BASE/1081 Argument error: +
Args:
[ 1] = N 92
[ 2] = U

Stack Calls
===========
Called from: .\source\classes\TEXPLBAR.PRG => TEXPLORERBAR:CHECKSCROLL(147)
Called from: .\source\classes\TEXPLBAR.PRG => TEXPLORERBAR:ADDPANEL(133)
Called from: explbar2.prg => EXPLBARINIT(25)
Called from: explbar2.prg => (b)MAIN(14)
Called from: .\source\classes\DIALOG.PRG => TDIALOG:INITIATE(720)
Called from: .\source\classes\DIALOG.PRG => TDIALOG:HANDLEEVENT(931)
Called from: => DIALOGBOX(0)
Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE(277)
Called from: explbar2.prg => MAIN(14)


It seems that in texplbar.prg the redefine method is missing the initialization of ::nVirtualTop
After adding ::nVirtualTop := 0 to the redefine method the sample works.
Are there other things that need to be added so there are no gotchas later?
Posts: 663
Joined: Mon Dec 05, 2005 11:22 PM
Re: Explorerbar error using redefine
Posted: Thu Jul 28, 2011 07:02 PM

Will this fix be in the next release?

Continue the discussion