paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-26 21:00:34 +02:00
Code Issues Packages Projects Releases Wiki Activity

LazUtils/FreeType: Avoid ignoring font files after reading defective one.

Browse Source 
git-svn-id: trunk@62804 -
This commit is contained in:
wp 2020-03-24 09:45:08 +00:00
parent cd40b9e0c1
commit dd9be6d9e1
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/lazutils/easylazfreetype.pas
View File

@ -1838,9 +1838,11 @@ var i,j: integer;
value,value2: string;
begin
setlength(FNamesArray, maxNameIndex+1);
// setlength(FNamesArray, maxNameIndex+1);
// wp: Move this into the "if" to avoid ignoring font files after reading defective one.
if CheckFace then
begin
setlength(FNamesArray, maxNameIndex+1);
for i := 0 to TT_Get_Name_Count(FFace)-1 do
begin
if TT_Get_Name_ID(FFace, i, nrPlatformID, nrEncodingID,