unit4.dfm

3d snake 游戏编程源码

object FormOption: TFormOption
  Left = 244
  Top = 205
  BorderStyle = bsDialog
  Caption = #28216#25103#36873#39033
  ClientHeight = 241
  ClientWidth = 327
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poMainFormCenter
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object btnCancel: TSpeedButton
    Left = 251
    Top = 214
    Width = 73
    Height = 23
    Caption = #21462#28040
    OnClick = btnCancelClick
  end
  object btnOk: TSpeedButton
    Left = 176
    Top = 214
    Width = 73
    Height = 23
    Caption = #30830#23450
    OnClick = btnOkClick
  end
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 327
    Height = 209
    ActivePage = TabSheet1
    HotTrack = True
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = #35270#35273
      object Label1: TLabel
        Left = 8
        Top = 8
        Width = 72
        Height = 12
        Caption = #22260#22681#36879#26126#24230#65306
      end
      object Label2: TLabel
        Left = 8
        Top = 32
        Width = 36
        Height = 12
        Caption = #39068#33394#65306
      end
      object TrackBarAlpha: TTrackBar
        Left = 78
        Top = 8
        Width = 115
        Height = 18
        Max = 100
        Position = 50
        TabOrder = 0
        ThumbLength = 10
        TickStyle = tsNone
      end
      object ListBoxColors: TListBox
        Left = 50
        Top = 51
        Width = 138
        Height = 129
        ItemHeight = 12
        Items.Strings = (
          #22806#22260#22681
          #38556#30861#29289
          #32593#26684#32447
          #36741#21161#32447
          #28608#27963#36741#21161#32447
          #34503#36523#20307
          #34503#22836
          #22686#38271#33529#26524
          #32553#30701#33529#26524
          #20851#21345#20986#21475)
        TabOrder = 1
        OnMouseDown = ListBoxColorsMouseDown
        OnMouseUp = ListBoxColorsMouseUp
      end
      object ColorBox: TColorBox
        Left = 50
        Top = 26
        Width = 138
        Height = 22
        AutoDropDown = True
        Style = [cbStandardColors, cbExtendedColors, cbSystemColors, cbCustomColor, cbPrettyNames]
        ItemHeight = 16
        TabOrder = 2
        OnSelect = ColorBoxSelect
      end
      object chkShowGrid: TCheckBox
        Left = 216
        Top = 24
        Width = 97
        Height = 17
        Caption = #26174#31034#32593#26684#32447
        TabOrder = 3
      end
      object chkLightOn: TCheckBox
        Left = 216
        Top = 65
        Width = 97
        Height = 17
        Caption = #24320#21551#20809#29031
        TabOrder = 4
      end
      object chkShowAidLine: TCheckBox
        Left = 216
        Top = 44
        Width = 97
        Height = 17
        Caption = #26174#31034#36741#21161#32447
        TabOrder = 5
      end
    end
    object TabSheet2: TTabSheet
      Caption = #25511#21046
      ImageIndex = 1
      object Label3: TLabel
        Left = 104
        Top = 24
        Width = 72
        Height = 12
        Caption = #26242#20572'/'#24674#22797#65306'K'
      end
      object Label4: TLabel
        Left = 104
        Top = 7
        Width = 42
        Height = 12
        Caption = #21152#36895#65306'J'
      end
      object Label5: TLabel
        Left = 104
        Top = 40
        Width = 90
        Height = 12
        Caption = #27700#24179#35270#35282#21464#25442#65306'U'
      end
      object Label6: TLabel
        Left = 104
        Top = 57
        Width = 90
        Height = 12
        Caption = #22402#30452#35270#35282#21464#25442#65306'I'
      end
      object Label7: TLabel
        Left = 9
        Top = 8
        Width = 30
        Height = 12
        Caption = #19978#65306'W'
      end
      object Label8: TLabel
        Left = 9
        Top = 24
        Width = 30
        Height = 12
        Caption = #19979#65306'S'
      end
      object Label9: TLabel
        Left = 9
        Top = 40
        Width = 30
        Height = 12
        Caption = #24038#65306'A'
      end
      object Label10: TLabel
        Left = 9
        Top = 57
        Width = 30
        Height = 12
        Caption = #21491#65306'D'
      end
    end
  end
end