paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-13 11:29:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

* committed an old patch from M Schreiber, mantis #11855 that fixes loading 8-bit gray alpha using PNG loading.

Browse Source 
git-svn-id: trunk@14972 -
This commit is contained in:
marco 2010-03-04 22:33:05 +00:00
parent a7dca09535
commit bf52e58175
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
packages/fcl-image/src/fpreadpng.pp
View File

@ -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;