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

PowerPDF, fix code page convertion to WinAnsiEncoding

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@957 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
jesusr
2009-09-10 21:19:09 +00:00
parent 781bcb652c
commit 11a0b9ac4b
2 changed files with 51 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
components/powerpdf/PdfDoc.pas
View File

@@ -2003,14 +2003,10 @@ procedure TPdfCanvas.ShowText(s: string);
var
FString: string;
begin
{$IFDEF LAZ_POWERPDF}
FString := '<' + _UTF8StrToUnicodeHex(s) + '>';
{$ELSE}
if _HasMultiByteString(s) then
FString := '<' + _StrToHex(s) + '>'
else
FString := '(' + _EscapeText(s) + ')';
{$ENDIF}
WriteString(FString + ' Tj'#10);
end;