This shows you the differences between the selected revision and the current version of the page.
| alignment 2007/08/21 20:15 | alignment 2007/08/23 15:50 current | ||
|---|---|---|---|
| Line 1: | Line 1: | ||
| A simple alignment example: | A simple alignment example: | ||
| - | #!/usr/bin/perl | + | <code perl> |
| - | + | ||
| - | use PDF::API2::Simple; | + | #!/usr/bin/perl |
| - | + | ||
| - | my $pdf = PDF::API2::Simple->new( | + | use PDF::API2::Simple; |
| - | file => '06_alignment.pdf' | + | |
| - | ); | + | my $pdf = PDF::API2::Simple->new( |
| - | + | file => '06_alignment.pdf' | |
| - | $pdf->add_font('Verdana'); | + | ); |
| - | $pdf->add_page(); | + | |
| - | + | $pdf->add_font('Verdana'); | |
| - | # left align | + | $pdf->add_page(); |
| - | { | + | |
| - | my $y = $pdf->height - 50; | + | # left align |
| - | + | { | |
| - | # autoflow off | + | my $y = $pdf->height - 50; |
| - | $pdf->text( 'Please align me left', | + | |
| - | x => $pdf->margin_left, | + | # autoflow off |
| - | y => $y, | + | $pdf->text( 'Please align me left', |
| - | align => 'left', | + | x => $pdf->margin_left, |
| - | autoflow => 'off' | + | y => $y, |
| - | ); | + | align => 'left', |
| - | + | autoflow => 'off' | |
| - | # autoflow on | + | ); |
| - | $y -= 50; | + | |
| - | $pdf->text( 'Please align me left, Please align me left. Please align me left, Please align me left. Please align me left, Please align me left. ' | + | # autoflow on |
| - | . 'Please align me left, Please align me left. Please align me left, Please align me left. Please align me left, Please align me left. ' | + | $y -= 50; |
| - | . 'Please align me left, Please align me left. Please align me left, Please align me left. Please align me left, Please align me left. ' | + | $pdf->text( 'Please align me left, Please align me left. Please align me left, Please align me left. Please align me left, Please align me left. ' |
| - | . 'Please align me left, Please align me left. Please align me left, Please align me left. Please align me left, Please align me left.', | + | . 'Please align me left, Please align me left. Please align me left, Please align me left. Please align me left, Please align me left. ' |
| - | x => $pdf->margin_left, | + | . 'Please align me left, Please align me left. Please align me left, Please align me left. Please align me left, Please align me left. ' |
| - | y => $y, | + | . 'Please align me left, Please align me left. Please align me left, Please align me left. Please align me left, Please align me left.', |
| - | align => 'left', | + | x => $pdf->margin_left, |
| - | autoflow => 'on' | + | y => $y, |
| - | ); | + | align => 'left', |
| - | + | autoflow => 'on' | |
| - | $y -= 150; | + | ); |
| - | $pdf->text( 'Please align me left, Please align me left. Please align me left, Please align me left. Please align me left, Please align me left. ' | + | |
| - | . 'Please align me left, Please align me left. Please align me left, Please align me left. Please align me left, Please align me left. ' | + | $y -= 150; |
| - | . 'Please align me left, Please align me left. Please align me left, Please align me left. Please align me left, Please align me left.', | + | $pdf->text( 'Please align me left, Please align me left. Please align me left, Please align me left. Please align me left, Please align me left. ' |
| - | x => $pdf->margin_left + 100, | + | . 'Please align me left, Please align me left. Please align me left, Please align me left. Please align me left, Please align me left. ' |
| - | y => $y, | + | . 'Please align me left, Please align me left. Please align me left, Please align me left. Please align me left, Please align me left.', |
| - | align => 'left', | + | x => $pdf->margin_left + 100, |
| - | autoflow => 'on' | + | y => $y, |
| - | ); | + | align => 'left', |
| - | + | autoflow => 'on' | |
| - | $y -= 150; | + | ); |
| - | $pdf->text( 'Please align me left, Please align me left. Please align me left, Please align me left. Please align me left, Please align me left. ' | + | |
| - | . 'Please align me left, Please align me left. Please align me left, Please align me left. Please align me left, Please align me left.', | + | $y -= 150; |
| - | x => $pdf->margin_left + 50, | + | $pdf->text( 'Please align me left, Please align me left. Please align me left, Please align me left. Please align me left, Please align me left. ' |
| - | y => $y, | + | . 'Please align me left, Please align me left. Please align me left, Please align me left. Please align me left, Please align me left.', |
| - | align => 'left', | + | x => $pdf->margin_left + 50, |
| - | autoflow => 'on' | + | y => $y, |
| - | ); | + | align => 'left', |
| - | } | + | autoflow => 'on' |
| - | + | ); | |
| - | $pdf->add_page(); | + | } |
| - | + | ||
| - | # center align | + | $pdf->add_page(); |
| - | { | + | |
| - | my $y = $pdf->height - 50; | + | # center align |
| - | my $x = ($pdf->width / 2); | + | { |
| - | + | my $y = $pdf->height - 50; | |
| - | # autoflow off | + | my $x = ($pdf->width / 2); |
| - | $pdf->text( 'Please align me center', | + | |
| - | x => $x, | + | # autoflow off |
| - | y => $y, | + | $pdf->text( 'Please align me center', |
| - | align => 'center', | + | x => $x, |
| - | autoflow => 'off' | + | y => $y, |
| - | ); | + | align => 'center', |
| - | + | autoflow => 'off' | |
| - | # autoflow on | + | ); |
| - | $y -= 50; | + | |
| - | $pdf->text( 'Please align me center, Please align me center. Please align me center, Please align me center. Please align me center, Please align me center.' | + | # autoflow on |
| - | . 'Please align me center, Please align me center. Please align me center, Please align me center. Please align me center, Please align me center.' | + | $y -= 50; |
| - | . 'Please align me center, Please align me center. Please align me center, Please align me center. Please align me center, Please align me center.' | + | $pdf->text( 'Please align me center, Please align me center. Please align me center, Please align me center. Please align me center, Please align me center.' |
| - | . 'Please align me center, Please align me center. Please align me center, Please align me center. Please align me center, Please align me center.', | + | . 'Please align me center, Please align me center. Please align me center, Please align me center. Please align me center, Please align me center.' |
| - | x => $x, | + | . 'Please align me center, Please align me center. Please align me center, Please align me center. Please align me center, Please align me center.' |
| - | y => $y, | + | . 'Please align me center, Please align me center. Please align me center, Please align me center. Please align me center, Please align me center.', |
| - | align => 'center', | + | x => $x, |
| - | autoflow => 'on' | + | y => $y, |
| - | ); | + | align => 'center', |
| - | + | autoflow => 'on' | |
| - | $y -= 150; | + | ); |
| - | $pdf->text( 'Please align me center, Please align me center. Please align me center, Please align me center. Please align me center, Please align me center.' | + | |
| - | . 'Please align me center, Please align me center. Please align me center, Please align me center. Please align me center, Please align me center.' | + | $y -= 150; |
| - | . 'Please align me center, Please align me center. Please align me center, Please align me center. Please align me center, Please align me center.', | + | $pdf->text( 'Please align me center, Please align me center. Please align me center, Please align me center. Please align me center, Please align me center.' |
| - | x => $x + 150, | + | . 'Please align me center, Please align me center. Please align me center, Please align me center. Please align me center, Please align me center.' |
| - | y => $y, | + | . 'Please align me center, Please align me center. Please align me center, Please align me center. Please align me center, Please align me center.', |
| - | align => 'center', | + | x => $x + 150, |
| - | autoflow => 'on' | + | y => $y, |
| - | ); | + | align => 'center', |
| - | + | autoflow => 'on' | |
| - | $y -= 150; | + | ); |
| - | $pdf->text( 'Please align me center, Please align me center. Please align me center, Please align me center. Please align me center, Please align me center.' | + | |
| - | . 'Please align me center, Please align me center. Please align me center, Please align me center. Please align me center, Please align me center.', | + | $y -= 150; |
| - | x => $x - 150, | + | $pdf->text( 'Please align me center, Please align me center. Please align me center, Please align me center. Please align me center, Please align me center.' |
| - | y => $y, | + | . 'Please align me center, Please align me center. Please align me center, Please align me center. Please align me center, Please align me center.', |
| - | align => 'center', | + | x => $x - 150, |
| - | autoflow => 'on' | + | y => $y, |
| - | ); | + | align => 'center', |
| - | } | + | autoflow => 'on' |
| - | + | ); | |
| - | $pdf->add_page(); | + | } |
| - | + | ||
| - | # right align | + | $pdf->add_page(); |
| - | { | + | |
| - | my $y = $pdf->height - 50; | + | # right align |
| - | + | { | |
| - | # autoflow off | + | my $y = $pdf->height - 50; |
| - | $pdf->text( 'Please align me right', | + | |
| - | x => $pdf->width_right, | + | # autoflow off |
| - | y => $y, | + | $pdf->text( 'Please align me right', |
| - | align => 'right', | + | x => $pdf->width_right, |
| - | autoflow => 'off' | + | y => $y, |
| - | ); | + | align => 'right', |
| - | + | autoflow => 'off' | |
| - | # autoflow on | + | ); |
| - | $y -= 50; | + | |
| - | $pdf->text( 'Please align me right, Please align me right. Please align me right, Please align me right. Please align me right, Please align me right.' | + | # autoflow on |
| - | . 'Please align me right, Please align me right. Please align me right, Please align me right. Please align me right, Please align me right.' | + | $y -= 50; |
| - | . 'Please align me right, Please align me right. Please align me right, Please align me right. Please align me right, Please align me right.' | + | $pdf->text( 'Please align me right, Please align me right. Please align me right, Please align me right. Please align me right, Please align me right.' |
| - | . 'Please align me right, Please align me right. Please align me right, Please align me right. Please align me right, Please align me right.', | + | . 'Please align me right, Please align me right. Please align me right, Please align me right. Please align me right, Please align me right.' |
| - | x => $pdf->width_right, | + | . 'Please align me right, Please align me right. Please align me right, Please align me right. Please align me right, Please align me right.' |
| - | y => $y, | + | . 'Please align me right, Please align me right. Please align me right, Please align me right. Please align me right, Please align me right.', |
| - | align => 'right', | + | x => $pdf->width_right, |
| - | autoflow => 'on' | + | y => $y, |
| - | ); | + | align => 'right', |
| - | + | autoflow => 'on' | |
| - | $y -= 150; | + | ); |
| - | $pdf->text( 'Please align me right, Please align me right. Please align me right, Please align me right. Please align me right, Please align me right.' | + | |
| - | . 'Please align me right, Please align me right. Please align me right, Please align me right. Please align me right, Please align me right.' | + | $y -= 150; |
| - | . 'Please align me right, Please align me right. Please align me right, Please align me right. Please align me right, Please align me right.', | + | $pdf->text( 'Please align me right, Please align me right. Please align me right, Please align me right. Please align me right, Please align me right.' |
| - | x => $pdf->width_right - 150, | + | . 'Please align me right, Please align me right. Please align me right, Please align me right. Please align me right, Please align me right.' |
| - | y => $y, | + | . 'Please align me right, Please align me right. Please align me right, Please align me right. Please align me right, Please align me right.', |
| - | align => 'right', | + | x => $pdf->width_right - 150, |
| - | autoflow => 'on' | + | y => $y, |
| - | ); | + | align => 'right', |
| - | + | autoflow => 'on' | |
| - | $y -= 150; | + | ); |
| - | $pdf->text( 'Please align me right, Please align me right. Please align me right, Please align me right. Please align me right, Please align me right.' | + | |
| - | . 'Please align me right, Please align me right. Please align me right, Please align me right. Please align me right, Please align me right.', | + | $y -= 150; |
| - | x => $pdf->width_right - 50, | + | $pdf->text( 'Please align me right, Please align me right. Please align me right, Please align me right. Please align me right, Please align me right.' |
| - | y => $y, | + | . 'Please align me right, Please align me right. Please align me right, Please align me right. Please align me right, Please align me right.', |
| - | align => 'right', | + | x => $pdf->width_right - 50, |
| - | autoflow => 'on' | + | y => $y, |
| - | ); | + | align => 'right', |
| - | } | + | autoflow => 'on' |
| - | + | ); | |
| - | $pdf->save(); | + | } |
| + | |||
| + | $pdf->save() | ||
| + | </code>; | ||