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

@@ -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;