pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

PowerPDF: fix wrong parameter type for function TPdfCanvas.SetTextMatrix, from suilenroc1183, issue 21134

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2377 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
jesusr
2012-04-01 09:13:39 +00:00
parent ff9eafb799
commit 1b9947bf0c
1 changed files with 8 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
components/powerpdf/PdfDoc.pas
View File

@ -447,7 +447,7 @@ type
procedure BeginText; { BT } procedure BeginText; { BT }
procedure EndText; { ET } procedure EndText; { ET }
procedure MoveTextPoint(tx, ty: Single); { Td } procedure MoveTextPoint(tx, ty: Single); { Td }
procedure SetTextMatrix(a, b, c, d, x, y: Word); { Tm } procedure SetTextMatrix(a, b, c, d, x, y: Single); { Tm }
procedure MoveToNextLine; { T* } procedure MoveToNextLine; { T* }
procedure ShowText(s: string); { Tj } procedure ShowText(s: string); { Tj }
procedure ShowTextNextLine(s: string); { ' } procedure ShowTextNextLine(s: string); { ' }
@ -2056,16 +2056,16 @@ begin
end; end;
// SetTextMatrix // SetTextMatrix
procedure TPdfCanvas.SetTextMatrix(a, b, c, d, x, y: Word); procedure TPdfCanvas.SetTextMatrix(a, b, c, d, x, y: Single);
var var
S: string; S: string;
begin begin
S := IntToStr(a) + ' ' + S := _FloatToStrR(a) + ' ' +
IntToStr(b) + ' ' + _FloatToStrR(b) + ' ' +
IntToStr(c) + ' ' + _FloatToStrR(c) + ' ' +
IntToStr(d) + ' ' + _FloatToStrR(d) + ' ' +
IntToStr(x) + ' ' + _FloatToStrR(x) + ' ' +
IntToStr(y) + ' Tm'#10; _FloatToStrR(y) + ' Tm'#10;
WriteString(S); WriteString(S);
end; end;