fangmain.dfm

俄罗斯方块的源程序.

object Form1: TForm1
  Left = 231
  Top = 66
  BorderStyle = bsToolWindow
  Caption = '             '#30922#26041#22359#28216#25103'   '
  ClientHeight = 448
  ClientWidth = 354
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clMaroon
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  Icon.Data = {
    0000010001002020100000000000E80200001600000028000000200000004000
    0000010004000000000080020000000000000000000000000000000000000000
    0000000080000080000000808000800000008000800080800000C0C0C0008080
    80000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF009999
    99999999999999999999FFFFFFFF990000B3030B00000B003099FFFFFFFF9930
    30B0030B03330B333099FFFFFFFF990000B0300B30030B033399F00000009933
    03B0030B03000B300099FFFFFFFF99BBBBB0330BBBBBBB333099F000000099EE
    EEB0000BEEEEEB003099FFFFFFFF99EEEEBBBBBBEEEEEB330399F000000099EE
    EEEEEEEEEEEEEB000099FFFFFFFF99EEEEEEEEEEEEEEEBBBBB99FFFFFFFF99EE
    EEEEEEEEEE22EEEEEE99FFFFFFFF99EEEEEEEEEEEE22EEEEEE99FFFFFFFF99EE
    EEEEEEEE6666EEEEEE99F777777799EEEEEEEEEE6666EEEEEE99F7FAAFF799EE
    EEEEEEEE66EEEEEEEE99F7FAAFF799EEEEEEEEEE66EEEEEEEE99F7FAAFF799EE
    EEEEEEEEEEEEEEEEEE99F7FAAFF799EEEEEEEEEEEEEEEEEEEE99F7FFFAA799EE
    EEEEEEEEEEEEEEEEEE99F7FFFAA799EEEEEE33EEEEEEEEEEEE99F7FFFAA799EE
    EEEE33EEEEEEEEEEEE99F7FFFAA799EEEEEE33EEEEEEEEEEEE99F777777799EE
    EEEE33EEEEEEEEEEEE99FFFFFFFF99EEEE3333EEEEEEEEEEEE99FFFFFFFF99EE
    EE6666EEEEEEEEEEEE99FFFFFFFF99EEEEEEEEEEEEEEEEEEEE99FFFFFFFF99EE
    EEEEEEEEEEEEEEEEEE99FF00000F99EEEEEEEEEEEEEEEEEEEE99FF0F0F0F9966
    66666666666666666699FF0FFF0F996666666666666666666699FF00000F9966
    66666666666666666699FFFFFFFF999999999999999999999999FFFFFFFF0000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    000000000000000000000000000000000000000000000000000000000000}
  KeyPreview = True
  OldCreateOrder = False
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object Bevel1: TBevel
    Left = 272
    Top = 320
    Width = 79
    Height = 123
  end
  object SpeedButton1: TSpeedButton
    Left = 280
    Top = 333
    Width = 60
    Height = 20
    Caption = #24320' '#23616'(&S)'
    Font.Charset = GB2312_CHARSET
    Font.Color = clNavy
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    OnClick = SpeedButton1Click
  end
  object spbtnLeft: TSpeedButton
    Left = 280
    Top = 206
    Width = 30
    Height = 25
    Caption = '3'
    Enabled = False
    Font.Charset = SYMBOL_CHARSET
    Font.Color = clLime
    Font.Height = -27
    Font.Name = 'Webdings'
    Font.Style = [fsBold]
    ParentFont = False
    OnMouseDown = MoveKeyDown
  end
  object spbtnRound: TSpeedButton
    Tag = 3
    Left = 296
    Top = 176
    Width = 30
    Height = 25
    Caption = ']'
    Enabled = False
    Font.Charset = SYMBOL_CHARSET
    Font.Color = clYellow
    Font.Height = -27
    Font.Name = 'Wingdings'
    Font.Style = []
    ParentFont = False
    OnMouseDown = MoveKeyDown
  end
  object spbtnRight: TSpeedButton
    Tag = 1
    Left = 312
    Top = 206
    Width = 30
    Height = 25
    Caption = '4'
    Enabled = False
    Font.Charset = SYMBOL_CHARSET
    Font.Color = clLime
    Font.Height = -27
    Font.Name = 'Webdings'
    Font.Style = []
    ParentFont = False
    OnMouseDown = MoveKeyDown
  end
  object spbtnDown: TSpeedButton
    Tag = 2
    Left = 296
    Top = 235
    Width = 30
    Height = 25
    Caption = '6'
    Enabled = False
    Font.Charset = SYMBOL_CHARSET
    Font.Color = clLime
    Font.Height = -27
    Font.Name = 'Webdings'
    Font.Style = []
    ParentFont = False
    OnMouseDown = MoveKeyDown
  end
  object Label6: TLabel
    Left = 280
    Top = 104
    Width = 48
    Height = 12
    Caption = #31215'  '#20998#65306
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object Label5: TLabel
    Left = 280
    Top = 56
    Width = 48
    Height = 12
    Caption = #24320#23616#25968#65306
    Color = clScrollBar
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentColor = False
    ParentFont = False
  end
  object SpeedButton6: TSpeedButton
    Left = 280
    Top = 361
    Width = 60
    Height = 20
    Caption = #26242' '#20572'(&P)'
    Font.Charset = GB2312_CHARSET
    Font.Color = clNavy
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    OnClick = SpeedButton6Click
  end
  object SpeedButton7: TSpeedButton
    Left = 280
    Top = 388
    Width = 60
    Height = 20
    Caption = #36873' '#39033'(&O)'
    Font.Charset = GB2312_CHARSET
    Font.Color = clNavy
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    OnClick = SpeedButton7Click
  end
  object SpeedButton8: TSpeedButton
    Left = 280
    Top = 416
    Width = 60
    Height = 20
    Caption = #36864' '#20986'(&X)'
    Font.Charset = GB2312_CHARSET
    Font.Color = clNavy
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    OnClick = SpeedButton8Click
  end
  object Panel1: TPanel
    Left = 3
    Top = 0
    Width = 263
    Height = 443
    BevelInner = bvRaised
    BevelOuter = bvLowered
    BevelWidth = 4
    BiDiMode = bdRightToLeftReadingOnly
    BorderWidth = 3
    BorderStyle = bsSingle
    Caption = #30922#26041#22359#28216#25103
    Color = clBackground
    Font.Charset = GB2312_CHARSET
    Font.Color = clWhite
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    Locked = True
    ParentBiDiMode = False
    ParentFont = False
    TabOrder = 0
    object Label1: TLabel
      Tag = 9
      Left = 250
      Top = -5
      Width = 50
      Height = 440
      Alignment = taCenter
      AutoSize = False
      Color = clBtnFace
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentColor = False
      ParentFont = False
      ShowAccelChar = False
    end
    object Label2: TLabel
      Tag = 9
      Left = -40
      Top = -5
      Width = 50
      Height = 440
      Alignment = taCenter
      AutoSize = False
      Color = clInactiveCaptionText
      ParentColor = False
    end
    object Label3: TLabel
      Tag = 9
      Left = 0
      Top = 430
      Width = 260
      Height = 50
      AutoSize = False
      Color = clScrollBar
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWhite
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentColor = False
      ParentFont = False
    end
    object Label4: TLabel
      Left = -5
      Top = 0
      Width = 300
      Height = 10
      Alignment = taCenter
      AutoSize = False
      Color = clActiveBorder
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWhite
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentColor = False
      ParentFont = False
    end
  end
  object Panel2: TPanel
    Left = 280
    Top = 8
    Width = 60
    Height = 41
    BevelInner = bvLowered
    BevelOuter = bvNone
    Color = clScrollBar
    TabOrder = 1
  end
  object Panel3: TPanel
    Left = 280
    Top = 72
    Width = 60
    Height = 25
    BevelOuter = bvLowered
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlue
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentColor = True
    ParentFont = False
    TabOrder = 2
  end
  object Panel4: TPanel
    Left = 280
    Top = 120
    Width = 60
    Height = 25
    BevelOuter = bvLowered
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlue
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentColor = True
    ParentFont = False
    TabOrder = 3
  end
  object timXia: TTimer
    Enabled = False
    Interval = 320
    OnTimer = timXiaTimer
    Left = 376
    Top = 400
  end
end