fangabout.dfm

俄罗斯方块的源程序.

object Form2: TForm2
  Left = 230
  Top = 153
  ActiveControl = BitBtn1
  BorderStyle = bsToolWindow
  Caption = '选项'
  ClientHeight = 195
  ClientWidth = 308
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clNavy
  Font.Height = -12
  Font.Name = '宋体'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 12
  object PageControl1: TPageControl
    Left = 4
    Top = 0
    Width = 300
    Height = 169
    ActivePage = TabSheet1
    TabOrder = 1
    object TabSheet1: TTabSheet
      Caption = '关 于'
      object Bevel1: TBevel
        Left = 8
        Top = 104
        Width = 273
        Height = 3
        Shape = bsBottomLine
      end
      object Label2: TLabel
        Left = 104
        Top = 16
        Width = 169
        Height = 49
        AutoSize = False
        Caption = 
          '    垒方块游戏是源代码公开的自由软件，可以在保留作者名字的情况下' +
          '使用，拷贝，分发，转载源代码。'
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlue
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        WordWrap = True
      end
      object Label3: TLabel
        Left = 104
        Top = 72
        Width = 156
        Height = 12
        Caption = '    不得用做任何商业用途。'
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlue
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
      end
      object Label4: TLabel
        Left = 8
        Top = 110
        Width = 252
        Height = 12
        Caption = '作者：金河曲       Email：[e-mail]'
      end
      object Label8: TLabel
        Left = 8
        Top = 90
        Width = 48
        Height = 12
        Caption = '版本:1.0'
      end
      object Panel1: TPanel
        Left = 8
        Top = 7
        Width = 81
        Height = 81
        BorderStyle = bsSingle
        Caption = 'A'
        Font.Charset = SYMBOL_CHARSET
        Font.Color = clTeal
        Font.Height = -56
        Font.Name = 'Webdings'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
      end
    end
    object TabSheet2: TTabSheet
      Caption = '选 项'
      ImageIndex = 1
      object GroupBox1: TGroupBox
        Left = 136
        Top = 0
        Width = 156
        Height = 142
        Align = alRight
        Caption = '颜色'
        TabOrder = 0
        object Shape1: TShape
          Left = 8
          Top = 56
          Width = 49
          Height = 17
          Brush.Color = clBackground
        end
        object Shape2: TShape
          Left = 8
          Top = 80
          Width = 49
          Height = 17
          Brush.Color = 3570671
        end
        object Shape3: TShape
          Left = 8
          Top = 104
          Width = 49
          Height = 17
        end
        object SpeedButton1: TSpeedButton
          Left = 72
          Top = 56
          Width = 65
          Height = 17
          Caption = '背景色'
          Flat = True
          OnClick = SpeedButton1Click
        end
        object SpeedButton2: TSpeedButton
          Left = 72
          Top = 80
          Width = 65
          Height = 17
          Caption = '方块填充'
          Flat = True
          OnClick = SpeedButton2Click
        end
        object SpeedButton3: TSpeedButton
          Left = 72
          Top = 104
          Width = 65
          Height = 17
          Caption = '方块描边'
          Flat = True
          OnClick = SpeedButton3Click
        end
        object CheckBox2: TCheckBox
          Left = 8
          Top = 24
          Width = 129
          Height = 17
          Caption = '不允许方块随机变色'
          Checked = True
          State = cbChecked
          TabOrder = 0
          OnClick = CheckBox2Click
        end
      end
      object GroupBox2: TGroupBox
        Left = 0
        Top = 0
        Width = 121
        Height = 142
        Align = alLeft
        Caption = '难度'
        TabOrder = 1
        object Label1: TLabel
          Left = 8
          Top = 48
          Width = 36
          Height = 12
          Caption = '速度：'
        end
        object Label9: TLabel
          Left = 8
          Top = 88
          Width = 60
          Height = 12
          Caption = '方块大小：'
        end
        object Label10: TLabel
          Left = 8
          Top = 110
          Width = 12
          Height = 12
          Caption = '小'
        end
        object Label11: TLabel
          Left = 97
          Top = 110
          Width = 12
          Height = 12
          Caption = '大'
        end
        object CheckBox1: TCheckBox
          Left = 8
          Top = 24
          Width = 105
          Height = 17
          Caption = '不使用异型方块'
          Checked = True
          Color = clBtnFace
          ParentColor = False
          State = cbChecked
          TabOrder = 0
        end
        object UpShuDu: TUpDown
          Left = 9
          Top = 64
          Width = 16
          Height = 17
          AlignButton = udLeft
          Associate = stxtShuDu
          Min = 1
          Max = 10
          Position = 3
          TabOrder = 1
          Wrap = True
        end
        object stxtShuDu: TStaticText
          Left = 24
          Top = 64
          Width = 73
          Height = 17
          Alignment = taCenter
          AutoSize = False
          BorderStyle = sbsSunken
          Caption = '3'
          Font.Charset = GB2312_CHARSET
          Font.Color = clBlue
          Font.Height = -12
          Font.Name = '宋体'
          Font.Style = []
          ParentFont = False
          TabOrder = 2
        end
        object TrackBar1: TTrackBar
          Left = 19
          Top = 104
          Width = 79
          Height = 25
          Max = 6
          Min = 2
          Orientation = trHorizontal
          PageSize = 1
          Frequency = -1
          Position = 4
          SelEnd = 30
          SelStart = 10
          TabOrder = 3
          TickMarks = tmBottomRight
          TickStyle = tsAuto
        end
      end
    end
    object TabSheet3: TTabSheet
      Caption = '小说明'
      ImageIndex = 2
      object Bevel2: TBevel
        Left = 0
        Top = 0
        Width = 291
        Height = 131
      end
      object Label5: TLabel
        Left = 24
        Top = 54
        Width = 204
        Height = 12
        Caption = '2： 用右键点击下降按钮可快速下降。'
      end
      object Label6: TLabel
        Left = 24
        Top = 86
        Width = 249
        Height = 25
        AutoSize = False
        Caption = '3： 按住Shift 键再按键盘上的“↓”键同样  　　快速下降。'
        WordWrap = True
      end
      object Label7: TLabel
        Left = 24
        Top = 16
        Width = 241
        Height = 25
        AutoSize = False
        Caption = '1： 可以用方向按钮和键盘上的箭头键两种方     法操纵方块的运动。'
        WordWrap = True
      end
    end
  end
  object BitBtn1: TBitBtn
    Left = 128
    Top = 171
    Width = 60
    Height = 24
    Caption = '确定'
    TabOrder = 0
    OnClick = BitBtn1Click
    Kind = bkOK
  end
  object ColorDialog1: TColorDialog
    Ctl3D = True
    Color = clNavy
    Left = 304
    Top = 192
  end
end