CONST
PixelCountMax = 32768;
TYPE
pRGBArray = ^TRGBArray;
TRGBArray = ARRAY[0..PixelCountMax-1] OF TRGBTriple;
--------------------------------------------------------------------------------
Note: TRGBTriple is defined in the Windows.PAS unit.
To step through a 24-bit bitmap and while creating a new one and
access the 3-bytes-per-pixel data, use a construct like the following:
--------------------------------------------------------------------------------
...
VAR
RowOriginal : pRGBArray;
RowProcessed: pRGBArray;
记得多看看Windows.pas单元