www.pudn.com > UDPp2P.rar > MainUnit.dfm

object Client: TClient 
  Left = 214 
  Top = 133 
  Width = 527 
  Height = 378 
  BorderIcons = [biSystemMenu, biMinimize] 
  Caption = 'tQClient[PeerToPeer'#27979#35797#31243#24207' 05.02.27 v0.0.2]' 
  Color = clBtnFace 
  Font.Charset = GB2312_CHARSET 
  Font.Color = clWindowText 
  Font.Height = -13 
  Font.Name = #23435#20307 
  Font.Style = [] 
  OldCreateOrder = False 
  OnClose = FormClose 
  OnCreate = FormCreate 
  PixelsPerInch = 96 
  TextHeight = 13 
  object Panel1: TPanel 
    Left = 0 
    Top = 0 
    Width = 519 
    Height = 65 
    Align = alTop 
    TabOrder = 0 
    object Label3: TLabel 
      Left = 240 
      Top = 12 
      Width = 81 
      Height = 13 
      AutoSize = False 
      Caption = #26381#21153#22120#31471#21475':' 
    end 
    object Label1: TLabel 
      Left = 8 
      Top = 36 
      Width = 65 
      Height = 13 
      AutoSize = False 
      Caption = #29992#25143#26165#31216':' 
    end 
    object Label2: TLabel 
      Left = 8 
      Top = 12 
      Width = 65 
      Height = 21 
      AutoSize = False 
      Caption = #26381#21153#22120'IP:' 
    end 
    object UserNameEdit: TEdit 
      Left = 72 
      Top = 36 
      Width = 153 
      Height = 21 
      BevelInner = bvNone 
      BevelKind = bkFlat 
      BorderStyle = bsNone 
      ImeName = #29579#30721#20116#31508#22411#36755#20837#27861'86'#29256 
      TabOrder = 0 
      Text = 'testBoy' 
    end 
    object ServerIPEdit: TEdit 
      Left = 72 
      Top = 12 
      Width = 153 
      Height = 21 
      BevelInner = bvNone 
      BevelKind = bkFlat 
      BorderStyle = bsNone 
      ImeName = #29579#30721#20116#31508#22411#36755#20837#27861'86'#29256 
      TabOrder = 1 
      Text = '218.0.253.50' 
    end 
    object ServerPortEdit: TEdit 
      Left = 328 
      Top = 12 
      Width = 105 
      Height = 21 
      BevelInner = bvNone 
      BevelKind = bkFlat 
      BorderStyle = bsNone 
      ImeName = #29579#30721#20116#31508#22411#36755#20837#27861'86'#29256 
      TabOrder = 2 
      Text = '9001' 
    end 
    object LogonButton: TButton 
      Left = 240 
      Top = 35 
      Width = 89 
      Height = 25 
      Caption = #30331#24405 
      TabOrder = 3 
      OnClick = LogonButtonClick 
    end 
    object LogoutButton: TButton 
      Left = 344 
      Top = 35 
      Width = 81 
      Height = 25 
      Caption = #27880#38144 
      Enabled = False 
      TabOrder = 4 
      OnClick = LogoutButtonClick 
    end 
  end 
  object Panel2: TPanel 
    Left = 0 
    Top = 65 
    Width = 519 
    Height = 278 
    Align = alClient 
    TabOrder = 1 
    DesignSize = ( 
      519 
      278) 
    object Label4: TLabel 
      Left = 240 
      Top = 120 
      Width = 39 
      Height = 13 
      Caption = #25509#25910#65306 
    end 
    object SendMsgEdit: TRichEdit 
      Left = 232 
      Top = 32 
      Width = 281 
      Height = 49 
      BevelInner = bvNone 
      BevelKind = bkFlat 
      BorderStyle = bsNone 
      ImeName = #29579#30721#20116#31508#22411#36755#20837#27861'86'#29256 
      Lines.Strings = ( 
        #20320#22909#21834'!'#21457#36865#28040#24687#26102#20808#36873#20013#24038#36793#21015#34920#30340#28040#24687#25509#25910 
        #32773'!') 
      TabOrder = 0 
    end 
    object UserList: TListView 
      Left = 8 
      Top = 0 
      Width = 217 
      Height = 265 
      Anchors = [akLeft, akTop, akBottom] 
      BevelInner = bvNone 
      BevelKind = bkFlat 
      BorderStyle = bsNone 
      Columns = < 
        item 
          Caption = 'Name' 
          Width = 80 
        end 
        item 
          Caption = 'IP' 
          Width = 80 
        end 
        item 
          Caption = 'PORT' 
        end 
        item 
          Caption = 'P2P' 
          Width = 40 
        end> 
      FlatScrollBars = True 
      GridLines = True 
      HideSelection = False 
      HotTrack = True 
      ReadOnly = True 
      RowSelect = True 
      TabOrder = 1 
      ViewStyle = vsReport 
    end 
    object SendMsgButton: TButton 
      Left = 232 
      Top = 88 
      Width = 89 
      Height = 25 
      Caption = #21457#36865 
      Enabled = False 
      TabOrder = 2 
      OnClick = SendMsgButtonClick 
    end 
    object StatusBar1: TStatusBar 
      Left = 1 
      Top = 255 
      Width = 517 
      Height = 22 
      Panels = < 
        item 
          Width = 350 
        end 
        item 
          Width = 50 
        end> 
    end 
    object RecvEdit: TRichEdit 
      Left = 232 
      Top = 136 
      Width = 281 
      Height = 121 
      BevelInner = bvNone 
      BevelKind = bkFlat 
      BorderStyle = bsNone 
      Font.Charset = GB2312_CHARSET 
      Font.Color = clWindowText 
      Font.Height = -12 
      Font.Name = #23435#20307 
      Font.Style = [] 
      ImeName = #29579#30721#20116#31508#22411#36755#20837#27861'86'#29256 
      ParentFont = False 
      ScrollBars = ssVertical 
      TabOrder = 4 
    end 
    object CheckBox1: TCheckBox 
      Left = 328 
      Top = 92 
      Width = 73 
      Height = 17 
      Caption = #38656#35201#21453#39304 
      Checked = True 
      State = cbChecked 
      TabOrder = 5 
    end 
    object P2PTestButton: TButton 
      Left = 232 
      Top = 3 
      Width = 137 
      Height = 25 
      Caption = 'PeerToPeer'#26816#27979 
      Enabled = False 
      TabOrder = 6 
      OnClick = P2PTestButtonClick 
    end 
    object Button1: TButton 
      Left = 408 
      Top = 88 
      Width = 75 
      Height = 25 
      Caption = #28165#38500#20449#24687 
      TabOrder = 7 
      OnClick = Button1Click 
    end 
    object Button2: TButton 
      Left = 400 
      Top = 3 
      Width = 75 
      Height = 25 
      Caption = #20851' '#20110 
      TabOrder = 8 
      OnClick = Button2Click 
    end 
  end 
  object UDPClient: TIdUDPServer 
    Bindings = <> 
    DefaultPort = 0 
    OnUDPRead = UDPClientUDPRead 
    Left = 120 
    Top = 73 
  end 
end