anchor.diff:  procedure FcFontSetDestroy(fsp : PFcFontSet); cdecl; external libXft;
   
   
  +//function FcFontList(config: PFcConfig; p:PFcPattern; os:PFcObjectSet): PFcFontSet;cdecl; external fclib name 'FcFontList';
  +
  +
   implementation
   
   end.
  
positive.code:   PFcFontSet = ^TFcFontSet;
  
  const
    FC_FAMILY  : PChar = 'family';
    FC_SIZE    : PChar = 'size';
    FC_SCALABLE : PChar = 'scalable';
  
    FcTypeVoid         = 0;
    FcTypeInteger      = 1;
  
negative.code:   ;
  
  const
    libXft = 'libXft.so';
    fclib = 'libfontconfig.so';
  
    
  type
  