mainform1.dfm

程序功能很多

object MainForm: TMainForm
  Left = 190
  Top = 146
  HorzScrollBar.Style = ssFlat
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = '中国象棋'
  ClientHeight = 471
  ClientWidth = 731
  Color = clMenu
  Ctl3D = False
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {
    0000010001002020100000000000E80200001600000028000000200000004000
    0000010004000000000000020000000000000000000000000000000000000000
    0000000080000080000000808000800000008000800080800000C0C0C0008080
    80000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF009999
    9999999999999999999999999999999888888888888898888888888888999898
    8888888888889888888888888989988988888888888118888888888898899888
    9988888111111113888888898889988889988811111111118888889888899888
    8898811111111111118889888889988888811111111555551111988888899888
    88811111555555BB511118888889988888811115555555BB5511188888899888
    88111B55555555BB555111888889988888115BBBBB5555BB5555118888899888
    81115BBBBB5BB5BB5BB511188889988881155BB5BB5BB5BB5BB5511888899888
    01155BBBBB5BB5BB5BB551188889999991555BB5555BB5BB5BB5511999999888
    81155BBBBB5BB5BB5BB551188889988881155BBBBB5BB5BB5BB5511888899888
    81155BB5BB5BBBBBBBB551188889988881155BBBBB5BBBBBBBB5511888899888
    881555BBB55555BB55555188888998888815555BB55555BB5555188888899888
    8811555BB55555BB555198888889988888811555555555BB5511988888899888
    8998111555555555518889888889988889888811155511111188889888899888
    9888888811111111888888898889988988888888888898888888888898899899
    8888888888889888888888888989989888888888888898888888888888999988
    8888888888889888888888888889999999999999999999999999999999990000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000008000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    000000000000000000000000000000000000000000000000000000000000}
  Menu = TChessMenu
  OldCreateOrder = False
  Position = poScreenCenter
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnMouseDown = FormMouseDown
  OnMouseMove = FormMouseMove
  OnPaint = FormPaint
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object TChessMenu: TMainMenu
    AutoHotkeys = maManual
    Left = 32
    Top = 16
    object Game: TMenuItem
      Caption = '游戏'
      object NewChessGame1: TMenuItem
        Caption = '新建'
        OnClick = NewChessGame1Click
      end
      object RestoreGame1: TMenuItem
        Caption = '恢复'
        OnClick = RestoreGame1Click
      end
      object SaveGame1: TMenuItem
        Caption = '保存'
        OnClick = SaveGame1Click
      end
      object SaveGameAs1: TMenuItem
        Caption = '另存为...'
        OnClick = SaveGameAsClick
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object Exit1: TMenuItem
        Caption = '退出'
        OnClick = Exit1Click
      end
      object N2: TMenuItem
        Caption = '-'
      end
      object Pass: TMenuItem
        Caption = '对弈'
        OnClick = PassClick
      end
      object Hint1: TMenuItem
        Caption = '提示'
        OnClick = Hint1Click
      end
      object About: TMenuItem
        Caption = '关于'
        OnClick = AboutClick
      end
    end
    object Edit: TMenuItem
      Caption = '编辑'
      object UndoMove: TMenuItem
        Caption = '悔棋'
        Enabled = False
        OnClick = UndoMoveClick
      end
      object RedoUndo: TMenuItem
        Caption = '重下'
        Enabled = False
        OnClick = RedoUndoClick
      end
      object N3: TMenuItem
        Caption = '-'
      end
      object MovePiece: TMenuItem
        Caption = '摆子'
        OnClick = MovePieceClick
      end
    end
    object Level1: TMenuItem
      Caption = '级别'
      object Easy: TMenuItem
        Caption = '容易'
        OnClick = EasyClick
      end
      object MoveTime: TMenuItem
        Caption = '每次移动时间...'
        OnClick = MoveTimeClick
      end
      object TotalTime: TMenuItem
        Caption = '总时间'
        OnClick = TotalTimeClick
      end
      object Matching: TMenuItem
        Caption = '匹配'
        OnClick = MatchingClick
      end
      object Infinite: TMenuItem
        Caption = '无限制'
        OnClick = InfiniteClick
      end
      object Ply1: TMenuItem
        Caption = '回合搜索'
        OnClick = Ply1Click
      end
      object Mate: TMenuItem
        Caption = '将死搜索'
        OnClick = MateClick
      end
    end
    object Options: TMenuItem
      Caption = '选项'
      object TwoPlayer: TMenuItem
        Caption = '两人对弈'
        OnClick = TwoPlayerClick
      end
      object Demo: TMenuItem
        Caption = '演示模式'
        OnClick = DemoClick
      end
      object PieceValues: TMenuItem
        Caption = '棋子值...'
        OnClick = PieceValuesClick
      end
      object N30: TMenuItem
        Caption = '-'
      end
      object MouseMove: TMenuItem
        Caption = '移动'
        object MouseDrag: TMenuItem
          Caption = '拖动'
          Checked = True
          OnClick = MouseDragClick
        end
        object MouseSelect: TMenuItem
          Caption = '选择'
          OnClick = MouseSelectClick
        end
      end
      object Sound: TMenuItem
        Caption = '声音'
        OnClick = SoundClick
      end
    end
    object Display: TMenuItem
      Caption = '显示'
      object Colors: TMenuItem
        Caption = '颜色...'
        OnClick = ColorsClick
      end
      object Reverse: TMenuItem
        Caption = '反转棋盘'
        OnClick = ReverseClick
      end
      object BestPath: TMenuItem
        Caption = '最好路线'
        Checked = True
        OnClick = BestPathClick
      end
    end
  end
  object TChessEditMenu: TMainMenu
    AutoHotkeys = maManual
    Left = 80
    Top = 16
    object Done: TMenuItem
      Caption = '完成'
      OnClick = DoneClick
    end
    object Clear: TMenuItem
      Caption = '清除'
      OnClick = ClearClick
    end
    object Turn: TMenuItem
      Caption = '轮流'
      object RedTurn: TMenuItem
        Caption = '红方'
        OnClick = RedTurnClick
      end
      object BlackTurn: TMenuItem
        Caption = '黑方'
        OnClick = BlackTurnClick
      end
    end
    object Cancel: TMenuItem
      Caption = '忽略'
      OnClick = CancelClick
    end
  end
  object TChessThinkMenu: TMainMenu
    AutoHotkeys = maManual
    Left = 128
    Top = 16
    object Stop: TMenuItem
      Caption = '停止'
    end
  end
  object OpenDialog1: TOpenDialog
    Filter = 'Chess  File(*.chs)|*.chs'
    Left = 224
    Top = 16
  end
  object SaveDialog1: TSaveDialog
    DefaultExt = 'chs'
    Filter = 'Chess File(*.chs)|*.chs'
    Left = 272
    Top = 16
  end
  object Timer1: TTimer
    Tag = 1
    Enabled = False
    OnTimer = Timer1Timer
    Left = 176
    Top = 16
  end
end