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

* Fix font name changing issues, patch by Dirk F, mantis #26550

Browse Source 
git-svn-id: trunk@28331 -
This commit is contained in:
marco 2014-08-07 10:44:19 +00:00
parent 3164bf66f5
commit ff77bd1bf2
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/fcl-image/src/freetype.pp
View File

@ -416,8 +416,8 @@ begin
result := FList.count-1;
while (result >= 0) and
( ({$ifdef CaseSense}CompareText{$else}CompareStr{$endif}
(TMgrFont(FList[anIndex]).Filename, afilename) <> 0) or
(anIndex <> TMgrFont(FList[anIndex]).font^.face_index)
(TMgrFont(FList[Result]).Filename, afilename) <> 0) or
(anIndex <> TMgrFont(FList[Result]).font^.face_index)
) do
dec (result);
end;