I wanted to build an awesome place for people to discuss module specific issues, but I don't have any more time for this, and there are much better places to discuss Perl-related issues. I'd recommend asking your question on Stack Overflow or on Perl Monks.
If you are looking for a Perl tutorial or Perl-related news, I hope these links will serve you well.
PDF-API2
Posted on 2008-10-08 17:47:41-07 by kherge
Background color in textlabel()?
I took a quick look at the textlabel() method in the documentation and I see no where that setting the background color of the text label is allowed. What I'm trying to do is overlay a date on top of an existing one in the PDF. Since the date format can vary, locating the element and removing it seems like not the best approach. Is this possible at all? Am I using the wrong approach? Here's some of the code that I'm using:
my $pdf = PDF::API2->open( $file ); my $page = $pdf->openpage( 1 ); my $font = $pdf->corefont( "Arial" ); my $dlab = $page->gfx; # Set date. $dlab->textlabel( 161, 84, $font, 7, $date->month_name . " " . $date->day . ", " . $date->year, -align => 'right' );
Direct Responses: 9005 | Write a response
Posted on 2008-10-09 07:08:46-07 by teotwawki in response to 8998
Re: Background color in textlabel()?
You could add a rectangle of white over the unwanted area before adding your new text:
$gfx->strokecolor('white'); $gfx->fillcolor('white'); $gfx->linewidth(0); $gfx->rectxy(161, 84, 161+(72*18/10), 84+7); # above assumes longest previous date is 18 chars at 10cpi $gfx->fillstroke();
I would also recommend adding the new date in the ISO8601 format to avoid confusion, particularly if the documents will have readers throughout the world.
Direct Responses: Write a response