Все компоненты Е-сети в СВПИМ порождены от базового класса TNObject и перегружают все его виртуальные функции. Кроме того, каждый из компонентов имеет собственные данные и методы, специфичные для него.
Переходы представлены в редакторе классом TNetObj. Кроме свойств, определенных в базовом классе, объект имеет набор собственных свойств, описывающих тип перехода, ширину графического изображения, высоту графического изображения, выражение в операторе TIME, выражение в операторе CONTROL, выражение в операторе TRANSFER и т. д.
Позиции представлены классом TposObj Кроме свойств определенных в базовом классе, объект имеет следующий набор собственных свойств: тип — позиция или очередь, ширина графического изображения, высота графического изображения, ориентация, координаты точек привязки линий, состояние точек привязки и т. д.
Дуги представлены классом TlineObj Кроме свойств, определенных в базовом классе, объект имеет следующий набор собственных свойств: тип дуги, направление дуги, указатель на переход, к которому присоединена дуга, указатель на позицию, к которой присоединена дуга и т. д.
Для осуществления возможности визуального отображения процесса моделирования к свойствам позиций и переходов были добавлены дополнительные свойства. описывающие наличие или отсутствие фишек в позиции и свойства помечающие переход как сработавший.
Класс TNetObj:
TNetObj = class (TNObject)
public
TypeNet :TAllTypeNet;
ResizeRgn :HRGN;
Width :integer;
Height :integer;
HeightVertLine:integer;
IsPassed :boolean; (*добавленное свойство*)
Свойство IsPassed описывает состояние перехода (срабатывающий или нет) Класс TPosObj:
TPosObj = class (TNObject)
public
TypePos :TAllTypePos;
Width :integer;
Height :integer;
Orientation :Boolean;
Length: Longint;
Pos1,Pos2 :TPoint;
InOutPoint: array[1.2] of TPoint;
SatatusInOutPoint:array[1.2] of TWayLine;
OrientationRgn :HRGN;
NumPoints:integer; (*добавленное свойство*)
Свойство NumPoints описывает количество фишек в позиции.
