paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-13 06:29:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

Add calls to FcGetVersion, FcConfigGetFilename and FcConfigFilename

Browse Source
This commit is contained in:
Pierre Muller 2023-10-18 15:23:06 +00:00
parent 9070b3647a
commit 59fe173cc7
1 changed files with 26 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
packages/libfontconfig/examples/testfc.pp
View File

@ -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