main.dfm

基于delphi7.0

object Form_Main: TForm_Main
  Left = 198
  Top = 115
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = #32593#32476#20013#22269#35937#26827
  ClientHeight = 542
  ClientWidth = 704
  Color = clSkyBlue
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 504
    Top = 80
    Width = 49
    Height = 20
    AutoSize = False
    Caption = #26412#26041':'
    Font.Charset = GB2312_CHARSET
    Font.Color = clMenuText
    Font.Height = -16
    Font.Name = #24188#22278
    Font.Style = []
    ParentFont = False
    Visible = False
  end
  object Label2: TLabel
    Left = 504
    Top = 124
    Width = 49
    Height = 20
    AutoSize = False
    Caption = #23545#26041':'
    Font.Charset = GB2312_CHARSET
    Font.Color = clMenuText
    Font.Height = -16
    Font.Name = #24188#22278
    Font.Style = []
    ParentFont = False
    Visible = False
  end
  object Label3: TLabel
    Left = 504
    Top = 168
    Width = 89
    Height = 20
    AutoSize = False
    Caption = #24403#21069#19979#23376#26041':'
    Font.Charset = GB2312_CHARSET
    Font.Color = clMenuText
    Font.Height = -16
    Font.Name = #24188#22278
    Font.Style = []
    ParentFont = False
    Visible = False
  end
  object lblLocal: TLabel
    Left = 568
    Top = 80
    Width = 89
    Height = 20
    AutoSize = False
    Font.Charset = GB2312_CHARSET
    Font.Color = clMenuText
    Font.Height = -20
    Font.Name = #21326#25991#34892#26999
    Font.Style = []
    ParentFont = False
  end
  object lblRemote: TLabel
    Left = 568
    Top = 124
    Width = 89
    Height = 20
    AutoSize = False
    Font.Charset = GB2312_CHARSET
    Font.Color = clMenuText
    Font.Height = -20
    Font.Name = #21326#25991#34892#26999
    Font.Style = []
    ParentFont = False
  end
  object lblCurrent: TLabel
    Left = 608
    Top = 168
    Width = 73
    Height = 20
    AutoSize = False
    Font.Charset = GB2312_CHARSET
    Font.Color = clMenuText
    Font.Height = -20
    Font.Name = #21326#25991#34892#26999
    Font.Style = []
    ParentFont = False
  end
  object Panel_ChessBoard: TPanel
    Left = 0
    Top = 0
    Width = 481
    Height = 542
    Align = alLeft
    AutoSize = True
    Color = clSkyBlue
    TabOrder = 0
  end
  object btnQuitGame: TButton
    Left = 585
    Top = 439
    Width = 105
    Height = 25
    Caption = #26029#24320#26412#27425#28216#25103
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    OnClick = btnQuitGameClick
  end
  object btnExit: TButton
    Left = 584
    Top = 480
    Width = 105
    Height = 25
    Caption = #36864#20986#31243#24207
    TabOrder = 2
    OnClick = btnExitClick
  end
  object MainMenu: TMainMenu
    Left = 512
    Top = 360
    object Item_Options: TMenuItem
      Caption = #36873#39033'(&O)'
      object Item_NewGame: TMenuItem
        Caption = #26032#24314#28216#25103'(&N) '
        ShortCut = 16462
        OnClick = MenuItemClick
      end
      object Item_JoinGame: TMenuItem
        Tag = 1
        Caption = #21152#20837#28216#25103'(&J)'
        ShortCut = 16458
        OnClick = MenuItemClick
      end
      object Item_QuitGame: TMenuItem
        Tag = 2
        Caption = #26029#24320#28216#25103'(&Q)'
        ShortCut = 16465
        OnClick = MenuItemClick
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object Item_Exit: TMenuItem
        Tag = 3
        Caption = #36864#20986'(&X)'
        ShortCut = 16472
        OnClick = MenuItemClick
      end
    end
  end
  object TCPClient: TClientSocket
    Active = False
    ClientType = ctNonBlocking
    Port = 0
    OnConnect = TCPClientConnect
    OnRead = TCPClientRead
    Left = 560
    Top = 360
  end
  object TCPServer: TServerSocket
    Active = False
    Port = 0
    ServerType = stNonBlocking
    OnAccept = TCPServerAccept
    OnClientRead = TCPServerClientRead
    Left = 608
    Top = 360
  end
end