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

+ Read/WriteScanline virtual, as intended

Browse Source
This commit is contained in:
michael 2004-02-20 23:12:57 +00:00
parent 3d94743ad3
commit 5497323e68
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
fcl/image/fpreadbmp.pp
View File

@ -36,8 +36,9 @@ type
// SetupRead will allocate the needed buffers, and read the colormap if needed. // SetupRead will allocate the needed buffers, and read the colormap if needed.
procedure SetupRead(nPalette, nRowBits: Integer; Stream : TStream); virtual; procedure SetupRead(nPalette, nRowBits: Integer; Stream : TStream); virtual;
procedure ReadScanLine(Row : Integer; Stream : TStream); procedure ReadScanLine(Row : Integer; Stream : TStream); virtual;
procedure WriteScanLine(Row : Integer; Img : TFPCustomImage); procedure WriteScanLine(Row : Integer; Img : TFPCustomImage); virtual;
// required by TFPCustomImageReader
procedure InternalRead (Stream:TStream; Img:TFPCustomImage); override; procedure InternalRead (Stream:TStream; Img:TFPCustomImage); override;
function InternalCheck (Stream:TStream) : boolean; override; function InternalCheck (Stream:TStream) : boolean; override;
public public
@ -219,7 +220,10 @@ initialization
end. end.
{ {
$Log$ $Log$
Revision 1.9 2004-02-20 23:07:44 michael Revision 1.10 2004-02-20 23:12:57 michael
+ Read/WriteScanline virtual, as intended
Revision 1.9 2004/02/20 23:07:44 michael
+ Small improvements. More cosmetic in nature + Small improvements. More cosmetic in nature
Revision 1.8 2004/02/20 23:00:35 michael Revision 1.8 2004/02/20 23:00:35 michael