unit1.~dfm

中国象棋的delphi源代码,可实现联机

object Form1: TForm1
  Left = 242
  Top = 174
  Width = 696
  Height = 498
  Cursor = crHandPoint
  Caption = #20013#22269#35937#26827
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {
    0000010002002020100000000000E80200002600000010101000000000002801
    00000E0300002800000020000000400000000100040000000000800200000000
    0000000000000000000000000000000000000000800000800000008080008000
    00008000800080800000C0C0C000808080000000FF0000FF000000FFFF00FF00
    0000FF00FF00FFFF0000FFFFFF00EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE
    EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE
    EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE
    EEEEEEEEEE00EEEEEEEEEEEEEEEEEEE000EEEEEE000000EEEEEEEEEEEEEEE000
    00000EE00E00000EEEEEEEEEEEEEEEE000000000EEEE000EEEEEE0000EEEEEEE
    EEEEE0000EEE000EEEEE000000EEEEEEEEEEEEE0000EE00EEEE00000000EEEEE
    EEE0000EEE00000EE000000EEEEEEEEEEEEEE00000E0000E00000EEEEEEEEEEE
    EEEEEEEE000E0000000EEEEEEEEEEEEE00000000EE000000000EEEEEEEEEEEEE
    EEEEEE0000E000EEE0000EEEEEEEEEEEEEEE00EEE0000EEEEEE0EEEEEEEEEEEE
    EEEE000000000000000000EEEEEEEEEEEEEE000EEEE00000000000EEEEEEEEEE
    00EE000EEEE000EEEEEE00EEEEEEEE000000000000000000000000EEEEEEEE00
    000000000000000EEEEEEEEEEEEEEEEEEE0000000EEEE000EEEEEEEEEEEEEEEE
    EEEEEE0000000000EEEEEEEEEEEEEEEEEEEEEEEEE0000EEEEEEEEEEEEEEEEEEE
    EEEEEEEEEEE00EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE
    EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE
    EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE
    EEEEEEEEEEEEEEEEEEEEEEEEEEEE000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000280000001000000020000000010004000000
    0000C00000000000000000000000000000000000000000000000000080000080
    000000808000800000008000800080800000C0C0C000808080000000FF0000FF
    000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00EEEEEEEEEEEEEEEEEEEE
    EEEEEEEEEEEEEEEEEEEEEEEEEEEEE00EEE000EEEEEEEE00000EE0EEE00EEEEEE
    E00E0EE0000EEEEE00000E00EEEEEE0000E0000EEEEEEEEE0E00EEE0EEEEEEEE
    0EE000000EEEE000000000000EEEEEE000EE00EEEEEEEEEEEE00EEEEEEEEEEEE
    EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE00000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    00000000000000000000000000000000000000000000}
  Menu = MainMenu1
  OldCreateOrder = False
  WindowState = wsMaximized
  OnCreate = FormCreate
  OnMouseDown = FormMouseDown
  OnMouseMove = FormMouseMove
  OnPaint = FormPaint
  OnResize = FormResize
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object ListView1: TListView
    Left = 376
    Top = 0
    Width = 289
    Height = 434
    Color = clPurple
    Columns = <
      item
        Caption = #36208#26827#26041
      end
      item
        Caption = #25342#36215#26827#23376
        Width = 60
      end
      item
        Caption = #25342#23376#20301#32622
        Width = 60
      end
      item
        Caption = #33853#23376#20301#32622
        Width = 60
      end
      item
        Caption = #34987#21507#26827#23376
        Width = 60
      end>
    TabOrder = 0
    ViewStyle = vsReport
  end
  object MainMenu1: TMainMenu
    Left = 1
    object N1: TMenuItem
      Caption = #31995#32479
      object MenuStart: TMenuItem
        Caption = #24320#23616'(&S)'
        ShortCut = 16467
        OnClick = MenuStartClick
      end
      object N2: TMenuItem
        Caption = #24724#26827'(&B)'
        ShortCut = 16450
        OnClick = N2Click
      end
      object N3: TMenuItem
        Caption = '-'
      end
      object X1: TMenuItem
        Caption = #36864#20986'(&X)'
        ShortCut = 16472
      end
    end
  end
  object TimerDrawEllipse: TTimer
    Interval = 250
    OnTimer = TimerDrawEllipseTimer
    Left = 32
  end
end