Class TBGRAReaderBMP
Unit
Declaration
type TBGRAReaderBMP = class(TBGRAImageReader)
Description
Reader for BMP format
Hierarchy
- TFPCustomImageReader
- TBGRAImageReader
- TBGRAReaderBMP
Overview
Fields
 |
BFH: TBitMapFileHeader; |
|
BFI: TBitMapInfoHeader; |
|
BlueMask: LongWord; |
|
BlueShift: shortint; |
|
FBGRAPalette: PBGRAPixel; |
|
FBuffer: packed of byte; |
|
FBufferPos: integer; |
|
FBufferSize: integer; |
|
FBufferStream: TStream; |
|
FHasAlphaValues: boolean; |
|
FMaskData: PByte; |
|
FMaskDataSize: integer; |
|
FOriginalHeight: Integer; |
|
FOutputHeight: integer; |
|
FPalette: PFPcolor; |
|
FPaletteEntrySize: integer; |
|
FTransparencyOption: TBMPTransparencyOption; |
|
GreenMask: LongWord; |
|
GreenShift: shortint; |
 |
Hotspot: TPoint; |
|
LineBuf: PByte; |
|
MinifyHeight: integer; |
|
ReadSize: Integer; |
|
RedMask: LongWord; |
|
RedShift: shortint; |
|
Subformat: TBitmapSubFormat; |
|
WantedHeight: integer; |
Methods
|
constructor Create; override; |
|
destructor Destroy; override; |
|
function GetBitmapDraft(AStream: TStream; AMaxWidth, AMaxHeight: integer; out AOriginalWidth,AOriginalHeight: integer): TBGRACustomBitmap; override; |
|
function GetQuickInfo(AStream: TStream): TQuickImageInfo; override; |
|
function CountBits(Value : byte) : shortint; |
|
function ExpandColor(value : LongWord) : TFPColor; |
|
function ExpandColorBGRA(value : LongWord) : TBGRAPixel; |
|
function GetNextBufferByte: byte; |
|
function InternalCheck(Stream:TStream) : boolean; override; |
|
function ShiftCount(Mask : LongWord) : shortint; |
|
procedure CloseReadBuffer; |
|
procedure ExpandRLE4ScanLine(Row : Integer; Stream : TStream); |
|
procedure ExpandRLE8ScanLine(Row : Integer; Stream : TStream); |
|
procedure ImageVerticalLoop(Stream:TStream; Img:TFPCustomImage; ReadProc, SkipProc: TReadScanlineProc; WriteProc: TWriteScanlineProc; ProgressProc: TProgressProc; var ShouldContinue: boolean); |
|
procedure InitReadBuffer(AStream: TStream; ASize: integer); |
|
procedure InternalRead(Stream:TStream; Img:TFPCustomImage); override; |
|
procedure LoadMask(Stream:TStream; Img:TFPCustomImage; var ShouldContinue: boolean); |
|
procedure MainProgressProc(Percent: integer; var ShouldContinue: boolean); |
|
procedure MakeOpaque(Img: TFPCustomImage); |
|
procedure ReadMaskLine(Row : Integer; Stream : TStream); virtual; |
|
procedure ReadResolutionValues(Img: TFPCustomImage); virtual; |
|
procedure ReadScanLine(Row : Integer; Stream : TStream); virtual; |
|
procedure SetupRead(nPalette, nRowBits: Integer; Stream : TStream); virtual; |
|
procedure SkipMaskLine(Row : Integer; Stream : TStream); virtual; |
|
procedure SkipScanLine(Row : Integer; Stream : TStream); virtual; |
|
procedure WriteMaskLine(Row : Integer; Img : TFPCustomImage); virtual; |
|
procedure WriteScanLine(Row : Integer; Img : TFPCustomImage); virtual; |
|
procedure WriteScanLineBGRA(Row : Integer; Img : TFPCustomImage); virtual; |
Properties
|
property OriginalHeight: integer read FOriginalHeight; |
|
property OutputHeight: integer read FOutputHeight; |
|
property TransparencyOption: TBMPTransparencyOption read FTransparencyOption write FTransparencyOption; |
Description
Fields
|
BFH: TBitMapFileHeader; |
|
Size (in bytes) of 1 scanline. | |
|
BFI: TBitMapInfoHeader; |
|
The file header | |
|
BlueMask: LongWord; |
|
Buffer for 1 scanline. Can be Byte, Word, TColorRGB or TColorRGBA | |
|
BlueShift: shortint; |
|
Used if Compression=bi_bitfields | |
|
FBGRAPalette: PBGRAPixel; |
|
Buffer with Palette entries. (useless now) | |
|
FBuffer: packed of byte; |
|
This item has no description. | |
|
FBufferPos: integer; |
|
This item has no description. | |
|
FBufferSize: integer; |
|
This item has no description. | |
|
FBufferStream: TStream; |
|
This item has no description. | |
|
FHasAlphaValues: boolean; |
|
This item has no description. | |
|
FMaskData: PByte; |
|
This item has no description. | |
|
FMaskDataSize: integer; |
|
This item has no description. | |
|
FOriginalHeight: Integer; |
|
This item has no description. | |
|
FOutputHeight: integer; |
|
This item has no description. | |
|
FPalette: PFPcolor; |
|
4 for Windows, 3 for OS/2 1.x | |
|
FPaletteEntrySize: integer; |
|
The header as read from the stream. | |
|
FTransparencyOption: TBMPTransparencyOption; |
|
This item has no description. | |
|
GreenMask: LongWord; |
|
Buffer for 1 scanline. Can be Byte, Word, TColorRGB or TColorRGBA | |
|
GreenShift: shortint; |
|
Used if Compression=bi_bitfields | |
|
Hotspot: TPoint; |
|
This item has no description. | |
|
LineBuf: PByte; |
|
This item has no description. | |
|
MinifyHeight: integer; |
|
This item has no description. | |
|
ReadSize: Integer; |
|
Free (and nil) buffers. | |
|
RedMask: LongWord; |
|
Buffer for 1 scanline. Can be Byte, Word, TColorRGB or TColorRGBA | |
|
RedShift: shortint; |
|
Used if Compression=bi_bitfields | |
|
Subformat: TBitmapSubFormat; |
|
This item has no description. | |
|
WantedHeight: integer; |
|
This item has no description. | |
Methods
|
constructor Create; override; |
|
This item has no description. | |
|
destructor Destroy; override; |
|
This item has no description. | |
|
function GetBitmapDraft(AStream: TStream; AMaxWidth, AMaxHeight: integer; out AOriginalWidth,AOriginalHeight: integer): TBGRACustomBitmap; override; |
|
This item has no description. Showing description inherited from TBGRAImageReader.GetBitmapDraft. Return a draft of the bitmap, the ratio may change compared to the original width and height (useful to make thumbnails) | |
|
function GetQuickInfo(AStream: TStream): TQuickImageInfo; override; |
|
This item has no description. Showing description inherited from TBGRAImageReader.GetQuickInfo. Return bitmap information (size, bit depth) | |
|
function CountBits(Value : byte) : shortint; |
|
This item has no description. | |
|
function ExpandColor(value : LongWord) : TFPColor; |
|
This item has no description. | |
|
function ExpandColorBGRA(value : LongWord) : TBGRAPixel; |
|
This item has no description. | |
|
function GetNextBufferByte: byte; |
|
This item has no description. | |
|
function InternalCheck(Stream:TStream) : boolean; override; |
|
This item has no description. | |
|
function ShiftCount(Mask : LongWord) : shortint; |
|
This item has no description. | |
|
procedure CloseReadBuffer; |
|
This item has no description. | |
|
procedure ExpandRLE4ScanLine(Row : Integer; Stream : TStream); |
|
This item has no description. | |
|
procedure ExpandRLE8ScanLine(Row : Integer; Stream : TStream); |
|
This item has no description. | |
|
procedure ImageVerticalLoop(Stream:TStream; Img:TFPCustomImage; ReadProc, SkipProc: TReadScanlineProc; WriteProc: TWriteScanlineProc; ProgressProc: TProgressProc; var ShouldContinue: boolean); |
|
This item has no description. | |
|
procedure InitReadBuffer(AStream: TStream; ASize: integer); |
|
This item has no description. | |
|
procedure InternalRead(Stream:TStream; Img:TFPCustomImage); override; |
|
required by TFPCustomImageReader | |
|
procedure LoadMask(Stream:TStream; Img:TFPCustomImage; var ShouldContinue: boolean); |
|
This item has no description. | |
|
procedure MainProgressProc(Percent: integer; var ShouldContinue: boolean); |
|
This item has no description. | |
|
procedure MakeOpaque(Img: TFPCustomImage); |
|
This item has no description. | |
|
procedure ReadMaskLine(Row : Integer; Stream : TStream); virtual; |
|
This item has no description. | |
|
procedure ReadResolutionValues(Img: TFPCustomImage); virtual; |
|
This item has no description. | |
|
procedure ReadScanLine(Row : Integer; Stream : TStream); virtual; |
|
This item has no description. | |
|
procedure SetupRead(nPalette, nRowBits: Integer; Stream : TStream); virtual; |
|
| |
|
procedure SkipMaskLine(Row : Integer; Stream : TStream); virtual; |
|
This item has no description. | |
|
procedure SkipScanLine(Row : Integer; Stream : TStream); virtual; |
|
This item has no description. | |
|
procedure WriteMaskLine(Row : Integer; Img : TFPCustomImage); virtual; |
|
This item has no description. | |
|
procedure WriteScanLine(Row : Integer; Img : TFPCustomImage); virtual; |
|
This item has no description. | |
|
procedure WriteScanLineBGRA(Row : Integer; Img : TFPCustomImage); virtual; |
|
This item has no description. | |
Properties
|
property OriginalHeight: integer read FOriginalHeight; |
|
This item has no description. | |
|
property OutputHeight: integer read FOutputHeight; |
|
This item has no description. | |
|
property TransparencyOption: TBMPTransparencyOption read FTransparencyOption write FTransparencyOption; |
|
This item has no description. | |