Apply fix submitted by Rika on discussion about issue #39366

(cherry picked from commit 9e341da6ed75a69b863fd56eb570c27b7e730574)

packages/fcl-pdf/src/fpttf.pp

@@ -877,7 +877,7 @@ begin
     end;
   FcPatternDestroy(pat);
 end;
-
+{$define tfontmapper_find_implemented}
 {$endif}
 
 
@@ -1085,6 +1085,7 @@ begin
     reg.Free;
   end;
 end;
+{$define tfontmapper_find_implemented}
 {$endif}
 
 {$ifdef DARWIN}
@@ -1146,6 +1147,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