| Class TMultiChannelStateAware (unit MultiCh) |
| Constructors |
constructor Create;| Functions |
procedure AddToStateSequence(iChannel: Integer; enumNewState: enumState; fValue1, fValue2: Real);
function bIsValidChannel(iChannel: Integer): Boolean;
procedure ClearStateSequence(iChannel: Integer);
destructor Destroy;
procedure ExitCurrentState(iChannel: Integer);
function iOpenNewChannel: Integer;
procedure Move;
function saGetChannel(iChannel: Integer): TStateChannel;
procedure EnterState(iChannel: Integer; pstCurrent: PState);
procedure ExitState(iChannel: Integer; pstCurrent: PState);
procedure ProcessState(iChannel: Integer; pstCurrent: PState);| Properties |
| Events |
| Variables |
m_asaChannel : Array[0 .. MAX_CHANNELS - 1] of TStateChannel;
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;