unit1.dfm.~1~

这个软件是用Delphi 7开发的。 原本它是两个人在纸面上玩的益智游戏

object frmMain: TfrmMain
  Left = 256
  Top = 206
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = #25171#39134#26426'-'#20154#26426#23545#24328#29256'  '#30410#26234#28216#25103
  ClientHeight = 447
  ClientWidth = 624
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  Icon.Data = {
    0000010001002020100000000000E80200001600000028000000200000004000
    0000010004000000000080020000000000000000000000000000000000000000
    000000008000008000000080800080000000800080008080000080808000C0C0
    C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    F80000000000000000000000000000000F880000000000000000000000000000
    0FF8800000000000000000000000000000FF8800700000000000000000000000
    000FF888770000000000000000000000000FFF88877000000000000000000000
    0000FFF888770000090000000000000000000000888770000000000000000000
    0000066608887700000000000000000000000666608887700000000000000000
    000000666608880FFFFFFFFFF000000000000006660F8880F888888888000000
    00000000000FF8880F88888880000000000000000F0FFF8880F8888800000000
    000000009000FFF8880F88800000000000000000000F00FF8880F80000000000
    00000000000F880FF88800000000000000000000000F88800088877000000000
    00000000000F88880F00000000000000000000000000F8800F80FFFF00000000
    0000000000000F000F880F800000000000000000000000000F88800000000000
    00000000000000000F8880000000000000000000000000000F88000000000000
    00000000000000000F8000000000000000000000000000000000000000000000
    000000000000000000000000000000000000000000000000000000000000FFFF
    FFFFFFFFFFFFFFFFFFFFE3FFFFFFE0FFFFFFF00FFFFFF007FFFFF803FFFFFC01
    FFFFFC00FFFFFE007BFFFF003DFFFF001EFFFF000007FF800003FFC00001FFE0
    0003FFF80007FFF4000FFFF8001FFFFC001FFFFC000FFFFC0007FFFE0007FFFF
    100FFFFFB01FFFFFF03FFFFFF07FFFFFF0FFFFFFF9FFFFFFFFFFFFFFFFFF}
  Menu = MainMenu1
  OldCreateOrder = False
  Position = poScreenCenter
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object Bevel1: TBevel
    Left = 311
    Top = 4
    Width = 2
    Height = 321
  end
  object Label1: TLabel
    Left = 9
    Top = 5
    Width = 72
    Height = 12
    Caption = #30011#39134#26426#30340#26684#23376
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object Label2: TLabel
    Left = 321
    Top = 5
    Width = 72
    Height = 12
    Caption = #29468#39134#26426#30340#26684#23376
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object Bevel3: TBevel
    Left = 8
    Top = 18
    Width = 73
    Height = 2
  end
  object Bevel4: TBevel
    Left = 320
    Top = 18
    Width = 74
    Height = 2
  end
  object Bevel2: TBevel
    Left = 3
    Top = 0
    Width = 790
    Height = 2
  end
  object GridPanel1: TGridPanel
    Left = 1
    Top = 20
    Width = 308
    Height = 306
    BevelOuter = bvNone
    TabOrder = 0
    IfAPlaneDrawer = True
    OnGridsMouseMove = GridPanel1GridsMouseMove
    GuessMapGridPanel = GridPanel2
    OnNewGameStart = GridPanel1NewGameStart
    OnHandDrawPlaneBegin = GridPanel1HandDrawPlaneBegin
    OnOnePlaneDrawed = GridPanel1OnePlaneDrawed
  end
  object GridPanel2: TGridPanel
    Tag = 1
    Left = 318
    Top = 20
    Width = 307
    Height = 308
    BevelOuter = bvNone
    TabOrder = 1
    IfAPlaneDrawer = False
    OnGridsMouseMove = GridPanel1GridsMouseMove
    DrawPlaneGridPanel = GridPanel1
    OnSameGridGuessed = GridPanel2SameGridGuessed
    OnOneGridGuessed = GridPanel2OneGridGuessed
    OnPlanesAllKnockedDown = GridPanel2PlanesAllKnockedDown
    OnComputerHitPlayerPlaneHead = GridPanel2ComputerHitPlayerPlaneHead
  end
  object InfoList: TListBox
    Left = 2
    Top = 328
    Width = 622
    Height = 102
    Style = lbOwnerDrawFixed
    ItemHeight = 16
    TabOrder = 2
    OnDrawItem = InfoListDrawItem
    OnMouseDown = InfoListMouseDown
    OnMouseMove = InfoListMouseMove
    OnMouseUp = InfoListMouseUp
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 428
    Width = 624
    Height = 19
    Panels = <
      item
        Width = 30
      end
      item
        Width = 30
      end
      item
        Width = 380
      end
      item
        Width = 50
      end>
  end
  object MainMenu1: TMainMenu
    Left = 188
    Top = 148
    object MenuControl: TMenuItem
      Caption = #25511#21046'(&C)'
      object MenuNew: TMenuItem
        Caption = #26032#28216#25103
        object MenuNewGameDrawPlane: TMenuItem
          Tag = 1
          Caption = #25163#30011#39134#26426
          OnClick = MenuNewGameDrawPlaneClick
        end
        object MenuGenerateGame: TMenuItem
          Tag = 2
          Caption = #33258#21160#29983#25104
          OnClick = MenuNewGameDrawPlaneClick
        end
      end
      object MenuQuit: TMenuItem
        Caption = #26174#31034#39134#26426
        Enabled = False
        OnClick = MenuQuitClick
      end
      object MenuSepter4: TMenuItem
        Caption = '-'
      end
      object MenuConPlay: TMenuItem
        Caption = #20154#26426#23545#24328
        Checked = True
        OnClick = MenuConPlayClick
      end
      object MenuPlayerGuessFirst: TMenuItem
        Caption = #29609#23478#20808#29468
        Checked = True
        OnClick = MenuPlayerGuessFirstClick
      end
      object MenuTimedGame: TMenuItem
        Caption = #35745#26102#28216#25103
        OnClick = MenuTimedGameClick
      end
      object MenuSepter5: TMenuItem
        Caption = '-'
      end
      object MenuGroundSize: TMenuItem
        Caption = #28216#25103#23610#23544
        object MenuSize1: TMenuItem
          Tag = 10
          AutoCheck = True
          Caption = #23567' 10*10'
          Checked = True
          RadioItem = True
          OnClick = MenuSize1Click
        end
        object MenuSize2: TMenuItem
          Tag = 15
          AutoCheck = True
          Caption = #20013' 15*15'
          RadioItem = True
          OnClick = MenuSize1Click
        end
        object MenuSize3: TMenuItem
          Tag = 20
          AutoCheck = True
          Caption = #22823' 20*20'
          RadioItem = True
          OnClick = MenuSize1Click
        end
      end
      object MenuPlaneNum: TMenuItem
        Caption = #39134#26426#25968#30446'...'
        OnClick = MenuPlaneNumClick
      end
      object MenuSepter8: TMenuItem
        Caption = '-'
      end
      object MenuSepter11: TMenuItem
        Caption = '-'
      end
      object MenuAllowLink: TMenuItem
        Caption = #20801#35768#36830#25509
        OnClick = MenuAllowLinkClick
      end
      object MenuLink: TMenuItem
        Caption = #36830#25509'...'
        OnClick = MenuLinkClick
      end
      object MenuBreakLink: TMenuItem
        Caption = #26029#24320
        Enabled = False
        OnClick = MenuBreakLinkClick
      end
      object MenuBuiltGame: TMenuItem
        Caption = #24050#24314#31435#30340#28216#25103
        Enabled = False
        object MenuBuiltGameSub: TMenuItem
          Caption = #26080#21487#29992#36830#25509
          Enabled = False
        end
      end
      object MenuOnlineGameControl: TMenuItem
        Caption = #32852#32593#28216#25103#25511#21046
        Enabled = False
        object MenuOnlineGameAutoGeneratePlane: TMenuItem
          Caption = #33258#21160#29983#25104#39134#26426'(&A)'
          OnClick = MenuOnlineGameAutoGeneratePlaneClick
        end
        object MenuSepter9: TMenuItem
          Caption = '-'
        end
        object MenuOnlineGameSendMessage: TMenuItem
          Caption = #32473#23545#26041#21457#20449#24687'(&S)'
          OnClick = MenuOnlineGameSendMessageClick
        end
        object MenuSendUrging: TMenuItem
          Caption = #32473#23545#26041#21457#20652#20419#20196'(&E)'
          OnClick = MenuSendUrgingClick
        end
        object MenuSepter10: TMenuItem
          Caption = '-'
        end
        object MenuOnlineGameSurrender: TMenuItem
          Caption = #35748#36755'(&F)'
          OnClick = MenuOnlineGameSurrenderClick
        end
        object MenuOnlineGameChangeProperty: TMenuItem
          Caption = #20462#25913#28216#25103'(&C)'
          OnClick = MenuOnlineGameChangePropertyClick
        end
      end
      object IP1: TMenuItem
        AutoHotkeys = maManual
        Caption = 'IP'#22320#22336#21644#31471#21475
        object MenuNowIP: TMenuItem
        end
        object MenuNowPort: TMenuItem
        end
        object N4: TMenuItem
          Caption = '-'
        end
        object MenuChkPort: TMenuItem
          Caption = #26816#39564#31471#21475'(&C)'
          OnClick = MenuChkPortClick
        end
        object MenuChangePort: TMenuItem
          Caption = #26356#25913#31471#21475'(&T)...'
          OnClick = MenuChangePortClick
        end
        object N5: TMenuItem
          Caption = '-'
        end
        object MenuGetLocalIP: TMenuItem
          Caption = #21462#26412#26426'IP'#22320#22336'(&G)'
          OnClick = MenuGetLocalIPClick
        end
        object MenuIPPortKnowledge: TMenuItem
          Caption = 'IP'#22320#22336#19982#31471#21475#30693#35782'(&K)'
          OnClick = MenuIPPortKnowledgeClick
        end
      end
      object MenuSepter12: TMenuItem
        Caption = '-'
      end
      object MenuAudioEffect: TMenuItem
        Caption = #38899#25928
        Checked = True
        OnClick = MenuAudioEffectClick
      end
      object MenuOption: TMenuItem
        Caption = #28216#25103#36873#39033'...'
        OnClick = MenuOptionClick
      end
      object N2: TMenuItem
        Caption = '-'
      end
      object MenuShowMsgList: TMenuItem
        Caption = #20449#24687#26694
        OnClick = MenuShowMsgListClick
      end
      object MenuClearMsgList: TMenuItem
        Caption = #28165#31354#20449#24687#26694
        OnClick = MenuClearMsgListClick
      end
    end
    object MenuHelp: TMenuItem
      Caption = #20854#23427'(&O)'
      object MenuHelpSub: TMenuItem
        Caption = #25171#39134#26426#24110#21161'...'
        OnClick = MenuHelpSubClick
      end
      object MenuSepter7: TMenuItem
        Caption = '-'
      end
      object MenuAbout: TMenuItem
        Caption = #20851#20110#26412#28216#25103'...'
        OnClick = MenuAboutClick
      end
    end
  end
  object GameTimer: TTimer
    Enabled = False
    OnTimer = GameTimerTimer
    Left = 223
    Top = 150
  end
  object ClientSocket: TClientSocket
    Active = False
    ClientType = ctNonBlocking
    Port = 211
    OnRead = ClientSocketRead
    OnError = ClientSocketError
    Left = 110
    Top = 150
  end
  object ServerSocket: TServerSocket
    Active = False
    Port = 211
    ServerType = stNonBlocking
    OnAccept = ServerSocketAccept
    OnClientRead = ServerSocketClientRead
    Left = 149
    Top = 150
  end
  object FlashTimer: TTimer
    Enabled = False
    Interval = 200
    Left = 262
    Top = 152
  end
  object XPManifest1: TXPManifest
    Left = 76
    Top = 151
  end
end