瀏覽代碼

* patch from mantis #24382 under endian ifdef

git-svn-id: trunk@29103 -
marco 10 年之前
父節點
當前提交
284f5fd234
共有 1 個文件被更改,包括 8 次插入0 次删除
  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;