home *** CD-ROM | disk | FTP | other *** search
- object TFructusOptionWindow: TTFructusOptionWindow
- Left = 185
- Top = 163
- BorderIcons = [biMinimize]
- BorderStyle = bsDialog
- Caption = 'Options'
- ClientHeight = 228
- ClientWidth = 292
- Color = clSilver
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Scaled = False
- OnCloseQuery = CheckValues
- OnShow = SetupWindow
- PixelsPerInch = 96
- TextHeight = 13
- object Button1: TButton
- Left = 230
- Top = 200
- Width = 60
- Height = 23
- Caption = '&Ok'
- Default = True
- ModalResult = 1
- TabOrder = 0
- OnClick = Ok
- end
- object PageControl1: TPageControl
- Left = 2
- Top = 0
- Width = 289
- Height = 193
- ActivePage = TabSheet1
- TabOrder = 1
- object TabSheet1: TTabSheet
- Caption = '&Blocks'
- object Image1: TImage
- Left = 10
- Top = 18
- Width = 124
- Height = 125
- Picture.Data = {<image000.bmp>}
- end
- object GroupBox1: TGroupBox
- Left = 144
- Top = 64
- Width = 130
- Height = 81
- Caption = 'Blocks options.'
- TabOrder = 0
- object CheckBox2: TCheckBox
- Left = 8
- Top = 24
- Width = 105
- Height = 17
- Caption = '&Blocks of fruits'
- TabOrder = 0
- end
- object CheckBox3: TCheckBox
- Left = 8
- Top = 40
- Width = 113
- Height = 17
- Caption = '&Enable jocker block'
- TabOrder = 1
- end
- object CheckBox4: TCheckBox
- Left = 8
- Top = 56
- Width = 105
- Height = 17
- Caption = 'Show &next block'
- TabOrder = 2
- end
- end
- end
- object TabSheet2: TTabSheet
- Caption = '&Audio'
- object Image3: TImage
- Left = 220
- Top = 50
- Width = 32
- Height = 32
- Picture.Data = {<image001.ico>}
- end
- object GroupBox2: TGroupBox
- Left = 8
- Top = 16
- Width = 185
- Height = 41
- Caption = '&Wav files'
- TabOrder = 1
- end
- object CheckBox1: TCheckBox
- Left = 32
- Top = 32
- Width = 129
- Height = 17
- Caption = 'A few &sound effects.'
- TabOrder = 0
- end
- object RadioGroup1: TRadioGroup
- Left = 8
- Top = 64
- Width = 185
- Height = 80
- Caption = '&Music type'
- Columns = 2
- Items.Strings = (
- '&A-type'
- '&B-type'
- '&C-type'
- '&Off')
- TabOrder = 2
- end
- end
- object TabSheet3: TTabSheet
- Caption = '&Misc.'
- object Image2: TImage
- Left = 220
- Top = 50
- Width = 32
- Height = 32
- Picture.Data = {<image002.ico>}
- end
- object Panel2: TPanel
- Left = 16
- Top = 16
- Width = 177
- Height = 133
- BevelInner = bvRaised
- BevelOuter = bvLowered
- TabOrder = 0
- object Label1: TLabel
- Left = 8
- Top = 13
- Width = 111
- Height = 13
- Caption = 'Number of fruits to align'
- end
- object Label2: TLabel
- Left = 8
- Top = 43
- Width = 61
- Height = 13
- Caption = 'Starting level'
- end
- object SpinEdit1: TSpinEdit
- Left = 128
- Top = 8
- Width = 41
- Height = 22
- MaxValue = 0
- MinValue = 0
- TabOrder = 0
- Value = 0
- end
- object SpinEdit2: TSpinEdit
- Left = 128
- Top = 40
- Width = 41
- Height = 22
- MaxValue = 0
- MinValue = 0
- TabOrder = 1
- Value = 0
- end
- object CheckBox5: TCheckBox
- Left = 8
- Top = 96
- Width = 97
- Height = 17
- Caption = 'Joystick enabled.'
- TabOrder = 2
- end
- end
- end
- end
- object Button2: TButton
- Left = 160
- Top = 200
- Width = 60
- Height = 23
- Caption = '&Cancel'
- ModalResult = 2
- TabOrder = 2
- end
- end
-