Type 1
oRep:lTitleColorized:=.t.
oRep:lDivideHeader:=.t.
type 2
oRep:lTitleColorized:=.t.
oRep:lDivideHeader:=.f.
#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
Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)
I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com