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.
*
******
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.
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;
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.
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;