Class TBGRAWriterBmpMioMap

Unit

BGRAWriteBmpMioMap

Declaration

type TBGRAWriterBmpMioMap = class(TFPCustomImageWriter)

Description

Extends the TFPCustomImageWriter to write the BMP MioMap (iGO) image format

Hierarchy

TFPCustomImageWriter
TBGRAWriterBmpMioMap

Overview

Fields

	`FChunks: array of TMemoryStream;`
	`FCurrentChunk: TMemoryStream;`
	`FHeader: TMioHeader;`
	`FMaxChunkSize: Word;`
	`FPalette: packed of record ColorValue: Word; AlphaValue: Byte; Padding: Byte; end;`
	`FPaletteAlpha: boolean;`
	`FPaletteIndexes: packed[0..65535] of Int32or64;`
	`FPaletteOffset: Int32or64;`

Methods

	`constructor Create; override;`
	`function IndexOfColor(const AColor: TBGRAPixel): Int32or64;`
	`procedure AppendToChunks(const Buffer; Count: integer);`
	`procedure BuildPaletteAndChunks(Img: TFPCustomImage);`
	`procedure FlushChunk;`
	`procedure FreeChunks;`
	`procedure InitChunks;`
	`procedure InitHeader(Img: TFPCustomImage);`
	`procedure InitPalette;`
	`procedure InternalWrite(Str: TStream; Img: TFPCustomImage); override;`
	`procedure NeedChunk;`
	`procedure ReadScanline(Img: TFPCustomImage; Y: integer; ADest: PBGRAPixel);`
	`procedure WriteChunks(Str: TStream);`
	`procedure WriteHeader(Str: TStream);`
	`procedure WritePalette(Str: TStream);`

Properties

property MaxChunkSize: Word read FMaxChunkSize write FMaxChunkSize;

Description

Fields

	`FChunks: array of TMemoryStream;`
This item has no description.

	`FCurrentChunk: TMemoryStream;`
This item has no description.

	`FHeader: TMioHeader;`
This item has no description.

	`FMaxChunkSize: Word;`
This item has no description.

	`FPalette: packed of record ColorValue: Word; AlphaValue: Byte; Padding: Byte; end;`
This item has no description.

	`FPaletteAlpha: boolean;`
This item has no description.

	`FPaletteIndexes: packed[0..65535] of Int32or64;`
This item has no description.

	`FPaletteOffset: Int32or64;`
This item has no description.

Methods

	`constructor Create; override;`
Creates the writer

	`function IndexOfColor(const AColor: TBGRAPixel): Int32or64;`
This item has no description.

	`procedure AppendToChunks(const Buffer; Count: integer);`
This item has no description.

	`procedure BuildPaletteAndChunks(Img: TFPCustomImage);`
This item has no description.

	`procedure FlushChunk;`
This item has no description.

	`procedure FreeChunks;`
This item has no description.

	`procedure InitChunks;`
This item has no description.

	`procedure InitHeader(Img: TFPCustomImage);`
This item has no description.

	`procedure InitPalette;`
This item has no description.

	`procedure InternalWrite(Str: TStream; Img: TFPCustomImage); override;`
This item has no description.

	`procedure NeedChunk;`
This item has no description.

	`procedure ReadScanline(Img: TFPCustomImage; Y: integer; ADest: PBGRAPixel);`
This item has no description.

	`procedure WriteChunks(Str: TStream);`
This item has no description.

	`procedure WriteHeader(Str: TStream);`
This item has no description.

	`procedure WritePalette(Str: TStream);`
This item has no description.

Properties

	`property MaxChunkSize: Word read FMaxChunkSize write FMaxChunkSize;`
Maximum size for data chunks (by default 254 but this can be increased)