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