Class TRocksForm (unit MainForm)

Inherits from

TForm

****** * * Module: MainForm * Author: Joe Kessler * IntegrationWare - A New Generation of Extraordinary PC Solutions * www.integrationware.com * * Purpose: * * Main user interface to Rocks. * * Details: * * This form is the main application window, and contains the highest-level * code required to drive the game. The movement and drawing engines are * invoked in response to Window timers, and user input via menus is * passed down to the animation engine. * * Notice that this form is nothing more than an interface layer between * the player and the animation engine. * * Notes: * * You may notice that the form is resizable. For a cool effect, try * resizing the screen during game play. * ******

Constructors



Functions

procedure FormCreate(Sender: TObject);

Pass the message down to the current input device object in the engine.

procedure FormDestroy(Sender: TObject);

Upon a resize, just clear of the current contents of the screen to avoid cluttering the new surface before the next frame is drawn.

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

Free the about box.

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

Pass the message down to the current input device object in the engine.

procedure FormResize(Sender: TObject);

Pause the game engine.

procedure m_mniFileExitClick(Sender: TObject);

Perform movements on all objects in the universe, and draw all objects in the universe in their current state.

procedure m_mniFileNewClick(Sender: TObject);

Close out the application.

procedure m_mniFilePauseClick(Sender: TObject);

Release the form object that was created.

procedure m_mniHelpAboutClick(Sender: TObject);

Tell the game control object to begin a new game.

procedure m_mniOptionsCustomizeClick(Sender: TObject);

Start a new game logic controller.

procedure m_mniOptionsSoundClick(Sender: TObject);

Start showing the game's splash screen.

procedure m_tmrMovementTimer(Sender: TObject);

Invoked by the operating system at regular intervals via timer.

procedure StartGameEngine;

Method to start the animation engine.

Properties

Events

Variables

m_mniFileExit : TMenuItem;


m_mniFileNew : TMenuItem;


m_mniFilePause : TMenuItem;


m_mniFileSep0 : TMenuItem;


m_mniHelpAbout : TMenuItem;


m_mniOptionsCustomize : TMenuItem;


m_mniOptionsSep0 : TMenuItem;


m_mniOptionsSound : TMenuItem;


m_mnuFile : TMenuItem;


m_mnuHelp : TMenuItem;


m_mnuMainMenu : TMainMenu;


m_mnuOptions : TMenuItem;


m_tmrMovement : TTimer;


m_ctlGame : TGameControl;



Constructors


Functions


procedure FormCreate(Sender: TObject);

Pass the message down to the current input device object in the engine.


procedure FormDestroy(Sender: TObject);

Upon a resize, just clear of the current contents of the screen to avoid cluttering the new surface before the next frame is drawn.


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

Free the about box.


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

Pass the message down to the current input device object in the engine.


procedure FormResize(Sender: TObject);

Pause the game engine.


procedure m_mniFileExitClick(Sender: TObject);

Perform movements on all objects in the universe, and draw all objects in the universe in their current state.


procedure m_mniFileNewClick(Sender: TObject);

Close out the application.


procedure m_mniFilePauseClick(Sender: TObject);

Release the form object that was created.


procedure m_mniHelpAboutClick(Sender: TObject);

Tell the game control object to begin a new game.


procedure m_mniOptionsCustomizeClick(Sender: TObject);

Start a new game logic controller.


procedure m_mniOptionsSoundClick(Sender: TObject);

Start showing the game's splash screen.


procedure m_tmrMovementTimer(Sender: TObject);

Invoked by the operating system at regular intervals via timer.


procedure StartGameEngine;

Method to start the animation engine.

Free the game control object.


Properties


Events


Variables


m_mniFileExit : TMenuItem;


m_mniFileNew : TMenuItem;


m_mniFilePause : TMenuItem;


m_mniFileSep0 : TMenuItem;


m_mniHelpAbout : TMenuItem;


m_mniOptionsCustomize : TMenuItem;


m_mniOptionsSep0 : TMenuItem;


m_mniOptionsSound : TMenuItem;


m_mnuFile : TMenuItem;


m_mnuHelp : TMenuItem;


m_mnuMainMenu : TMainMenu;


m_mnuOptions : TMenuItem;


m_tmrMovement : TTimer;


m_ctlGame : TGameControl;