Class TInputDevice (unit InputDev)

Inherits from

TObject

****** * * Module: InputDev * Author: Joe Kessler * IntegrationWare - A New Generation of Extraordinary PC Solutions * www.integrationware.com * * Purpose: * * The TInputDevice class is the ultimate ancestor of all Rocks input * devices. New input methods (such as mice, joystick, etc...) can be * implemented by deriving from this class. * ******

Constructors


constructor Create;

Class constructor and destructor.


Functions

procedure DefineInput(iInputCode: Integer);

Method to define a logical input.

destructor Destroy;

Create a list to manage logical inputs.

function inpGetInput(iInputCode: Integer): TInput;

Method to give access to an individual input with the given code.

Properties

Events

Variables

m_lstInputs : TList;



Constructors


constructor Create;

Class constructor and destructor.

List of all logical inputs.


Functions


procedure DefineInput(iInputCode: Integer);

Method to define a logical input. This has nothing to do with key mappings, or button presses. It respresents a logical input, which may be triggered by one of those inputs. This triggering behavior is defined by the derived classes.

Perform default cleanup.


destructor Destroy;

Create a list to manage logical inputs.


function inpGetInput(iInputCode: Integer): TInput;

Method to give access to an individual input with the given code.

Add the input object to the list.


Properties


Events


Variables


m_lstInputs : TList;