Class TShape (unit Shape) |
Inherits from
TObject
The TShape class defines a sinple shape used in the game.
constructor Create;
- Our constructor and destructor.
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.
property lstEdges : TList
property lstVertices : TList
property szName : String
Public properties.
m_lstEdges : TList;
List of vertices used in this shape.
m_lstVertices : TList;
Name assigned to the shape.
m_szName : String;
constructor Create;
Our constructor and destructor.
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.
property lstEdges : TList
property lstVertices : TList
property szName : String
Public properties.
m_lstEdges : TList;
List of vertices used in this shape.
m_lstVertices : TList;
Name assigned to the shape.
m_szName : String;