unittetris.dfm

一个小游戏程序!! 大家可以来

object FormTetris: TFormTetris
  Left = 518
  Top = 258
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'FormTetris'
  ClientHeight = 419
  ClientWidth = 489
  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
  OnKeyUp = FormKeyUp
  PixelsPerInch = 96
  TextHeight = 13
  object MainMenu1: TMainMenu
    Left = 56
    Top = 88
    object MmFile: TMenuItem
      Caption = #28216#25103'(&G)'
      object S1: TMenuItem
        Action = AnSingle
      end
      object New1: TMenuItem
        Action = AnNew
      end
      object N2: TMenuItem
        Caption = '-'
      end
      object Pause1: TMenuItem
        Action = AnPause
      end
      object HighScore1: TMenuItem
        Action = AnHScore
      end
      object Speedset: TMenuItem
        Action = AnSpeed
      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 = 24
    Top = 88
    object AnSingle: TAction
      Category = 'File'
      Caption = #21333#25171'(&S)'
      ShortCut = 120
      OnExecute = AnSingleExecute
    end
    object AnNew: TAction
      Category = 'File'
      Caption = #21452#25171'(&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 AnSpeed: TAction
      Category = 'File'
      Caption = #36895#24230#35774#32622'(&D)'
      OnExecute = AnSpeedExecute
    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 ApplicationEvents1: TApplicationEvents
    OnActivate = ApplicationEvents1Activate
    OnDeactivate = ApplicationEvents1Deactivate
    OnIdle = ApplicationEvents1Idle
    OnRestore = ApplicationEvents1Restore
    Left = 88
    Top = 88
  end
  object VictorDDraw81: TVictorDDraw8
    ScreenWidth = 640
    ScreenHeight = 480
    ScreenBpp = 16
    Windowed = True
    OnDispFrame = VictorDDraw81DispFrame
    OnRestoreFrame = VictorDDraw81RestoreFrame
    Left = 120
    Top = 88
  end
end