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