Detail Band Font Color

rbuser

Hello,

Is it possible to change the font color of the entire detail band without
assigning to each item.

In the Detail BeforePrint event I would like to do something like:

begin
Section.Font.Color := clRed;
end;

Thanks,
Steve

nicocizik

Hi Steve,

It is not currently possible to change the font of each report component in
a band automatically. One option is to create a simple report object loop
that singles out a specific band and does the work for you.

----------------------------------------------
Tech Tip: Loop Thru All Objects in a Report
---------------------------------------------

A ReportBuilder report is composed of a set
of components. The basic structure is

Reports.Bands[].Objects[]

The bands and objects within the report can
be accessed directly by object name or
via the Bands and Objects array properties.

Below is an example of using the Bands and
Objects array properties to change the font for
all objects on a report.


uses
ppClass;


procedure AssignFontToReport(aFont: TFont; aReport: TppCustomReport);
var
liBand: Integer;
liObject: Integer;
lObject: TppComponent;

begin

for liBand := 0 to aReport.BandCount-1 do

for liObject := 0 to aReport.Bands[liBand].ObjectCount-1 do
begin
lObject := aReport.Bands[liBand].Objects[liObject];

if lObject.HasFont then
lObject.Font := aFont;

end;

end;


--
Regards,

Nico Cizik
Digital Metaphors
http://www.digital-metaphors.com