Effect Pjama on Treport ( from Xbrowse)

[Silvio.Falconi]

I wish make on Report alternate lines of record as I have on xbrowse




to make report from xbrowse I use this

Code: Select all | Expand

 oBrw:Report( cTitle, , , ;
         { |oRep, oBrw| MySetUp( oRep, oBrw, oDbf,aGroup,nGroup,lEject,aCampi ) } )

Code: Select all | Expand

 
  function MySetUp( oRep, oBrw, oDbf,aGroup,nGroup,lEject,afields )
 ...
 
 oRep:oShdBrush := TBrush():New(,nRgb(219,229,241))
   oRep:bskip := { || IF(oRep:nCounter % 2 =0 , oRep:lShadow :=.F.,oRep:lShadow :=.T.) }
         AEval( oRep:aColumns, { | o | o:lShadow := ! o:lShadow } )
         
         
         .....