Class TBMLoader (unit Univbm)

Inherits from

TObject

Constructors


constructor Create(aName,aMask : string);



Functions

procedure BeginBitmap(wide,high:word);


procedure BitmapDone(bitmap:TBitmap; wide,high : word);


procedure CleanUp;


procedure FileClose;


procedure FileOpen(name : string);


procedure FileSeek(where : longint);


procedure FinishPalette(colours:integer);


procedure Load(name : string; bitmap : TBitmap);


function NextByte:byte;


procedure SetPalette(c,r,g,b : byte);

fillchar(pal^,4+colours*4,0);

procedure StartPalette(colours : integer);


procedure WriteLine(wide,line : word; bits : byte; bitData : pointer);


Properties

Events

Variables

buffer : PBuffer;


form : TForm;


FormatMask : string;


FormatName : string;


hPal : HPALETTE;


infile : file;


pal : PLogPalette;


pos : word;



Constructors


constructor Create(aName,aMask : string);


Functions


procedure BeginBitmap(wide,high:word);


procedure BitmapDone(bitmap:TBitmap; wide,high : word);


procedure CleanUp;


procedure FileClose;


procedure FileOpen(name : string);


procedure FileSeek(where : longint);


procedure FinishPalette(colours:integer);


procedure Load(name : string; bitmap : TBitmap);


function NextByte:byte;


procedure SetPalette(c,r,g,b : byte);

fillchar(pal^,4+colours*4,0);


procedure StartPalette(colours : integer);


procedure WriteLine(wide,line : word; bits : byte; bitData : pointer);


Properties


Events


Variables


buffer : PBuffer;


form : TForm;


FormatMask : string;


FormatName : string;


hPal : HPALETTE;


infile : file;


pal : PLogPalette;


pos : word;