Class TMap (unit Map)

Inherits from

TObject

Constructors


constructor Create;

Methods

------------------------------------------------------------------------------



Functions

procedure ClearFlags;

------------------------------------------------------------------------------

procedure CopyFrom( AMap: TMap );

------------------------------------------------------------------------------

destructor Destroy;

------------------------------------------------------------------------------

procedure Randomize( MaxType: TCellType );

------------------------------------------------------------------------------

function GetCellPtr( X,Y: Integer ):PCell;

------------------------------------------------------------------------------

function GetFlag( X,Y: Integer ):TCellFlag;

------------------------------------------------------------------------------

function GetTypeIndex( X,Y: Integer ):TCellType;

------------------------------------------------------------------------------

procedure SetFlag( X,Y: Integer; Value: TCellFlag );

------------------------------------------------------------------------------

procedure SetHeight( Value: Integer );

------------------------------------------------------------------------------

procedure SetTypeIndex( X,Y: Integer; Value: TCellType );

------------------------------------------------------------------------------

procedure SetWidth( Value: Integer );

------------------------------------------------------------------------------

procedure SizeChanged;

------------------------------------------------------------------------------

Properties

property Cells : PCell


property Flags : TCellFlag


property Height : Integer


property TypeIndex : TCellType


property Width : Integer

Properties

Events

Variables

FData : PMapArray;


FHeight : Integer;


FWidth : Integer;



Constructors


constructor Create;

Methods

------------------------------------------------------------------------------


Functions


procedure ClearFlags;

------------------------------------------------------------------------------


procedure CopyFrom( AMap: TMap );

------------------------------------------------------------------------------


destructor Destroy;

------------------------------------------------------------------------------


procedure Randomize( MaxType: TCellType );

------------------------------------------------------------------------------


function GetCellPtr( X,Y: Integer ):PCell;

------------------------------------------------------------------------------


function GetFlag( X,Y: Integer ):TCellFlag;

------------------------------------------------------------------------------


function GetTypeIndex( X,Y: Integer ):TCellType;

------------------------------------------------------------------------------


procedure SetFlag( X,Y: Integer; Value: TCellFlag );

------------------------------------------------------------------------------


procedure SetHeight( Value: Integer );

------------------------------------------------------------------------------


procedure SetTypeIndex( X,Y: Integer; Value: TCellType );

------------------------------------------------------------------------------


procedure SetWidth( Value: Integer );

------------------------------------------------------------------------------


procedure SizeChanged;

------------------------------------------------------------------------------


Properties


property Cells : PCell


property Flags : TCellFlag


property Height : Integer


property TypeIndex : TCellType


property Width : Integer

Properties


Events


Variables


FData : PMapArray;


FHeight : Integer;


FWidth : Integer;