From bf52e58175fa8fc57766fae1303531b75cb94c1d Mon Sep 17 00:00:00 2001
From: marco <marco@freepascal.org>
Date: Thu, 4 Mar 2010 22:33:05 +0000
Subject: [PATCH]  * committed an old patch from M Schreiber, mantis #11855
 that fixes loading 8-bit gray alpha using PNG loading.

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

diff --git a/packages/fcl-image/src/fpreadpng.pp b/packages/fcl-image/src/fpreadpng.pp
index e6b52501be..dc90cfdef6 100644
--- a/packages/fcl-image/src/fpreadpng.pp
+++ b/packages/fcl-image/src/fpreadpng.pp
@@ -519,15 +519,15 @@ end;
 function TFPReaderPNG.ColorGrayAlpha8 (CD:TColorData) : TFPColor;
 var c : word;
 begin
-  c := CD and $FF00;
-  c := c + (c shr 8);
+  c := CD and $00FF;
+  c := c + (c shl 8);
   with result do
     begin
     red := c;
     green := c;
     blue := c;
-    c := CD and $FF;
-    alpha := c + (c shl 8);
+    c := CD and $FF00;
+    alpha := c + (c shr 8);
     end;
 end;