uspeed.pas

搞笑俄罗斯方块这个程序由delphi制作而成。

{   选择等级窗体单元  }
unit USpeed;

interface

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

type
  TLevelForm = class(TForm)
    GroupBox1: TGroupBox;
    TrackBar1: TTrackBar;
    ButtonOk: TButton;
    ButtonCancel: TButton;
    procedure ButtonOkClick(Sender: TObject);
    procedure TrackBar1Change(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  LevelForm: TLevelForm;

implementation

{$R *.DFM}

uses UMain;

procedure TLevelForm.ButtonOkClick(Sender: TObject);
begin
   if Level > 1 then
      if Score > (Level-1) * 10000 then
         CurLevelScore := Score - (Level-1) * 10000
      else
         CurLevelScore := Score;

   Level := TrackBar1.Position;
   //CurLevelScore := 0;
end;

procedure TLevelForm.TrackBar1Change(Sender: TObject);
begin
   GroupBox1.Caption := ' 等级: '+ IntToStr(TrackBar1.Position)+' ';
end;

procedure TLevelForm.FormShow(Sender: TObject);
begin
   GroupBox1.Caption := ' 等级: '+ IntToStr(Level);
   TrackBar1.Position := Level;
end;

end.