Merge branch source:main into main

packages/fcl-image/src/ftfont.pp

@@ -388,6 +388,7 @@ procedure TFreeTypeFont.DrawChar (x,y:integer; data:PByteArray; pitch, width, he
   var
     pixelcolor: TFPColor;
   begin
+    if t = 0 then exit;
     case canv.DrawingMode of
       dmOpaque:
       begin