TMBitmaps

type TMBitmaps = class(TObject)

protected

  Client: TObject;

  FreeSpots: ;

  BmpArray: TMufasaBmpArray;

  BmpsCurr: Integer;

  BmpsHigh: Integer;

  FreeSpotsHigh: Integer;

  FreeSpotsLen: Integer;

  function GetNewIndex;

public

  function GetBMP();

  property Bmp: TMufasaBitmap; default; [r]

  function CreateBMP();

  function AddBMP();

  function CopyBMP();

  function CreateMirroredBitmap();

  function CreateBMPFromFile();

  function CreateBMPFromString();

  procedure FreeBMP();

  constructor Create();

  destructor Destroy; override;

end;

TMBitmaps

Manages TMufasaBitmaps in an array.

TObject