paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 02:49:21 +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 interface
uses classes, FPImage, FPImgCmn, PNGComn, ZStream, sysutils; uses sysutils, classes, FPImage, FPImgCmn, PNGComn, ZStream;
type type
TGetPixelFunc = function (x,y : integer) : TColorData of object; TGetPixelFunc = function (x,y : LongWord) : TColorData of object;
TFPWriterPNG = class (TFPCustomImageWriter) TFPWriterPNG = class (TFPCustomImageWriter)
private private
@ -68,7 +68,7 @@ type
procedure DetermineHeader (var AHeader : THeaderChunk); virtual; procedure DetermineHeader (var AHeader : THeaderChunk); virtual;
function DetermineFilter (Current, Previous:PByteArray; linelength:longword):byte; virtual; function DetermineFilter (Current, Previous:PByteArray; linelength:longword):byte; virtual;
procedure FillScanLine (y : integer; ScanLine : pByteArray); 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 UsetRNS : boolean read FUsetRNS;
property SingleTransparentColor : TFPColor read FTransparentColor; property SingleTransparentColor : TFPColor read FTransparentColor;
property ThePalette : TFPPalette read FPalette; property ThePalette : TFPPalette read FPalette;