PowerPDF: fix PRLabel center and right justify, from zacheus, issue 21154

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2376 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
jesusr
2012-04-01 09:00:34 +00:00
parent c43c43ab66
commit ff9eafb799

View File

@ -1819,8 +1819,8 @@ begin
tmpWidth := PdfCanvas.TextWidth(FText); tmpWidth := PdfCanvas.TextWidth(FText);
case FAlignment of case FAlignment of
taCenter: XPos := Round((Width - tmpWidth) / 2); taCenter: XPos := Round((Self.Width - tmpWidth) / 2);
taRightJustify: XPos :=Width - Round(tmpWidth); taRightJustify: XPos :=Self.Width - Round(tmpWidth);
else else
XPos := 0; XPos := 0;
end; end;