diff options
| -rw-r--r-- | packages/fcl-image/src/fpreadpng.pp | 8 |
1 files 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; |