Browse Source

fix texture average opacity

johann 5 years ago
parent
commit
b9cc21213d
1 changed files with 1 additions and 0 deletions
  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;