Browse Source

* patch from mantis #24382 under endian ifdef

git-svn-id: trunk@29103 -
marco 10 years ago
parent
commit
284f5fd234
1 changed files with 8 additions and 0 deletions
  1. 8 0
      packages/fcl-image/src/fpreadpng.pp

+ 8 - 0
packages/fcl-image/src/fpreadpng.pp

@@ -534,13 +534,21 @@ end;
 function TFPReaderPNG.ColorGrayAlpha16 (CD:TColorData) : TFPColor;
 var c : word;
 begin
+  {$ifdef FPC_LITTLE_ENDIAN}
+  c := CD and $FFFF;
+  {$else}
   c := (CD shr 16) and $FFFF;
+  {$endif}
   with result do
     begin
     red := c;
     green := c;
     blue := c;
+  {$ifdef FPC_LITTLE_ENDIAN}
+    alpha := (CD shr 16) and $FFFF;
+  {$else}
     alpha := CD and $FFFF;
+  {$endif}
     end;
 end;