fangabout.cpp

来自「俄罗斯方块的源程序.」· C++ 代码 · 共 65 行

/******************************************************************************
 *      垒方块游戏(1.00版2001.7)      作者：金河曲  Email: [e-mail]   *
 ******************************************************************************/
#pragma hdrstop
#include "FangAbout.h"
#include "FangMain.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm2 *Form2;
//---------------------------------------------------------------------------
__fastcall TForm2::TForm2(TComponent* Owner)
    : TForm(Owner)
{
    UpShuDu->Position=Form1->LetJiBie;
    if (Form1->GetKuaiCount ==7 )CheckBox1->Checked=true ;
    else CheckBox1->Checked=false;
    CheckBox2->Checked=!Form1->GetKuaiColor;
    Shape1->Brush->Color =Form1->Panel1->Color;
    Shape2->Brush->Color =Form1->clBrushKuai  ;
    Shape3->Brush->Color =Form1->clPenKuai ;
    TrackBar1->Position=8-60/Form1->GetDaXiao;
}
//---------------------------------------------------------------------------
void __fastcall TForm2::SpeedButton1Click(TObject *Sender)
{
    if(ColorDialog1->Execute ())Shape1->Brush->Color =ColorDialog1->Color;
}
//---------------------------------------------------------------------------
void __fastcall TForm2::SpeedButton2Click(TObject *Sender)
{
    if(ColorDialog1->Execute ())Shape2->Brush->Color =ColorDialog1->Color  ;
}
//---------------------------------------------------------------------------
void __fastcall TForm2::SpeedButton3Click(TObject *Sender)
{
    if(ColorDialog1->Execute ())Shape3->Brush->Color =ColorDialog1->Color  ;
}
//---------------------------------------------------------------------------
void __fastcall TForm2::BitBtn1Click(TObject *Sender)
{
    if (CheckBox1->Checked )Form1->GetKuaiCount =7;
    else Form1->GetKuaiCount =16;
    if (CheckBox2->Checked )Form1->GetKuaiColor =false;
    else Form1->GetKuaiColor =true;
    Form1->LetJiBie = UpShuDu->Position;
    Form1->timXia->Interval =440-UpShuDu->Position*40;
    Form1->clBrushKuai   =Shape2->Brush->Color  ;
    Form1->clPenKuai   =Shape3->Brush->Color  ;
    Form1->Panel1->Color =Shape1->Brush->Color;
    Form1->GetBackColor = Shape1->Brush->Color;
    Form1->GetDaXiao =60/(8-TrackBar1->Position);
    Close();
}
//---------------------------------------------------------------------------
void __fastcall TForm2::CheckBox2Click(TObject *Sender)
{
  SpeedButton2->Enabled=CheckBox2->Checked ;
  SpeedButton3->Enabled=CheckBox2->Checked ;
}
//---------------------------------------------------------------------------