diff options
| author | marc <marc@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2010-08-31 21:09:40 +0000 |
|---|---|---|
| committer | marc <marc@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2010-08-31 21:09:40 +0000 |
| commit | 50b122e383e725160982fcdb9b94990950f57f4f (patch) | |
| tree | 1bc8b6dbd8d2f9844040af6006429778056f194d /packages/fcl-image | |
| parent | 92496009f721eec56319c6070d76986069e8ee8c (diff) | |
| download | fpc-50b122e383e725160982fcdb9b94990950f57f4f.tar.gz | |
* Fix the byte -> word expansion of the alpha channel on palette enties of a PNG image
git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@15926 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'packages/fcl-image')
| -rw-r--r-- | packages/fcl-image/src/fpreadpng.pp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/packages/fcl-image/src/fpreadpng.pp b/packages/fcl-image/src/fpreadpng.pp index dc90cfdef6..49afacecf4 100644 --- a/packages/fcl-image/src/fpreadpng.pp +++ b/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; |