[11.06+D6.03] Assigning font/color to a report programmatically

rbuser

This is a multi-part message in MIME format.

rbuser

I use this function, recurses SubReports......


procedure Tdm1.AssignFontToReport(aReport: TppCustomReport; aNewFont :
string);
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 is TppSubReport then
with lObject as TppSubReport do
begin
AssignFontToReport(report, aNewFont);
end;
if lObject.HasFont then
begin
lObject.Font.Name := aNewFont;
// lObject.Font.color := clBlack;
end;
end;
end;


Walter

rbuser

> I use this function, recurses SubReports......


thanks a lot, Walter, it works perfectly ! ^_^

Merry Xmas!
Max