* Fix the byte -> word expansion of the alpha channel on palette enties of a PNG image

git-svn-id: trunk@15926 -

packages/fcl-image/src/fpreadpng.pp

@@ -196,7 +196,7 @@ procedure TFPReaderPNG.HandleAlpha;
           begin
           c := ThePalette[r];
           a := data^[r];
-          c.alpha := (a shl 16) + a;
+          c.alpha := (a shl 8) + a;
           ThePalette[r] := c;
           end;
         end;