Add calls to FcGetVersion, FcConfigGetFilename and FcConfigFilename

packages/libfontconfig/examples/testfc.pp

@@ -4,7 +4,7 @@ Var
   FC : PFcConfig;
   FL : PFcStrList;
   P : PAnsiChar;
-
+  FN,FN2 : PAnsiChar;
 begin
   Writeln('Load 1: ',loadfontconfiglib(''));
   Writeln('Load 2: ',loadfontconfiglib(''));
@@ -14,6 +14,31 @@ begin
     Writeln('Failed to load config');
     Halt(1);
     end;
+  if assigned(FcGetVersion) then
+    writeln('FontConfig version: ',FcGetVersion);
+
+  if assigned(FcConfigFilename) then
+    begin
+      FN:=FcConfigFilename(Nil);
+      Writeln('Default config file is: ',FN,' using deprecated FcConfigFilename function');
+    end;
+  if assigned(FcConfigGetFilename) then
+    begin
+      FN2:=FcConfigGetFilename(FC,Nil);
+      Writeln('Default config file is: ',FN2,' using FcConfigGetFilename function');
+    end;
+  FL:=FcConfigGetConfigFiles(FC);
+  if FL<>Nil then
+    begin
+    P:=FcStrListNext(FL);
+    While P<>Nil do
+      begin
+      Writeln('Config file: ',P);
+      P:=FcStrListNext(FL);
+      end;
+    FcStrListDone(FL);
+    end;
+
   FL:=FcConfigGetFontDirs(FC);
   if FL<>Nil then
     begin