diff options
| author | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2012-05-23 12:14:00 +0200 |
|---|---|---|
| committer | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2012-07-31 09:54:03 +0100 |
| commit | c1d8a0f6f0f04266bf09914df405bc7b56f11428 (patch) | |
| tree | fd9716a05291d27e026016aa47b2f99804ec2242 | |
| parent | 2d406de0b0072b3ec0775675a4d8a3f269ec8cea (diff) | |
| download | fpGUI-c1d8a0f6f0f04266bf09914df405bc7b56f11428.tar.xz | |
pdf demo: extended demo output to mention the position in mm.
| -rw-r--r-- | extras/contributed/report_tool/demo/u_demo.pas | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/extras/contributed/report_tool/demo/u_demo.pas b/extras/contributed/report_tool/demo/u_demo.pas index 41cc5d16..4e13fcf1 100644 --- a/extras/contributed/report_tool/demo/u_demo.pas +++ b/extras/contributed/report_tool/demo/u_demo.pas @@ -1088,13 +1088,13 @@ with FReport do // write the text at position 100 mm from left and 120 mm from top WritePage(100,120,'Big text at absolute position',-1,FtText1); // write the text aligned to left - WritePage(cnLeft,50,'Text aligned to left',ColDefaut,FtText2); + WritePage(cnLeft,50,'Text aligned to left (50mm from the top)',ColDefaut,FtText2); // write the text aligned to right - WritePage(cnRight,75,'Text aligned to right',ColDefaut,FtText3); + WritePage(cnRight,75,'Text aligned to right (75mm from the top)',ColDefaut,FtText3); // write the text aligned to center - WritePage(cnCenter,100,'Text aligned to center',ColDefaut,FtText2); + WritePage(cnCenter,100,'Text aligned to center(100mm from the top)',ColDefaut,FtText2); // write a long text in the default column - WritePage(cnLeft,150,'This long text is supposed to be written on two lines in ColDefaut (and does include parenthesis). If it does not, there is abviously a remaining bug in the way wrapping is performed.',ColDefaut,FtText2); + WritePage(cnLeft,150,'This long text is supposed to be written on two lines in ColDefaut (and does include parenthesis). If it does not, there is obviously a remaining bug in the way wrapping is performed.',ColDefaut,FtText2); // write a long text without columns WritePage(50,200,'This long text is supposed to be written on two lines whithout column (and does include parenthesis). If it does not, there is abviously a remaining bug in the way wrapping is performed.',-1,FtText2); // preparation is finished, so create PDF objects |