소스 검색

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;