Report class : colorize rows RESOLVED

[Silvio.Falconi]

how to simulate the pajama effect in oReport printing?

I allready tried this

ACTIVATE REPORT oReport ON STARTLINE AEval( oReport:aColumns, { | o | o:lShadow := ! o:lShadow } )

but not run

I mean one line yes and one no, not all rows

[karinha]

Code: Select all  Expand view  RUN

// C:\FWH..\SAMPLES\PIJAMA3.PRG

// http://forums.fivetechsupport.com/viewt ... 3e#p221399

#Include "FiveWin.ch"

FUNCTION PrintZebra()

   LOCAL oPrn, oFont, oBrushColor, oBrush, nRow

   USE STATES
   GO TOP

   PRINT oPrn PREVIEW

   DEFINE FONT oFont NAME "TAHOMA" SIZE 0, -14 OF oPrn
   DEFINE BRUSH oBrushColor COLOR CLR_HGRAY

   PAGE

   nRow := 0.5

   @ nRow, 1.0 PRINT TO oPrn TEXT "EFECTO PIJAMA" SIZE 3.0, 0.3 INCHES ;
      ALIGN "T" FONT oFont COLOR CLR_BLACK, oBrush

   nRow := 1.0

   WHILE STATES->( RECNO() ) < 15 .AND. .NOT. STATES->( EOF() )

      SYSREFRESH()

      @ nRow, 1.0 PRINT TO oPrn TEXT STATES->CODE SIZE 1.0, 0.3 INCHES ;
         ALIGN "L" FONT oFont COLOR CLR_BLACK, oBrush

      @ nRow, 2.0 PRINT TO oPrn TEXT STATES->NAME SIZE 3.0, 0.3 INCHES ;
         ALIGN "L" FONT oFont COLOR CLR_BLACK, oBrush

      nRow += 0.3

      oBrush := IF( oBrush == NIL, oBrushColor, NIL )

      STATES->( DbSkip( 1 ) )

   ENDDO

   ENDPAGE
   ENDPRINT

   RELEASE FONT oFont
   RELEASE BRUSH oBrushColor

RETURN NIL

/*
cAlign:
"TL" : TopLeft
"TR" : TopRight
"T"  : Top Center
"BL" : Bottom Left
"BR" : Bottom Right
"B"  : Bottom Center
"L"  : Left Vert Center
"R"  : Right Vert Center
*/
 
// FIN / END
 

Regards, saludos.

[Silvio.Falconi]

Please I asked. "With Report Class". Not with printer class

[karinha]

Please I asked. "With Report Class". Not with printer class

https://forums.fivetechsupport.com/viewtopic.php?f=6&t=42461&sid=fe44a9df5dc81bf7abb999bb7face9a9

Regards, saludos.

[Silvio.Falconi]

I saw It
Not run!!

[karinha]

Really, the example of Liñares does not work.

https://www.tek-tips.com/viewthread.cfm?qid=197908

Code: Select all  Expand view  RUN

ACTIVATE REPORT ::oReport WHILE !::oPrenota:eof() ;
   ON STARTLINE ::oReport:aColumns[ 3 ]:lShadow:= ! Empty( ::oPrenota:DATAPAYED )
 

Regards, saludos.

[Silvio.Falconi]

Really, the example of Liñares does not work.

https://www.tek-tips.com/viewthread.cfm?qid=197908

Code: Select all  Expand view  RUN

ACTIVATE REPORT ::oReport WHILE !::oPrenota:eof() ;
   ON STARTLINE ::oReport:aColumns[ 3 ]:lShadow:= ! Empty( ::oPrenota:DATAPAYED )
 

Regards, saludos.

if you make shadow it can also run ok

I ask zebra effect with Treport

[Silvio.Falconi]

resolved!!
thanks to a guardian angel .... who helps me