Effect Pjama on Treport ( from Xbrowse)
Posted: Sat Feb 22, 2025 7:55 pm
I wish make on Report alternate lines of record as I have on xbrowse
to make report from xbrowse I use this
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 } )
.....