Class TShape (unit Shape)

Inherits from

TObject

The TShape class defines a sinple shape used in the game.

Constructors


constructor Create;

Our constructor and destructor.


Functions

procedure DefineEdge(iVertex1: Integer; iVertex2: Integer);

Add the point to the vertex list.

procedure DefineVertex(pt: TFinePoint);

Method for defining a vertex or an edge.

destructor Destroy;

Create lists to manage vertices and edges.

Properties

property lstEdges : TList


property lstVertices : TList


property szName : String

Public properties.

Events

Variables

m_lstEdges : TList;

List of vertices used in this shape.

m_lstVertices : TList;

Name assigned to the shape.

m_szName : String;



Constructors


constructor Create;

Our constructor and destructor.


Functions


procedure DefineEdge(iVertex1: Integer; iVertex2: Integer);

Add the point to the vertex list.


procedure DefineVertex(pt: TFinePoint);

Method for defining a vertex or an edge.

Perform default processing.


destructor Destroy;

Create lists to manage vertices and edges.


Properties


property lstEdges : TList


property lstVertices : TList


property szName : String

Public properties.


Events


Variables


m_lstEdges : TList;

List of vertices used in this shape.


m_lstVertices : TList;

Name assigned to the shape.


m_szName : String;