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 EndText; { ET }
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 ShowText(s: string); { Tj }
procedure ShowTextNextLine(s: string); { ' }
@ -2056,16 +2056,16 @@ begin
end;
// SetTextMatrix
procedure TPdfCanvas.SetTextMatrix(a, b, c, d, x, y: Word);
procedure TPdfCanvas.SetTextMatrix(a, b, c, d, x, y: Single);
var
S: string;
begin
S := IntToStr(a) + ' ' +
IntToStr(b) + ' ' +
IntToStr(c) + ' ' +
IntToStr(d) + ' ' +
IntToStr(x) + ' ' +
IntToStr(y) + ' Tm'#10;
S := _FloatToStrR(a) + ' ' +
_FloatToStrR(b) + ' ' +
_FloatToStrR(c) + ' ' +
_FloatToStrR(d) + ' ' +
_FloatToStrR(x) + ' ' +
_FloatToStrR(y) + ' Tm'#10;
WriteString(S);
end;