- Code: Select all Expand view
- #include "Fivewin.ch"
FUNCTION MAIN()
LOCAL oWnd
DEFINE WINDOW oWnd
ACTIVATE WINDOW oWnd;
ON INIT TEST()
RETURN NIL
STATIC FUNCTION TEST()
LOCAL oPrn, oGraph
PRNLANDSCAPE()
PRINT oPrn NAME "Test" PREVIEW
PAGE
oGraph = TGraph():New()
oGraph:lXGrid = .T.
oGraph:lYGrid = .T.
oGraph:lDotted = .F.
oGraph:lTitle = .T.
oGraph:lLegends = .F.
oGraph:cTitle = "TEST"
oGraph:nBarSep = 100
oGraph:lxVal = .T.
oGraph:lViewVal = .T.
oGraph:cTitX = "TESTX"
oGraph:cTitY = "TESTY"
oGraph:aSeries = { { "", RGB( 109, 177, 124 ), 1, .F. } }
oGraph:aYVals = {}
oGraph:aData = { {} }
AADD( oGraph:aYVals, "2016" )
AADD( oGraph:aData[ 1 ], 100 )
oGraph:Print( oPrn, 5 * oPrn:nVertRes() / 66, 5 * oPrn:nHorzRes() / 80, 70 * oPrn:nHorzRes() / 80, 56 * oPrn:nVertRes() / 66 )
ENDPAGE
ENDPRINT
PRNPORTRAIT()
RETURN NIL
I get the following error:
- Code: Select all Expand view
- Application
===========
Path and name: E:\FWXHARB\PEPPE.EXE (32 bits)
Size: 3,106,816 bytes
Compiler version: xHarbour 1.2.3 Intl. (SimpLex) (Build 20160815)
FiveWin Version: FWHX 16.06
Windows version: 6.2, Build 9200
Time from start: 0 hours 0 mins 0 secs
Error occurred at: 09/26/16, 15:05:55
Error description: Error BASE/1132 Bound error: array access
Args:
[ 1] = A { ... } length: 1
[ 2] = N 2
Stack Calls
===========
Called from: .\source\classes\TGRAPH.PRG => TGRAPH:PAINT( 1054 )
Called from: .\source\classes\TGRAPH.PRG => (b)TGRAPH:TGRAPH( 116 )
Called from: => TGRAPH:DISPLAY( 0 )
Called from: .\source\classes\CONTROL.PRG => TGRAPH:HANDLEEVENT( 1697 )
Called from: .\source\classes\WINDOW.PRG => _FWH( 3305 )
Called from: => DIALOGBOXINDIRECT( 0 )
Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE( 296 )
Called from: .\source\function\ERRSYSW.PRG => ERRORDIALOG( 421 )
Called from: .\source\function\ERRSYSW.PRG => (b)ERRORSYS( 23 )
Called from: .\source\classes\TGRAPH.PRG => TGRAPH:PAINT( 1054 )
Called from: .\source\classes\TGRAPH.PRG => TGRAPH:PRINT( 1782 )
Called from: PEPPE.prg => TEST( 51 )
Called from: PEPPE.prg => (b)MAIN( 11 )
Called from: .\source\classes\WINDOW.PRG => TWINDOW:ACTIVATE( 1028 )
Called from: PEPPE.prg => MAIN( 11 )
Changing
oGraph:lViewVal = .T.
to
oGraph:lViewVal = .F.
the error goes away.
Any suggestion?
EMG