Class: TMainForm

 TForm ----+
           |
       TMainForm

Unit:
FormMain (FormMain.pas)

Methods:

procedure aBtnIniciarClick(Sender: TObject);

procedure aMenuClick(Sender: TObject);

procedure aMenuItemAbrirClick(Sender: TObject);

procedure aMenuItemAbrirEscenarioClick(Sender: TObject);

procedure aMenuItemCalidadClick(Sender: TObject);

procedure aMenuItemCambioAutomaticoClick(Sender: TObject);

procedure aMenuItemConfigurarClick(Sender: TObject);

procedure aMenuItemGuardarClick(Sender: TObject);

procedure aMenuItemGuardarEscenarioClick(Sender: TObject);

procedure aMenuItemNuevoJuegoClick(Sender: TObject);

procedure aMenuItemSalirClick(Sender: TObject);

procedure aTimerTimer(Sender: TObject);

procedure aTimerVistaTimer(Sender: TObject);

procedure CambiarVistaClick(Sender: TObject);

procedure DesSerializarEscenario( archivo: string );

procedure DesSerializarJuego( archivo: string );

procedure FormCreate(Sender: TObject);

procedure FormDestroy(Sender: TObject);

procedure FormHide(Sender: TObject);

procedure FormKeyDown(Sender: TObject; var Key: Word;

function mGetNavePropia: cNavePropia;

Obtiene la nave propia del formulario

function mGetObjetos: TList;

Obtiene la lista de objetos del formulario

procedure SerializarEscenario( archivo: string );

procedure SerializarJuego( archivo: string );

procedure aBtnIniciarClick(Sender: TObject);

procedure aMenuClick(Sender: TObject);

procedure aMenuItemAbrirClick(Sender: TObject);

procedure aMenuItemAbrirEscenarioClick(Sender: TObject);

procedure aMenuItemCalidadClick(Sender: TObject);

procedure aMenuItemCambioAutomaticoClick(Sender: TObject);

procedure aMenuItemConfigurarClick(Sender: TObject);

procedure aMenuItemGuardarClick(Sender: TObject);

procedure aMenuItemGuardarEscenarioClick(Sender: TObject);

procedure aMenuItemNuevoJuegoClick(Sender: TObject);

procedure aMenuItemSalirClick(Sender: TObject);

procedure aTimerTimer(Sender: TObject);

procedure aTimerVistaTimer(Sender: TObject);

procedure CambiarVistaClick(Sender: TObject);

procedure DesSerializarEscenario( archivo: string );

procedure DesSerializarJuego( archivo: string );

procedure FormCreate(Sender: TObject);

procedure FormDestroy(Sender: TObject);

procedure FormHide(Sender: TObject);

procedure FormKeyDown(Sender: TObject; var Key: Word;

function mGetNavePropia: cNavePropia;

Returns

   Nave propia que utilizara el espacio

function mGetObjetos: TList;

Returns

   Lista de objetos que utilizara el espacio

procedure SerializarEscenario( archivo: string );

procedure SerializarJuego( archivo: string );