PowerPDF: implements Justify Alignment by resizing spaces instead of resizing characters, version=9.12

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3825 8e941d3f-bd1b-0410-a28a-d453659cc2b4

components/powerpdf/PdfTypes.pas

@@ -305,6 +305,7 @@ type
   function _UTF8ToWinAnsi(const value:string; InvalidChar:char='?'): string;
   procedure PdfLazRegisterClassAlias(aClass: TPersistentClass; const Alias: string);
   function  PdfLazFindClass(const aClassName: string):TPersistentClass;
+  function _GetSpcCount(const Text: string): Integer;
 {$ENDIF}
 
 implementation
@@ -1236,6 +1237,19 @@ begin
     raise EClassNotFound.CreateFmt('No class was found', [aClassName]);
 end;
 
+function _GetSpcCount(const Text: string): Integer;
+var
+  i: Integer;
+  W: widestring;
+begin
+  result := 0;
+  W := UTF8Decode(Text);
+  for i:=1 to Length(W) do begin
+    if W[i]=' ' then
+      inc(result);
+  end;
+end;
+
 initialization
   AliasList := nil;