unitspeed.cpp

俄罗斯方块双打版

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

#include <vcl.h>
#pragma hdrstop

#include "UnitSpeed.h"
#include "UnitTetris.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFormSpeed *FormSpeed;
//---------------------------------------------------------------------------
__fastcall TFormSpeed::TFormSpeed(TComponent* Owner)
        : TForm(Owner)
{
  Font->Name    = "宋体";
  Font->Charset = GB2312_CHARSET;
  Font->Size    = 9;

  UpDown1->Min = 1;
  UpDown1->Max = 35;
  UpDown1->Position = FormTetris->InitSpeed;
}
//---------------------------------------------------------------------------