paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2026-02-25 03:48:45 +01:00
Code Issues Packages Projects Releases Wiki Activity

Apply fix submitted by Rika on discussion about issue #39366

Browse Source
This commit is contained in:
Pierre Muller 2023-10-17 06:49:47 +00:00
parent fa9da559fb
commit 9e341da6ed
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
packages/fcl-pdf/src/fpttf.pp
View File

@ -865,7 +865,7 @@ begin
end;
FcPatternDestroy(pat);
end;
{$define tfontmapper_find_implemented}
{$endif}
@ -1073,6 +1073,7 @@ begin
reg.Free;
end;
end;
{$define tfontmapper_find_implemented}
{$endif}
{$ifdef DARWIN}
@ -1134,6 +1135,14 @@ begin
enum.done;
end;
end;
{$define tfontmapper_find_implemented}
{$endif}
{$ifndef tfontmapper_find_implemented}
class function TFontMapper.find(const family, style: string; list: TStrings): boolean;
begin
Result:=false;
end;
{$endif}
initialization