Class TMultiChannelStateAware (unit MultiCh) |
Inherits from
TMessageAware
constructor Create;
- Class constructor and destructor.
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);
m_asaChannel : Array[0 .. MAX_CHANNELS - 1] of TStateChannel;
Array of state channels.
m_iChannelsUsed : Integer;
constructor Create;
Class constructor and destructor.
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);
m_asaChannel : Array[0 .. MAX_CHANNELS - 1] of TStateChannel;
Array of state channels.
m_iChannelsUsed : Integer;