* Patch from Ondrej to fix sharing mode when loading fonts (bug ID 30070)

git-svn-id: trunk@33564 -

packages/fcl-pdf/src/fpparsettf.pp

@@ -741,7 +741,7 @@ Var
   AStream: TFileStream;
 begin
   FFilename := AFilename;
-  AStream:= TFileStream.Create(AFileName,fmOpenRead);
+  AStream:= TFileStream.Create(AFileName,fmOpenRead or fmShareDenyNone);
   try
     LoadFromStream(AStream);
   finally