Unit DIB

Classes

TCustomDXDIB - TCustomDXDIB
TCustomDXPaintBox - TCustomDXPaintBox
TDIB -
TDIBitmap -
TDIBSharedImage -
TDXDIB - TDXDIB
TDXPaintBox - TDXPaintBox

Functions

GreyscaleColorTable -
MakeDIBPixelFormat -
MakeDIBPixelFormatMask -
PaletteEntriesToRGBQuads -
PaletteEntryToRGBQuad -
pfGetBValue -
pfGetGValue -
pfGetRGB -
pfGetRValue -
pfRGB -
RGBQuad -
RGBQuadsToPaletteEntries -
RGBQuadToPaletteEntry -

Types

PArrayBGR
PArrayByte
PArrayDWord
PArrayWord
PBGR
TArrayBGR
TArrayByte
TArrayDWord
TArrayWord
TBGR
TDIBPixelFormat
TPaletteEntries
TRGBQuads

Constants

Variables


Functions


function GreyscaleColorTable: TRGBQuads;


function MakeDIBPixelFormat(RBitCount, GBitCount, BBitCount: Integer): TDIBPixelFormat;


function MakeDIBPixelFormatMask(RBitMask, GBitMask, BBitMask: Integer): TDIBPixelFormat;


function PaletteEntriesToRGBQuads(const Entries: TPaletteEntries): TRGBQuads;


function PaletteEntryToRGBQuad(Entry: TPaletteEntry): TRGBQuad;


function pfGetBValue(const PixelFormat: TDIBPixelFormat; Color: Integer): Byte;


function pfGetGValue(const PixelFormat: TDIBPixelFormat; Color: Integer): Byte;


procedure pfGetRGB(const PixelFormat: TDIBPixelFormat; Color: Integer; var R, G, B: Byte);


function pfGetRValue(const PixelFormat: TDIBPixelFormat; Color: Integer): Byte;


function pfRGB(const PixelFormat: TDIBPixelFormat; R, G, B: Byte): Integer;


function RGBQuad(R, G, B: Byte): TRGBQuad;


function RGBQuadsToPaletteEntries(const RGBQuads: TRGBQuads): TPaletteEntries;


function RGBQuadToPaletteEntry(RGBQuad: TRGBQuad): TPaletteEntry;


Types


PArrayBGR = ^TArrayBGR

PArrayByte = ^TArrayByte

PArrayDWord = ^TArrayDWord

PArrayWord = ^TArrayWord

PBGR = ^TBGR

TArrayBGR = array[0..0] of TBGR;

TArrayByte = array[0..0] of Byte;

TArrayDWord = array[0..0] of DWord;

TArrayWord = array[0..0] of Word;

TBGR = record
B : Byte;
G : Byte;
R : Byte;
end;

TDIBPixelFormat = record
RBitMask : Integer;
GBitMask : Integer;
BBitMask : Integer;
RBitCount : Integer;
GBitCount : Integer;
BBitCount : Integer;
RShift : Integer;
GShift : Integer;
BShift : Integer;
RBitCount2 : Integer;
GBitCount2 : Integer;
BBitCount2 : Integer;
end;
TDIB
TPaletteEntries = array[0..255] of TPaletteEntry;

TRGBQuads = array[0..255] of TRGBQuad;

Constants


Variables