unit1.dfm

五子棋游戏系统

object Form1: TForm1
  Left = 318
  Top = 122
  Width = 640
  Height = 480
  Caption = #20116#23376#26827
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object DrawGrid1: TDrawGrid
    Left = 24
    Top = 24
    Width = 402
    Height = 402
    ColCount = 19
    Constraints.MaxHeight = 402
    Constraints.MaxWidth = 402
    Constraints.MinHeight = 402
    Constraints.MinWidth = 402
    Ctl3D = True
    DefaultColWidth = 20
    DefaultRowHeight = 20
    FixedCols = 0
    RowCount = 19
    FixedRows = 0
    Options = [goVertLine, goHorzLine]
    ParentCtl3D = False
    ScrollBars = ssNone
    TabOrder = 0
    OnDrawCell = DrawGrid1DrawCell
    OnMouseUp = DrawGrid1MouseUp
  end
  object GroupBox1: TGroupBox
    Left = 448
    Top = 32
    Width = 145
    Height = 90
    Caption = #29609#23478
    TabOrder = 1
    object Label1: TLabel
      Left = 20
      Top = 23
      Width = 61
      Height = 13
      AutoSize = False
      Caption = 'Player 1'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
    end
    object Label2: TLabel
      Left = 20
      Top = 55
      Width = 61
      Height = 13
      AutoSize = False
      Caption = 'Player 2'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
    end
    object Shape1: TShape
      Left = 106
      Top = 20
      Width = 19
      Height = 19
      Brush.Color = clBlack
      Shape = stCircle
    end
    object Shape2: TShape
      Left = 106
      Top = 52
      Width = 19
      Height = 19
      Shape = stCircle
    end
  end
  object GroupBox2: TGroupBox
    Left = 448
    Top = 128
    Width = 145
    Height = 90
    Caption = #29992#26102'('#31186')'
    TabOrder = 2
    object Label3: TLabel
      Left = 20
      Top = 23
      Width = 61
      Height = 13
      AutoSize = False
      Caption = 'Player 1'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
    end
    object Label4: TLabel
      Left = 20
      Top = 55
      Width = 61
      Height = 13
      AutoSize = False
      Caption = 'Player 2'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
    end
    object Label7: TLabel
      Left = 80
      Top = 23
      Width = 50
      Height = 13
      Alignment = taRightJustify
      AutoSize = False
      Caption = '0:00:00'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
    end
    object Label8: TLabel
      Left = 80
      Top = 55
      Width = 50
      Height = 13
      Alignment = taRightJustify
      AutoSize = False
      Caption = '0:00:00'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
    end
  end
  object GroupBox3: TGroupBox
    Left = 448
    Top = 224
    Width = 145
    Height = 90
    Caption = #32988#36127'('#23616')'
    TabOrder = 3
    object Label5: TLabel
      Left = 20
      Top = 23
      Width = 61
      Height = 13
      AutoSize = False
      Caption = 'Player 1'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
    end
    object Label6: TLabel
      Left = 20
      Top = 55
      Width = 61
      Height = 13
      AutoSize = False
      Caption = 'Player 2'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
    end
    object Label9: TLabel
      Left = 76
      Top = 23
      Width = 50
      Height = 13
      Alignment = taRightJustify
      AutoSize = False
      Caption = '0'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
    end
    object Label10: TLabel
      Left = 76
      Top = 55
      Width = 50
      Height = 13
      Alignment = taRightJustify
      AutoSize = False
      Caption = '0'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
    end
  end
  object btReStart: TButton
    Left = 448
    Top = 360
    Width = 145
    Height = 25
    Caption = #23545#24328#24320#22987
    TabOrder = 4
    OnClick = btReStartClick
  end
  object btClose: TButton
    Left = 448
    Top = 408
    Width = 145
    Height = 25
    Caption = #36864#20986#28216#25103
    TabOrder = 5
    OnClick = btCloseClick
  end
  object Timer1: TTimer
    Enabled = False
    Interval = 500
    OnTimer = Timer1Timer
    Left = 432
    Top = 160
  end
end