Class TInput (unit Input)

Inherits from

TObject

****** * * Module: Input * Author: Joe Kessler * IntegrationWare - A New Generation of Extraordinary PC Solutions * www.integrationware.com * * Purpose: * * The TInput class describes a single logical game input (such as BART_FIRE), * and can notify all connected objects when the input occurs. This is * usually triggered by an input object such as TRocksKeyboard. * ******

Constructors


constructor Create(iInputCode: Integer);

Class constructor and destructor.


Functions

function bIsSelected: Boolean;

Send out notifications of the state change.

destructor Destroy;

Initialize the object.

function iGetInputCode: Integer;

Method to return this input's unique identifier.

procedure NotifyOnChange(msgObject: TMessageAware);

Methods to managr the notification lists.

procedure RemoveNotification(msgObject: TMessageAware);


procedure SetSelectionState(bSelected: Boolean);

Methods to get and set the input's selection state.

Properties

Events

Variables

m_bSelected : Boolean;

Of objects to be notified when state changes.

m_iInputCode : Integer;


m_lstNotify : TList;

Unique input identifier.


Constructors


constructor Create(iInputCode: Integer);

Class constructor and destructor.

Current selection state of the input.


Functions


function bIsSelected: Boolean;

Send out notifications of the state change.


destructor Destroy;

Initialize the object.


function iGetInputCode: Integer;

Method to return this input's unique identifier.

Perform default cleanup.


procedure NotifyOnChange(msgObject: TMessageAware);

Methods to managr the notification lists.


procedure RemoveNotification(msgObject: TMessageAware);


procedure SetSelectionState(bSelected: Boolean);

Methods to get and set the input's selection state.


Properties


Events


Variables


m_bSelected : Boolean;

Of objects to be notified when state changes.


m_iInputCode : Integer;


m_lstNotify : TList;

Unique input identifier.