paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

PowerPDF: fix showing UTF8 string in preview, issue 20485

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2101 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
jesusr 2011-10-28 21:16:44 +00:00
parent 65f091f5d3
commit c6de45431d
1 changed files with 22 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
components/powerpdf/PReport.pas
View File

@ -43,7 +43,7 @@ interface
uses
{$IFDEF LAZ_POWERPDF}
LCLType, LMessages, LCLIntf, GraphType, FPCanvas,
LCLType, LMessages, LCLIntf, GraphType, FPCanvas, LCLProc,
{$ELSE}
Windows, Messages,
{$ENDIF}
@ -1628,6 +1628,26 @@ begin
end;
// InternalTextout
{$IFDEF LAZ_POWERPDF}
function TPRCustomLabel.InternalTextout(APdfCanvas: TPdfCanvas;
S: string; X, Y: integer): Single;
var
Pos: Double;
i: integer;
Word: string;
begin
Pos := X;
for i:=1 to UTF8Length(S) do begin
Word := UTF8Copy(s, i, 1);
Canvas.TextOut(Round(Pos), Y, Word);
with APdfCanvas do
Pos := Pos + TextWidth(Word) + Attribute.CharSpace;
if Word=' ' then
Pos := Pos + FWordSpace
end;
result := Pos;
end;
{$ELSE}
function TPRCustomLabel.InternalTextout(APdfCanvas: TPdfCanvas;
S: string; X, Y: integer): Single;
var
@ -1664,6 +1684,7 @@ begin
end;
result := Pos;
end;
{$ENDIF}
// GetFontClassName
function TPRCustomLabel.GetFontClassName: string;