unit3.pas

delphi写的俄罗斯方块

unit Unit3;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComCtrls, Tabnotbk, StdCtrls, Buttons, T_TETRIS;

type
  TForm3 = class(TForm)
    TabbedNotebook1: TTabbedNotebook;
    GroupBox1: TGroupBox;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    GroupBox2: TGroupBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    GroupBox3: TGroupBox;
    RadioButton4: TRadioButton;
    RadioButton5: TRadioButton;
    RadioButton6: TRadioButton;
    RadioButton7: TRadioButton;
    RadioButton8: TRadioButton;
    RadioButton9: TRadioButton;
    RadioButton10: TRadioButton;
    RadioButton11: TRadioButton;
    RadioButton12: TRadioButton;
    TETRIS1: TTETRIS;
    RadioButton13: TRadioButton;
    Label1: TLabel;
    ComboBox1: TComboBox;
    procedure FormCreate(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
  private
    procedure speedblock(speed:integer);
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;

implementation
 uses unit1;
 {$R *.DFM}

procedure TForm3.speedblock(speed:integer);
var
 sudu:string;
begin
if combobox1.Text='' then
 sudu:='0'
else
 sudu:=combobox1.Text;
 form1.SET_SCR(1000-strtoint(sudu)*104,speed);
end;

procedure TForm3.FormCreate(Sender: TObject);
begin
 form3.Left:=round((screen.Width-form3.Width)/2);
 form3.top:=round((screen.Height-form3.Height)/2);
end;

procedure TForm3.SpeedButton2Click(Sender: TObject);
begin
 close;
end;

procedure TForm3.SpeedButton1Click(Sender: TObject);
begin
 form1.TETRIS1.ShowBorderColor:=checkbox1.Checked;
 form1.TETRIS1.ShowFillColor:=checkbox2.Checked;
 if RadioButton1.Checked then
    form1.TETRIS1.Blocktype:=btButton
 else
   if RadioButton2.Checked then
      form1.TETRIS1.Blocktype:=btNormal
   else
     if radiobutton3.Checked then
        form1.TETRIS1.Blocktype:=btRound;
form3.close;
end;

procedure TForm3.SpeedButton3Click(Sender: TObject);
begin
 if radiobutton4.Checked then
  begin
    form1.NUMLINE:=10;
    form1.LEVEL:=0;
    speedblock(1);
  end;

 if radiobutton5.Checked then
  begin
    form1.NUMLINE:=28;
    form1.LEVEL:=1;
    speedblock(2);
  end;

 if radiobutton6.Checked then
  begin
    form1.NUMLINE:=40;
    form1.LEVEL:=2;
    speedblock(3);
  end;

 if radiobutton7.Checked then
  begin
    form1.NUMLINE:=58;
    form1.LEVEL:=3;
    speedblock(4);
  end;

 if radiobutton8.Checked then
  begin
    form1.NUMLINE:=78;
    form1.LEVEL:=4;
    speedblock(5);
  end;

 if radiobutton9.Checked then
  begin
    form1.NUMLINE:=98;
    form1.LEVEL:=5;
    speedblock(6);
  end;

 if radiobutton10.Checked then
  begin
    form1.NUMLINE:=118;
    form1.LEVEL:=6;
    speedblock(7);
  end;

 if radiobutton11.Checked then
  begin
    form1.NUMLINE:=138;
    form1.LEVEL:=7;
    speedblock(8);
  end;

 if radiobutton12.Checked then
  begin
    form1.NUMLINE:=168;
    form1.LEVEL:=8;
    speedblock(9);
  end;

 if radiobutton13.Checked then
  begin
    form1.NUMLINE:=0;
    form1.LEVEL:=0;
    speedblock(0);
  end;
form1.S1.Enabled:=false;
form1.T1.Enabled:=true;
form1.z1.Enabled:=true;
form1.LSCO.Caption:='0';
form1.LDLT.Caption:='0';
form1.ldl.Caption:='0';
form3.close;
end;
end.