diff options
| author | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2012-07-31 09:58:29 +0100 |
|---|---|---|
| committer | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2012-07-31 09:58:29 +0100 |
| commit | 0e32a26c5070af35905bc5ad8b7dcdb448a08c2e (patch) | |
| tree | 575cbdbb2a6de8ce19280191a3c2abc411d7e219 /extras/contributed | |
| parent | c1f841cf9a45ad01e80195806fd4c0739d5180a5 (diff) | |
| download | fpGUI-0e32a26c5070af35905bc5ad8b7dcdb448a08c2e.tar.xz | |
pdf: fixes compiler hints about unused local variables.
Diffstat (limited to 'extras/contributed')
| -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 |