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 = recorduse this structure instead of TRGBTriple.} {TRGBTriple is reversed, confusing with read results
r : byte;
g : byte;
b : byte;
end;
Constants |
Variables |