Fixes a list out of bounds exception in freetype

git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@16308 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 9 insertions, 3 deletions

diff --git a/packages/fcl-image/src/freetype.pp b/packages/fcl-image/src/freetype.pp
index f05b66bce6..92ba87605e 100644
--- a/packages/fcl-image/src/freetype.pp
+++ b/packages/fcl-image/src/freetype.pp
@@ -433,11 +433,17 @@ end;
 
 function TFontManager.GetFont (FontID:integer) : TMgrFont;
 begin
-  result := TMgrFont(FList[FontID]);
-  if result <> CurFont then  // set last used size of the font as current size
+  if (FontID >= 0) and (FontID < FList.Count) then
+  begin
+    result := TMgrFont(FList[FontID]);
+
+    if result <> CurFont then  // set last used size of the font as current size
     begin
-    CurSize := result.LastSize;
+      CurSize := result.LastSize;
     end;
+  end
+  else
+    Result := nil;
 end;
 
 procedure TFontManager.GetSize (aSize, aResolution : integer);