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

+ Merged revision 505

Browse Source 
git-svn-id: branches/fixes_2_0@506 -
This commit is contained in:
michael 2005-06-26 14:50:19 +00:00
parent c0d773c749
commit 5048841b53
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
fcl/image/fpwritepng.pp
View File

@ -472,7 +472,7 @@ end;
function TFPWriterPNG.ColorDataColorW(color:TFPColor) : TColorData;
begin
with color do
result := red + (green shl 16) + (blue shl 32);
result := red + (green shl 16) + (qword(blue) shl 32);
end;
function TFPWriterPNG.ColorDataColorAB(color:TFPColor) : TColorData;
@ -484,7 +484,7 @@ end;
function TFPWriterPNG.ColorDataColorAW(color:TFPColor) : TColorData;
begin
with color do
result := red + (green shl 16) + (blue shl 32) + (alpha shl 48);
result := red + (green shl 16) + (qword(blue) shl 32) + (qword(alpha) shl 48);
end;
{ Data making routines }