From ade1bad057d01ba1c25b35aff57b8a6020fca170 Mon Sep 17 00:00:00 2001
From: ondrej <ondrej@idefix.freepascal.org>
Date: Wed, 21 Jul 2021 20:16:00 +0000
Subject: [PATCH] TBAseStringBitmaps.CalculateGlobals: the first <non-empty>
 bitmap should be used, not the first one

git-svn-id: trunk@49625 -
---
 packages/fcl-image/src/freetype.pp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/packages/fcl-image/src/freetype.pp b/packages/fcl-image/src/freetype.pp
index f3d818013a..1e36c50343 100644
--- a/packages/fcl-image/src/freetype.pp
+++ b/packages/fcl-image/src/freetype.pp
@@ -1000,7 +1000,7 @@ begin
   While (l<Count) and (BitMaps[l]^.Width=0) and (BitMaps[l]^.Height=0) do
     Inc(l);
   if L<Count then
-    with BitMaps[0]^ do
+    with BitMaps[L]^ do
       begin
       FBounds.left := x;
       FBounds.top := y + height;