瀏覽代碼

fix texture average opacity

johann 5 年之前
父節點
當前提交
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;