paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-19 20:39:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

* chunk protected instead of private, Mantis #20543

Browse Source 
git-svn-id: trunk@20969 -
This commit is contained in:
marco 2012-04-21 22:52:58 +00:00
parent 9f6121e878
commit d8101679fa
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -28,7 +28,7 @@ Type
TFPReaderPNG = class (TFPCustomImageReader)
private
Chunk : TChunk;
FHeader : THeaderChunk;
ZData : TMemoryStream; // holds compressed data until all blocks are read
Decompress : TDeCompressionStream; // decompresses the data
@ -61,6 +61,7 @@ Type
function ColorColorAlpha8 (CD:TColorData) : TFPColor;
function ColorColorAlpha16 (CD:TColorData) : TFPColor;
protected
Chunk : TChunk;
UseTransparent, EndOfFile : boolean;
TransparentDataValue : TColorData;
UsingBitGroup : byte;