diff options
| author | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2012-08-28 17:24:02 +0100 |
|---|---|---|
| committer | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2012-08-28 17:24:02 +0100 |
| commit | a467034e82c261d8ad5ea18c0394995ca0f85d96 (patch) | |
| tree | 9b9e8cceba1b97d4f9920e2222c2e1a24dcaabf4 /examples/gui/reporting | |
| parent | a929d0f465a989b6a3c098c241a99d82eadd914a (diff) | |
| download | fpGUI-a467034e82c261d8ad5ea18c0394995ca0f85d96.tar.xz | |
pdf demo: Temporary fixed a compiler warning about unused local variable.
Diffstat (limited to 'examples/gui/reporting')
| -rw-r--r-- | examples/gui/reporting/u_demo.pas | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/examples/gui/reporting/u_demo.pas b/examples/gui/reporting/u_demo.pas index 33db3a64..fe5dc342 100644 --- a/examples/gui/reporting/u_demo.pas +++ b/examples/gui/reporting/u_demo.pas @@ -1244,7 +1244,7 @@ end; procedure TF_Demo.PrintCadres(Preview: Boolean); var FtTitle, FtText: integer; - TsThin, TsNorm, TsThick: integer; + {TsThin,} TsNorm, TsThick: integer; IlTitle, IlText: integer; begin with FReport do @@ -1255,7 +1255,7 @@ begin FtTitle := Font('helvetica-15:bold', clBlack); FtText := Font('helvetica-8', clBlack); // create the style of lines to be used - TsThin := LineStyle(0.2, clBlack, lsSolid); +// TsThin := LineStyle(0.2, clRed, lsSolid); TsNorm := LineStyle(1, clBlack, lsSolid); TsThick := LineStyle(2, clBlack, lsSolid); // create line spacings to be used @@ -1268,7 +1268,7 @@ begin // write page number and total of pages on each page NumPageFooter(cnRight, lnEnd, 'Page', 'of', True, ColDefaut, FtText, IlText); // draw thin frame rectangle at margins - // FrameMargins(TsThin); +// FrameMargins(TsThin); // draw thick frame rectangle at header FrameHeader(TsThick); // draw thick frame rectangle at footer |