From e86aa0443392e301d0ff9678e21c0bb63f584f4b Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Tue, 21 Apr 2015 17:55:52 +0000
Subject: [PATCH] * Fix to correctly write gray values from Johann (Bug ID
 27924)

git-svn-id: trunk@30696 -
---
 packages/fcl-image/src/fpwritepng.pp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/packages/fcl-image/src/fpwritepng.pp b/packages/fcl-image/src/fpwritepng.pp
index 66e19a7334..151a68d042 100644
--- a/packages/fcl-image/src/fpwritepng.pp
+++ b/packages/fcl-image/src/fpwritepng.pp
@@ -475,13 +475,13 @@ end;
 function TFPWriterPNG.ColorDataGrayAB(color:TFPColor) : TColorData;
 begin
   result := ColorDataGrayB (color);
-  result := (result shl 8) and hi(color.Alpha);
+  result := (color.Alpha and $ff00) or result;
 end;
 
 function TFPWriterPNG.ColorDataGrayAW(color:TFPColor) : TColorData;
 begin
   result := ColorDataGrayW (color);
-  result := (result shl 16) and color.Alpha;
+  result := (color.Alpha shl 16) or result;
 end;
 
 function TFPWriterPNG.ColorDataColorB(color:TFPColor) : TColorData;