Application
===========
Path and name: C:\Work\Errori\TEST_FLD\TEST.Exe (32 bits)
Size: 1,820,160 bytes
Compiler version: xHarbour build 1.2.1 Intl. (SimpLex) (Rev. 6715)
FiveWin Version: FWHX 12.03
Windows version: 6.1, Build 7600
Time from start: 0 hours 0 mins 0 secs
Error occurred at: 02/10/13, 23:03:27
Error description: Error BASE/1132 Bound error: array access
Args:
[ 1] = A { ... }
[ 2] = N 1
Stack Calls
===========
Called from: .\source\classes\TFOLDEX.PRG => TFOLDEREX:DEFAULT( 753 )
Called from: .\source\classes\TFOLDEX.PRG => TFOLDEREX:INITIATE( 975 )
Called from: => __OBJSENDMSG( 0 )
Called from: => HB_EXECFROMARRAY( 0 )
Called from: .\source\function\HARBOUR.PRG => OSEND( 219 )
Called from: => HB_EXECFROMARRAY( 0 )
Called from: .\source\function\HARBOUR.PRG => ASEND( 197 )
Called from: .\source\classes\DIALOG.PRG => TDIALOG:INITIATE( 630 )
Called from: .\source\classes\DIALOG.PRG => TDIALOG:HANDLEEVENT( 870 )
Called from: => DIALOGBOXINDIRECT( 0 )
Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE( 270 )
Called from: TEST.PRG => TEST( 45 )
If I change the last FolderEx control into normal Folder th e test run ok
the test
- Code: Select all Expand view
#include "FiveWin.ch"
#define LIGHTCYAN nRGB( 203, 225, 252 )
Function Test()
Local oDlg
Local oFld[3]
Local oFnt,oFnt1
DEFINE FONT oFnt1 NAME "Verdana" SIZE 0, -12
DEFINE DIALOG oDlg ;
TITLE "test folderex" ;
GRADIENT { { 1,CLR_WHITE, LIGHTCYAN } } ;
SIZE 720, 700 PIXEL ;
FONT oFnt1 ;
TRANSPARENT
@ 3, 4 FOLDEREX oFld[1] PIXEL ;
ITEMS "&Billing","Shipping";
SIZE 120,100
@ 3, 270 FOLDEREX oFld[2] PIXEL ;
ITEMS "&Invoice";
SIZE 150,100
@ 234, 4 FOLDEREX oFld[3] PIXEL ;
ITEMS "&Comments","Private comments";
SIZE 100,30
ACTIVATE DIALOG oDlg CENTERED
RETURN NIL
