| Class TShape (unit Shape) |
TObject
The TShape class defines a sinple shape used in the game.
| Constructors |
constructor Create;| Functions |
procedure DefineEdge(iVertex1: Integer; iVertex2: Integer);
procedure DefineVertex(pt: TFinePoint);
destructor Destroy;| Properties |
property lstEdges : TList
property lstVertices : TList
property szName : String| Events |
| Variables |
m_lstEdges : TList;
m_lstVertices : TList;
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 : StringPublic properties.
| Events |
| Variables |
m_lstEdges : TList;List of vertices used in this shape.
m_lstVertices : TList;Name assigned to the shape.
m_szName : String;