TMSystem

type TMSystem = class

public

  constructor Create; virtual;

  destructor Destroy; override;

  function ObjectAdd();

  function ObjectCount;

  procedure Clear;

  function AddRelation();

  function CountRelations;

  function IndexOfRelation();

  procedure ClearRelations;

  procedure DeleteRelation();

  property Relations []: TMGroupRelation; default; [r]

  function AddGroup;

  function CountGroups;

  function IndexOfGroup();

  procedure DeleteGroup();

  property Groups []: TMGroup; [r]

  function AddObject();

  function CountObjects();

  function IndexOfObject();

  procedure ClearObjects();

  procedure DeleteObject();

  property Objects []: TMObject; [r]

protected

  procedure DoProcessMessages; virtual;

  procedure DoPulse; virtual;

  procedure DoRenderBegin; virtual;

  procedure DoRenderEnd; virtual;

  procedure DoRenderObject(); virtual;

  procedure DoTerminate; virtual;

public

  property Active: Boolean; [rw]

  property ElapsedTime: munit; [r]

  property FrameRate: Byte; [rw]

  property LimitTime: munit; [rw]

  property OnProcessMessages: TNotifyEvent; [rw]

  property OnPulse: TObjectPulseEvent; [rw]

  property OnRenderBegin: TNotifyEvent; [rw]

  property OnRenderEnd: TNotifyEvent; [rw]

  property OnRenderObject: TObjectEvent; [rw]

  property OnTerminate: TNotifyEvent; [rw]

  property ProcessMessages: Boolean; [rw]

  property PulseCount: Cardinal; [r]

  property PulseTime: Cardinal; [rw]

  property TimeFactor: real; [rw]

  property TimeFactorAuto: Boolean; [rw]

  property UseRealTime: Boolean; [rw]

protected

  procedure DoObjectData(); virtual;

public

  property OnObjectData: TObjectMoveableEvent; [rw]

protected

  procedure DoCollision(); virtual;

public

  procedure DoOnCollision();

  property CheckCollisions: Boolean; [rw]

  property OnCollision: TObjectMoveablesEvent; [rw]

  property ResetStatsOnCollision: Boolean; [rw]

  function AddRandomObject();

end;

TMSystem

TObject