unittetris.dfm

桌面小游戏：俄罗斯方块 (含源程序) 【软件简介】 虽然是非常古老的小游戏, 但现在仍然百玩不厌。 这个程序用BCB实现也非常简单。 为了让大家看清程序的算法, 程序的界面尽量简单, 没

object FormTetris: TFormTetris
  Left = 468
  Top = 207
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'FormTetris'
  ClientHeight = 268
  ClientWidth = 229
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  Position = poScreenCenter
  OnKeyDown = FormKeyDown
  PixelsPerInch = 96
  TextHeight = 13
  object PaintBox2: TPaintBox
    Left = 160
    Top = 0
    Width = 64
    Height = 64
    OnPaint = PaintBox2Paint
  end
  object LabelLines: TLabel
    Left = 176
    Top = 80
    Width = 51
    Height = 13
    Caption = 'LabelLines'
    Transparent = True
  end
  object LabelScore: TLabel
    Left = 176
    Top = 96
    Width = 54
    Height = 13
    Caption = 'LabelScore'
    Transparent = True
  end
  object LabelHome: TLabel
    Left = 160
    Top = 248
    Width = 61
    Height = 13
    Cursor = crHandPoint
    Caption = 'cppfans.com'
    Transparent = True
    OnClick = LabelHomeClick
    OnMouseEnter = LabelHomeMouseEnter
    OnMouseLeave = LabelHomeMouseLeave
  end
  object Label2: TLabel
    Left = 160
    Top = 80
    Width = 9
    Height = 13
    Caption = 'L:'
    Transparent = True
  end
  object Label3: TLabel
    Left = 160
    Top = 96
    Width = 10
    Height = 13
    Caption = 'S:'
    Transparent = True
  end
  object Label4: TLabel
    Left = 160
    Top = 112
    Width = 11
    Height = 13
    Caption = 'H:'
  end
  object LabelHighScore: TLabel
    Left = 176
    Top = 112
    Width = 76
    Height = 13
    Caption = 'LabelHighScore'
  end
  object Label1: TLabel
    Left = 160
    Top = 232
    Width = 55
    Height = 13
    Caption = 'C++'#29233#22909#32773
  end
  object ScrollBox1: TScrollBox
    Left = 8
    Top = 0
    Width = 148
    Height = 260
    AutoScroll = False
    TabOrder = 0
    object PaintBox1: TPaintBox
      Left = 0
      Top = 0
      Width = 144
      Height = 256
      Align = alClient
      OnPaint = PaintBox1Paint
    end
  end
  object MainMenu1: TMainMenu
    Left = 48
    Top = 8
    object MmFile: TMenuItem
      Caption = #28216#25103'(&G)'
      object New1: TMenuItem
        Action = AnNew
      end
      object Pause1: TMenuItem
        Action = AnPause
      end
      object HighScore1: TMenuItem
        Action = AnHScore
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object Exit1: TMenuItem
        Action = AnExit
      end
    end
    object H1: TMenuItem
      Caption = #24110#21161'(&H)'
      object AnHelp1: TMenuItem
        Action = AnHelp
      end
      object AnAbout1: TMenuItem
        Action = AnAbout
      end
    end
  end
  object ActionList1: TActionList
    Left = 16
    Top = 8
    object AnNew: TAction
      Category = 'File'
      Caption = #26032#28216#25103'(&N)'
      ShortCut = 121
      OnExecute = AnNewExecute
    end
    object AnPause: TAction
      Category = 'File'
      Caption = #26242#20572'(&P)'
      ShortCut = 27
      OnExecute = AnPauseExecute
    end
    object AnHScore: TAction
      Category = 'File'
      Caption = #33521#38596#27036'(&H)'
      OnExecute = AnHScoreExecute
    end
    object AnExit: TAction
      Category = 'File'
      Caption = #31163#24320'(&X)'
      ShortCut = 32856
      OnExecute = AnExitExecute
    end
    object AnHelp: TAction
      Category = 'Help'
      Caption = #24110#21161'(&H)'
      ShortCut = 112
      OnExecute = AnHelpExecute
    end
    object AnAbout: TAction
      Category = 'Help'
      Caption = #20851#20110'(&A)'#8230#8230
      OnExecute = AnAboutExecute
    end
  end
  object Timer1: TTimer
    Interval = 400
    OnTimer = Timer1Timer
    Left = 80
    Top = 8
  end
  object ApplicationEvents1: TApplicationEvents
    OnDeactivate = ApplicationEvents1Deactivate
    Left = 112
    Top = 8
  end
end