| Class TRocksForm (unit MainForm) |
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);
procedure FormDestroy(Sender: TObject);
procedure FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure FormKeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure FormResize(Sender: TObject);
procedure m_mniFileExitClick(Sender: TObject);
procedure m_mniFileNewClick(Sender: TObject);
procedure m_mniFilePauseClick(Sender: TObject);
procedure m_mniHelpAboutClick(Sender: TObject);
procedure m_mniOptionsCustomizeClick(Sender: TObject);
procedure m_mniOptionsSoundClick(Sender: TObject);
procedure m_tmrMovementTimer(Sender: TObject);
procedure StartGameEngine;| 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;