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

* Fix windows implementation of find. Fixes issue #40473

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-10-18 16:40:53 +02:00
parent c120a13af8
commit db1efd0264
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1058,7 +1058,7 @@ begin
end;
if enum.matches.Count>0 then // there are matches
begin
fpath:=GetWinFontsDir;
fpath:=IncludeTrailingPathDelimiter(GetWinFontsDir);
for i:=enum.matches.Count-1 downto 0 do
begin
FI:=TFontItem(enum.matches[i]);