| Class TKeySelection (unit Keys) |
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);
procedure m_cboFireEnter(Sender: TObject);
procedure m_cboHyperSpaceEnter(Sender: TObject);
procedure m_cboThrustEnter(Sender: TObject);
procedure m_cboTurnLeftEnter(Sender: TObject);
procedure m_cboTurnLeftKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure m_cboTurnRightEnter(Sender: TObject);
procedure m_cmdCancelClick(Sender: TObject);
procedure m_cmdDefaultClick(Sender: TObject);
procedure m_cmdOKClick(Sender: TObject);
procedure UseKeyboard(kbRocks: TRocksKeyboard);
procedure FillComboWithKeyChoices(cboKeys: TComboBox);
procedure SelectComboItem(cboList: TComboBox; iInputCode: Integer);
procedure SelectComboString(cboList: TComboBox; szSearchStr: String);| 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;
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;