Inherits from
TObject
constructor Create;
- Methods
------------------------------------------------------------------------------
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;
------------------------------------------------------------------------------
property Cells : PCell
property Flags : TCellFlag
property Height : Integer
property TypeIndex : TCellType
property Width : Integer
Properties
FData : PMapArray;
FHeight : Integer;
FWidth : Integer;
constructor Create;
Methods
------------------------------------------------------------------------------
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;
------------------------------------------------------------------------------
property Cells : PCell
property Flags : TCellFlag
property Height : Integer
property TypeIndex : TCellType
property Width : Integer
Properties
FData : PMapArray;
FHeight : Integer;
FWidth : Integer;