paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-13 23:59:10 +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; result := FList.count-1;
while (result >= 0) and while (result >= 0) and
( ({$ifdef CaseSense}CompareText{$else}CompareStr{$endif} ( ({$ifdef CaseSense}CompareText{$else}CompareStr{$endif}
(TMgrFont(FList[anIndex]).Filename, afilename) <> 0) or (TMgrFont(FList[Result]).Filename, afilename) <> 0) or
(anIndex <> TMgrFont(FList[anIndex]).font^.face_index) (anIndex <> TMgrFont(FList[Result]).font^.face_index)
) do ) do
dec (result); dec (result);
end; end;