Просмотр исходного кода

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

Michaël Van Canneyt 1 неделя назад
Родитель
Сommit
0681d239f1
1 измененных файлов с 1 добавлено и 0 удалено
  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
     pixelcolor: TFPColor;
   begin
+    if t = 0 then exit;
     case canv.DrawingMode of
       dmOpaque:
       begin