| Class TMap (unit Map) |
TObject
| Constructors |
constructor Create;------------------------------------------------------------------------------
| 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| 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 : IntegerProperties
| Events |
| Variables |
FData : PMapArray;
FHeight : Integer;
FWidth : Integer;