Unit Pcxctrl

Delphi 16/256-Color PCX Reader Support objects} {copyright 1998, MDRUtils(tm) Mark D. Rafn} // ************************************************************************** // NOTE: Range Checking is turned off due to Borland zero length array types // procedures needing this directive are labeled if you want to isolate // ************************************************************************** {$R-

Classes

TDecoder -
TDecoder16 -
TDecoder256 -
TPCXBitmap -

Functions

Types

TPCXColorModel
TPcxColors16
TPCXColors256
TPCXHeader
TPCXTriple

Constants

Variables


Functions


Types


TPCXColorModel = (Color16, Color256);

TPcxColors16 = array[0..15] of TPCXTriple;

TPCXColors256 = array[0..255] of TPCXTriple;

TPCXHeader = record
Maker : byte;
Version : byte;
Encoding : byte;
Bpp : byte;
Xmn : smallint;
Ymn : smallint;
Xmx : smallint;
Ymx : smallint;
HRes : smallint;
VRes : smallint;
CMap : TPcxColors16;
Reserved : byte;
NPlanes : byte;
NBpl : smallint;
PalType : smallint;
end;

TPCXTriple = record
r : byte;
g : byte;
b : byte;
end;
use this structure instead of TRGBTriple.} {TRGBTriple is reversed, confusing with read results

Constants


Variables