From 8ea51c6ce7a4cf5cd0872a87bf27ad00f4bd62d1 Mon Sep 17 00:00:00 2001
From: jesusr <jesusr@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Fri, 14 May 2010 17:00:31 +0000
Subject: [PATCH] PowerPDF: fix bug that cut some chars in pdf output, issue
 16465

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1221 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/powerpdf/PdfDoc.pas | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/components/powerpdf/PdfDoc.pas b/components/powerpdf/PdfDoc.pas
index e9b81db74..3d8f85345 100644
--- a/components/powerpdf/PdfDoc.pas
+++ b/components/powerpdf/PdfDoc.pas
@@ -50,12 +50,16 @@ interface
 //{$DEFINE NOZLIB}
 
 uses
-  SysUtils, Classes, PdfTypes
+  SysUtils, Classes
   {$IFDEF LINUX}
   , Types
   {$ELSE}
   , Windows
   {$ENDIF}
+  {$IFDEF LAZ_POWERPDF}
+  , LCLProc
+  {$ENDIF}
+  , PdfTypes
   ;
 
 const
@@ -1604,7 +1608,11 @@ var
     i: Integer;
   begin
     i := MeasureText(S, AWidth);
+    {$IFDEF LAZ_POWERPDF}
+    S := UTF8Copy(S, 1, i);
+    {$ELSE}
     S := Copy(S, 1, i);
+    {$ENDIF}
     ShowText(S);
   end;