From 79c9fdfa610b99c3befe825250c24a857590fef3 Mon Sep 17 00:00:00 2001 From: Toshi MARUYAMA Date: Thu, 30 Jun 2011 04:00:55 +0000 Subject: PDF: import rfpdf tcpdf patch for textilized PDF (#69). Contributed by Jun NAITOH. git-svn-id: svn+ssh://rubyforge.org/var/svn/redmine/trunk@6134 e93f8b46-1217-0410-a6f0-8f06a7374b81 --- vendor/plugins/rfpdf/lib/tcpdf.rb | 610 +++++++++++++++++++++++++++++++++----- 1 file changed, 528 insertions(+), 82 deletions(-) (limited to 'vendor') diff --git a/vendor/plugins/rfpdf/lib/tcpdf.rb b/vendor/plugins/rfpdf/lib/tcpdf.rb index 0013ca66a..e2dfab785 100755 --- a/vendor/plugins/rfpdf/lib/tcpdf.rb +++ b/vendor/plugins/rfpdf/lib/tcpdf.rb @@ -98,6 +98,8 @@ class TCPDF attr_accessor :color_flag attr_accessor :default_table_columns + + attr_accessor :max_table_columns attr_accessor :default_font @@ -141,11 +143,11 @@ class TCPDF attr_accessor :links - attr_accessor :listordered + attr_accessor :list_ordered - attr_accessor :listcount + attr_accessor :list_count - attr_accessor :lispacer + attr_accessor :li_spacer attr_accessor :n @@ -226,6 +228,12 @@ class TCPDF @diffs ||= [] @color_flag ||= false @default_table_columns ||= 4 + @table_columns ||= 0 + @max_table_columns ||= [] + @tr_id ||= 0 + @max_td_page ||= [] + @max_td_y ||= [] + @t_columns ||= 0 @default_font ||= "FreeSans" if unicode @default_font ||= "Helvetica" @draw_color ||= '0 G' @@ -248,9 +256,15 @@ class TCPDF @is_unicode = unicode @lasth ||= 0 @links ||= [] - @listordered ||= false - @listcount ||= 0 - @lispacer ||= "" + @list_ordered ||= [] + @list_count ||= [] + @li_spacer ||= "" + @li_count ||= 0 + @spacer ||= "" + @quote_count ||= 0 + @prevquote_count ||= 0 + @quote_top ||= [] + @quote_page ||= [] @n ||= 2 @offsets ||= [] @orientation_changes ||= [] @@ -272,6 +286,7 @@ class TCPDF @tempfontsize ||= 10 @text_color ||= '0 g' @underline ||= false + @deleted ||= false @ws ||= 0 #Standard Unicode fonts @@ -737,7 +752,7 @@ class TCPDF Open(); end family=@font_family; - style=@font_style + (@underline ? 'U' : ''); + style=@font_style + (@underline ? 'U' : '') + (@deleted ? 'D' : ''); size=@font_size_pt; lw=@line_width; dc=@draw_color; @@ -1312,6 +1327,7 @@ class TCPDF style=style.upcase style=style.gsub('U',''); + style=style.gsub('D',''); if (style == 'IB') style = 'BI'; end @@ -1394,7 +1410,7 @@ class TCPDF # #Removes bold # :pdf->SetFont(''); # #Times bold, italic and underlined 14 - # :pdf->SetFont('Times','BIU'); + # :pdf->SetFont('Times','BIUD'); #
# If the file corresponding to the requested font is not found, the error "Could not include font metric file" is generated. # @param string :family Family font. It can be either a name defined by AddFont() or one of the standard families (case insensitive):It is also possible to pass an empty string. In that case, the current family is retained. @@ -1426,6 +1442,12 @@ class TCPDF else @underline=false; end + if (style.include?('D')) + @deleted=true; + style= style.gsub('D',''); + else + @deleted=false; + end if (style=='IB') style='BI'; end @@ -1573,7 +1595,7 @@ class TCPDF #Output a string s=sprintf('BT %.2f %.2f Td (%s) Tj ET', x * @k, (@h-y) * @k, escapetext(txt)); if (@underline and (txt!='')) - s += ' ' + dounderline(x, y, txt); + s += ' ' + dolinetxt(x, y, txt); end if (@color_flag) s='q ' + @text_color + ' ' + s + ' Q'; @@ -1661,19 +1683,25 @@ class TCPDF k=@k; if ((@y + h) > @page_break_trigger and !@in_footer and AcceptPageBreak()) #Automatic page break - x = @x; - ws = @ws; - if (ws > 0) - @ws = 0; - out('0 Tw'); - end - AddPage(@cur_orientation); - @x = x; - if (ws > 0) - @ws = ws; - out(sprintf('%.3f Tw', ws * k)); + if @pages[@page+1].nil? + x = @x; + ws = @ws; + if (ws > 0) + @ws = 0; + out('0 Tw'); + end + AddPage(@cur_orientation); + @x = x; + if (ws > 0) + @ws = ws; + out(sprintf('%.3f Tw', ws * k)); + end + else + @page += 1; + @y=@t_margin; end end + if (w == 0) w = @w - @r_margin - @x; end @@ -1717,7 +1745,10 @@ class TCPDF txt2 = escapetext(txt); s< @page_break_trigger and !@in_footer and AcceptPageBreak()) + #Automatic page break + if @pages[@page+1].nil? + x = @x; + ws = @ws; + if (ws > 0) + @ws = 0; + out('0 Tw'); + end + AddPage(@cur_orientation); + @x = x; + if (ws > 0) + @ws = ws; + out(sprintf('%.3f Tw', ws * k)); + end + else + @page += 1; + @y=@t_margin; + end + end + end alias_method :ln, :Ln @@ -2473,6 +2529,7 @@ class TCPDF def putType0(font) #Type0 + newobj(); out('<>'); putstream(pal); out('endobj'); @@ -2766,10 +2823,10 @@ class TCPDF end # - # Underline text + # Underline and Deleted text # @access protected # - def dounderline(x, y, txt) + def dolinetxt(x, y, txt) up = @current_font['up']; ut = @current_font['ut']; w = GetStringWidth(txt) + @ws * txt.count(' '); @@ -3350,7 +3407,7 @@ class TCPDF # # Allows to preserve some HTML formatting.
- # Supports: h1, h2, h3, h4, h5, h6, b, u, i, a, img, p, br, strong, em, font, blockquote, li, ul, ol, hr, td, th, tr, table, sup, sub, small + # Supports: h1, h2, h3, h4, h5, h6, b, u, i, a, img, p, br, strong, em, ins, del, font, blockquote, li, ul, ol, hr, td, th, tr, table, sup, sub, small # @param string :html text to display # @param boolean :ln if true add a new line after text (default = true) # @param int :fill Indicates if the background must be painted (1) or transparent (0). Default value: 0. @@ -3364,9 +3421,35 @@ class TCPDF end @href = nil - @style = {} - html.gsub!(/[\t\r\n\f]/, "")#\0\x0B + @style = ""; + @t_cells = [[]]; + @table_id = 0; + + # pre calculate html.split(/(<[^>]+>)/).each do |element| + if "<" == element[0,1] + #Tag + if (element[1, 1] == '/') + closedHTMLTagCalc(element[2..-2].downcase); + else + #Extract attributes + # get tag name + tag = element.scan(/([a-zA-Z0-9]*)/).flatten.delete_if {|x| x.length == 0} + tag = tag[0].downcase; + + # get attributes + attr_array = element.scan(/([^=\s]*)=["\']?([^"\']*)["\']?/) + attrs = {} + attr_array.each do |name, value| + attrs[name.downcase] = value; + end + openHTMLTagCalc(tag, attrs); + end + end + end + @table_id = 0; + + html.split(/(<[A-Za-z!?\/][^>]*?>)/).each do |element| if "<" == element[0,1] #Tag if (element[1, 1] == '/') @@ -3389,14 +3472,32 @@ class TCPDF else #Text if (@href) + element.gsub!(/[\t\r\n\f]/, ""); addHtmlLink(@href, element, fill); elsif (@tdbegin) - if ((element.strip.length > 0) and (element != " ")) - Cell(@tdwidth, @tdheight, unhtmlentities(element.strip), @tableborder, 0, @tdalign, @tdfill); - elsif (element == " ") - Cell(@tdwidth, @tdheight, '', @tableborder, 0, @tdalign, @tdfill); + element.gsub!(/[\t\r\n\f]/, ""); + element.gsub!(/ /, " "); + base_page = @page; + base_x = @x; + base_y = @y; + + MultiCell(@tdwidth, @tdheight, unhtmlentities(element.strip), @tableborder, @tdalign, @tdfill, 1); + tr_end = @t_cells[@table_id][@tr_id][@td_id]['j1'] + 1; + if @max_td_page[tr_end].nil? or (@max_td_page[tr_end] < @page) + @max_td_page[tr_end] = @page + @max_td_y[tr_end] = @y + elsif (@max_td_page[tr_end] == @page) + @max_td_y[tr_end] = @y if @max_td_y[tr_end].nil? or (@max_td_y[tr_end] < @y) + end + + @page = base_page; + @x = base_x + @tdwidth; + @y = base_y; + elsif (element.strip.length > 0) + if @pre_state != true + element.gsub!(/[\t\r\n\f]/, ""); + element.gsub!(/ /, " "); end - elsif ((element.strip.length > 0) and (element != " ")) Write(@lasth, unhtmlentities(element), '', fill); end end @@ -3422,7 +3523,7 @@ class TCPDF # @param int :fill Indicates if the cell background must be painted (1) or transparent (0). Default value: 0. # @see Cell() # - def writeHTMLCell(w, h, x, y, html='', border=0, ln=0, fill=0) + def writeHTMLCell(w, h, x, y, html='', border=0, ln=1, fill=0) if (@lasth == 0) #set row height @@ -3446,6 +3547,24 @@ class TCPDF w = @fw - x - @r_margin; end + b=0; + if (border) + if (border==1) + border='LTRB'; + b='LRT'; + b2='LR'; + elsif border.is_a?(String) + b2=''; + if (border.include?('L')) + b2<<'L'; + end + if (border.include?('R')) + b2<<'R'; + end + b=(border.include?('T')) ? b2 + 'T' : b2; + end + end + # store original margin values l_margin = @l_margin; r_margin = @r_margin; @@ -3461,36 +3580,187 @@ class TCPDF currentY = GetY(); + @auto_page_break = false; # check if a new page has been created if (@page > pagenum) # design a cell around the text on first page currentpage = @page; @page = pagenum; SetY(GetPageHeight() - restspace - GetBreakMargin()); - h = restspace - 1; - Cell(w, h, "", border, ln, 'L', 0); + Cell(w, restspace - 1, "", b, 0, 'L', 0); + b = b2; + @page += 1; + while @page < currentpage + SetY(@t_margin); # put cursor at the beginning of text + Cell(w, @page_break_trigger - @t_margin, "", b, 0, 'L', 0); + @page += 1; + end + if (border.is_a?(String) and border.include?('B')) + b<<'B'; + end # design a cell around the text on last page - @page = currentpage; - h = currentY - @t_margin; SetY(@t_margin); # put cursor at the beginning of text - Cell(w, h, "", border, ln, 'L', 0); + Cell(w, currentY - @t_margin, "", b, 0, 'L', 0); else - h = [h, (currentY - y)].max; SetY(y); # put cursor at the beginning of text # design a cell around the text - Cell(w, h, "", border, ln, 'L', 0); + Cell(w, [h, (currentY - y)].max, "", border, 0, 'L', 0); end + @auto_page_break = true; # restore original margin values SetLeftMargin(l_margin); SetRightMargin(r_margin); - if (ln) - Ln(0); + @lasth = h + + # move cursor to specified position + if (ln == 0) + # go to the top-right of the cell + @x = x + w; + @y = y; + elsif (ln == 1) + # go to the beginning of the next line + @x = @l_margin; + @y = currentY; + elsif (ln == 2) + # go to the bottom-left of the cell (below) + @x = x; + @y = currentY; end end alias_method :write_html_cell, :writeHTMLCell + # + # Check html table tag position. + # + # @param array :table potision array + # @param int :current tr tag id number + # @param int :current td tag id number + # @access private + # @return int : next td_id position. + # value 0 mean that can use position. + # + def checkTableBlockingCellPosition(table, tr_id, td_id ) + 0.upto(tr_id) do |j| + 0.upto(@t_cells[table][j].size - 1) do |i| + if @t_cells[table][j][i]['i0'] <= td_id and td_id <= @t_cells[table][j][i]['i1'] + if @t_cells[table][j][i]['j0'] <= tr_id and tr_id <= @t_cells[table][j][i]['j1'] + return @t_cells[table][j][i]['i1'] - td_id + 1; + end + end + end + end + return 0; + end + + # + # Calculate opening tags. + # + # html table cell array : @t_cells + # + # i0: table cell start position + # i1: table cell end position + # j0: table row start position + # j1: table row end position + # + # +------+ + # |i0,j0 | + # | i1,j1| + # +------+ + # + # example html: + # + # + # + # + # + #
+ # + # i: 0 1 2 + # j+----+----+----+ + # :|0,0 |1,0 |2,0 | + # 0| 0,0| 1,0| 2,0| + # +----+----+----+ + # |0,1 |2,1 | + # 1| 1,1| 2,1| + # +----+----+----+ + # |0,2 |1,2 |2,2 | + # 2| | 1,2| 2,2| + # + +----+----+ + # | |1,3 |2,3 | + # 3| 0,3| 1,3| 2,3| + # +----+----+----+ + # + # html table cell array : + # [[[i0=>0,j0=>0,i1=>0,j1=>0],[i0=>1,j0=>0,i1=>1,j1=>0],[i0=>2,j0=>0,i1=>2,j1=>0]], + # [[i0=>0,j0=>1,i1=>1,j1=>1],[i0=>2,j0=>1,i1=>2,j1=>1]], + # [[i0=>0,j0=>2,i1=>0,j1=>3],[i0=>1,j0=>2,i1=>1,j1=>2],[i0=>2,j0=>2,i1=>2,j1=>2]] + # [[i0=>1,j0=>3,i1=>1,j1=>3],[i0=>2,j0=>3,i1=>2,j1=>3]]] + # + # @param string :tag tag name (in upcase) + # @param string :attr tag attribute (in upcase) + # @access private + # + def openHTMLTagCalc(tag, attrs) + #Opening tag + case (tag) + when 'table' + @max_table_columns[@table_id] = 0; + @t_columns = 0; + @tr_id = -1; + when 'tr' + if @max_table_columns[@table_id] < @t_columns + @max_table_columns[@table_id] = @t_columns; + end + @t_columns = 0; + @tr_id += 1; + @td_id = -1; + @t_cells[@table_id].push [] + when 'td', 'th' + @td_id += 1; + if attrs['colspan'].nil? or attrs['colspan'] == '' + colspan = 1; + else + colspan = attrs['colspan'].to_i; + end + if attrs['rowspan'].nil? or attrs['rowspan'] == '' + rowspan = 1; + else + rowspan = attrs['rowspan'].to_i; + end + + i = 0; + while true + next_i_distance = checkTableBlockingCellPosition(@table_id, @tr_id, @td_id + i); + if next_i_distance == 0 + @t_cells[@table_id][@tr_id].push "i0"=>@td_id + i, "j0"=>@tr_id, "i1"=>(@td_id + i + colspan - 1), "j1"=>@tr_id + rowspan - 1 + break; + end + i += next_i_distance; + end + + @t_columns += colspan; + end + end + + # + # Calculate closing tags. + # @param string :tag tag name (in upcase) + # @access private + # + def closedHTMLTagCalc(tag) + #Closing tag + case (tag) + when 'table' + if @max_table_columns[@table_id] < @t_columns + @max_table_columns[@table_id] = @t_columns; + end + @table_id += 1; + @t_cells.push [] + end + end + # # Process opening tags. # @param string :tag tag name (in upcase) @@ -3501,20 +3771,56 @@ class TCPDF def openHTMLTagHandler(tag, attrs, fill=0) #Opening tag case (tag) + when 'pre' + @pre_state = true; + @l_margin += 5; + @r_margin += 5; + @x += 5; + when 'table' + if @default_table_columns < @max_table_columns[@table_id] + @table_columns = @max_table_columns[@table_id]; + else + @table_columns = @default_table_columns; + end + @l_margin += 5; + @r_margin += 5; + @x += 5; + if attrs['border'].nil? or attrs['border'] == '' @tableborder = 0; else @tableborder = attrs['border']; end + @tr_id = -1; + @max_td_page[0] = @page; + @max_td_y[0] = @y; + when 'tr', 'td', 'th' - # SetStyle('b', true) if tag == 'th' - + if tag == 'th' + SetStyle('b', true); + @tdalign = "C"; + end if ((!attrs['width'].nil?) and (attrs['width'] != '')) @tdwidth = (attrs['width'].to_i/4); else - @tdwidth = ((@w - @l_margin - @r_margin) / @default_table_columns); + @tdwidth = ((@w - @l_margin - @r_margin) / @table_columns); + end + + if tag == 'tr' + @tr_id += 1; + @td_id = -1; + else + @td_id += 1; + @x = @l_margin + @tdwidth * @t_cells[@table_id][@tr_id][@td_id]['i0']; end + + if attrs['colspan'].nil? or attrs['border'] == '' + @colspan = 1; + else + @colspan = attrs['colspan'].to_i; + end + @tdwidth *= @colspan; if ((!attrs['height'].nil?) and (attrs['height'] != '')) @tdheight=(attrs['height'].to_i / @k); else @@ -3538,17 +3844,14 @@ class TCPDF @tdbegin=true; when 'hr' - Ln(); + margin = 1; if ((!attrs['width'].nil?) and (attrs['width'] != '')) hrWidth = attrs['width']; else - hrWidth = @w - @l_margin - @r_margin; + hrWidth = @w - @l_margin - @r_margin - margin; end - x = GetX(); - y = GetY(); - SetLineWidth(0.2); - Line(x, y, x + hrWidth, y); SetLineWidth(0.2); + Line(@x + margin, @y, @x + hrWidth, @y); Ln(); when 'strong' @@ -3557,6 +3860,12 @@ class TCPDF when 'em' SetStyle('i', true); + when 'ins' + SetStyle('u', true); + + when 'del' + SetStyle('d', true); + when 'b', 'i', 'u' SetStyle(tag, true); @@ -3565,6 +3874,8 @@ class TCPDF when 'img' if (!attrs['src'].nil?) + Write(@lasth, '!' + attrs['src'] + '!', '', fill); +=begin Comment out. Because not implement image output yet. # replace relative path with real server path attrs['src'] = attrs['src'].gsub(@@k_path_url_cache, @@k_path_cache); if (attrs['width'].nil?) @@ -3577,37 +3888,70 @@ class TCPDF Image(attrs['src'], GetX(),GetY(), pixelsToMillimeters(attrs['width']), pixelsToMillimeters(attrs['height'])); #SetX(@img_rb_x); SetY(@img_rb_y); - +=end end - when 'ul' - @listordered = false; - @listcount = 0; - - when 'ol' - @listordered = true; - @listcount = 0; + when 'ul', 'ol' + if @li_count == 0 + Ln() if @prevquote_count == @quote_count; # insert Ln for keeping quote lines + @prevquote_count = @quote_count; + end + if @li_state == true + Ln(); + @li_state = false; + end + if tag == 'ul' + @list_ordered[@li_count] = false; + else + @list_ordered[@li_count] = true; + end + @list_count[@li_count] = 0; + @li_count += 1 when 'li' - Ln(); - if (@listordered) - @listcount += 1 - @lispacer = " " + (@listcount).to_s + ". "; + Ln() if @li_state == true + if (@list_ordered[@li_count - 1]) + @list_count[@li_count - 1] += 1; + @li_spacer = " " * @li_count + (@list_count[@li_count - 1]).to_s + ". "; else #unordered list simbol - @lispacer = " - "; + @li_spacer = " " * @li_count + "- "; end - Write(@lasth, @lispacer, '', fill); + Write(@lasth, @spacer + @li_spacer, '', fill); + @li_state = true; - when 'blockquote', 'br' + when 'blockquote' + if (@quote_count == 0) + SetStyle('i', true); + @l_margin += 5; + else + @l_margin += 5 / 2; + end + @x = @l_margin; + @quote_top[@quote_count] = @y; + @quote_page[@quote_count] = @page; + @quote_count += 1 + when 'br' Ln(); - if (@lispacer.length > 0) - @x += GetStringWidth(@lispacer); + + if (@li_spacer.length > 0) + @x += GetStringWidth(@li_spacer); end when 'p' Ln(); - Ln(); + 0.upto(@quote_count - 1) do |i| + if @quote_page[i] == @page; + if @quote_top[i] == @y - @lasth; # fix start line + @quote_top[i] = @y; + end + else + if @quote_page[i] == @page - 1; + @quote_page[i] = @page; # fix start line + @quote_top[i] = @t_margin; + end + end + end when 'sup' currentfont_size = @font_size; @@ -3648,6 +3992,7 @@ class TCPDF @lasth = @font_size * @@k_cell_height_ratio; when 'h1', 'h2', 'h3', 'h4', 'h5', 'h6' + Ln(); headsize = (4 - tag[1,1].to_f) * 2 @tempfontsize = @font_size_pt; SetFontSize(@font_size_pt + headsize); @@ -3665,19 +4010,63 @@ class TCPDF def closedHTMLTagHandler(tag) #Closing tag case (tag) + when 'pre' + @pre_state = false; + @l_margin -= 5; + @r_margin -= 5; + @x = @l_margin; + Ln(); + when 'td','th' @tdbegin = false; @tdwidth = 0; @tdheight = 0; @tdalign = "L"; + SetStyle('b', false); @tdfill = 0; SetFillColor(@prevfill_color[0], @prevfill_color[1], @prevfill_color[2]); when 'tr' - Ln(); + @y = @max_td_y[@tr_id + 1]; + @x = @l_margin; + @page = @max_td_page[@tr_id + 1]; when 'table' + # Write Table Line + width = (@w - @l_margin - @r_margin) / @table_columns; + 0.upto(@t_cells[@table_id].size - 1) do |j| + 0.upto(@t_cells[@table_id][j].size - 1) do |i| + @page = @max_td_page[j] + i0=@t_cells[@table_id][j][i]['i0']; + j0=@t_cells[@table_id][j][i]['j0']; + i1=@t_cells[@table_id][j][i]['i1']; + j1=@t_cells[@table_id][j][i]['j1']; + + Line(@l_margin + width * i0, @max_td_y[j0], @l_margin + width * (i1+1), @max_td_y[j0]) # top + if ( @page == @max_td_page[j1 + 1]) + Line(@l_margin + width * i0, @max_td_y[j0], @l_margin + width * i0, @max_td_y[j1+1]) # left + Line(@l_margin + width * (i1+1), @max_td_y[j0], @l_margin + width * (i1+1), @max_td_y[j1+1]) # right + else + Line(@l_margin + width * i0, @max_td_y[j0], @l_margin + width * i0, @page_break_trigger) # left + Line(@l_margin + width * (i1+1), @max_td_y[j0], @l_margin + width * (i1+1), @page_break_trigger) # right + @page += 1; + while @page < @max_td_page[j1 + 1] + Line(@l_margin + width * i0, @t_margin, @l_margin + width * i0, @page_break_trigger) # left + Line(@l_margin + width * (i1+1), @t_margin, @l_margin + width * (i1+1), @page_break_trigger) # right + @page += 1; + end + Line(@l_margin + width * i0, @t_margin, @l_margin + width * i0, @max_td_y[j1+1]) # left + Line(@l_margin + width * (i1+1), @t_margin, @l_margin + width * (i1+1), @max_td_y[j1+1]) # right + end + Line(@l_margin + width * i0, @max_td_y[j1+1], @l_margin + width * (i1+1), @max_td_y[j1+1]) # bottom + end + end + + @l_margin -= 5; + @r_margin -= 5; @tableborder=0; + Ln(); + @table_id += 1; when 'strong' SetStyle('b', false); @@ -3685,12 +4074,21 @@ class TCPDF when 'em' SetStyle('i', false); + when 'ins' + SetStyle('u', false); + + when 'del' + SetStyle('d', false); + when 'b', 'i', 'u' SetStyle(tag, false); when 'a' @href = nil; + when 'p' + Ln(); + when 'sup' currentfont_size = @font_size; SetFontSize(@tempfontsize); @@ -3725,14 +4123,47 @@ class TCPDF #@text_color = @prevtext_color; @lasth = @font_size * @@k_cell_height_ratio; - when 'ul' - Ln(); - - when 'ol' - Ln(); + when 'blockquote' + @quote_count -= 1 + if (@quote_page[@quote_count] == @page) + Line(@l_margin - 1, @quote_top[@quote_count], @l_margin - 1, @y) # quoto line + else + cur_page = @page; + cur_y = @y; + @page = @quote_page[@quote_count]; + if (@quote_top[@quote_count] < @page_break_trigger) + Line(@l_margin - 1, @quote_top[@quote_count], @l_margin - 1, @page_break_trigger) # quoto line + end + @page += 1; + while @page < cur_page + Line(@l_margin - 1, @t_margin, @l_margin - 1, @page_break_trigger) # quoto line + @page += 1; + end + @y = cur_y; + Line(@l_margin - 1, @t_margin, @l_margin - 1, @y) # quoto line + end + if (@quote_count <= 0) + SetStyle('i', false); + @l_margin -= 5; + else + @l_margin -= 5 / 2; + end + @x = @l_margin; + Ln() if @quote_count == 0 + + when 'ul', 'ol' + @li_count -= 1 + if @li_state == true + Ln(); + @li_state = false; + end when 'li' - @lispacer = ""; + @li_spacer = ""; + if @li_state == true + Ln(); + @li_state = false; + end when 'h1', 'h2', 'h3', 'h4', 'h5', 'h6' SetFontSize(@tempfontsize); @@ -3740,7 +4171,17 @@ class TCPDF SetStyle('b', false); Ln(); @lasth = @font_size * @@k_cell_height_ratio; - + + if tag == 'h1' or tag == 'h2' or tag == 'h3' or tag == 'h4' + margin = 1; + hrWidth = @w - @l_margin - @r_margin - margin; + if tag == 'h1' or tag == 'h2' + SetLineWidth(0.2); + else + SetLineWidth(0.1); + end + Line(@x + margin, @y, @x + hrWidth, @y); + end end end @@ -3752,11 +4193,16 @@ class TCPDF # def SetStyle(tag, enable) #Modify style and select corresponding font - style=''; - ['b', 'i', 'u'].each do |s| - style << s if tag.downcase == s and enable + ['b', 'i', 'u', 'd'].each do |s| + if tag.downcase == s + if enable + @style << s if ! @style.include?(s) + else + @style = @style.gsub(s,'') + end + end end - SetFont('', style); + SetFont('', @style); end # -- cgit v1.2.3