WDR Computer Club Digital 1997 February/club9702.bin/SHARE95/95GOMOKU/_SETUP.1/Gomoku.exe/0/RCDATA/TOPTIONSFORM/TOPTIONSFORM.txt

Text File | 1996-09-02 | 22KB | 763 lines

object OptionsForm: TOptionsForm
  Left = 249
  Top = 149
  ActiveControl = OKBtn
  BorderIcons = [biSystemMenu, biHelp]
  BorderStyle = bsSingle
  Caption = 'Options'
  ClientHeight = 235
  ClientWidth = 461
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Position = poScreenCenter
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Panel2: TPanel
    Left = 0
    Top = 201
    Width = 461
    Height = 34
    Align = alBottom
    BevelOuter = bvNone
    ParentColor = True
    TabOrder = 0
    object Bevel7: TBevel
      Left = 0
      Top = 0
      Width = 461
      Height = 34
      Align = alClient
      Shape = bsTopLine
    end
    object OKBtn: TButton
      Left = 221
      Top = 6
      Width = 75
      Height = 25
      Hint = 'Click To Save Changes'
      HelpContext = 1012
      Caption = '&OK'
      Default = True
      ModalResult = 1
      ParentShowHint = False
      PopupMenu = Form1.PopUpMenu2
      ShowHint = True
      TabOrder = 0
      OnClick = OKBtnClick
    end
    object CancelBtn: TButton
      Left = 301
      Top = 6
      Width = 75
      Height = 25
      Hint = 'Click To Cancel Changes'
      HelpContext = 1013
      Cancel = True
      Caption = '&Cancel'
      ModalResult = 2
      ParentShowHint = False
      PopupMenu = Form1.PopUpMenu2
      ShowHint = True
      TabOrder = 1
      OnClick = CancelBtnClick
    end
    object HelpBtn: TButton
      Left = 381
      Top = 6
      Width = 75
      Height = 25
      Hint = 'For help click here'
      HelpContext = 1014
      Caption = '&Help'
      ParentShowHint = False
      PopupMenu = Form1.PopUpMenu2
      ShowHint = True
      TabOrder = 2
      OnClick = HelpBtnClick
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 461
    Height = 201
    Align = alClient
    BevelOuter = bvNone
    BorderWidth = 5
    Caption = 'Panel1'
    ParentColor = True
    TabOrder = 1
    object OptionsControl: TPageControl
      Left = 5
      Top = 5
      Width = 451
      Height = 191
      ActivePage = PlayerSettings
      Align = alClient
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      MultiLine = True
      ParentFont = False
      ParentShowHint = False
      ShowHint = False
      TabOrder = 0
      object PlayerSettings: TTabSheet
        Caption = 'Players'
        object Bevel2: TBevel
          Left = 0
          Top = 0
          Width = 443
          Height = 163
          Align = alClient
          Shape = bsFrame
        end
        object Label2: TLabel
          Left = 8
          Top = 116
          Width = 168
          Height = 12
          Caption = 'Name Of &1st Player : '
          FocusControl = FirstPlayerEditBox
          Font.Color = clBlack
          Font.Height = -12
          Font.Name = 'MSI Console'
          Font.Style = []
          ParentFont = False
        end
        object Label3: TLabel
          Left = 8
          Top = 138
          Width = 168
          Height = 12
          Caption = 'Name Of &2nd Player : '
          FocusControl = SecondPlayerEditBox
          Font.Color = clBlack
          Font.Height = -12
          Font.Name = 'MSI Console'
          Font.Style = []
          ParentFont = False
        end
        object SelectColorPanel: TPanel
          Left = 192
          Top = 8
          Width = 244
          Height = 81
          BevelInner = bvRaised
          TabOrder = 0
          object WhiteMasterSpeedButton: TSpeedButton
            Left = 8
            Top = 48
            Width = 25
            Height = 25
            Hint = 'Click To Set White Color For 2nd Player Or For Computer'
            GroupIndex = 2
            Glyph.Data = {
              66010000424D6601000000000000760000002800000014000000140000000100
              040000000000F000000000000000000000000000000010000000000000000000
              80000080000000808000800000008000800080800000C0C0C000808080000000
              FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
              7777777700007777777788888877777700007777778888888888777700007777
              77000000888887770000777700EEEEEE0088887700007770EEEEEEEEEE088877
              0000770EEEEEEEEEEEE088870000770EEEEEEEEEEEE08887000070EEEEEEEEEE
              EEEE0887000070EEEEEEEEEEEEEE0887000070EEEEEEEEEEEEEE0887000070EE
              EEEEEEEEEEEE0877000070EEEEEEEEEEEEEE08770000770EEEEEEEEEEEE07777
              0000770EEEEEEEEEEEE0777700007770EEEEEEEEEE0777770000777700EEEEEE
              0077777700007777770000007777777700007777777777777777777700007777
              77777777777777770000}
            ParentShowHint = False
            ShowHint = True
            OnClick = WhiteMasterSpeedButtonClick
          end
          object BlackPlayerSpeedButton: TSpeedButton
            Left = 8
            Top = 8
            Width = 25
            Height = 25
            Hint = 'Click To Set Black Color For 1st Player'
            GroupIndex = 1
            Glyph.Data = {
              66010000424D6601000000000000760000002800000014000000140000000100
              040000000000F000000000000000000000000000000010000000000000000000
              80000080000000808000800000008000800080800000C0C0C000808080000000
              FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
              7777777700007777777788888877777700007777778888888888777700007777
              77EEEEEE8888877700007777EE000000EE8888770000777E0000000000E88877
              000077E000000000000E8887000077E000000000000E888700007E0000000000
              0000E88700007E00000000000000E88700007E00000000000000E88700007E00
              000000000000E87700007E00000000000000E877000077E000000000000E7777
              000077E000000000000E77770000777E0000000000E7777700007777EE000000
              EE7777770000777777EEEEEE7777777700007777777777777777777700007777
              77777777777777770000}
            ParentShowHint = False
            ShowHint = True
            OnClick = BlackPlayerSpeedButtonClick
          end
          object WhitePlayerSpeedButton: TSpeedButton
            Left = 32
            Top = 8
            Width = 25
            Height = 25
            Hint = 'Click To Set White Color For 1st Player'
            GroupIndex = 1
            Down = True
            Glyph.Data = {
              66010000424D6601000000000000760000002800000014000000140000000100
              040000000000F000000000000000000000000000000010000000000000000000
              80000080000000808000800000008000800080800000C0C0C000808080000000
              FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
              7777777700007777777788888877777700007777778888888888777700007777
              77000000888887770000777700EEEEEE0088887700007770EEEEEEEEEE088877
              0000770EEEEEEEEEEEE088870000770EEEEEEEEEEEE08887000070EEEEEEEEEE
              EEEE0887000070EEEEEEEEEEEEEE0887000070EEEEEEEEEEEEEE0887000070EE
              EEEEEEEEEEEE0877000070EEEEEEEEEEEEEE08770000770EEEEEEEEEEEE07777
              0000770EEEEEEEEEEEE0777700007770EEEEEEEEEE0777770000777700EEEEEE
              0077777700007777770000007777777700007777777777777777777700007777
              77777777777777770000}
            ParentShowHint = False
            ShowHint = True
            OnClick = WhitePlayerSpeedButtonClick
          end
          object BlackMasterSpeedButton: TSpeedButton
            Left = 32
            Top = 48
            Width = 25
            Height = 25
            Hint = 'Click To Set Black Color For 2nd Player Or For Computer'
            GroupIndex = 2
            Down = True
            Glyph.Data = {
              66010000424D6601000000000000760000002800000014000000140000000100
              040000000000F000000000000000000000000000000010000000000000000000
              80000080000000808000800000008000800080800000C0C0C000808080000000
              FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
              7777777700007777777788888877777700007777778888888888777700007777
              77EEEEEE8888877700007777EE000000EE8888770000777E0000000000E88877
              000077E000000000000E8887000077E000000000000E888700007E0000000000
              0000E88700007E00000000000000E88700007E00000000000000E88700007E00
              000000000000E87700007E00000000000000E877000077E000000000000E7777
              000077E000000000000E77770000777E0000000000E7777700007777EE000000
              EE7777770000777777EEEEEE7777777700007777777777777777777700007777
              77777777777777770000}
            ParentShowHint = False
            ShowHint = True
            OnClick = BlackMasterSpeedButtonClick
          end
          object SecondPlayerLabel: TLabel
            Left = 65
            Top = 56
            Width = 5
            Height = 13
          end
          object FirstPlayerLabel: TLabel
            Left = 65
            Top = 16
            Width = 5
            Height = 13
          end
          object Panel3: TPanel
            Left = 8
            Top = 36
            Width = 231
            Height = 9
            TabOrder = 0
          end
        end
        object FirstPlayerEditBox: TEdit
          Left = 192
          Top = 112
          Width = 244
          Height = 21
          Hint = 'Enter 1st Player'#39's Name Here'
          HelpContext = 1010
          MaxLength = 11
          ParentShowHint = False
          PopupMenu = Form1.PopUpMenu2
          ShowHint = True
          TabOrder = 3
          OnChange = FirstPlayerEditBoxChange
        end
        object SecondPlayerEditBox: TEdit
          Left = 192
          Top = 133
          Width = 244
          Height = 21
          Hint = 'Enter 2nd Player'#39's Name Here'
          HelpContext = 1011
          MaxLength = 11
          ParentShowHint = False
          PopupMenu = Form1.PopUpMenu2
          ShowHint = True
          TabOrder = 4
          OnChange = SecondPlayerEditBoxChange
        end
        object GroupBox1: TGroupBox
          Left = 8
          Top = 3
          Width = 177
          Height = 46
          TabOrder = 1
          object HumanHuman: TRadioButton
            Left = 8
            Top = 9
            Width = 161
            Height = 17
            Hint = 'Click For Two Players'
            HelpContext = 1001
            Caption = 'Hum&an vs Human'
            Checked = True
            Ctl3D = True
            Font.Color = clBlack
            Font.Height = -12
            Font.Name = 'MS Sans Serif'
            Font.Style = [fsBold]
            ParentCtl3D = False
            ParentFont = False
            ParentShowHint = False
            PopupMenu = Form1.PopUpMenu2
            ShowHint = True
            TabOrder = 0
            TabStop = True
            OnClick = HumanHumanClick
          end
          object HumanComputer: TRadioButton
            Left = 8
            Top = 25
            Width = 161
            Height = 17
            Hint = 'Click For One Player and Computer'
            HelpContext = 1002
            Caption = 'Huma&n vs Computer'
            ParentShowHint = False
            PopupMenu = Form1.PopUpMenu2
            ShowHint = True
            TabOrder = 1
            OnClick = HumanComputerClick
          end
        end
        object WhoMovesFirst: TButton
          Left = 8
          Top = 56
          Width = 177
          Height = 32
          Hint = 'Click to Change Who Moves First'
          HelpContext = 1003
          Caption = '1st Player is First'
          ParentShowHint = False
          PopupMenu = Form1.PopUpMenu2
          ShowHint = True
          TabOrder = 2
          OnClick = WhoMovesFirstClick
        end
      end
      object GeneralSettings: TTabSheet
        Caption = 'General'
        object Bevel1: TBevel
          Left = 0
          Top = 0
          Width = 443
          Height = 163
          Align = alClient
          Shape = bsFrame
        end
        object Bevel6: TBevel
          Left = 172
          Top = 8
          Width = 264
          Height = 145
          Shape = bsFrame
        end
        object Bevel5: TBevel
          Left = 8
          Top = 8
          Width = 165
          Height = 145
          Shape = bsFrame
        end
        object Label7: TLabel
          Left = 183
          Top = 30
          Width = 88
          Height = 13
          Caption = 'Replay Speed :'
        end
        object Label8: TLabel
          Left = 183
          Top = 102
          Width = 98
          Height = 13
          Caption = 'Autoplay Speed :'
        end
        object Label9: TLabel
          Left = 274
          Top = 56
          Width = 28
          Height = 13
          Caption = 'Slow'
        end
        object Label10: TLabel
          Left = 404
          Top = 56
          Width = 25
          Height = 13
          Caption = 'Fast'
        end
        object Label11: TLabel
          Left = 274
          Top = 129
          Width = 28
          Height = 13
          Caption = 'Slow'
        end
        object Label12: TLabel
          Left = 404
          Top = 129
          Width = 25
          Height = 13
          Caption = 'Fast'
        end
        object Bevel8: TBevel
          Left = 174
          Top = 80
          Width = 261
          Height = 3
          Shape = bsTopLine
        end
        object TimerCheckBox: TCheckBox
          Left = 16
          Top = 16
          Width = 57
          Height = 17
          Hint = 'Click To Enable/Disable Timer'
          HelpContext = 2001
          Caption = '&Timer'
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
          ParentShowHint = False
          PopupMenu = Form1.PopUpMenu2
          ShowHint = True
          TabOrder = 0
        end
        object MusicCheckBox: TCheckBox
          Left = 16
          Top = 40
          Width = 57
          Height = 17
          Hint = 'Click To Enable/Disable Music'
          HelpContext = 2002
          Caption = '&Music'
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
          ParentShowHint = False
          PopupMenu = Form1.PopUpMenu2
          ShowHint = True
          TabOrder = 1
        end
        object SoundCheckBox: TCheckBox
          Left = 16
          Top = 64
          Width = 57
          Height = 17
          Hint = 'Click To Enable/Disable Sound'
          HelpContext = 2003
          Caption = '&Sound'
          Font.Color = clBlack
          Font.Height = -12
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
          ParentShowHint = False
          PopupMenu = Form1.PopUpMenu2
          ShowHint = True
          TabOrder = 2
        end
        object ReplayTrackBar: TTrackBar
          Left = 282
          Top = 24
          Width = 150
          Height = 33
          Hint = 'Change Replay speed'
          HelpContext = 2004
          Max = 9
          Orientation = trHorizontal
          ParentShowHint = False
          PopupMenu = Form1.PopUpMenu2
          Frequency = 1
          Position = 9
          SelEnd = 0
          SelStart = 0
          ShowHint = True
          TabOrder = 3
          TickMarks = tmBottomRight
          TickStyle = tsAuto
          OnChange = ReplayTrackBarChange
        end
        object AutoPlaytrackBar: TTrackBar
          Left = 282
          Top = 97
          Width = 150
          Height = 33
          Hint = 'Change Autoplay speed'
          HelpContext = 2005
          Max = 9
          Orientation = trHorizontal
          ParentShowHint = False
          PopupMenu = Form1.PopUpMenu2
          Frequency = 1
          Position = 9
          SelEnd = 0
          SelStart = 0
          ShowHint = True
          TabOrder = 4
          TickMarks = tmBottomRight
          TickStyle = tsAuto
          OnChange = AutoPlaytrackBarChange
        end
      end
      object AIE: TTabSheet
        Caption = 'A. I. E.'
        object Bevel3: TBevel
          Left = 0
          Top = 0
          Width = 443
          Height = 163
          Align = alClient
          Shape = bsFrame
        end
        object Label1: TLabel
          Left = 112
          Top = 8
          Width = 216
          Height = 13
          Caption = 'ARTIFICIAL INTELLIGENCE ENGINE:'
          Font.Color = clBlack
          Font.Height = -12
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold, fsUnderline]
          ParentFont = False
        end
        object Label4: TLabel
          Left = 9
          Top = 40
          Width = 58
          Height = 13
          Caption = 'DEFENSE'
        end
        object Label5: TLabel
          Left = 385
          Top = 40
          Width = 49
          Height = 13
          Caption = 'ATTACK'
        end
        object Label6: TLabel
          Left = 25
          Top = 136
          Width = 96
          Height = 13
          Caption = 'RANDOMNESS :'
        end
        object SpeedButton1: TSpeedButton
          Left = 129
          Top = 128
          Width = 25
          Height = 25
          Hint = 'Change The Randomness Of Go-Moku Master'
          GroupIndex = 2
          Caption = '0'
          ParentShowHint = False
          ShowHint = True
          OnClick = RandClick
        end
        object Bevel4: TBevel
          Left = 1
          Top = 118
          Width = 492
          Height = 4
          Shape = bsBottomLine
        end
        object SpeedButton2: TSpeedButton
          Left = 153
          Top = 128
          Width = 25
          Height = 25
          Hint = 'Change The Randomness Of Go-Moku Master'
          GroupIndex = 2
          Caption = '1'
          ParentShowHint = False
          ShowHint = True
          OnClick = RandClick
        end
        object SpeedButton3: TSpeedButton
          Left = 177
          Top = 128
          Width = 25
          Height = 25
          Hint = 'Change The Randomness Of Go-Moku Master'
          GroupIndex = 2
          Caption = '2'
          ParentShowHint = False
          ShowHint = True
          OnClick = RandClick
        end
        object SpeedButton4: TSpeedButton
          Left = 201
          Top = 128
          Width = 25
          Height = 25
          Hint = 'Change The Randomness Of Go-Moku Master'
          GroupIndex = 2
          Caption = '3'
          ParentShowHint = False
          ShowHint = True
          OnClick = RandClick
        end
        object SpeedButton5: TSpeedButton
          Left = 225
          Top = 128
          Width = 25
          Height = 25
          Hint = 'Change The Randomness Of Go-Moku Master'
          GroupIndex = 2
          Down = True
          Caption = '4'
          ParentShowHint = False
          ShowHint = True
          OnClick = RandClick
        end
        object SpeedButton6: TSpeedButton
          Left = 249
          Top = 128
          Width = 25
          Height = 25
          Hint = 'Change The Randomness Of Go-Moku Master'
          GroupIndex = 2
          Caption = '5'
          ParentShowHint = False
          ShowHint = True
          OnClick = RandClick
        end
        object SpeedButton7: TSpeedButton
          Left = 273
          Top = 128
          Width = 25
          Height = 25
          Hint = 'Change The Randomness Of Go-Moku Master'
          GroupIndex = 2
          Caption = '6'
          ParentShowHint = False
          ShowHint = True
          OnClick = RandClick
        end
        object SpeedButton8: TSpeedButton
          Left = 297
          Top = 128
          Width = 25
          Height = 25
          Hint = 'Change The Randomness Of Go-Moku Master'
          GroupIndex = 2
          Caption = '7'
          ParentShowHint = False
          ShowHint = True
          OnClick = RandClick
        end
        object SpeedButton9: TSpeedButton
          Left = 321
          Top = 128
          Width = 25
          Height = 25
          Hint = 'Change The Randomness Of Go-Moku Master'
          GroupIndex = 2
          Caption = '8'
          ParentShowHint = False
          ShowHint = True
          OnClick = RandClick
        end
        object SpeedButton10: TSpeedButton
          Left = 345
          Top = 128
          Width = 25
          Height = 25
          Hint = 'Change The Randomness Of Go-Moku Master'
          GroupIndex = 2
          Caption = '9'
          ParentShowHint = False
          ShowHint = True
          OnClick = RandClick
        end
        object SpeedButton11: TSpeedButton
          Left = 369
          Top = 128
          Width = 25
          Height = 25
          Hint = 'Change The Randomness Of Go-Moku Master'
          GroupIndex = 2
          Caption = '10'
          ParentShowHint = False
          ShowHint = True
          OnClick = RandClick
        end
        object SpeedButton12: TSpeedButton
          Left = 393
          Top = 128
          Width = 25
          Height = 25
          GroupIndex = 2
          Visible = False
        end
        object TrackBar: TTrackBar
          Left = 67
          Top = 24
          Width = 313
          Height = 45
          Hint = 'Change The Behavior Of Go-Moku Master'
          HelpContext = 3001
          Ctl3D = True
          Max = 32
          Orientation = trHorizontal
          ParentCtl3D = False
          ParentShowHint = False
          PopupMenu = Form1.PopUpMenu2
          Frequency = 1
          Position = 16
          SelEnd = 0
          SelStart = 0
          ShowHint = True
          TabOrder = 0
          TickMarks = tmBoth
          TickStyle = tsAuto
          OnChange = TrackBarChange
        end
        object ADFactor: TPanel
          Left = 129
          Top = 72
          Width = 185
          Height = 41
          HelpContext = 3002
          BevelInner = bvLowered
          BevelOuter = bvLowered
          BevelWidth = 2
          Font.Color = clBlack
          Font.Height = -24
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
          PopupMenu = Form1.PopUpMenu2
          TabOrder = 1
        end
      end
    end
  end
end