oBrw:report() ... control fonts

[Silvio.Falconi]

oRep:aFont already has two fonts built by the browse object

oRep:aFont[ 1 ] is Tahoma size 0,-8
oRep:aFont[ 2 ] is Tahoma size 0,-8 bold

I need to have another font

I made

oFontCopy := TFont():New("TAHOMA",0,-108,.F.,,180,,,,,,,,,,oRep:oDevice) //to print a text nscapment

aadd(oRep:aFont, oFontCopy)

then

oRep:bStartPage := { || oRep:Say(10, cTextCopy, 3,2,1450) }


why not run ?

the error

Code: Select all | Expand

 Error description: Error BASE/1132  Bound error: array access
   Args:
     [   1] = A   {0,0} length: 2
     [   2] = N   3

Stack Calls
===========
   Called from: Lib\report.prg => TREPORT:SAY( 528 )

let say me there are only two element of array aFont but I need N 3

but on aFont there are 3 element ( xbrowse(oRep:afont) )



How I can resolve ?