paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-07 22:47:59 +02:00
Code Issues Packages Projects Releases Wiki Activity

fcl-pdf: using EPDF

Browse Source
This commit is contained in:
mattias 2023-11-06 08:44:45 +01:00
parent 854d944cfa
commit 85338e2d05
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
packages/fcl-pdf/src/fppdf.pp
View File

@ -1753,7 +1753,7 @@ begin
exit;
// only create objects when needed
if FTextMappingList<>nil then
Exception.Create('TPDFFont.PrepareTextMapping already created');
EPDF.Create('TPDFFont.PrepareTextMapping already created');
FTextMappingList := TTextMappingList.Create;
FTrueTypeFile := TTFFileInfo.Create;
if FFontStream<>nil then
@ -1858,9 +1858,9 @@ procedure TPDFFont.LoadFromStream(aStream: TStream);
begin
if FFontStream=aStream then Exit;
if FFontStream<>nil then
raise Exception.Create('TPDFFont.SetFontStream has already a stream');
raise EPDF.Create('TPDFFont.SetFontStream has already a stream');
if FFontFilename<>'' then
raise Exception.Create('TPDFFont.SetFontStream has already a file');
raise EPDF.Create('TPDFFont.SetFontStream has already a file');
FFontStream:=TMemoryStream.Create;
FFontStream.CopyFrom(aStream,aStream.Size-aStream.Position);
PrepareTextMapping;
@ -3907,7 +3907,7 @@ var
CompressedStream: TMemoryStream;
begin
if ADocument.Fonts[AFontNum].SubsetFont = nil then
raise Exception.Create('WriteEmbeddedSubsetFont: SubsetFont stream was not initialised.');
raise EPDF.Create('WriteEmbeddedSubsetFont: SubsetFont stream was not initialised.');
WriteString(CRLF+'stream'+CRLF, AOutStream);
PS := AOutStream.Position;
if poCompressFonts in ADocument.Options then