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

* SysUtils unit moved to top of the uses clause to avoid conflicts on PByteArray type

Browse Source 
defined in SysUtils and fpimgcmn
* integer replaced with LongWord in definition of TGetPixelFunc
This commit is contained in:
mazen 2003-08-27 08:49:20 +00:00
parent 395ed45cbb
commit 8ae64efde5
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
fcl/image/fpwritepng.pp
View File

@ -18,11 +18,11 @@ unit FPWritePNG;
interface
uses classes, FPImage, FPImgCmn, PNGComn, ZStream, sysutils;
uses sysutils, classes, FPImage, FPImgCmn, PNGComn, ZStream;
type
TGetPixelFunc = function (x,y : integer) : TColorData of object;
TGetPixelFunc = function (x,y : LongWord) : TColorData of object;
TFPWriterPNG = class (TFPCustomImageWriter)
private
@ -68,7 +68,7 @@ type
procedure DetermineHeader (var AHeader : THeaderChunk); virtual;
function DetermineFilter (Current, Previous:PByteArray; linelength:longword):byte; virtual;
procedure FillScanLine (y : integer; ScanLine : pByteArray); virtual;
property ChunkDataBuffer : PByteArray read FChunk.data;
property ChunkDataBuffer : pByteArray read FChunk.data;
property UsetRNS : boolean read FUsetRNS;
property SingleTransparentColor : TFPColor read FTransparentColor;
property ThePalette : TFPPalette read FPalette;