Class TKeySelection (unit Keys)

Inherits from

TForm

****** * * Module: Keys * Author: Joe Kessler * IntegrationWare - A New Generation of Extraordinary PC Solutions * www.integrationware.com * * Purpose: * * Interface for customizing player controls. * * Details: * * This form allows the user to customize the keyboard layout. The form * can be called up at any time (even in the middle of a game) to change * which keys will control Bart. Note that this customization is possible * because of the architecture of the input objects. The inputs that * game objects receive are connected only indirectly to actual user inputs. * ******

Constructors



Functions

procedure FormCreate(Sender: TObject);

Close up the form.

procedure m_cboFireEnter(Sender: TObject);


procedure m_cboHyperSpaceEnter(Sender: TObject);


procedure m_cboThrustEnter(Sender: TObject);


procedure m_cboTurnLeftEnter(Sender: TObject);

Get the default key mapping for the given input.

procedure m_cboTurnLeftKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);


procedure m_cboTurnRightEnter(Sender: TObject);


procedure m_cmdCancelClick(Sender: TObject);

If it was located, then make it the currently selected string.

procedure m_cmdDefaultClick(Sender: TObject);


procedure m_cmdOKClick(Sender: TObject);


procedure UseKeyboard(kbRocks: TRocksKeyboard);

Method to initialize the form to customize a specific input object.

procedure FillComboWithKeyChoices(cboKeys: TComboBox);

Private declarations

procedure SelectComboItem(cboList: TComboBox; iInputCode: Integer);

Methods to select keys based upon text our an input code.

procedure SelectComboString(cboList: TComboBox; szSearchStr: String);

Select the corresponding listbox item.

Properties

Events

Variables

GroupBox1 : TGroupBox;


GroupBox2 : TGroupBox;


Image1 : TImage;


Image2 : TImage;


Image3 : TImage;


Image4 : TImage;


Image5 : TImage;


Label1 : TLabel;


Label2 : TLabel;


Label3 : TLabel;


Label4 : TLabel;


Label5 : TLabel;


Label6 : TLabel;


Label7 : TLabel;


m_cboFire : TComboBox;


m_cboHyperSpace : TComboBox;


m_cboThrust : TComboBox;


m_cboTurnLeft : TComboBox;


m_cboTurnRight : TComboBox;


m_cmdCancel : TButton;


m_cmdDefault : TButton;


m_cmdOK : TButton;


m_cboLastActive : TComboBox;

Input object being customized.

m_kbRocks : TRocksKeyboard;



Constructors


Functions


procedure FormCreate(Sender: TObject);

Close up the form.


procedure m_cboFireEnter(Sender: TObject);


procedure m_cboHyperSpaceEnter(Sender: TObject);


procedure m_cboThrustEnter(Sender: TObject);


procedure m_cboTurnLeftEnter(Sender: TObject);

Get the default key mapping for the given input.


procedure m_cboTurnLeftKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);


procedure m_cboTurnRightEnter(Sender: TObject);


procedure m_cmdCancelClick(Sender: TObject);

If it was located, then make it the currently selected string.


procedure m_cmdDefaultClick(Sender: TObject);


procedure m_cmdOKClick(Sender: TObject);


procedure UseKeyboard(kbRocks: TRocksKeyboard);

Method to initialize the form to customize a specific input object.

Add other misc. control keys.


procedure FillComboWithKeyChoices(cboKeys: TComboBox);

Private declarations


procedure SelectComboItem(cboList: TComboBox; iInputCode: Integer);

Methods to select keys based upon text our an input code.

Show the current selections in the text areas.


procedure SelectComboString(cboList: TComboBox; szSearchStr: String);

Select the corresponding listbox item.


Properties


Events


Variables


GroupBox1 : TGroupBox;


GroupBox2 : TGroupBox;


Image1 : TImage;


Image2 : TImage;


Image3 : TImage;


Image4 : TImage;


Image5 : TImage;


Label1 : TLabel;


Label2 : TLabel;


Label3 : TLabel;


Label4 : TLabel;


Label5 : TLabel;


Label6 : TLabel;


Label7 : TLabel;


m_cboFire : TComboBox;


m_cboHyperSpace : TComboBox;


m_cboThrust : TComboBox;


m_cboTurnLeft : TComboBox;


m_cboTurnRight : TComboBox;


m_cmdCancel : TButton;


m_cmdDefault : TButton;


m_cmdOK : TButton;


m_cboLastActive : TComboBox;

Input object being customized.


m_kbRocks : TRocksKeyboard;