diff options
Diffstat (limited to 'extras/contributed/report_tool/demo/u_demo.pas')
| -rw-r--r-- | extras/contributed/report_tool/demo/u_demo.pas | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/extras/contributed/report_tool/demo/u_demo.pas b/extras/contributed/report_tool/demo/u_demo.pas index 520a3abd..424cd574 100644 --- a/extras/contributed/report_tool/demo/u_demo.pas +++ b/extras/contributed/report_tool/demo/u_demo.pas @@ -1130,7 +1130,7 @@ end; procedure TF_Demo.PrintMultiSections(Preview: Boolean); var - FtTitleS1,FtTitleS2,FtTitleS3,FtText,FtNum,FtNumS: Integer; + FtTitleS1,FtTitleS2,FtTitleS3,FtNum,FtNumS: Integer; Cpt: Integer; begin with FReport do @@ -1141,7 +1141,6 @@ with FReport do FtTitleS1:= Font('helvetica-15:bold',clBlack); FtTitleS2:= Font('helvetica-14:italic',clBlack); FtTitleS3:= Font('helvetica-12:bold:italic',clBlack); - FtText:= Font('helvetica-8',clBlack); FtNum:= Font('helvetica-7:italic',clBlack); FtNumS:= Font('helvetica-7:italic',clGray); // create a new section and define the margins @@ -1194,7 +1193,7 @@ end; procedure TF_Demo.PrintOutlines(Preview: Boolean); var - FtTitleS1,FtTitleS2,FtTitleS3,FtText,FtNum,FtNumS: Integer; + FtTitleS1,FtTitleS2,FtTitleS3,FtNum,FtNumS: Integer; Cpt: Integer; begin with FReport do @@ -1205,7 +1204,6 @@ with FReport do FtTitleS1:= Font('helvetica-15:bold',clBlack); FtTitleS2:= Font('helvetica-14:italic',clBlack); FtTitleS3:= Font('helvetica-12:bold:italic',clBlack); - FtText:= Font('helvetica-8',clBlack); FtNum:= Font('helvetica-7:italic',clBlack); FtNumS:= Font('helvetica-7:italic',clGray); // create a new section and define the margins |