unit2.cpp

自编小俄罗斯方块

//---------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop

#include "Unit2.h"
//---------------------------------------------------------------------
#pragma resource "*.dfm"
TOKBottomDlg *OKBottomDlg;
//---------------------------------------------------------------------
__fastcall TOKBottomDlg::TOKBottomDlg(TComponent* AOwner)
	: TForm(AOwner)
{
}
//---------------------------------------------------------------------
__fastcall TOKBottomDlg::TOKBottomDlg(int m_iArea, int m_iLevel, BOOL m_bMusic, BOOL m_bDrawGrid, TComponent* AOwner)
	: TForm(AOwner)
{
  m_oldArea = m_iArea;
  m_oldLevel = m_iLevel;
  m_oldMusic = m_bMusic;
  m_oldDrawGrid = m_bDrawGrid;


  m_bMusic = FALSE;
  m_bDrawGrid = FALSE;

  CheckBox1->Checked=m_bDrawGrid;
  CheckBox2->Checked=m_bMusic;

  switch(m_iArea)
  {
  case 0:
          ComboBox1->Text = "12行10列"; break;
  case 1:
          ComboBox1->Text = "18行15列"; break;
  case 2:
          ComboBox1->Text = "24行20列"; break;
  case 3:
          ComboBox1->Text = "30行25列"; break;
  }

  switch(m_iLevel)
  {
  case 0:
          ComboBox2->Text = "第一级: 蜗牛级"; break;
  case 1:
          ComboBox2->Text = "第二级: 笨鸭级"; break;
  case 2:
          ComboBox2->Text = "第三级: 雄鸡级"; break;
  case 3:
          ComboBox2->Text = "第四级: 猎狗级"; break;
  case 4:
          ComboBox2->Text = "第五级: 云豹级"; break;
  case 5:
          ComboBox2->Text = "第六级: 飞鹰级"; break;
  }
}
//---------------------------------------------------------------------
void __fastcall TOKBottomDlg::OKBtnClick(TObject *Sender)
{
        m_iArea = ComboBox1->ItemIndex;
	if (m_iArea<0 || m_iArea>3)
		m_iArea = 0;

	m_iLevel = ComboBox2->ItemIndex;
	if (m_iLevel<0 || m_iLevel>5)
		m_iLevel = 2;

        m_bMusic = CheckBox2->Checked;
	m_bDrawGrid = CheckBox1->Checked;
}
//---------------------------------------------------------------------------