main.cpp

《bcb深度历险》 电子书

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "main.h"
#include "xUtils.hpp"
#include "about.h"
#include "xFiles.hpp"
#include "util.h"
#include "mapunit.h"
#include "sprite.h"
#include "tileunit.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TMainForm *MainForm;
//---------------------------------------------------------------------------
__fastcall TMainForm::TMainForm(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::mnuAboutClick(TObject *Sender)
{
  TAboutBox* box = new TAboutBox(this);
  try {
    box->ShowModal();
  } __finally {
    delete box;
  }
}
//---------------------------------------------------------------------------

void __fastcall TMainForm::mnuExitClick(TObject *Sender)
{
  Close();        
}
//---------------------------------------------------------------------------

void __fastcall TMainForm::mnuRestoreLevelClick(TObject *Sender)
{
  LevelNo = LevelNo;        
}
//---------------------------------------------------------------------------

void __fastcall TMainForm::mnuChooseLevelClick(TObject *Sender)
{
  if (!AskSaveMap()) return;

  AnsiString S = IntToStr(FLevelNo);
  if (InputQuery(Application->Title, "Input Level No:", S))
    LevelNo = StrToInt(S);
}
//---------------------------------------------------------------------------

void __fastcall TMainForm::mnuSaveClick(TObject *Sender)
{
  MySaveMap();       
}
//---------------------------------------------------------------------------

void __fastcall TMainForm::mnuEditKindClick(TObject *Sender)
{
  TMenuItem* item = dynamic_cast<TMenuItem*>(Sender);
  
  item->Checked = true;
  FEditLayer = item->Tag; // 砞﹚匡