356 lines
11 KiB
PHP
356 lines
11 KiB
PHP
<?php
|
|
/*
|
|
* This file is part of NOALYSS.
|
|
*
|
|
* NOALYSS is free software; you can redistribute it and/or modify
|
|
* it under the terms of the GNU General Public License as published by
|
|
* the Free Software Foundation; either version 2 of the License, or
|
|
* (at your option) any later version.
|
|
*
|
|
* NOALYSS is distributed in the hope that it will be useful,
|
|
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
* GNU General Public License for more details.
|
|
*
|
|
* You should have received a copy of the GNU General Public License
|
|
* along with NOALYSS; if not, write to the Free Software
|
|
* Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
|
|
*/
|
|
|
|
// Copyright Author Dany De Bontridder danydb@aevalys.eu
|
|
|
|
/*!
|
|
* \file
|
|
* \brief API for creating PDF, unicode, based on tfpdf
|
|
*@see TFPDF
|
|
*/
|
|
/*!
|
|
* \class Cellule
|
|
* \brief A Cellule is a cell to print
|
|
*@see TFPDF
|
|
*/
|
|
require_once NOALYSS_INCLUDE.'/tfpdf/tfpdf.php';
|
|
class Cellule {
|
|
var $width;
|
|
var $height;
|
|
var $text;
|
|
var $new_line;
|
|
var $border;
|
|
var $align;
|
|
var $fill;
|
|
var $link;
|
|
var $type;
|
|
function __construct($w,$h,$txt,$border,$ln,$align,$fill,$link,$type)
|
|
{
|
|
$this->width=$w ;
|
|
$this->height=$h ;
|
|
$this->text=$txt;
|
|
$this->border=$border;
|
|
$this->new_line=$ln;
|
|
$this->align=$align;
|
|
$this->fill=$fill;
|
|
$this->link=$link;
|
|
$this->type=$type;
|
|
return $this;
|
|
}
|
|
}
|
|
/*!
|
|
* \class PDF_Core
|
|
* \brief API for creating PDF, unicode, based on tfpdf
|
|
*@see TFPDF
|
|
*/
|
|
class PDF_Core extends TFPDF
|
|
{
|
|
|
|
|
|
|
|
protected $cells=array();
|
|
protected $bigger;
|
|
|
|
public function __construct ( $orientation = 'P', $unit = 'mm', $format = 'A4')
|
|
{
|
|
$this->bigger=0;
|
|
|
|
parent::__construct($orientation, $unit, $format);
|
|
$this->AddFont('DejaVu','','DejaVuSans.ttf',true);
|
|
$this->AddFont('DejaVu','I','DejaVuSans-Oblique.ttf',true);
|
|
$this->AddFont('DejaVu','B','DejaVuSans-Bold.ttf',true);
|
|
$this->AddFont('DejaVu','BI','DejaVuSans-BoldOblique.ttf',true);
|
|
$this->AddFont('DejaVuCond','','DejaVuSansCondensed.ttf',true);
|
|
$this->AddFont('DejaVuCond','B','DejaVuSansCondensed-Bold.ttf',true);
|
|
$this->AddFont('DejaVuCond','I','DejaVuSansCondensed-Oblique.ttf',true);
|
|
$this->AddFont('DejaVuCond','BI','DejaVuSansCondensed-BoldOblique.ttf',true);
|
|
|
|
|
|
|
|
$this->cells=array();
|
|
}
|
|
function get_margin_left()
|
|
{
|
|
return $this->lMargin;
|
|
}
|
|
function get_margin_bottom()
|
|
{
|
|
return $this->bMargin;
|
|
|
|
}
|
|
function get_margin_top()
|
|
{
|
|
return $this->tMargin;
|
|
}
|
|
function get_margin_right()
|
|
{
|
|
return $this->rMargin;
|
|
}
|
|
function get_orientation()
|
|
{
|
|
return $this->DefOrientation;
|
|
}
|
|
function get_unit()
|
|
{
|
|
return $this->k;
|
|
}
|
|
function get_page_size()
|
|
{
|
|
return $this->DefPageSize;
|
|
}
|
|
/**
|
|
* Count the number of rows a p_text will take for a multicell
|
|
* @param $p_text String
|
|
* @param $p_colSize size of the column in User Unit
|
|
*/
|
|
protected function count_nb_row($p_text,$p_colSize)
|
|
{
|
|
// If colSize is bigger than the size of the string then it takes 1 line
|
|
if ( $this->GetStringWidth($p_text) <= $p_colSize) return 1;
|
|
$nRow=0;
|
|
$aWords=explode(' ',$p_text);
|
|
$nb_words=count($aWords);
|
|
$string="";
|
|
|
|
for ($i=0;$i < $nb_words;$i++){
|
|
// Concatenate String with current word + a space
|
|
$string.=$aWords[$i];
|
|
|
|
// if there is a word after add a space
|
|
if ( $i+1 < $nb_words) $string.=" ";
|
|
|
|
// Compute new size and compare to the colSize
|
|
if ( $this->GetStringWidth($string) >= $p_colSize) {
|
|
// If the size of the string if bigger than we add a row, the current
|
|
// word is the first word of the next line
|
|
$nRow++;
|
|
$string=$aWords[$i];
|
|
}
|
|
}
|
|
$nRow++;
|
|
return $nRow;
|
|
|
|
|
|
|
|
}
|
|
/**
|
|
* Check if a page must be added due a MultiCell
|
|
* @return boolean
|
|
*/
|
|
protected function check_page_add()
|
|
{
|
|
// break on page
|
|
$size=count($this->cells);
|
|
for ($i=0;$i < $size ; $i++)
|
|
{
|
|
if ($this->cells[$i]->type == 'M' )
|
|
{
|
|
/**
|
|
* On doit calculer si le texte dépasse la texte et compter le
|
|
* nombre de lignes que le texte prendrait. Ensuite il faut
|
|
* faire un saut de page (renvoit true) si dépasse
|
|
*/
|
|
|
|
$sizetext=$this->GetStringWidth($this->cells[$i]->text);
|
|
|
|
// if text bigger than column width then check
|
|
|
|
$y=$this->GetY();
|
|
$nb_row=$this->count_nb_row($this->cells[$i]->text, $this->cells[$i]->width);
|
|
$height=$this->cells[$i]->height*$nb_row;
|
|
|
|
// If the text is bigger than a sheet of paper then return false
|
|
if ($height >= $this->h) return false;
|
|
|
|
if ( $y + $height > ($this->h - $this->bMargin -7 ))
|
|
return true;
|
|
|
|
}
|
|
}
|
|
return false;
|
|
}
|
|
|
|
/**
|
|
* @brief print the current array of cell and reset it , if different colors are set on the same row
|
|
* you have to print it before changing
|
|
*@code
|
|
* // fill red , text white
|
|
* $this->SetFillColor(255,0,0);
|
|
* $this->SetTextColor(255,255,255);
|
|
* $this->write_cell(15,5,"PRICE",0,0,'R',fill:true);
|
|
*
|
|
* // print the cell without a linefeed
|
|
* $this->print_row();
|
|
*
|
|
* // text in black on green
|
|
*
|
|
* $this->SetTextColor(0,0,0);
|
|
* $this->SetFillColor(0,255,0);
|
|
*
|
|
* $this->write_cell(15,5,nbm($other['price']),0,0,'R');
|
|
*@endcode
|
|
* @see TFPDF::SetTextColor()
|
|
* @see TFPDF::SetFillColor()
|
|
* @see TFPDF::SetFontSize()
|
|
* @return void
|
|
*/
|
|
protected function print_row()
|
|
{
|
|
static $e=0;
|
|
$e++;
|
|
if ( $this->check_page_add() == true ) $this->AddPage ();
|
|
$this->bigger=0;
|
|
$size=count($this->cells);
|
|
$cell=$this->cells;
|
|
if ($size == 0 )return;
|
|
for ($i=0;$i < $size ; $i++)
|
|
{
|
|
$a=$cell[$i];
|
|
$a->text= noalyss_str_replace("\\", "", $a->text);
|
|
switch ($a->type)
|
|
{
|
|
case "M":
|
|
$x_m=$this->GetX();
|
|
$y_m=$this->GetY();
|
|
parent::MultiCell(
|
|
$a->width,
|
|
$a->height,
|
|
$a->text,
|
|
$a->border,
|
|
$a->align,
|
|
$a->fill
|
|
);
|
|
$x_m=$x_m+$a->width;
|
|
$tmp=$this->GetY()-$y_m;
|
|
if ( $tmp > $this->bigger) $this->bigger=$tmp;
|
|
$this->SetXY($x_m,$y_m);
|
|
break;
|
|
|
|
case "C":
|
|
|
|
parent::Cell( $a->width,
|
|
$a->height,
|
|
$a->text,
|
|
$a->border,
|
|
$a->new_line,
|
|
$a->align,
|
|
$a->fill,
|
|
$a->link);
|
|
break;
|
|
|
|
default:
|
|
break;
|
|
}
|
|
}
|
|
$this->cells=array();
|
|
}
|
|
protected function add_cell(Cellule $Ce)
|
|
{
|
|
$size=count($this->cells);
|
|
$this->cells[$size]=$Ce;
|
|
|
|
}
|
|
/**
|
|
* @brief add a cell the text is not cut and don't return to this line if too large
|
|
* @param $width width (in PDF unit )
|
|
* @param $height height (in PDF unit )
|
|
* @param $txt text to print (unicode)
|
|
* @param $border border valid values are 1 : border ,0 : no-border, T : top,B : bottom,L : left,R : right
|
|
* @param $interline (unit pt ) space between lines
|
|
* @param $align text alignment valid values are L : left,R : right
|
|
* @param $fill color true or false
|
|
* @param $link url
|
|
* @return void*/
|
|
function write_cell ($width, $height=0, $txt='', $border=0, $interline = 0, $align='', $fill=false, $link='')
|
|
{
|
|
$this->add_cell(new Cellule($width,$height,$txt,$border,$interline,$align,$fill,$link,'C'));
|
|
|
|
}
|
|
/**
|
|
* @brief add a cell with automatic return to the line if the text is too long
|
|
* @param $width width (in PDF unit )
|
|
* @param $interline interline (unit pt)
|
|
* @param $txt text to print (unicode)
|
|
* @param $border border valid values are 1 : border ,0 : no-border, T : top,B : bottom,L : left,R : right
|
|
* @param $align text alignment valid values are L : left,R : right
|
|
* @param $fill color true or false
|
|
* @return void
|
|
*/
|
|
function write_multi($width,$interline,$txt,$border=0,$align='',$fill=false)
|
|
{
|
|
$this->add_cell(new Cellule($width,$interline,$txt,$border,0,$align,$fill,'','M'));
|
|
|
|
}
|
|
|
|
/**
|
|
* @brief add a cell with automatic return to the line if the text is too long, deprecated ,
|
|
* it calls only PDFCore::write_cell_
|
|
* @see PDF_Core::write_multi()
|
|
* @param $w width (in PDF unit )
|
|
* @param $h interline (in pt)
|
|
* @param $txt text to display
|
|
* @param $border border valid values are 1 : border ,0 : no-border, T : top,B : bottom,L : left,R : right
|
|
* @param $align text align valid values are L : left,R : right
|
|
* @param $fill color true or false
|
|
* @return void
|
|
*@deprecated
|
|
*/
|
|
function LongLine($w,$h,$txt,$border=0,$align='',$fill=false)
|
|
{
|
|
$this->write_multi($w,$h,$txt,$border,$align,$fill);
|
|
|
|
}
|
|
/**
|
|
* @brief Print all the cell stored and call Ln (new line)
|
|
* @param int $p_step
|
|
*/
|
|
|
|
function line_new($p_step=null){
|
|
$this->print_row();
|
|
if ( $this->bigger==0)
|
|
parent::Ln($p_step);
|
|
else
|
|
parent::Ln($this->bigger);
|
|
$this->bigger=0;
|
|
}
|
|
/**
|
|
* @brief If the step is even then return 1 and set the backgroup color to blue , otherwise
|
|
* returns 0, and set the background color to white
|
|
* It is use to compute alternated colored row , it the parameter fill in write_cell and
|
|
* cell
|
|
* @see PDF:write_cell
|
|
* @see TPDF:cell
|
|
*
|
|
*/
|
|
function is_fill($p_step)
|
|
{
|
|
if ($p_step % 2 == 0) {
|
|
$this->SetFillColor(239, 239, 255);
|
|
$fill = 1;
|
|
} else {
|
|
$this->SetFillColor(255, 255, 255);
|
|
$fill = 0;
|
|
}
|
|
return $fill;
|
|
}
|
|
|
|
|
|
|
|
}
|
|
|