Browse Source

* Fix alpha-blended area text drawing. Patch by Werner Pamler, fixes issue #41577

Michaël Van Canneyt 1 week ago
parent
commit
0681d239f1
1 changed files with 1 additions and 0 deletions
  1. 1 0
      packages/fcl-image/src/ftfont.pp

+ 1 - 0
packages/fcl-image/src/ftfont.pp

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