colorized retport header

[Silvio.Falconi]

How I can colorize the header with Hgray color ?

[FranciscoA]

Hi.
Take a look at this (FW1204). Maybe can help you.
viewtopic.php?f=6&t=24339&start=0&hilit=vistosidad
Regards.

[Silvio.Falconi]

I wish use standard Fwh Report class ( for future support)

[nageswaragunupudi]

Code: Select all  Expand view

#include "fivewin.ch"
#include "report.ch"

function Main()

   local oRep, oFont, oBold, oCol

   USE CUSTOMER NEW SHARED
   SET FILTER TO RECNO() <= 20
   GO TOP

   DEFINE FONT oFont NAME "TAHOMA"  SIZE 0,-12
   DEFINE FONT oBold NAME "VERDANA" SIZE 0,-13 BOLD

   REPORT oRep PREVIEW FONT oFont, oBold

   oRep:aClrText[ 1 ] := CLR_BLACK
   oRep:aClrText[ 2 ] := CLR_HRED

   COLUMN oCol TITLE "NAME" DATA FIELD->FIRST FONT 1
   oCol:bTitleFont   := { || 2 }

   COLUMN oCol TITLE "CITY" DATA FIELD->CITY  FONT 1
   oCol:bTitleFont   := { || 2 }

   ENDREPORT

   ACTIVATE REPORT oRep

   RELEASE FONT oFont, oBold

return nil
 

[Silvio.Falconi]

Some modifies Report class

Perhaps we can adopt the next release

I sent all to Antonio and Nages

[Silvio.Falconi]

Type 1

oRep:lTitleColorized:=.t.
oRep:lDivideHeader:=.t.



type 2

oRep:lTitleColorized:=.t.
oRep:lDivideHeader:=.f.

Code: Select all  Expand view

#include "fivewin.ch"
#include "report.ch"

function Main()

   local oRep, oFont, oBold, oCol

   USE CUSTOMER NEW SHARED
   SET FILTER TO RECNO() <= 20
   GO TOP

   DEFINE FONT oFont NAME "TAHOMA"  SIZE 0,-12
   DEFINE FONT oBold NAME "VERDANA" SIZE 0,-13 BOLD

   REPORT oRep PREVIEW FONT oFont, oBold

   oRep:aClrText[ 1 ] := CLR_BLACK
   oRep:aClrText[ 2 ] := CLR_HRED

   oRep:lTitleColorized:=.t.
   // oRep:nClrTitle :=CLR_BLUE
   oRep:lDivideHeader:=.f.




   COLUMN oCol TITLE "NAME" DATA FIELD->FIRST FONT 1
   oCol:bTitleFont   := { || 2 }

   COLUMN oCol TITLE "CITY" DATA FIELD->CITY  FONT 1
   oCol:bTitleFont   := { || 2 }

   ENDREPORT

   ACTIVATE REPORT oRep

   RELEASE FONT oFont, oBold

return nil
 

add also

oRep:lRoundTitle:=.t. to roundbox
oRep:lBoxTitle:=.f. or only box/ fill


I sent all new methods to Antonio and Nages

[nageswaragunupudi]

nice

[Silvio.Falconi]

perhaps we can add it on Group and total but I not tried