bold labels at run time
Hi All,
I have RB 7.0 and Delphi 7.0.
For some strange reason labels in the printpreview (run-time) are bold while
at design-time they are not.
Trying to set them in the StartPage event fails.
Any ideas why the labels are bold and how to 'reset' them?
Thanks in advance.
procedure TFReports.AC_ReportStartPage(Sender: TObject);
Var Component: TComponent;
TitleBand: TppTitleBand;
Counter: Integer;
begin
If AC_Report.AbsolutePageNo = 1
Then Begin
Component := FReports.FindComponent('ppTitleBand2');
If (Component <> Nil) and
(Component IS TppTitleBand)
Then Begin
TitleBand := Component AS TppTitleBand;
For Counter := 0 to TitleBand.ObjectCount-1 do
Begin
If TitleBand.Objects[Counter] IS TppLabel
Then Begin
(TitleBand.Objects[Counter] AS
TppLabel).Font.Style := [];
End;
End;
End;
End;
end;
I have RB 7.0 and Delphi 7.0.
For some strange reason labels in the printpreview (run-time) are bold while
at design-time they are not.
Trying to set them in the StartPage event fails.
Any ideas why the labels are bold and how to 'reset' them?
Thanks in advance.
procedure TFReports.AC_ReportStartPage(Sender: TObject);
Var Component: TComponent;
TitleBand: TppTitleBand;
Counter: Integer;
begin
If AC_Report.AbsolutePageNo = 1
Then Begin
Component := FReports.FindComponent('ppTitleBand2');
If (Component <> Nil) and
(Component IS TppTitleBand)
Then Begin
TitleBand := Component AS TppTitleBand;
For Counter := 0 to TitleBand.ObjectCount-1 do
Begin
If TitleBand.Objects[Counter] IS TppLabel
Then Begin
(TitleBand.Objects[Counter] AS
TppLabel).Font.Style := [];
End;
End;
End;
End;
end;
This discussion has been closed.
Comments
Does this behavior occur with every report you create and preview? Are the
labels bold when printing to paper? If so, I first suggest upgrading your
version of ReportBuilder to RB 7.04 and seeing if that solves the problem.
Contact info@digital-metaphors.com with your serial number and purchasing
email address for upgrade instructions.
Regards,
Nico Cizik
Digital Metaphors
http://www.digital-metaphors.com
Nico Cizik
Digital Metaphors
http://www.digital-metaphors.com