Fix in fxgraphiccontrol.pas for alpha in Colorize

bgrabitmap · Oct 25, 2016 · d0aab0e · d0aab0e
1 parent 03b6af0
commit d0aab0e
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/fxgraphiccontrol.pas b/fxgraphiccontrol.pas
@@ -183,7 +183,7 @@ procedure TFXGraphicControl.Colorize(Source, Dest: TBGRABitmap; c: TBGRAPixel);
     pdest^.red := GammaCompressionTab[((GammaExpansionTab[psource^.red]*ec.red+65535) shr 16)];
     pdest^.green := GammaCompressionTab[((GammaExpansionTab[psource^.green]*ec.green+65535) shr 16)];
     pdest^.blue := GammaCompressionTab[((GammaExpansionTab[psource^.blue]*ec.blue+65535) shr 16)];
-    pdest^.alpha := psource^.alpha; //(pdest^.alpha*ec.alpha+255) shr 16;
+    pdest^.alpha := (psource^.alpha*ec.alpha+255) shr 16;
     inc(pdest);
     inc(psource);
   end;