johann 5 лет назад
Родитель
Сommit
b9cc21213d
1 измененных файлов с 1 добавлено и 0 удалено
  1. 1 0
      lazpaintcontrols/lcvectorialfill.pas

+ 1 - 0
lazpaintcontrols/lcvectorialfill.pas

@@ -440,6 +440,7 @@ begin
         FTextureAverageColorComputed := true;
       end;
       result := FTextureAverageColor;
+      result.alpha := BGRABlend.ApplyOpacity(result.alpha, TextureOpacity);
     end
   else {vftSolid} result := SolidColor;
   end;