Class TMultiChannelStateAware (unit MultiCh)

Inherits from

TMessageAware

Constructors


constructor Create;

Class constructor and destructor.


Functions

procedure AddToStateSequence(iChannel: Integer; enumNewState: enumState; fValue1, fValue2: Real);

Methods to control state channels.

function bIsValidChannel(iChannel: Integer): Boolean;

Increment the total number of channels in use, and return the ID of the newly opened channel.

procedure ClearStateSequence(iChannel: Integer);

Add a command to the given state channel.

destructor Destroy;

Initially, no channels are in use.

procedure ExitCurrentState(iChannel: Integer);

Clear the given state channel.

function iOpenNewChannel: Integer;

Method to open up a new state channel.

procedure Move;

Virtual method called to process channel states.

function saGetChannel(iChannel: Integer): TStateChannel;

Method to return reference to a specific channel.

procedure EnterState(iChannel: Integer; pstCurrent: PState);

Virtual methods for customizing state behavior.

procedure ExitState(iChannel: Integer; pstCurrent: PState);

The EndChannelState command has no other processing.

procedure ProcessState(iChannel: Integer; pstCurrent: PState);


Properties

Events

Variables

m_asaChannel : Array[0 .. MAX_CHANNELS - 1] of TStateChannel;

Array of state channels.

m_iChannelsUsed : Integer;



Constructors


constructor Create;

Class constructor and destructor.


Functions


procedure AddToStateSequence(iChannel: Integer; enumNewState: enumState; fValue1, fValue2: Real);

Methods to control state channels.

Check if there was any activity on the channel, and reflect it on the common channel.


function bIsValidChannel(iChannel: Integer): Boolean;

Increment the total number of channels in use, and return the ID of the newly opened channel.


procedure ClearStateSequence(iChannel: Integer);

Add a command to the given state channel.


destructor Destroy;

Initially, no channels are in use.


procedure ExitCurrentState(iChannel: Integer);

Clear the given state channel.


function iOpenNewChannel: Integer;

Method to open up a new state channel. The function returns a handle to the newly opened state queue.

Perform default cleanup.


procedure Move;

Virtual method called to process channel states.

Return a reference to the requested channel, or NULL if the given channel ID is invalid.


function saGetChannel(iChannel: Integer): TStateChannel;

Method to return reference to a specific channel.

Valid the given channel ID.


procedure EnterState(iChannel: Integer; pstCurrent: PState);

Virtual methods for customizing state behavior.

End the current command on the given state channel.


procedure ExitState(iChannel: Integer; pstCurrent: PState);

The EndChannelState command has no other processing.


procedure ProcessState(iChannel: Integer; pstCurrent: PState);


Properties


Events


Variables


m_asaChannel : Array[0 .. MAX_CHANNELS - 1] of TStateChannel;

Array of state channels.


m_iChannelsUsed : Integer;